abap 获取生产订单标准工时和实际报工工时的报表
来源：互联网 发布：js让另一个页面刷新 编辑：程序博客网 时间：2024/04/28 07:29
*&---------------------------------------------------------------------*
*& REPORT ZMM_PO_QUERY
*&
*& REPORTNAME :生产订单查询系统
*&---------------------------------------------------------------------*
*& CREATED BY : LIUXINYUAN
*& CREATED DATE : 2015-07-15
*&---------------------------------------------------------------------*
REPORT ZPP_CO_QUERY.
INCLUDE ZPP_CO_QUERY_TOP.
**选择屏幕
SELECTION-SCREEN BEGIN OF BLOCK MAIN WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS:S_AUFNR FOR CAUFV-AUFNR.
SELECT-OPTIONS:S_WERKS FOR CAUFV-WERKS.
SELECT-OPTIONS:S_GSTRI FOR CAUFV-GSTRI.
SELECT-OPTIONS:S_GLTRI FOR CAUFV-GLTRI.
SELECTION-SCREEN END OF BLOCK MAIN.
AT SELECTION-SCREEN.
* LOOP AT S_WERKS.
* AUTHORITY-CHECK OBJECT 'Z_MM_003'
* ID 'WERKS' FIELD S_WERKS-LOW.
* IF SY-SUBRC <> 0.
* MESSAGE E019(ZMM001) WITH S_WERKS-LOW.
* ENDIF.
* ENDLOOP.
AT SELECTION-SCREEN OUTPUT.
**主程序
START-OF-SELECTION.
PERFORM FRM_SELECT_DATA.
PERFORM FRM_DISPLAY.
*&---------------------------------------------------------------------*
*& FORM FRM_SELECT_DATA
*&---------------------------------------------------------------------*
* TEXT
*----------------------------------------------------------------------*
* --> P1 TEXT
* <-- P2 TEXT
*----------------------------------------------------------------------*
FORM FRM_SELECT_DATA .
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
TEXT = '数据读取中.................'.
REFRESH ITAB.
CLEAR ITAB.
"机器 作业类型 1001
"工资 作业类型 1000
"其他 作业类型 1003
SELECT AUFNR
WERKS
AUART
KDAUF "销售订单编号
KDPOS "销售订单行项目
PLNBEZ
GAMNG
AUFPL
OBJNR
FTRMI
INTO CORRESPONDING FIELDS OF TABLE ITAB
FROM CAUFV
WHERE AUFNR IN S_AUFNR
AND WERKS IN S_WERKS
AND GSTRI IN S_GSTRI
AND GLTRI IN S_GLTRI.
IF ITAB[] IS NOT INITIAL.
REFRESH IT_AFVV.
CLEAR IT_AFVV.
SELECT AUFPL
APLZL
VGW01
VGW02
VGW03
INTO TABLE IT_AFVV
FROM AFVV
FOR ALL ENTRIES IN ITAB
WHERE AUFPL = ITAB-AUFPL.
REFRESH IT_AFVC.
CLEAR IT_AFVC.
SELECT AUFPL
APLZL
RUECK
ARBID
INTO TABLE IT_AFVC
FROM AFVC
FOR ALL ENTRIES IN ITAB
WHERE AUFPL = ITAB-AUFPL.
IF IT_AFVC[] IS NOT INITIAL.
REFRESH IT_AFRU.
CLEAR IT_AFRU.
SELECT RUECK
RMZHL
ISM01
ISM02
ISM03
STOKZ
INTO TABLE IT_AFRU
FROM AFRU
FOR ALL ENTRIES IN IT_AFVC
WHERE RUECK = IT_AFVC-RUECK.
REFRESH TIT_AFRU.
CLEAR TIT_AFRU.
LOOP AT IT_AFRU.
TIT_AFRU-RUECK = IT_AFRU-RUECK.
IF IT_AFRU-STOKZ = 'X'.
TIT_AFRU-ISM01 = 0 - IT_AFRU-ISM01.
TIT_AFRU-ISM02 = 0 - IT_AFRU-ISM02.
TIT_AFRU-ISM03 = 0 - IT_AFRU-ISM03.
ELSE.
TIT_AFRU-ISM01 = IT_AFRU-ISM01.
TIT_AFRU-ISM02 = IT_AFRU-ISM02.
TIT_AFRU-ISM03 = IT_AFRU-ISM03.
ENDIF.
COLLECT TIT_AFRU.
CLEAR TIT_AFRU.
ENDLOOP.
REFRESH IT_AFRU_VV.
CLEAR IT_AFRU_VV.
LOOP AT TIT_AFRU.
CLEAR IT_AFVC.
READ TABLE IT_AFVC WITH KEY RUECK = TIT_AFRU-RUECK.
IF SY-SUBRC EQ 0.
IT_AFRU_VV-AUFPL = IT_AFVC-AUFPL.
IT_AFRU_VV-APLZL = IT_AFVC-APLZL.
IT_AFRU_VV-ISM01 = TIT_AFRU-ISM01.
IT_AFRU_VV-ISM02 = TIT_AFRU-ISM02.
IT_AFRU_VV-ISM03 = TIT_AFRU-ISM03.
APPEND IT_AFRU_VV.
CLEAR IT_AFRU_VV.
ENDIF.
ENDLOOP.
ENDIF.
DATA:LV_ARBID TYPE AFVC-ARBID,
LV_ARBPL TYPE CRHD-ARBPL.
LOOP AT ITAB.
* 获取标准工时
LOOP AT IT_AFVV WHERE AUFPL = ITAB-AUFPL.
CLEAR LV_ARBID.
CLEAR IT_AFVC.
READ TABLE IT_AFVC WITH KEY AUFPL = IT_AFVV-AUFPL APLZL = IT_AFVV-APLZL.
IF SY-SUBRC EQ 0.
LV_ARBID = IT_AFVC-ARBID.
ENDIF.
CLEAR LV_ARBPL.
SELECT SINGLE
ARBPL
INTO LV_ARBPL
FROM CRHD
WHERE OBJTY = 'A'
AND OBJID = LV_ARBID.
DATA:LV_KOSTL TYPE CRCO-KOSTL.
CLEAR LV_KOSTL.
SELECT SINGLE
KOSTL
INTO LV_KOSTL
FROM CRCO
WHERE OBJTY = 'A'
AND OBJID = LV_ARBID.
IF LV_ARBPL = 'STRZP' OR LV_ARBPL+0(2) = 'ZP'.
ITAB-ZPVGW01 = IT_AFVV-VGW01 * ITAB-GAMNG.
ITAB-ZPVGW02 = IT_AFVV-VGW02 * ITAB-GAMNG.
ITAB-ZPVGW03 = IT_AFVV-VGW03 * ITAB-GAMNG.
ITAB-ZPKOSTL = LV_KOSTL.
ELSEIF LV_ARBPL = 'STRTS' OR LV_ARBPL+0(2) = 'TS'.
ITAB-TSVGW01 = IT_AFVV-VGW01 * ITAB-GAMNG.
ITAB-TSVGW02 = IT_AFVV-VGW02 * ITAB-GAMNG.
ITAB-TSVGW03 = IT_AFVV-VGW03 * ITAB-GAMNG.
ITAB-TSKOSTL = LV_KOSTL.
ELSEIF LV_ARBPL = 'STRLH' OR LV_ARBPL+0(2) = 'LH'.
ITAB-LHVGW01 = IT_AFVV-VGW01 * ITAB-GAMNG.
ITAB-LHVGW02 = IT_AFVV-VGW02 * ITAB-GAMNG.
ITAB-LHVGW03 = IT_AFVV-VGW03 * ITAB-GAMNG.
ITAB-LHKOSTL = LV_KOSTL.
ELSEIF LV_ARBPL = 'STRYJ' OR LV_ARBPL+0(2) = 'YJ'.
ITAB-JYVGW01 = IT_AFVV-VGW01 * ITAB-GAMNG.
ITAB-JYVGW02 = IT_AFVV-VGW02 * ITAB-GAMNG.
ITAB-JYVGW03 = IT_AFVV-VGW03 * ITAB-GAMNG.
ITAB-JYKOSTL = LV_KOSTL.
ELSEIF LV_ARBPL = 'STRBZ' OR LV_ARBPL+0(2) = 'BZ'.
ITAB-BZVGW01 = IT_AFVV-VGW01 * ITAB-GAMNG.
ITAB-BZVGW02 = IT_AFVV-VGW02 * ITAB-GAMNG.
ITAB-BZVGW03 = IT_AFVV-VGW03 * ITAB-GAMNG.
ITAB-BZKOSTL = LV_KOSTL.
ENDIF.
***********以下代码根据工单下单的工时，查找标准工时的成本的单价，以及计算成本
* CLEAR LV_GJAHR. CLEAR LV_MONTH.
* LV_GJAHR = ITAB-FTRMI+0(4).
* LV_MONTH = ITAB-FTRMI+4(2).
* REFRESH IT_CRCO.
* CLEAR IT_CRCO.
*
* SELECT KOKRS
* KOSTL
* LSTAR
* INTO TABLE IT_CRCO
* FROM CRCO
* WHERE OBJTY = 'A'
* AND OBJID = LV_ARBID.
* LOOP AT IT_CRCO.
* CONCATENATE 'KL' IT_CRCO-KOKRS IT_CRCO-KOSTL IT_CRCO-LSTAR INTO IT_CRCO-OBJNR.
* MODIFY IT_CRCO.
* CLEAR IT_CRCO.
* ENDLOOP.
*
*
*
* IF IT_CRCO[] IS NOT INITIAL.
* SELECT LEDNR
* OBJNR
* GJAHR
* WRTTP
* VERSN
* TARKZ
* PERBL
*
* TKG001
* TKG002
* TKG003
* TKG004
* TKG005
* TKG006
* TKG007
* TKG008
* TKG009
* TKG010
* TKG011
* TKG012
*
* TKE001
* TKE002
* TKE003
* TKE004
* TKE005
* TKE006
* TKE007
* TKE008
* TKE009
* TKE010
* TKE011
* TKE012
* INTO TABLE IT_COST
* FROM COST
* FOR ALL ENTRIES IN IT_CRCO
* WHERE LEDNR = '00'
* AND OBJNR = IT_CRCO-OBJNR
* AND GJAHR = LV_GJAHR
* AND TARKZ = '001'.
*
* CLEAR LV_TKG01.
* CLEAR LV_TKE01.
* CLEAR LV_TKG02.
* CLEAR LV_TKE02.
* CLEAR LV_TKG03.
* CLEAR LV_TKE03.
*
* LOOP AT IT_COST.
* IF IT_COST+17(4) = '1001'.
* IF LV_MONTH = '01'.
* LV_TKG01 = IT_COST-TKG001.
* LV_TKE01 = IT_COST-TKE001.
* ELSEIF LV_MONTH = '02'.
* LV_TKG01 = IT_COST-TKG002.
* LV_TKE01 = IT_COST-TKE002.
* ELSEIF LV_MONTH = '03'.
* LV_TKG01 = IT_COST-TKG003.
* LV_TKE01 = IT_COST-TKE003.
* ELSEIF LV_MONTH = '04'.
* LV_TKG01 = IT_COST-TKG004.
* LV_TKE01 = IT_COST-TKE004.
* ELSEIF LV_MONTH = '05'.
* LV_TKG01 = IT_COST-TKG005.
* LV_TKE01 = IT_COST-TKE005.
* ELSEIF LV_MONTH = '06'.
* LV_TKG01 = IT_COST-TKG006.
* LV_TKE01 = IT_COST-TKE006.
* ELSEIF LV_MONTH = '07'.
* LV_TKG01 = IT_COST-TKG007.
* LV_TKE01 = IT_COST-TKE007.
* ELSEIF LV_MONTH = '08'.
* LV_TKG01 = IT_COST-TKG008.
* LV_TKE01 = IT_COST-TKE008.
* ELSEIF LV_MONTH = '09'.
* LV_TKG01 = IT_COST-TKG009.
* LV_TKE01 = IT_COST-TKE009.
* ELSEIF LV_MONTH = '10'.
* LV_TKG01 = IT_COST-TKG010.
* LV_TKE01 = IT_COST-TKE010.
* ELSEIF LV_MONTH = '11'.
* LV_TKG01 = IT_COST-TKG011.
* LV_TKE01 = IT_COST-TKE011.
* ELSEIF LV_MONTH = '12'.
* LV_TKG01 = IT_COST-TKG012.
* LV_TKE01 = IT_COST-TKE012.
* ENDIF.
*
* ELSEIF IT_COST+17(4) = '1000'.
* IF LV_MONTH = '01'.
* LV_TKG02 = IT_COST-TKG001.
* LV_TKE02 = IT_COST-TKE001.
* ELSEIF LV_MONTH = '02'.
* LV_TKG02 = IT_COST-TKG002.
* LV_TKE02 = IT_COST-TKE002.
* ELSEIF LV_MONTH = '03'.
* LV_TKG02 = IT_COST-TKG003.
* LV_TKE02 = IT_COST-TKE003.
* ELSEIF LV_MONTH = '04'.
* LV_TKG02 = IT_COST-TKG004.
* LV_TKE02 = IT_COST-TKE004.
* ELSEIF LV_MONTH = '05'.
* LV_TKG02 = IT_COST-TKG005.
* LV_TKE02 = IT_COST-TKE005.
* ELSEIF LV_MONTH = '06'.
* LV_TKG02 = IT_COST-TKG006.
* LV_TKE02 = IT_COST-TKE006.
* ELSEIF LV_MONTH = '07'.
* LV_TKG02 = IT_COST-TKG007.
* LV_TKE02 = IT_COST-TKE007.
* ELSEIF LV_MONTH = '08'.
* LV_TKG02 = IT_COST-TKG008.
* LV_TKE02 = IT_COST-TKE008.
* ELSEIF LV_MONTH = '09'.
* LV_TKG02 = IT_COST-TKG009.
* LV_TKE02 = IT_COST-TKE009.
* ELSEIF LV_MONTH = '10'.
* LV_TKG02 = IT_COST-TKG010.
* LV_TKE02 = IT_COST-TKE010.
* ELSEIF LV_MONTH = '11'.
* LV_TKG02 = IT_COST-TKG011.
* LV_TKE02 = IT_COST-TKE011.
* ELSEIF LV_MONTH = '12'.
* LV_TKG02 = IT_COST-TKG012.
* LV_TKE02 = IT_COST-TKE012.
* ENDIF.
* ELSEIF IT_COST+17(4) = '1003'.
* IF LV_MONTH = '01'.
* LV_TKG03 = IT_COST-TKG001.
* LV_TKE03 = IT_COST-TKE001.
* ELSEIF LV_MONTH = '02'.
* LV_TKG03 = IT_COST-TKG002.
* LV_TKE03 = IT_COST-TKE002.
* ELSEIF LV_MONTH = '03'.
* LV_TKG03 = IT_COST-TKG003.
* LV_TKE03 = IT_COST-TKE003.
* ELSEIF LV_MONTH = '04'.
* LV_TKG03 = IT_COST-TKG004.
* LV_TKE03 = IT_COST-TKE004.
* ELSEIF LV_MONTH = '05'.
* LV_TKG03 = IT_COST-TKG005.
* LV_TKE03 = IT_COST-TKE005.
* ELSEIF LV_MONTH = '06'.
* LV_TKG03 = IT_COST-TKG006.
* LV_TKE03 = IT_COST-TKE006.
* ELSEIF LV_MONTH = '07'.
* LV_TKG03 = IT_COST-TKG007.
* LV_TKE03 = IT_COST-TKE007.
* ELSEIF LV_MONTH = '08'.
* LV_TKG03 = IT_COST-TKG008.
* LV_TKE03 = IT_COST-TKE008.
* ELSEIF LV_MONTH = '09'.
* LV_TKG03 = IT_COST-TKG009.
* LV_TKE03 = IT_COST-TKE009.
* ELSEIF LV_MONTH = '10'.
* LV_TKG03 = IT_COST-TKG010.
* LV_TKE03 = IT_COST-TKE010.
* ELSEIF LV_MONTH = '11'.
* LV_TKG03 = IT_COST-TKG011.
* LV_TKE03 = IT_COST-TKE011.
* ELSEIF LV_MONTH = '12'.
* LV_TKG03 = IT_COST-TKG012.
* LV_TKE03 = IT_COST-TKE012.
* ENDIF.
* ENDIF.
* ENDLOOP.
* ENDIF.
*
*
* ITAB-ZPVGW01 * LV_TKG01 / LV_TKE01
* ITAB-ZPVGW02 * LV_TKG02 / LV_TKE01
* ITAB-ZPVGW03 * LV_TKG03 / LV_TKE01
*
* ITAB-TSVGW01 * LV_TKG01 / LV_TKE01
* ITAB-TSVGW02 * LV_TKG02 / LV_TKE01
* ITAB-TSVGW03 * LV_TKG03 / LV_TKE01
*
* ITAB-LHVGW01 * LV_TKG01 / LV_TKE01
* ITAB-LHVGW02 * LV_TKG02 / LV_TKE01
* ITAB-LHVGW03 * LV_TKG03 / LV_TKE01
*
* ITAB-JYVGW01 * LV_TKG01 / LV_TKE01
* ITAB-JYVGW02 * LV_TKG02 / LV_TKE01
* ITAB-JYVGW03 * LV_TKG03 / LV_TKE01
*
* ITAB-BZVGW01 * LV_TKG01 / LV_TKE01
* ITAB-BZVGW02 * LV_TKG02 / LV_TKE01
* ITAB-BZVGW03 * LV_TKG03 / LV_TKE01
*
************以下代码根据工单下单的工时，查找标准工时的成本的单价，以及计算成本
ENDLOOP.
* 获取实际工时
LOOP AT IT_AFRU_VV WHERE AUFPL = ITAB-AUFPL.
CLEAR LV_ARBID.
CLEAR IT_AFVC.
READ TABLE IT_AFVC WITH KEY AUFPL = IT_AFRU_VV-AUFPL APLZL = IT_AFRU_VV-APLZL.
IF SY-SUBRC EQ 0.
LV_ARBID = IT_AFVC-ARBID.
ENDIF.
CLEAR LV_ARBPL.
SELECT SINGLE
ARBPL
INTO LV_ARBPL
FROM CRHD
WHERE OBJTY = 'A'
AND OBJID = LV_ARBID.
IF LV_ARBPL = 'STRZP' OR LV_ARBPL+0(2) = 'ZP'.
ITAB-BZPVGW01 = IT_AFRU_VV-ISM01.
ITAB-BZPVGW02 = IT_AFRU_VV-ISM02.
ITAB-BZPVGW03 = IT_AFRU_VV-ISM03.
ELSEIF LV_ARBPL = 'STRTS' OR LV_ARBPL+0(2) = 'TS'.
ITAB-BTSVGW01 = IT_AFRU_VV-ISM01.
ITAB-BTSVGW02 = IT_AFRU_VV-ISM02.
ITAB-BTSVGW03 = IT_AFRU_VV-ISM03.
ELSEIF LV_ARBPL = 'STRLH' OR LV_ARBPL+0(2) = 'LH'.
ITAB-BLHVGW01 = IT_AFRU_VV-ISM01.
ITAB-BLHVGW02 = IT_AFRU_VV-ISM02.
ITAB-BLHVGW03 = IT_AFRU_VV-ISM03.
ELSEIF LV_ARBPL = 'STRYJ' OR LV_ARBPL+0(2) = 'YJ'.
ITAB-BJYVGW01 = IT_AFRU_VV-ISM01.
ITAB-BJYVGW02 = IT_AFRU_VV-ISM02.
ITAB-BJYVGW03 = IT_AFRU_VV-ISM03.
ELSEIF LV_ARBPL = 'STRBZ' OR LV_ARBPL+0(2) = 'BZ'.
ITAB-BBZVGW01 = IT_AFRU_VV-ISM01.
ITAB-BBZVGW02 = IT_AFRU_VV-ISM02.
ITAB-BBZVGW03 = IT_AFRU_VV-ISM03.
ENDIF.
ENDLOOP.
MODIFY ITAB.
CLEAR ITAB.
ENDLOOP.
ENDIF.
DATA: T_STATUS LIKE BSVX-STTXT.
LOOP AT ITAB.
CALL FUNCTION 'STATUS_TEXT_EDIT'
EXPORTING
* CLIENT = SY-MANDT
* FLG_USER_STAT = ' '
OBJNR = ITAB-OBJNR " 单据号码
* ONLY_ACTIVE = 'X'
SPRAS = 'E'
* BYPASS_BUFFER = ' '
IMPORTING
LINE = ITAB-XTZT. " 返回状态
SELECT SINGLE
MAKTX
INTO ITAB-MAKTX
FROM MAKT
WHERE MATNR = ITAB-PLNBEZ
AND SPRAS = SY-LANGU.
SELECT SINGLE
BKLAS
INTO ITAB-BKLAS
FROM MBEW
WHERE MATNR = ITAB-PLNBEZ
AND BWKEY = ITAB-WERKS.
SELECT SINGLE
MTART
INTO ITAB-MTART
FROM MARA
WHERE MATNR = ITAB-PLNBEZ.
SELECT SINGLE
VKBUR
INTO ITAB-VKBUR
FROM VBAK
WHERE VBELN = ITAB-KDAUF.
SELECT SINGLE
WEMNG
INTO ITAB-GWEMG
FROM AFPO
WHERE AUFNR = ITAB-AUFNR.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
EXPORTING
INPUT = ITAB-AUFNR
IMPORTING
OUTPUT = ITAB-AUFNR.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
EXPORTING
INPUT = ITAB-PLNBEZ
IMPORTING
OUTPUT = ITAB-PLNBEZ.
MODIFY ITAB.
CLEAR ITAB.
ENDLOOP.
ENDFORM. " FRM_SELECT_DATA
*&---------------------------------------------------------------------*
*& FORM DISPLAY_DATA
*&---------------------------------------------------------------------*
* TEXT
*----------------------------------------------------------------------*
* --> P1 TEXT
* <-- P2 TEXT
*----------------------------------------------------------------------*
FORM FRM_DISPLAY .
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'AUFNR'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '生产订单编号'.
FIELDCAT-SELTEXT_M = '生产订单编号'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'XTZT'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '系统状态'.
FIELDCAT-SELTEXT_M = '系统状态'.
FIELDCAT-OUTPUTLEN = 20.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'WERKS'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '工厂'.
FIELDCAT-SELTEXT_M = '工厂'.
FIELDCAT-OUTPUTLEN = 10.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'AUART'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '订单类型'.
FIELDCAT-SELTEXT_M = '订单类型'.
FIELDCAT-OUTPUTLEN = 8.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'KDAUF'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '销售订单编号'.
FIELDCAT-SELTEXT_M = '销售订单编号'.
FIELDCAT-OUTPUTLEN = 12.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'KDPOS'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '销售订单行项目'.
FIELDCAT-SELTEXT_M = '销售订单行项目'.
FIELDCAT-OUTPUTLEN = 12.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'VKBUR'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '办事处'.
FIELDCAT-SELTEXT_M = '办事处'.
FIELDCAT-OUTPUTLEN = 12.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'PLNBEZ'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '物料编号'.
FIELDCAT-SELTEXT_M = '物料编号'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'MAKTX'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '物料描述'.
FIELDCAT-SELTEXT_M = '物料描述'.
FIELDCAT-OUTPUTLEN = 35.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'GAMNG'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '订单数量'.
FIELDCAT-SELTEXT_M = '订单数量'.
FIELDCAT-OUTPUTLEN = 12.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'GWEMG'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '确认数量'.
FIELDCAT-SELTEXT_M = '确认数量'.
FIELDCAT-OUTPUTLEN = 12.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'BKLAS'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '评估类'.
FIELDCAT-SELTEXT_M = '评估类'.
FIELDCAT-OUTPUTLEN = 10.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'MTART'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '物料类型'.
FIELDCAT-SELTEXT_M = '物料类型'.
FIELDCAT-OUTPUTLEN = 10.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'ZPVGW01'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '装配-折旧标准工时'.
FIELDCAT-SELTEXT_M = '装配-折旧标准工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'ZPVGW02'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '装配-工资标准工时'.
FIELDCAT-SELTEXT_M = '装配-工资标准工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'ZPVGW03'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '装配-其他标准工时'.
FIELDCAT-SELTEXT_M = '装配-其他标准工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'BZPVGW01'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '装配-折旧实际工时'.
FIELDCAT-SELTEXT_M = '装配-折旧实际工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'BZPVGW02'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '装配-工资实际工时'.
FIELDCAT-SELTEXT_M = '装配-工资实际工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'BZPVGW03'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '装配-其他实际工时'.
FIELDCAT-SELTEXT_M = '装配-其他实际工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'ZPKOSTL'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '装配-成本中心'.
FIELDCAT-SELTEXT_M = '装配-成本中心'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'TSVGW01'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '调试-折旧标准工时'.
FIELDCAT-SELTEXT_M = '调试-折旧标准工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'TSVGW02'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '调试-工资标准工时'.
FIELDCAT-SELTEXT_M = '调试-工资标准工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'TSVGW03'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '调试-其他标准工时'.
FIELDCAT-SELTEXT_M = '调试-其他标准工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'BTSVGW01'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '调试-折旧实际工时'.
FIELDCAT-SELTEXT_M = '调试-折旧实际工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'BTSVGW02'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '调试-工资实际工时'.
FIELDCAT-SELTEXT_M = '调试-工资实际工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'BTSVGW03'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '调试-其他实际工时'.
FIELDCAT-SELTEXT_M = '调试-其他实际工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'TSKOSTL'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '调试-成本中心'.
FIELDCAT-SELTEXT_M = '调试-成本中心'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'LHVGW01'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '老化-折旧标准工时'.
FIELDCAT-SELTEXT_M = '老化-折旧标准工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'LHVGW02'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '老化-工资标准工时'.
FIELDCAT-SELTEXT_M = '老化-工资标准工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'LHVGW03'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '老化-其他标准工时'.
FIELDCAT-SELTEXT_M = '老化-其他标准工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'BLHVGW01'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '老化-折旧实际工时'.
FIELDCAT-SELTEXT_M = '老化-折旧实际工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'BLHVGW02'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '老化-工资实际工时'.
FIELDCAT-SELTEXT_M = '老化-工资实际工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'BLHVGW03'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '老化-其他实际工时'.
FIELDCAT-SELTEXT_M = '老化-其他实际工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'LHKOSTL'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '老化-成本中心'.
FIELDCAT-SELTEXT_M = '老化-成本中心'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'JYVGW01'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '检验-折旧标准工时'.
FIELDCAT-SELTEXT_M = '检验-折旧标准工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'JYVGW02'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '检验-工资标准工时'.
FIELDCAT-SELTEXT_M = '检验-工资标准工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'JYVGW03'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '检验-其他标准工时'.
FIELDCAT-SELTEXT_M = '检验-其他标准工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'BJYVGW01'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '检验-折旧实际工时'.
FIELDCAT-SELTEXT_M = '检验-折旧实际工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'BJYVGW02'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '检验-工资实际工时'.
FIELDCAT-SELTEXT_M = '检验-工资实际工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'BJYVGW03'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '检验-其他实际工时'.
FIELDCAT-SELTEXT_M = '检验-其他实际工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'JYKOSTL'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '检验-成本中心'.
FIELDCAT-SELTEXT_M = '检验-成本中心'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'BZVGW01'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '包装-折旧标准工时'.
FIELDCAT-SELTEXT_M = '包装-折旧标准工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'BZVGW02'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '包装-工资标准工时'.
FIELDCAT-SELTEXT_M = '包装-工资标准工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'BZVGW03'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '包装-其他标准工时'.
FIELDCAT-SELTEXT_M = '包装-其他标准工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'BBZVGW01'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '包装-折旧实际工时'.
FIELDCAT-SELTEXT_M = '包装-折旧实际工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'BBZVGW02'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '包装-工资实际工时'.
FIELDCAT-SELTEXT_M = '包装-工资实际工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'BBZVGW03'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '包装-其他实际工时'.
FIELDCAT-SELTEXT_M = '包装-其他实际工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'BZKOSTL'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '包装-成本中心'.
FIELDCAT-SELTEXT_M = '包装-成本中心'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
* CLEAR FIELDCAT.
* FIELDCAT-FIELDNAME = 'ZJVGW01'.
* FIELDCAT-TABNAME = 'ITAB'.
* FIELDCAT-SELTEXT_S = '折旧标准成本'.
* FIELDCAT-SELTEXT_M = '折旧标准成本'.
* FIELDCAT-OUTPUTLEN = 18.
* APPEND FIELDCAT.
*
*
* CLEAR FIELDCAT.
* FIELDCAT-FIELDNAME = 'GZVGW02'.
* FIELDCAT-TABNAME = 'ITAB'.
* FIELDCAT-SELTEXT_S = '工资标准成本'.
* FIELDCAT-SELTEXT_M = '工资标准成本'.
* FIELDCAT-OUTPUTLEN = 18.
* APPEND FIELDCAT.
*
* CLEAR FIELDCAT.
* FIELDCAT-FIELDNAME = 'QTVGW03'.
* FIELDCAT-TABNAME = 'ITAB'.
* FIELDCAT-SELTEXT_S = '其他标准成本'.
* FIELDCAT-SELTEXT_M = '其他标准成本'.
* FIELDCAT-OUTPUTLEN = 18.
* APPEND FIELDCAT.
*
*
*
* CLEAR FIELDCAT.
* FIELDCAT-FIELDNAME = 'BZJVGW01'.
* FIELDCAT-TABNAME = 'ITAB'.
* FIELDCAT-SELTEXT_S = '折旧实际成本'.
* FIELDCAT-SELTEXT_M = '折旧实际成本'.
* FIELDCAT-OUTPUTLEN = 18.
* APPEND FIELDCAT.
*
*
* CLEAR FIELDCAT.
* FIELDCAT-FIELDNAME = 'BGZVGW02'.
* FIELDCAT-TABNAME = 'ITAB'.
* FIELDCAT-SELTEXT_S = '工资实际成本'.
* FIELDCAT-SELTEXT_M = '工资实际成本'.
* FIELDCAT-OUTPUTLEN = 18.
* APPEND FIELDCAT.
*
* CLEAR FIELDCAT.
* FIELDCAT-FIELDNAME = 'BQTVGW03'.
* FIELDCAT-TABNAME = 'ITAB'.
* FIELDCAT-SELTEXT_S = '其他实际成本'.
* FIELDCAT-SELTEXT_M = '其他实际成本'.
* FIELDCAT-OUTPUTLEN = 18.
* APPEND FIELDCAT.
* LAYOUT-colwidth_optimize = 'X'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = SY-REPID
IT_FIELDCAT = FIELDCAT[]
I_CALLBACK_PF_STATUS_SET = 'SET_PF'
I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
I_BACKGROUND_ID = 'ALV_BACKGROUND'
IS_LAYOUT = LAYOUT
I_DEFAULT = 'X'
I_SAVE = 'A'
TABLES
T_OUTTAB = ITAB
EXCEPTIONS
OTHERS = 2.
ENDFORM. " DISPLAY_DATA
*&---------------------------------------------------------------------*
*& FORM STANDARD_FULLSCREEN
*&---------------------------------------------------------------------*
* TEXT
*----------------------------------------------------------------------*
FORM SET_PF USING RT_EXTAB TYPE SLIS_T_EXTAB.
SET PF-STATUS 'STANDARD_FULLSCREEN'.
ENDFORM. "SET_STATUS
*& REPORT ZMM_PO_QUERY
*&
*& REPORTNAME :生产订单查询系统
*&---------------------------------------------------------------------*
*& CREATED BY : LIUXINYUAN
*& CREATED DATE : 2015-07-15
*&---------------------------------------------------------------------*
REPORT ZPP_CO_QUERY.
INCLUDE ZPP_CO_QUERY_TOP.
**选择屏幕
SELECTION-SCREEN BEGIN OF BLOCK MAIN WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS:S_AUFNR FOR CAUFV-AUFNR.
SELECT-OPTIONS:S_WERKS FOR CAUFV-WERKS.
SELECT-OPTIONS:S_GSTRI FOR CAUFV-GSTRI.
SELECT-OPTIONS:S_GLTRI FOR CAUFV-GLTRI.
SELECTION-SCREEN END OF BLOCK MAIN.
AT SELECTION-SCREEN.
* LOOP AT S_WERKS.
* AUTHORITY-CHECK OBJECT 'Z_MM_003'
* ID 'WERKS' FIELD S_WERKS-LOW.
* IF SY-SUBRC <> 0.
* MESSAGE E019(ZMM001) WITH S_WERKS-LOW.
* ENDIF.
* ENDLOOP.
AT SELECTION-SCREEN OUTPUT.
**主程序
START-OF-SELECTION.
PERFORM FRM_SELECT_DATA.
PERFORM FRM_DISPLAY.
*&---------------------------------------------------------------------*
*& FORM FRM_SELECT_DATA
*&---------------------------------------------------------------------*
* TEXT
*----------------------------------------------------------------------*
* --> P1 TEXT
* <-- P2 TEXT
*----------------------------------------------------------------------*
FORM FRM_SELECT_DATA .
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
TEXT = '数据读取中.................'.
REFRESH ITAB.
CLEAR ITAB.
"机器 作业类型 1001
"工资 作业类型 1000
"其他 作业类型 1003
SELECT AUFNR
WERKS
AUART
KDAUF "销售订单编号
KDPOS "销售订单行项目
PLNBEZ
GAMNG
AUFPL
OBJNR
FTRMI
INTO CORRESPONDING FIELDS OF TABLE ITAB
FROM CAUFV
WHERE AUFNR IN S_AUFNR
AND WERKS IN S_WERKS
AND GSTRI IN S_GSTRI
AND GLTRI IN S_GLTRI.
IF ITAB[] IS NOT INITIAL.
REFRESH IT_AFVV.
CLEAR IT_AFVV.
SELECT AUFPL
APLZL
VGW01
VGW02
VGW03
INTO TABLE IT_AFVV
FROM AFVV
FOR ALL ENTRIES IN ITAB
WHERE AUFPL = ITAB-AUFPL.
REFRESH IT_AFVC.
CLEAR IT_AFVC.
SELECT AUFPL
APLZL
RUECK
ARBID
INTO TABLE IT_AFVC
FROM AFVC
FOR ALL ENTRIES IN ITAB
WHERE AUFPL = ITAB-AUFPL.
IF IT_AFVC[] IS NOT INITIAL.
REFRESH IT_AFRU.
CLEAR IT_AFRU.
SELECT RUECK
RMZHL
ISM01
ISM02
ISM03
STOKZ
INTO TABLE IT_AFRU
FROM AFRU
FOR ALL ENTRIES IN IT_AFVC
WHERE RUECK = IT_AFVC-RUECK.
REFRESH TIT_AFRU.
CLEAR TIT_AFRU.
LOOP AT IT_AFRU.
TIT_AFRU-RUECK = IT_AFRU-RUECK.
IF IT_AFRU-STOKZ = 'X'.
TIT_AFRU-ISM01 = 0 - IT_AFRU-ISM01.
TIT_AFRU-ISM02 = 0 - IT_AFRU-ISM02.
TIT_AFRU-ISM03 = 0 - IT_AFRU-ISM03.
ELSE.
TIT_AFRU-ISM01 = IT_AFRU-ISM01.
TIT_AFRU-ISM02 = IT_AFRU-ISM02.
TIT_AFRU-ISM03 = IT_AFRU-ISM03.
ENDIF.
COLLECT TIT_AFRU.
CLEAR TIT_AFRU.
ENDLOOP.
REFRESH IT_AFRU_VV.
CLEAR IT_AFRU_VV.
LOOP AT TIT_AFRU.
CLEAR IT_AFVC.
READ TABLE IT_AFVC WITH KEY RUECK = TIT_AFRU-RUECK.
IF SY-SUBRC EQ 0.
IT_AFRU_VV-AUFPL = IT_AFVC-AUFPL.
IT_AFRU_VV-APLZL = IT_AFVC-APLZL.
IT_AFRU_VV-ISM01 = TIT_AFRU-ISM01.
IT_AFRU_VV-ISM02 = TIT_AFRU-ISM02.
IT_AFRU_VV-ISM03 = TIT_AFRU-ISM03.
APPEND IT_AFRU_VV.
CLEAR IT_AFRU_VV.
ENDIF.
ENDLOOP.
ENDIF.
DATA:LV_ARBID TYPE AFVC-ARBID,
LV_ARBPL TYPE CRHD-ARBPL.
LOOP AT ITAB.
* 获取标准工时
LOOP AT IT_AFVV WHERE AUFPL = ITAB-AUFPL.
CLEAR LV_ARBID.
CLEAR IT_AFVC.
READ TABLE IT_AFVC WITH KEY AUFPL = IT_AFVV-AUFPL APLZL = IT_AFVV-APLZL.
IF SY-SUBRC EQ 0.
LV_ARBID = IT_AFVC-ARBID.
ENDIF.
CLEAR LV_ARBPL.
SELECT SINGLE
ARBPL
INTO LV_ARBPL
FROM CRHD
WHERE OBJTY = 'A'
AND OBJID = LV_ARBID.
DATA:LV_KOSTL TYPE CRCO-KOSTL.
CLEAR LV_KOSTL.
SELECT SINGLE
KOSTL
INTO LV_KOSTL
FROM CRCO
WHERE OBJTY = 'A'
AND OBJID = LV_ARBID.
IF LV_ARBPL = 'STRZP' OR LV_ARBPL+0(2) = 'ZP'.
ITAB-ZPVGW01 = IT_AFVV-VGW01 * ITAB-GAMNG.
ITAB-ZPVGW02 = IT_AFVV-VGW02 * ITAB-GAMNG.
ITAB-ZPVGW03 = IT_AFVV-VGW03 * ITAB-GAMNG.
ITAB-ZPKOSTL = LV_KOSTL.
ELSEIF LV_ARBPL = 'STRTS' OR LV_ARBPL+0(2) = 'TS'.
ITAB-TSVGW01 = IT_AFVV-VGW01 * ITAB-GAMNG.
ITAB-TSVGW02 = IT_AFVV-VGW02 * ITAB-GAMNG.
ITAB-TSVGW03 = IT_AFVV-VGW03 * ITAB-GAMNG.
ITAB-TSKOSTL = LV_KOSTL.
ELSEIF LV_ARBPL = 'STRLH' OR LV_ARBPL+0(2) = 'LH'.
ITAB-LHVGW01 = IT_AFVV-VGW01 * ITAB-GAMNG.
ITAB-LHVGW02 = IT_AFVV-VGW02 * ITAB-GAMNG.
ITAB-LHVGW03 = IT_AFVV-VGW03 * ITAB-GAMNG.
ITAB-LHKOSTL = LV_KOSTL.
ELSEIF LV_ARBPL = 'STRYJ' OR LV_ARBPL+0(2) = 'YJ'.
ITAB-JYVGW01 = IT_AFVV-VGW01 * ITAB-GAMNG.
ITAB-JYVGW02 = IT_AFVV-VGW02 * ITAB-GAMNG.
ITAB-JYVGW03 = IT_AFVV-VGW03 * ITAB-GAMNG.
ITAB-JYKOSTL = LV_KOSTL.
ELSEIF LV_ARBPL = 'STRBZ' OR LV_ARBPL+0(2) = 'BZ'.
ITAB-BZVGW01 = IT_AFVV-VGW01 * ITAB-GAMNG.
ITAB-BZVGW02 = IT_AFVV-VGW02 * ITAB-GAMNG.
ITAB-BZVGW03 = IT_AFVV-VGW03 * ITAB-GAMNG.
ITAB-BZKOSTL = LV_KOSTL.
ENDIF.
***********以下代码根据工单下单的工时，查找标准工时的成本的单价，以及计算成本
* CLEAR LV_GJAHR. CLEAR LV_MONTH.
* LV_GJAHR = ITAB-FTRMI+0(4).
* LV_MONTH = ITAB-FTRMI+4(2).
* REFRESH IT_CRCO.
* CLEAR IT_CRCO.
*
* SELECT KOKRS
* KOSTL
* LSTAR
* INTO TABLE IT_CRCO
* FROM CRCO
* WHERE OBJTY = 'A'
* AND OBJID = LV_ARBID.
* LOOP AT IT_CRCO.
* CONCATENATE 'KL' IT_CRCO-KOKRS IT_CRCO-KOSTL IT_CRCO-LSTAR INTO IT_CRCO-OBJNR.
* MODIFY IT_CRCO.
* CLEAR IT_CRCO.
* ENDLOOP.
*
*
*
* IF IT_CRCO[] IS NOT INITIAL.
* SELECT LEDNR
* OBJNR
* GJAHR
* WRTTP
* VERSN
* TARKZ
* PERBL
*
* TKG001
* TKG002
* TKG003
* TKG004
* TKG005
* TKG006
* TKG007
* TKG008
* TKG009
* TKG010
* TKG011
* TKG012
*
* TKE001
* TKE002
* TKE003
* TKE004
* TKE005
* TKE006
* TKE007
* TKE008
* TKE009
* TKE010
* TKE011
* TKE012
* INTO TABLE IT_COST
* FROM COST
* FOR ALL ENTRIES IN IT_CRCO
* WHERE LEDNR = '00'
* AND OBJNR = IT_CRCO-OBJNR
* AND GJAHR = LV_GJAHR
* AND TARKZ = '001'.
*
* CLEAR LV_TKG01.
* CLEAR LV_TKE01.
* CLEAR LV_TKG02.
* CLEAR LV_TKE02.
* CLEAR LV_TKG03.
* CLEAR LV_TKE03.
*
* LOOP AT IT_COST.
* IF IT_COST+17(4) = '1001'.
* IF LV_MONTH = '01'.
* LV_TKG01 = IT_COST-TKG001.
* LV_TKE01 = IT_COST-TKE001.
* ELSEIF LV_MONTH = '02'.
* LV_TKG01 = IT_COST-TKG002.
* LV_TKE01 = IT_COST-TKE002.
* ELSEIF LV_MONTH = '03'.
* LV_TKG01 = IT_COST-TKG003.
* LV_TKE01 = IT_COST-TKE003.
* ELSEIF LV_MONTH = '04'.
* LV_TKG01 = IT_COST-TKG004.
* LV_TKE01 = IT_COST-TKE004.
* ELSEIF LV_MONTH = '05'.
* LV_TKG01 = IT_COST-TKG005.
* LV_TKE01 = IT_COST-TKE005.
* ELSEIF LV_MONTH = '06'.
* LV_TKG01 = IT_COST-TKG006.
* LV_TKE01 = IT_COST-TKE006.
* ELSEIF LV_MONTH = '07'.
* LV_TKG01 = IT_COST-TKG007.
* LV_TKE01 = IT_COST-TKE007.
* ELSEIF LV_MONTH = '08'.
* LV_TKG01 = IT_COST-TKG008.
* LV_TKE01 = IT_COST-TKE008.
* ELSEIF LV_MONTH = '09'.
* LV_TKG01 = IT_COST-TKG009.
* LV_TKE01 = IT_COST-TKE009.
* ELSEIF LV_MONTH = '10'.
* LV_TKG01 = IT_COST-TKG010.
* LV_TKE01 = IT_COST-TKE010.
* ELSEIF LV_MONTH = '11'.
* LV_TKG01 = IT_COST-TKG011.
* LV_TKE01 = IT_COST-TKE011.
* ELSEIF LV_MONTH = '12'.
* LV_TKG01 = IT_COST-TKG012.
* LV_TKE01 = IT_COST-TKE012.
* ENDIF.
*
* ELSEIF IT_COST+17(4) = '1000'.
* IF LV_MONTH = '01'.
* LV_TKG02 = IT_COST-TKG001.
* LV_TKE02 = IT_COST-TKE001.
* ELSEIF LV_MONTH = '02'.
* LV_TKG02 = IT_COST-TKG002.
* LV_TKE02 = IT_COST-TKE002.
* ELSEIF LV_MONTH = '03'.
* LV_TKG02 = IT_COST-TKG003.
* LV_TKE02 = IT_COST-TKE003.
* ELSEIF LV_MONTH = '04'.
* LV_TKG02 = IT_COST-TKG004.
* LV_TKE02 = IT_COST-TKE004.
* ELSEIF LV_MONTH = '05'.
* LV_TKG02 = IT_COST-TKG005.
* LV_TKE02 = IT_COST-TKE005.
* ELSEIF LV_MONTH = '06'.
* LV_TKG02 = IT_COST-TKG006.
* LV_TKE02 = IT_COST-TKE006.
* ELSEIF LV_MONTH = '07'.
* LV_TKG02 = IT_COST-TKG007.
* LV_TKE02 = IT_COST-TKE007.
* ELSEIF LV_MONTH = '08'.
* LV_TKG02 = IT_COST-TKG008.
* LV_TKE02 = IT_COST-TKE008.
* ELSEIF LV_MONTH = '09'.
* LV_TKG02 = IT_COST-TKG009.
* LV_TKE02 = IT_COST-TKE009.
* ELSEIF LV_MONTH = '10'.
* LV_TKG02 = IT_COST-TKG010.
* LV_TKE02 = IT_COST-TKE010.
* ELSEIF LV_MONTH = '11'.
* LV_TKG02 = IT_COST-TKG011.
* LV_TKE02 = IT_COST-TKE011.
* ELSEIF LV_MONTH = '12'.
* LV_TKG02 = IT_COST-TKG012.
* LV_TKE02 = IT_COST-TKE012.
* ENDIF.
* ELSEIF IT_COST+17(4) = '1003'.
* IF LV_MONTH = '01'.
* LV_TKG03 = IT_COST-TKG001.
* LV_TKE03 = IT_COST-TKE001.
* ELSEIF LV_MONTH = '02'.
* LV_TKG03 = IT_COST-TKG002.
* LV_TKE03 = IT_COST-TKE002.
* ELSEIF LV_MONTH = '03'.
* LV_TKG03 = IT_COST-TKG003.
* LV_TKE03 = IT_COST-TKE003.
* ELSEIF LV_MONTH = '04'.
* LV_TKG03 = IT_COST-TKG004.
* LV_TKE03 = IT_COST-TKE004.
* ELSEIF LV_MONTH = '05'.
* LV_TKG03 = IT_COST-TKG005.
* LV_TKE03 = IT_COST-TKE005.
* ELSEIF LV_MONTH = '06'.
* LV_TKG03 = IT_COST-TKG006.
* LV_TKE03 = IT_COST-TKE006.
* ELSEIF LV_MONTH = '07'.
* LV_TKG03 = IT_COST-TKG007.
* LV_TKE03 = IT_COST-TKE007.
* ELSEIF LV_MONTH = '08'.
* LV_TKG03 = IT_COST-TKG008.
* LV_TKE03 = IT_COST-TKE008.
* ELSEIF LV_MONTH = '09'.
* LV_TKG03 = IT_COST-TKG009.
* LV_TKE03 = IT_COST-TKE009.
* ELSEIF LV_MONTH = '10'.
* LV_TKG03 = IT_COST-TKG010.
* LV_TKE03 = IT_COST-TKE010.
* ELSEIF LV_MONTH = '11'.
* LV_TKG03 = IT_COST-TKG011.
* LV_TKE03 = IT_COST-TKE011.
* ELSEIF LV_MONTH = '12'.
* LV_TKG03 = IT_COST-TKG012.
* LV_TKE03 = IT_COST-TKE012.
* ENDIF.
* ENDIF.
* ENDLOOP.
* ENDIF.
*
*
* ITAB-ZPVGW01 * LV_TKG01 / LV_TKE01
* ITAB-ZPVGW02 * LV_TKG02 / LV_TKE01
* ITAB-ZPVGW03 * LV_TKG03 / LV_TKE01
*
* ITAB-TSVGW01 * LV_TKG01 / LV_TKE01
* ITAB-TSVGW02 * LV_TKG02 / LV_TKE01
* ITAB-TSVGW03 * LV_TKG03 / LV_TKE01
*
* ITAB-LHVGW01 * LV_TKG01 / LV_TKE01
* ITAB-LHVGW02 * LV_TKG02 / LV_TKE01
* ITAB-LHVGW03 * LV_TKG03 / LV_TKE01
*
* ITAB-JYVGW01 * LV_TKG01 / LV_TKE01
* ITAB-JYVGW02 * LV_TKG02 / LV_TKE01
* ITAB-JYVGW03 * LV_TKG03 / LV_TKE01
*
* ITAB-BZVGW01 * LV_TKG01 / LV_TKE01
* ITAB-BZVGW02 * LV_TKG02 / LV_TKE01
* ITAB-BZVGW03 * LV_TKG03 / LV_TKE01
*
************以下代码根据工单下单的工时，查找标准工时的成本的单价，以及计算成本
ENDLOOP.
* 获取实际工时
LOOP AT IT_AFRU_VV WHERE AUFPL = ITAB-AUFPL.
CLEAR LV_ARBID.
CLEAR IT_AFVC.
READ TABLE IT_AFVC WITH KEY AUFPL = IT_AFRU_VV-AUFPL APLZL = IT_AFRU_VV-APLZL.
IF SY-SUBRC EQ 0.
LV_ARBID = IT_AFVC-ARBID.
ENDIF.
CLEAR LV_ARBPL.
SELECT SINGLE
ARBPL
INTO LV_ARBPL
FROM CRHD
WHERE OBJTY = 'A'
AND OBJID = LV_ARBID.
IF LV_ARBPL = 'STRZP' OR LV_ARBPL+0(2) = 'ZP'.
ITAB-BZPVGW01 = IT_AFRU_VV-ISM01.
ITAB-BZPVGW02 = IT_AFRU_VV-ISM02.
ITAB-BZPVGW03 = IT_AFRU_VV-ISM03.
ELSEIF LV_ARBPL = 'STRTS' OR LV_ARBPL+0(2) = 'TS'.
ITAB-BTSVGW01 = IT_AFRU_VV-ISM01.
ITAB-BTSVGW02 = IT_AFRU_VV-ISM02.
ITAB-BTSVGW03 = IT_AFRU_VV-ISM03.
ELSEIF LV_ARBPL = 'STRLH' OR LV_ARBPL+0(2) = 'LH'.
ITAB-BLHVGW01 = IT_AFRU_VV-ISM01.
ITAB-BLHVGW02 = IT_AFRU_VV-ISM02.
ITAB-BLHVGW03 = IT_AFRU_VV-ISM03.
ELSEIF LV_ARBPL = 'STRYJ' OR LV_ARBPL+0(2) = 'YJ'.
ITAB-BJYVGW01 = IT_AFRU_VV-ISM01.
ITAB-BJYVGW02 = IT_AFRU_VV-ISM02.
ITAB-BJYVGW03 = IT_AFRU_VV-ISM03.
ELSEIF LV_ARBPL = 'STRBZ' OR LV_ARBPL+0(2) = 'BZ'.
ITAB-BBZVGW01 = IT_AFRU_VV-ISM01.
ITAB-BBZVGW02 = IT_AFRU_VV-ISM02.
ITAB-BBZVGW03 = IT_AFRU_VV-ISM03.
ENDIF.
ENDLOOP.
MODIFY ITAB.
CLEAR ITAB.
ENDLOOP.
ENDIF.
DATA: T_STATUS LIKE BSVX-STTXT.
LOOP AT ITAB.
CALL FUNCTION 'STATUS_TEXT_EDIT'
EXPORTING
* CLIENT = SY-MANDT
* FLG_USER_STAT = ' '
OBJNR = ITAB-OBJNR " 单据号码
* ONLY_ACTIVE = 'X'
SPRAS = 'E'
* BYPASS_BUFFER = ' '
IMPORTING
LINE = ITAB-XTZT. " 返回状态
SELECT SINGLE
MAKTX
INTO ITAB-MAKTX
FROM MAKT
WHERE MATNR = ITAB-PLNBEZ
AND SPRAS = SY-LANGU.
SELECT SINGLE
BKLAS
INTO ITAB-BKLAS
FROM MBEW
WHERE MATNR = ITAB-PLNBEZ
AND BWKEY = ITAB-WERKS.
SELECT SINGLE
MTART
INTO ITAB-MTART
FROM MARA
WHERE MATNR = ITAB-PLNBEZ.
SELECT SINGLE
VKBUR
INTO ITAB-VKBUR
FROM VBAK
WHERE VBELN = ITAB-KDAUF.
SELECT SINGLE
WEMNG
INTO ITAB-GWEMG
FROM AFPO
WHERE AUFNR = ITAB-AUFNR.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
EXPORTING
INPUT = ITAB-AUFNR
IMPORTING
OUTPUT = ITAB-AUFNR.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
EXPORTING
INPUT = ITAB-PLNBEZ
IMPORTING
OUTPUT = ITAB-PLNBEZ.
MODIFY ITAB.
CLEAR ITAB.
ENDLOOP.
ENDFORM. " FRM_SELECT_DATA
*&---------------------------------------------------------------------*
*& FORM DISPLAY_DATA
*&---------------------------------------------------------------------*
* TEXT
*----------------------------------------------------------------------*
* --> P1 TEXT
* <-- P2 TEXT
*----------------------------------------------------------------------*
FORM FRM_DISPLAY .
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'AUFNR'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '生产订单编号'.
FIELDCAT-SELTEXT_M = '生产订单编号'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'XTZT'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '系统状态'.
FIELDCAT-SELTEXT_M = '系统状态'.
FIELDCAT-OUTPUTLEN = 20.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'WERKS'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '工厂'.
FIELDCAT-SELTEXT_M = '工厂'.
FIELDCAT-OUTPUTLEN = 10.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'AUART'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '订单类型'.
FIELDCAT-SELTEXT_M = '订单类型'.
FIELDCAT-OUTPUTLEN = 8.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'KDAUF'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '销售订单编号'.
FIELDCAT-SELTEXT_M = '销售订单编号'.
FIELDCAT-OUTPUTLEN = 12.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'KDPOS'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '销售订单行项目'.
FIELDCAT-SELTEXT_M = '销售订单行项目'.
FIELDCAT-OUTPUTLEN = 12.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'VKBUR'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '办事处'.
FIELDCAT-SELTEXT_M = '办事处'.
FIELDCAT-OUTPUTLEN = 12.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'PLNBEZ'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '物料编号'.
FIELDCAT-SELTEXT_M = '物料编号'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'MAKTX'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '物料描述'.
FIELDCAT-SELTEXT_M = '物料描述'.
FIELDCAT-OUTPUTLEN = 35.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'GAMNG'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '订单数量'.
FIELDCAT-SELTEXT_M = '订单数量'.
FIELDCAT-OUTPUTLEN = 12.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'GWEMG'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '确认数量'.
FIELDCAT-SELTEXT_M = '确认数量'.
FIELDCAT-OUTPUTLEN = 12.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'BKLAS'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '评估类'.
FIELDCAT-SELTEXT_M = '评估类'.
FIELDCAT-OUTPUTLEN = 10.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'MTART'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '物料类型'.
FIELDCAT-SELTEXT_M = '物料类型'.
FIELDCAT-OUTPUTLEN = 10.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'ZPVGW01'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '装配-折旧标准工时'.
FIELDCAT-SELTEXT_M = '装配-折旧标准工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'ZPVGW02'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '装配-工资标准工时'.
FIELDCAT-SELTEXT_M = '装配-工资标准工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'ZPVGW03'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '装配-其他标准工时'.
FIELDCAT-SELTEXT_M = '装配-其他标准工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'BZPVGW01'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '装配-折旧实际工时'.
FIELDCAT-SELTEXT_M = '装配-折旧实际工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'BZPVGW02'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '装配-工资实际工时'.
FIELDCAT-SELTEXT_M = '装配-工资实际工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'BZPVGW03'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '装配-其他实际工时'.
FIELDCAT-SELTEXT_M = '装配-其他实际工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'ZPKOSTL'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '装配-成本中心'.
FIELDCAT-SELTEXT_M = '装配-成本中心'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'TSVGW01'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '调试-折旧标准工时'.
FIELDCAT-SELTEXT_M = '调试-折旧标准工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'TSVGW02'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '调试-工资标准工时'.
FIELDCAT-SELTEXT_M = '调试-工资标准工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'TSVGW03'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '调试-其他标准工时'.
FIELDCAT-SELTEXT_M = '调试-其他标准工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'BTSVGW01'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '调试-折旧实际工时'.
FIELDCAT-SELTEXT_M = '调试-折旧实际工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'BTSVGW02'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '调试-工资实际工时'.
FIELDCAT-SELTEXT_M = '调试-工资实际工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'BTSVGW03'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '调试-其他实际工时'.
FIELDCAT-SELTEXT_M = '调试-其他实际工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'TSKOSTL'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '调试-成本中心'.
FIELDCAT-SELTEXT_M = '调试-成本中心'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'LHVGW01'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '老化-折旧标准工时'.
FIELDCAT-SELTEXT_M = '老化-折旧标准工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'LHVGW02'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '老化-工资标准工时'.
FIELDCAT-SELTEXT_M = '老化-工资标准工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'LHVGW03'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '老化-其他标准工时'.
FIELDCAT-SELTEXT_M = '老化-其他标准工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'BLHVGW01'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '老化-折旧实际工时'.
FIELDCAT-SELTEXT_M = '老化-折旧实际工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'BLHVGW02'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '老化-工资实际工时'.
FIELDCAT-SELTEXT_M = '老化-工资实际工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'BLHVGW03'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '老化-其他实际工时'.
FIELDCAT-SELTEXT_M = '老化-其他实际工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'LHKOSTL'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '老化-成本中心'.
FIELDCAT-SELTEXT_M = '老化-成本中心'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'JYVGW01'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '检验-折旧标准工时'.
FIELDCAT-SELTEXT_M = '检验-折旧标准工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'JYVGW02'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '检验-工资标准工时'.
FIELDCAT-SELTEXT_M = '检验-工资标准工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'JYVGW03'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '检验-其他标准工时'.
FIELDCAT-SELTEXT_M = '检验-其他标准工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'BJYVGW01'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '检验-折旧实际工时'.
FIELDCAT-SELTEXT_M = '检验-折旧实际工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'BJYVGW02'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '检验-工资实际工时'.
FIELDCAT-SELTEXT_M = '检验-工资实际工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'BJYVGW03'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '检验-其他实际工时'.
FIELDCAT-SELTEXT_M = '检验-其他实际工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'JYKOSTL'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '检验-成本中心'.
FIELDCAT-SELTEXT_M = '检验-成本中心'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'BZVGW01'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '包装-折旧标准工时'.
FIELDCAT-SELTEXT_M = '包装-折旧标准工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'BZVGW02'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '包装-工资标准工时'.
FIELDCAT-SELTEXT_M = '包装-工资标准工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'BZVGW03'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '包装-其他标准工时'.
FIELDCAT-SELTEXT_M = '包装-其他标准工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'BBZVGW01'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '包装-折旧实际工时'.
FIELDCAT-SELTEXT_M = '包装-折旧实际工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'BBZVGW02'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '包装-工资实际工时'.
FIELDCAT-SELTEXT_M = '包装-工资实际工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'BBZVGW03'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '包装-其他实际工时'.
FIELDCAT-SELTEXT_M = '包装-其他实际工时'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-FIELDNAME = 'BZKOSTL'.
FIELDCAT-TABNAME = 'ITAB'.
FIELDCAT-SELTEXT_S = '包装-成本中心'.
FIELDCAT-SELTEXT_M = '包装-成本中心'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT.
* CLEAR FIELDCAT.
* FIELDCAT-FIELDNAME = 'ZJVGW01'.
* FIELDCAT-TABNAME = 'ITAB'.
* FIELDCAT-SELTEXT_S = '折旧标准成本'.
* FIELDCAT-SELTEXT_M = '折旧标准成本'.
* FIELDCAT-OUTPUTLEN = 18.
* APPEND FIELDCAT.
*
*
* CLEAR FIELDCAT.
* FIELDCAT-FIELDNAME = 'GZVGW02'.
* FIELDCAT-TABNAME = 'ITAB'.
* FIELDCAT-SELTEXT_S = '工资标准成本'.
* FIELDCAT-SELTEXT_M = '工资标准成本'.
* FIELDCAT-OUTPUTLEN = 18.
* APPEND FIELDCAT.
*
* CLEAR FIELDCAT.
* FIELDCAT-FIELDNAME = 'QTVGW03'.
* FIELDCAT-TABNAME = 'ITAB'.
* FIELDCAT-SELTEXT_S = '其他标准成本'.
* FIELDCAT-SELTEXT_M = '其他标准成本'.
* FIELDCAT-OUTPUTLEN = 18.
* APPEND FIELDCAT.
*
*
*
* CLEAR FIELDCAT.
* FIELDCAT-FIELDNAME = 'BZJVGW01'.
* FIELDCAT-TABNAME = 'ITAB'.
* FIELDCAT-SELTEXT_S = '折旧实际成本'.
* FIELDCAT-SELTEXT_M = '折旧实际成本'.
* FIELDCAT-OUTPUTLEN = 18.
* APPEND FIELDCAT.
*
*
* CLEAR FIELDCAT.
* FIELDCAT-FIELDNAME = 'BGZVGW02'.
* FIELDCAT-TABNAME = 'ITAB'.
* FIELDCAT-SELTEXT_S = '工资实际成本'.
* FIELDCAT-SELTEXT_M = '工资实际成本'.
* FIELDCAT-OUTPUTLEN = 18.
* APPEND FIELDCAT.
*
* CLEAR FIELDCAT.
* FIELDCAT-FIELDNAME = 'BQTVGW03'.
* FIELDCAT-TABNAME = 'ITAB'.
* FIELDCAT-SELTEXT_S = '其他实际成本'.
* FIELDCAT-SELTEXT_M = '其他实际成本'.
* FIELDCAT-OUTPUTLEN = 18.
* APPEND FIELDCAT.
* LAYOUT-colwidth_optimize = 'X'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = SY-REPID
IT_FIELDCAT = FIELDCAT[]
I_CALLBACK_PF_STATUS_SET = 'SET_PF'
I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
I_BACKGROUND_ID = 'ALV_BACKGROUND'
IS_LAYOUT = LAYOUT
I_DEFAULT = 'X'
I_SAVE = 'A'
TABLES
T_OUTTAB = ITAB
EXCEPTIONS
OTHERS = 2.
ENDFORM. " DISPLAY_DATA
*&---------------------------------------------------------------------*
*& FORM STANDARD_FULLSCREEN
*&---------------------------------------------------------------------*
* TEXT
*----------------------------------------------------------------------*
FORM SET_PF USING RT_EXTAB TYPE SLIS_T_EXTAB.
SET PF-STATUS 'STANDARD_FULLSCREEN'.
ENDFORM. "SET_STATUS
0 0
- abap 获取生产订单标准工时和实际报工工时的报表
- 工艺路线标准工时报表
- ABAP获取生产订单的状态
- 工时估算的心得
- 修正了标准工时软件的一个BUG
- 评估所需的工时
- 关于报工和生产订单的一些状态解释
- 关于报工和生产订单的一些状态解释
- MS project中的完成百分比、工时完成百分比和实际完成百分比
- 关于工时
- 工时管理
- 工时估算
- 取消生产订单的报工
- sap-abap-销售订单的订货，生产，存货，发货情况统计报表
- 根据输入的月份生成累计工时
- 近期在招聘员工时的感想
- 一个完整的C++工时类
- 如何拒绝不合理的工时安排
- android 在listView中如果需要使用复选框功能，强烈建议使用图片作为背景代替checkBox。亲测好用
- Android应用开发SDK相关下载资源
- @Resource和@Autowired
- 成为一名PHP专家其实并不难
- Activity切换和View切换动画
- abap 获取生产订单标准工时和实际报工工时的报表
- 【转载】浮点数运算的定点数编程
- xampp 修改端口Apache端口方法
- Maven学习----------基础
- 9.编写长方形类Rect：具有求长方形面积功能；编写类Tube:具有求长方体体积功能（利用Rect属性），在主类Test中用之求长方体的体积。
- 安卓编程规范
- 比特币基础知识原理讲解
- ldd3读书笔记#1 驱动程序模型
- [Java Web]ibatis 中isNull, isNotNull与isEmpty, isNotEmpty区别
