标签:set name lo parameter BO lv TYPE SAP DATA
REPORT zsat_order_modify.
PARAMETERS: po_id TYPE crmd_orderadm_h-object_id,
text TYPE string,
maxhit TYPE i.
DATA: lo_core TYPE REF TO cl_crm_bol_core,
lo_collection TYPE REF TO if_bol_entity_col,
lo_root_entity TYPE REF TO cl_crm_bol_entity,
lv_view_name TYPE crmt_view_name,
lv_query_name TYPE crmt_ext_obj_name VALUE 'BTQSlsOrd',
lt_selection_parameter TYPE genilt_selection_parameter_tab.
START-OF-SELECTION.
SHIFT po_id RIGHT DELETING TRAILING space.
IF po_id NE space.
DATA(ls_selection_parameter) = VALUE genilt_selection_parameter( attr_name = 'OBJECT_ID' sign = 'I'
option = 'EQ' low = po_id ).
APPEND ls_selection_parameter TO lt_selection_parameter.
ENDIF.
IF maxhit EQ space.
maxhit = 100.
ENDIF.
DATA(ls_query_parameter) = VALUE genilt_query_parameters( max_hits = maxhit ).
lo_core = cl_crm_bol_core=>get_instance( ).
lo_core->load_component_set( 'BT' ).
DATA(lo_transaction) = lo_core->get_transaction( ).
lo_collection = lo_core->dquery(
iv_query_name = lv_query_name
is_query_parameters = ls_query_parameter
it_selection_parameters = lt_selection_parameter
iv_view_name = lv_view_name ).
DATA(lv_size) = lo_collection->if_bol_bo_col~size( ).
WRITE:/ 'Number of ' , lv_size, ' Sales Order has been found!'.
ASSERT lv_size = 1.
DATA(lo_result) = lo_collection->get_first( ).
DATA(lo_order) = lo_result->get_related_entity( 'BTADVSSlsOrd' ).
DATA(lo_header) = lo_order->get_related_entity( 'BTOrderHeader' ).
lo_header->set_property( iv_attr_name = 'DESCRIPTION' iv_value = text ).
lo_core->modify( ).
DATA(lv_changed) = lo_transaction->check_save_needed( ).
ASSERT lv_changed EQ abap_true.
DATA(lv_success) = lo_transaction->save( ).
ASSERT lv_success = abap_true.
lo_transaction->commit( ).
WRITE:/ 'Sales Order changed Successfully'.
要获取更多Jerry的原创文章,请关注公众号"汪子熙":
标签:set,name,lo,parameter,BO,lv,TYPE,SAP,DATA 来源: https://blog.csdn.net/i042416/article/details/103964641
本站声明: 1. iCode9 技术分享网(下文简称本站)提供的所有内容,仅供技术学习、探讨和分享; 2. 关于本站的所有留言、评论、转载及引用,纯属内容发起人的个人观点,与本站观点和立场无关; 3. 关于本站的所有言论和文字,纯属内容发起人的个人观点,与本站观点和立场无关; 4. 本站文章均是网友提供,不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属;如您发现该文章侵犯了您的权益,可联系我们第一时间进行删除; 5. 本站为非盈利性的个人网站,所有内容不会用来进行牟利,也不会利用任何形式的广告来间接获益,纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。