SAP-MM-批次特性更新

2.2  程序实现

1. 批次特性日志记录在表ZTCAL中:

从表中读取日志数据, 成功的记录不允许再次选择

IF CK1 = 'X'.     SELECT *     INTO CORRESPONDING FIELDS OF TABLE ITAB     FROM ZTCAL     WHERE WERKS IN S_WERKS       AND MATNR IN S_MATNR       AND CHARG IN S_CHARG       AND ERDAT IN S_ERDAT           AND MTYPE = 'E'.   ELSE.     SELECT *     INTO CORRESPONDING FIELDS OF TABLE ITAB     FROM ZTCAL     WHERE WERKS IN S_WERKS       AND MATNR IN S_MATNR       AND CHARG IN S_CHARG       AND ERDAT IN S_ERDAT.   ENDIF.   LOOP AT ITAB.     SELECT SINGLE MAKTX     INTO ITAB-MAKTX     FROM MAKT     WHERE MATNR = ITAB-MATNR       AND SPRAS = '1'.     IF ITAB-MTYPE = 'E'.       ITAB-LIGHT = '@5C@'.     ELSE.       ITAB-LIGHT = '@5B@'.       LS_STYLEROW-FIELDNAME = 'CHECK' .       LS_STYLEROW-STYLE = CL_GUI_ALV_GRID=>MC_STYLE_DISABLED.       APPEND LS_STYLEROW  TO ITAB-STYLE.     ENDIF.     MODIFY ITAB.   ENDLOOP.

输出到ALV后, 可以选择行的重新执行更新

CHFID=X 表示为补充电订单收货后, 需要更新批次特性中补充电日期的日志记录

调用函数BAPI_OBJCL_CHANGE 更新批次特性

日期型需要先转换为浮点型

IF ITAB-CHFID = 'X'.       NUM-CHARACT = 'ZCTND01_PC_LASTCHARGE'.       STR = SY-DATUM.       CALL FUNCTION 'QSS0_CHAR_FLTP_CONVERSION'         EXPORTING *         I_CHAR_FIELD_NAME  = ' '           I_CHARACTER_STRING = STR           I_NUMBER_OF_DIGITS = 0         IMPORTING *         E_VALUE_NOT_INITIAL_FLAG       =           E_FLTP_VALUE       = NUM-VALUE_FROM.       APPEND NUM.     ELSE.       "极板       CHAR-CHARACT = 'ZCTND01_PC_JBTYPE'.       CHAR-VALUE_CHAR = ITAB-ZZJBA.       APPEND CHAR.       "生产日期       NUM-CHARACT = 'ZCTND01_PC_PRODATE'.       STR = ITAB-HSDAT.       CALL FUNCTION 'QSS0_CHAR_FLTP_CONVERSION'         EXPORTING *         I_CHAR_FIELD_NAME  = ' '           I_CHARACTER_STRING = STR           I_NUMBER_OF_DIGITS = 0         IMPORTING *         E_VALUE_NOT_INITIAL_FLAG       =           E_FLTP_VALUE       = NUM-VALUE_FROM.       APPEND NUM.       "补充电日期       NUM-CHARACT = 'ZCTND01_PC_LASTCHARGE'.       STR = ITAB-CHDAT.       CALL FUNCTION 'QSS0_CHAR_FLTP_CONVERSION'         EXPORTING *         I_CHAR_FIELD_NAME  = ' '           I_CHARACTER_STRING = STR           I_NUMBER_OF_DIGITS = 0         IMPORTING *         E_VALUE_NOT_INITIAL_FLAG       =           E_FLTP_VALUE       = NUM-VALUE_FROM.       APPEND NUM.       "阻燃/非阻燃       CHAR-CHARACT = 'ZCTND01_PC_FLAME'.       CHAR-VALUE_CHAR = ITAB-ZRCHA.       APPEND CHAR.     ENDIF.     KEY = ITAB-OBJEK.     CALL FUNCTION 'BAPI_OBJCL_CHANGE'       EXPORTING         OBJECTKEY          = KEY         OBJECTTABLE        = 'MCH1'         CLASSNUM           = 'Z_001'         CLASSTYPE          = '023'       TABLES         ALLOCVALUESNUMNEW  = NUM         ALLOCVALUESCHARNEW = CHAR         ALLOCVALUESCURRNEW = CURR         RETURN             = RETU.