SAP生产报工字段增强出口

增强表AFRU:

CMOD ZPP01实施USER EXIT: CONFPP07  实施屏幕900, 输出相关字段

PROCESS BEFORE OUTPUT.   MODULE STATUS_0900. * PROCESS AFTER INPUT. * MODULE USER_COMMAND_0900. PROCESS ON VALUE-REQUEST.   FIELD AFRUD-ZZEQU MODULE F4_ZZEQU_900.

ZXCOFTOP: 订单,工序

DATA: ZZ_AUFNR TYPE AUFNR, ZZ_VORNR TYPE VORNR. DATA: ZZ_EQKTX LIKE EQKT-EQKTX.

MODULE STATUS_0900 OUTPUT. *  SET PF-STATUS 'xxxxxxxx'. *  SET TITLEBAR 'xxx'.   SELECT SINGLE EQKTX   INTO ZZ_EQKTX   FROM EQKT   WHERE EQUNR = AFRUD-ZZEQU     AND SPRAS = '1'. ENDMODULE.

PVO: 根据报工的订单工序, F4输出对应的PRT

MODULE F4_ZZEQU_900 INPUT.   DATA: BEGIN OF ITAB OCCURS 0,         EQUNR LIKE EQKT-EQUNR,         EQKTX LIKE EQKT-EQKTX,         END OF ITAB.   DATA: OBJ TYPE BAPI_PP_ORDER_OBJECTS.   DATA: OPE LIKE TABLE OF BAPI_ORDER_OPERATION1 WITH HEADER LINE.   DATA: PRT LIKE TABLE OF BAPI_ORDER_PROD_REL_TOOLS WITH HEADER LINE.   IF ZZ_AUFNR NE ''.     OBJ-OPERATIONS = 'X'.     OBJ-PROD_REL_TOOLS = 'X'.     CALL FUNCTION 'BAPI_PRODORD_GET_DETAIL'       EXPORTING         NUMBER                 = ZZ_AUFNR *     COLLECTIVE_ORDER       =         ORDER_OBJECTS          = OBJ *   IMPORTING *     RETURN                 =       TABLES *     HEADER                 = *     POSITION               = *     SEQUENCE               =         OPERATION              = OPE *     TRIGGER_POINT          = *     COMPONENT              =         PROD_REL_TOOL          = PRT.     LOOP AT OPE WHERE OPERATION_NUMBER = ZZ_VORNR.       LOOP AT PRT WHERE COUNTER = OPE-COUNTER.         ITAB-EQUNR = PRT-EQUIPMENT.         ITAB-EQKTX = PRT-DESCRIPTION.         COLLECT ITAB.       ENDLOOP.     ENDLOOP.   ENDIF. * 根据ITAB的内容出F4   CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'     EXPORTING *      DDIC_STRUCTURE         = ' '       RETFIELD               = 'EQUNR' "起作用的字段 *     PVALKEY                = ' '       DYNPPROG               = SY-REPID "接下来连续的三个字段决定       DYNPNR                 = SY-DYNNR "了返回值放在哪个程序的哪个屏幕       DYNPROFIELD            = 'AFRUD-ZZEQU'"的哪个字段中 *     STEPL                  = 0 *     WINDOW_TITLE           = *      VALUE                  = ' '       VALUE_ORG              = 'S' *     MULTIPLE_CHOICE        = ' ' *     DISPLAY                = ' ' *     CALLBACK_PROGRAM       = ' ' *     CALLBACK_FORM          = ' ' *     MARK_TAB               = *   IMPORTING *     USER_RESET             =     TABLES       VALUE_TAB              = ITAB *     FIELD_TAB              = *     RETURN_TAB             = "双击返回值 *     DYNPFLD_MAPPING        =    EXCEPTIONS      PARAMETER_ERROR        = 1      NO_VALUES_FOUND        = 2      OTHERS                 = 3.   IF SY-SUBRC <> 0.     MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.   ENDIF. ENDMODULE.

EXIT FUNCTION: EXIT_SAPLCORU_S_100  将数据传输到屏幕

AFRUD-ZZSCP = IS_AFRUD-ZZSCP. AFRUD-ZZBZU = IS_AFRUD-ZZBZU. AFRUD-ZZEQU = IS_AFRUD-ZZEQU. AFRUD-ZZRTJ = IS_AFRUD-ZZRTJ. ZZ_AUFNR = IS_AFRUD-AUFNR. ZZ_VORNR = IS_AFRUD-VORNR.

EXIT FUNCTION: EXIT_SAPLCORU_S_101 将数据回写到程序

ES_AFRUD-ZZSCP = AFRUD-ZZSCP. ES_AFRUD-ZZBZU = AFRUD-ZZBZU. ES_AFRUD-ZZEQU = AFRUD-ZZEQU. ES_AFRUD-ZZRTJ = AFRUD-ZZRTJ.

1. 在后台配置中（路径：生产>车间作业控制>工序>确认>单个屏幕输入项>定义单一屏幕输入项TCODE：OPK0）发现可以定义自由细节定义屏幕。更改后保存。