* BOM展开/工艺路线转换的日期
* SELECT SINGLE AUFLD
* INTO LV_AUFLD
* FROM AFKO
* WHERE AUFNR = WA_OUT-AUFNR.
*
* LV_DATUB_BI = LV_AUFLD.
*
* CALL FUNCTION 'CSAP_MAT_BOM_READ'
* EXPORTING
* MATERIAL = WA_OUT-AUFMT
* PLANT = WA_OUT-WERKS
* BOM_USAGE = '1'
* ALTERNATIVE = '1'
* VALID_FROM = LV_DATUB_BI
* VALID_TO = LV_DATUB_BI
** CHANGE_NO =
** REVISION_LEVEL =
** FL_DOC_LINKS =
** FL_DMU_TMX =
** IMPORTING
** FL_WARNING =
* TABLES
* T_STPO = LT_STPO
** T_STKO =
** T_DEP_DATA =
** T_DEP_DESCR =
** T_DEP_ORDER =
** T_DEP_SOURCE =
** T_DEP_DOC =
** T_DOC_LINK =
** T_DMU_TMX =
** T_LTX_LINE =
** T_STPU =
* EXCEPTIONS
* ERROR = 1
* OTHERS = 2
* .
* IF SY-SUBRC <> 0.
** MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
** WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
* ENDIF.
*直接材料
* WA_OUT-MATNR = WA_AMOUNT-MATNR.
*
* CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
* EXPORTING
* INPUT = WA_AMOUNT-MATNR
* IMPORTING
* OUTPUT = WA_AMOUNT-MATNR.
*
* READ TABLE LT_STPO INTO WA_STPO WITH KEY COMPONENT = WA_AMOUNT-MATNR.
*取直接材料
* IF SY-SUBRC = 0.
* "字符转数值
* CALL FUNCTION 'UNITS_STRING_CONVERT'
* EXPORTING
* UNITS_STRING = WA_STPO-COMP_QTY
* DCPFM = 'X'
** MLLN = 'M'
** TSND = 'T'
* IMPORTING
* UNITS = WA_OUT-COMP_QTY
* EXCEPTIONS
* INVALID_TYPE = 1
* OTHERS = 2
* .
* IF SY-SUBRC <> 0.
** MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
** WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
* ENDIF.
*
** WA_OUT-COMP_QTY = WA_STPO-COMP_QTY.
* WA_OUT-COMP_QTY = WA_OUT-COMP_QTY * WA_OUT-PSMNG / 10000.
* ENDIF.
*标准作业时间
* SELECT SINGLE AUFPL
* FROM AFKO
* INTO LV_AUFPL
* WHERE AUFNR = WA_OUT-AUFNR.
*
* SELECT VGW01 VGW02 VGW03
* INTO CORRESPONDING FIELDS OF TABLE I_TIMES
* FROM AFVV
* WHERE AUFPL = LV_AUFPL.
*
* LOOP AT I_TIMES INTO WA_TIMES.
* WA_OUT-VGW01 = WA_OUT-VGW01 + WA_TIMES-VGW01.
* WA_OUT-VGW02 = WA_OUT-VGW02 + WA_TIMES-VGW02.
* WA_OUT-VGW03 = WA_OUT-VGW03 + WA_TIMES-VGW03.
* ENDLOOP.
* SELECT SINGLE AUFLD
* INTO LV_AUFLD
* FROM AFKO
* WHERE AUFNR = WA_OUT-AUFNR.
*
* LV_DATUB_BI = LV_AUFLD.
*
* CALL FUNCTION 'CSAP_MAT_BOM_READ'
* EXPORTING
* MATERIAL = WA_OUT-AUFMT
* PLANT = WA_OUT-WERKS
* BOM_USAGE = '1'
* ALTERNATIVE = '1'
* VALID_FROM = LV_DATUB_BI
* VALID_TO = LV_DATUB_BI
** CHANGE_NO =
** REVISION_LEVEL =
** FL_DOC_LINKS =
** FL_DMU_TMX =
** IMPORTING
** FL_WARNING =
* TABLES
* T_STPO = LT_STPO
** T_STKO =
** T_DEP_DATA =
** T_DEP_DESCR =
** T_DEP_ORDER =
** T_DEP_SOURCE =
** T_DEP_DOC =
** T_DOC_LINK =
** T_DMU_TMX =
** T_LTX_LINE =
** T_STPU =
* EXCEPTIONS
* ERROR = 1
* OTHERS = 2
* .
* IF SY-SUBRC <> 0.
** MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
** WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
* ENDIF.
*直接材料
* WA_OUT-MATNR = WA_AMOUNT-MATNR.
*
* CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
* EXPORTING
* INPUT = WA_AMOUNT-MATNR
* IMPORTING
* OUTPUT = WA_AMOUNT-MATNR.
*
* READ TABLE LT_STPO INTO WA_STPO WITH KEY COMPONENT = WA_AMOUNT-MATNR.
*取直接材料
* IF SY-SUBRC = 0.
* "字符转数值
* CALL FUNCTION 'UNITS_STRING_CONVERT'
* EXPORTING
* UNITS_STRING = WA_STPO-COMP_QTY
* DCPFM = 'X'
** MLLN = 'M'
** TSND = 'T'
* IMPORTING
* UNITS = WA_OUT-COMP_QTY
* EXCEPTIONS
* INVALID_TYPE = 1
* OTHERS = 2
* .
* IF SY-SUBRC <> 0.
** MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
** WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
* ENDIF.
*
** WA_OUT-COMP_QTY = WA_STPO-COMP_QTY.
* WA_OUT-COMP_QTY = WA_OUT-COMP_QTY * WA_OUT-PSMNG / 10000.
* ENDIF.
*标准作业时间
* SELECT SINGLE AUFPL
* FROM AFKO
* INTO LV_AUFPL
* WHERE AUFNR = WA_OUT-AUFNR.
*
* SELECT VGW01 VGW02 VGW03
* INTO CORRESPONDING FIELDS OF TABLE I_TIMES
* FROM AFVV
* WHERE AUFPL = LV_AUFPL.
*
* LOOP AT I_TIMES INTO WA_TIMES.
* WA_OUT-VGW01 = WA_OUT-VGW01 + WA_TIMES-VGW01.
* WA_OUT-VGW02 = WA_OUT-VGW02 + WA_TIMES-VGW02.
* WA_OUT-VGW03 = WA_OUT-VGW03 + WA_TIMES-VGW03.
* ENDLOOP.