本文共 2487 字，大约阅读时间需要 8 分钟。

REPORT ZSEARCH_BP_IN_APPOINTMENT.    DATA: lv_use_es             TYPE char1.    DATA: lv_cursor             TYPE cursor.    DATA: lv_orderby            TYPE string.    DATA: lv_select_statement             TYPE string.    DATA: lt_select_statement   TYPE crmt_bp_odata_string_t.    DATA: lt_from_statement     TYPE crmt_bp_odata_string_t.    DATA: lt_where_statement    TYPE crmt_bp_odata_string_t.    FIELD-SYMBOLS: 
   
           TYPE /iwbep/s_cod_select_option.    FIELD-SYMBOLS: 
    
        TYPE STANDARD TABLE.    FIELD-SYMBOLS: 
     
        TYPE STANDARD TABLE.    DATA: lr_result_data       TYPE REF TO data.    DATA: lr_package_data      TYPE REF TO data.    DATA: lv_more_records_on_db           TYPE abap_bool.    DATA: lt_result TYPE crmt_bp_odata_account_sel_t,          lr_result TYPE REF TO crmt_bp_odata_account_sel_t.    DATA: lv_package_size TYPE i VALUE 80.    DATA: it_authgroup_range TYPE bup_augr_range_t,          ls_authgroup_range LIKE LINE OF it_authgroup_range.    GET REFERENCE OF lt_result INTO lr_result.    ASSIGN lr_result->* TO 
      
       .    ls_authgroup_range-sign = 'I'.    ls_authgroup_range-option = 'EQ'.    APPEND ls_authgroup_range TO it_authgroup_range.    ls_authgroup_range-low = 'RTRD'.    APPEND ls_authgroup_range TO it_authgroup_range.    lv_select_statement = `account~partner      AS account_id, account~partner_guid AS account_guid, `    && `account~name_org1    AS name1, account~mc_name1     AS mc_name1, account~name_org2, account~name_last,`    && `account~name_first, account~name_grp1, account~name_grp2, `    && `account~title, account~title_aca1, account~birthdt      AS birthdate,`    && ` type AS category, account~xpcpt, account~persnumber`.    APPEND 'but000 AS account' TO lt_from_statement.    APPEND 'account~xdele = @space' TO lt_where_statement.    IF 0 = 1.      APPEND 'AND account~augrp IN @it_authgroup_range' TO lt_where_statement.    ENDIF.    lv_orderby = 'mc_name1 ASCENDING'.    OPEN CURSOR WITH HOLD @lv_cursor FOR     SELECT DISTINCT (lv_select_statement)            FROM (lt_from_statement)            WHERE (lt_where_statement)            ORDER BY (lv_orderby).    DO.      FETCH NEXT CURSOR @lv_cursor            INTO CORRESPONDING FIELDS OF TABLE @
       
                    PACKAGE SIZE @lv_package_size.      IF sy-subrc = 0.        IF lines( 
        
          ) >= 80. lv_more_records_on_db = abap_true. ENDIF. EXIT. ENDIF. ENDDO. CLOSE CURSOR @lv_cursor.
        
       
      
     
    
   

要获取更多Jerry的原创文章，请关注公众号"汪子熙":

转载地址：https://jerry.blog.csdn.net/article/details/103976183 如侵犯您的版权，请留言回复原文章的地址，我们会给您删除此文章，给您带来不便请您谅解！