SAP CU65 OD与FUNCTION应用小例

上文我们介绍了VC中值与函数的应用本文介绍另一个常用的场景OD语句中的FUNCTION语句与函数的应用。一般步骤①业务顾问确认好函数逻辑确认函数的入参和出参提供FS②开发顾问根据逻辑FS创建函数③业务顾问CU65创建功能设置好相关特性与入参④写OD调用FUNCTION写好特征的入参特性值。一、确认逻辑假设入参为长和宽两个特征返回面积函数逻辑 长乘宽。创建对应的长、宽和面积特征并把它们放在一个类里分给对应的物料等等这些是VC的最基本操作我们就不在这里做赘述了有需要的小伙伴可以留言后面我们抽空专栏做一篇VC的使用。二、函数创建FUNCTION zpp_test2. *---------------------------------------------------------------------- **本地接口 * IMPORTING * REFERENCE(GLOBALS) TYPE CUOV_00 * EXPORTING * REFERENCE(VALUE_EX) TYPE CAWN-ATWRT * TABLES * MATCH STRUCTURE CUOV_01 * QUERY STRUCTURE CUOV_01 * EXCEPTIONS * FAIL * INTERNAL_ERROR *----------------------------------------------------------------------本函数主要需要关心TABLES中的MATCH和QUERY其中QUERY为后面CU65定义的入参以本文案例为长和宽两个特征MATCH为CU65定义的出参以本文案例为面积这个特征。函数中需要用到两个常用的功能函数CUOV_GET_FUNCTION_ARGUMENT这个函数对QUERY表的入参的特征(长和宽)返回其对应的特征值。CALL FUNCTION CUOV_GET_FUNCTION_ARGUMENT EXPORTING argument l_varnam IMPORTING * vtype Value format sym_val l_mat Alphanumeric value * num_val Numeric value * io_flag Input/output parameter indicator TABLES query query Table of input and output parameters EXCEPTIONS arg_not_found 1 Parameter not found OTHERS 2.CUOV_SET_FUNCTION_ARGUMENT这个函数对要修改的特征(面积)返回其对应的结果特征值。* CALL FUNCTION CUOV_SET_FUNCTION_ARGUMENT * EXPORTING * argument XXX * vtype CHAR * sym_val l_value ** NUM_VAL * TABLES * match match * EXCEPTIONS * existing_value_replaced 1 * OTHERS 2. * * IF sy-subrc 0. ** Implement suitable error handling here * ENDIF.当然两个函数都不是必须的只是查询和返回的标准函数直接查表或其它方式也可以的。文章的最后 PART 五 会介绍一种方式就没有用到CUOV_SET_FUNCTION_ARGUMENT函数文章样例中的代码也是我直接copy过来的注释掉的。三、CU65创建功能功能名称与函数名称保持一致添加用到的特征并勾选入参注意修改状态进行保存。考虑四、FUNCTION的OD语句PFUNCTION ZPP_GET_MATNR02 (长度的特征 输入特征或具体值, 宽度的特征 输入特征或具体值)五、一种特殊用法举例笔者项目中遇到另一个情况包材在不同工厂中用到的不同是工厂性数据但是选择特征的时候又是按物料组选择物料为集团性数据所以会存在销售选了包材但是不在BOM中的情况。逻辑根据入参的工厂和包材料号查询包材是否在对应的工厂包材超级BOM中。函数如下FUNCTION zpp_get_matnr02. *---------------------------------------------------------------------- **本地接口 * IMPORTING * REFERENCE(GLOBALS) TYPE CUOV_00 * EXPORTING * REFERENCE(VALUE_EX) TYPE CAWN-ATWRT * TABLES * MATCH STRUCTURE CUOV_01 * QUERY STRUCTURE CUOV_01 * EXCEPTIONS * FAIL * INTERNAL_ERROR *---------------------------------------------------------------------- DATA: l_mat LIKE cuov_01-atwrt, l_werks LIKE cuov_01-atwrt, l_varnam LIKE cuov_01-varnam, l_varnam1 LIKE cuov_01-varnam, lv_matnr TYPE matnr, ls_idnrk LIKE stpo-idnrk, l_atbez LIKE cabnt-atbez, gv_message(64) TYPE c VALUE message. LOOP AT query. CASE query-varnam. WHEN ZCT_WERKS. Get value of Input Characteristic CALL FUNCTION CUOV_GET_FUNCTION_ARGUMENT EXPORTING argument ZCT_WERKS IMPORTING * vtype Value format sym_val l_werks Alphanumeric value * num_val Numeric value * io_flag Input/output parameter indicator TABLES query query Table of input and output parameters EXCEPTIONS arg_not_found 1 Parameter not found OTHERS 2. IF sy-subrc 0. RAISE internal_error. ENDIF. WHEN OTHERS. l_varnam query-varnam. CALL FUNCTION CUOV_GET_FUNCTION_ARGUMENT EXPORTING argument l_varnam IMPORTING * vtype Value format sym_val l_mat Alphanumeric value * num_val Numeric value * io_flag Input/output parameter indicator TABLES query query Table of input and output parameters EXCEPTIONS arg_not_found 1 Parameter not found OTHERS 2. IF sy-subrc 0. RAISE internal_error. ENDIF. ENDCASE. IF l_mat OR l_mat 无. ELSE. CALL FUNCTION CONVERSION_EXIT_MATN1_INPUT EXPORTING input l_mat IMPORTING output lv_matnr EXCEPTIONS length_error 1 OTHERS 2. IF sy-subrc 0. * Implement suitable error handling here ENDIF. SELECT stpo~idnrk INTO ls_idnrk FROM mast INNER JOIN stpo ON mast~stlnr stpo~stlnr WHERE mast~matnr 00000000000XXXXXXX 保密原因就不展示具体料号了 AND mast~werks l_werks AND stpo~idnrk lv_matnr. ENDSELECT. IF sy-subrc 0. CALL FUNCTION CONVERSION_EXIT_ATINN_INPUT EXPORTING input l_varnam IMPORTING output l_varnam1 EXCEPTIONS OTHERS 1. IF sy-subrc 0. MESSAGE 特征内外码转换失败请联系开发人员检查处理 TYPE E. ENDIF. SELECT SINGLE atbez INTO l_atbez FROM cabnt WHERE atinn l_varnam1 AND spras sy-langu. IF sy-subrc 0. ENDIF. gv_message l_atbez 选项输入的物料 l_mat 未维护包材BOM无法使用请联系集团数据岗维护BOM. MESSAGE gv_message TYPE I. * MESSAGE 输入物料未维护包材BOM无法使用请联系集团数据岗维护BOM TYPE E. ENDIF. lv_matnr . ENDIF. ENDLOOP. * CALL FUNCTION CUOV_SET_FUNCTION_ARGUMENT * EXPORTING * argument XXXX * vtype CHAR * sym_val l_value ** NUM_VAL * TABLES * match match * EXCEPTIONS * existing_value_replaced 1 * OTHERS 2. * * IF sy-subrc 0. ** Implement suitable error handling here * ENDIF. ENDFUNCTION.OD相关性语句如下PFUNCTION ZPP_GET_MATNR02 (ZCT_WERKS $PARENT.ZCT_WERKS, ZCT_GX $SELF.ZCT_GX, ZCT_FKT 无, ZCT_TD 无, ZCT_DT 无, ZCT_ZXSG 无, ZCT_ZXXG 无, ZCT_HGZ 无, ZCT_CB 无, ZCT_FWT 无, ZCT_ZBK 无, ZCT_FXJD 无, ZCT_WXYS 无, ZCT_VTWEG $PARENT.ZCT_VTWEG )对每个输入的特征调用具体的输入值其它全都做“无”的输入这样儿每类不在BOM中都会做一个弹窗MESSAGE提醒但是没用到CUOV_SET_FUNCTION_ARGUMENT函数MATCH表也为空只是利用这段逻辑起到一个提醒的作用仅供参考。