您好Shivani，

您可以在at选择屏幕输出中编写代码，从F4帮助中选择数据后，按Enter键将自动填充其他字段。

参数：P_matnr TYPE mara-matnr，
             P_test TYPE maktx。

 在"选择屏幕输出"处。
 如果P_matnr ='CBC-2'。
   p_test ='测试'。
 万一。
 

您好Shivani，

请找到以下代码。

 TYPES：类型为ty_matnr，

        werks TYPE marc-werks，

        matnr TYPE makt-matnr，

        maktx TYPE makt-maktx，

        结束于ty_matnr。

 数据：gwa_matnr TYPE ty_matnr，

       gt_matnr ty_matnr的类型表。

 数据：dd_retval的gt_return类型表，

       gwa_return TYPE ddshretval。

 数据：gwa_dynpfields TYPE dynpread，

       gt_dynpfields dynpread的类型表。

 数据：gv_werks类型marc-werks。


 参数：p_werks类型marc-werks强制性。

 参数：p_matnr TYPE mara-matnr。


 在p_matnr值请求的选择屏幕上。

   刷新gt_dynpfields。

   gwa_dynpfields-fieldname ='P_WERKS'。

   将gwa_dynpfields附加到gt_dynpfields。


   通话功能'DYNP_VALUES_READ'

     出口

       dyname = sy-repid

       dynumb = sy-dynnr

     桌子

       dynpfields = gt_dynpfields

     例外情况

       invalid_abapworkarea = 1

       invalid_dynprofield = 2

       invalid_dynproname = 3

       invalid_dynpronummer = 4

       invalid_request = 5

       no_fielddescription = 6

       invalid_parameter = 7

       undefind_error = 8

       double_conversion = 9

       stepl_not_found = 10

       其他= 11。



   读取表gt_dynpfields INTO gwa_dynpfields

          WITH KEY字段名称='P_WERKS'。

   如果sy-subrc = 0。

     gv_werks = gwa_dynpfields-fieldvalue。

   万一。


   选择一个〜

          ~~

          b〜maktx

          最多10行

          进入表gt_matnr

          来自marc AS a

          内部联接MAkt AS b

          开a〜matnr = b〜matnr

          其中a〜werks = gv_werks

            AND b〜spras ='EN'。



   通话功能'F4IF_INT_TABLE_VALUE_REQUEST'

     出口

       retfield ='MATNR'

       value_org ='S'

     桌子

       value_tab = gt_matnr

       return_tab = gt_return

     例外情况

       parameter_error = 1

       no_values_found = 2

       其他= 3。



   读取表gt_return INTO gwa_return INDEX 1。

   如果sy-subrc = 0。

     p_matnr = gwa_return-fieldval。

   ENDIF。
 

此致

Chitme

使用功能模块DYNP_VALUES_UPDATE。