• 单位转换


    'CF_UT_UNIT_CONVERSION'其实这个函数里面包括了很多大大小小不同的单位转换函数,就像我们小时候玩的43合一的游戏卡一样,如果这个转换不了单位那就是系统没配置了。

    使用的时候注意:

    新旧转换数量的格式一定要LIKE PLFH-MGVGW.

    例程:


    DATA : matcat        LIKE cstmat,
            value_old_imp LIKE plfh-mgvgw, (之前的数量字段)
            value_new_exp LIKE plfh-mgvgw. (转换后的数量存放字段)

    CLEAR value_new_exp.
          CLEAR value_old_imp.
          value_old_imp = gc_lfimg.
          PERFORM f_add_zero USING et_print_001-matnr.
          PERFORM unit_convert USING et_print_001-matnr(物料号) ''     et_print_001-bemeh(需要转换的单位)     et_print_001-gewei(之前数量的单位)     value_old_imp CHANGING value_new_exp.

    et_print_001-meng3(转换后数量存放的字段) = value_new_exp.

    *&--------------------------------------------------------------------*
    *&      Form f_unit_change
    *&--------------------------------------------------------------------*
    *       text
    *---------------------------------------------------------------------*
    *      -->VI_INPUT   text
    *      -->VI_UNIT_IN text
    *      -->VI_UNIT_OUTtext
    *      -->VI_OUTPUT text
    *---------------------------------------------------------------------*
    FORM unit_convert    USING   matnr_imp   meins_imp     unit_new_imp   unit_old_imp value_old_imp   CHANGING   value_new_exp.

    CALL FUNCTION 'CF_UT_UNIT_CONVERSION'
        EXPORTING
          matnr_imp     = matnr_imp
          meins_imp     = meins_imp
          unit_new_imp = unit_new_imp
          unit_old_imp = unit_old_imp
          value_old_imp = value_old_imp
        IMPORTING
          value_new_exp = value_new_exp
        EXCEPTIONS
          overflow      = 1
          OTHERS        = 2.

    ENDFORM.                    "unit_convert

    --------------------------------------------------------------------------------------

    call function 'CF_UT_UNIT_CONVERSION'
    exporting
    matnr_imp = p_matnr "物料碼 (可選)
    meins_imp = p_meins "物料基本單位(可選)
    unit_new_imp = to_unit "目標單位
    unit_old_imp = From_unit "原單位
    value_old_imp = p_qty "轉換數量
    importing
    value_new_exp = out_pty. "目標單位數量
    .
    if sy-subrc <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
    WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    endif.

  • 相关阅读:
    mas_makeConstraints && mas_remakeConstraints && mas_updateConstraints 用法与注意事项
    iOS特性一 关闭系统日志打印
    React-Native -课后练习
    RN 项目导入WebStorm 组件没有依赖
    React-Native需要css和布局-20160902
    方式 隐藏导航栏
    svn status状态
    spring整合redis
    maven编译跳过TEST
    linux自动登录脚本expect
  • 原文地址:https://www.cnblogs.com/elegantok/p/1589837.html
Copyright © 2020-2023  润新知