CRM开发总结1：线索增强程序

  效果

配置树

"最外层框架添加按钮

“增加BLOCK

METHOD eh_onzrefresh.

* Added by wizard: Handler for event 'ZREFRESH'

*---------------------------初始化----------------------------*


     DATA : lr_header                   TYPE  REF  TO cl_crm_bol_entity ,
          lr_btheaderpartnerset       TYPE  REF  TO cl_crm_bol_entity ,
          lr_btpartner_pft_0006_main  TYPE  REF  TO cl_crm_bol_entity ,


          lr_col                      TYPE  REF  TO if_bol_entity_col ,      "增强关系的对象集
          lr_entity01                 TYPE  REF  TO cl_crm_bol_entity ,

          it_kcmx                     TYPE  STANDARD  TABLE  OF ztab0000av_bol_attr ,
          it_kcmx_new                 TYPE  STANDARD  TABLE  OF ztab0000av_bol_attr ,
          wa_kcmx_new                 TYPE ztab0000av_bol_attr ,     "库存明细 ZEXT_BOL_RELAT00000U
          wa_kcmx                     TYPE ztab0000av_bol_attr ,     "库存明细 ZEXT_BOL_RELAT00000U

          wa_kchj                     TYPE ztab0000bf_bol_attr ,     "库存合计 ZEXT_BOL_RELAT00000Y
          rv_result                   TYPE  REF  TO cl_crm_bol_entity ,
          lw_es_attributes            TYPE crmst_adminh_btil ,
          lw_es_attributes_brfore     TYPE crmst_adminh_btil ,
          lw_crmst_partner_btil       TYPE crmst_partner_btil ,
          lr_property_acces           TYPE  REF  TO if_bol_bo_property_access .

     DATA : BEGIN  OF lw_zsd021 ,
           matnr  TYPE matnr ,
           lfimg  TYPE lfimg .
     DATA  END  OF lw_zsd021 .

     DATA lt_zsd021  LIKE  STANDARD  TABLE  OF lw_zsd021 .

     DATA :
      lr_kcmx_new     TYPE  REF  TO if_bol_entity_col ,
      lr_core         TYPE  REF  TO cl_crm_bol_core ,       "CRM核心类
      lr_transaction  TYPE  REF  TO if_bol_transaction_context ,
      lv_lines        TYPE sytabix .

    lr_core  = cl_crm_bol_core =>get_instance (  ) .
    lr_core ->start_up (  'BT'  ) .
    lr_header ?= me ->typed_context ->btadminh ->collection_wrapper ->get_current (  ) .

*-----------------------------更新月份 START--------------------------------*
"月份取开始日期前6位
     DATA lr_btheaderdatesset  TYPE  REF  TO cl_crm_bol_entity .
     DATA lr_btdatesallcust_sales  TYPE  REF  TO cl_crm_bol_entity .
     DATA lw_crmst_date_btil  TYPE crmst_date_btil .

     CALL  METHOD lr_header ->get_properties  "去增强字段zzssyf
       IMPORTING
        es_attributes  = lw_es_attributes .

     IF lw_es_attributes -zzssyf  IS  INITIAL .

       CALL  METHOD lr_header ->get_related_entity  "取开始日期 位置：BTDatesAllCust_SALES <- BTHeaderDatesSet <- BTOrderHeader
         EXPORTING
          iv_relation_name  =  'BTHeaderDatesSet'
        RECEIVING
          rv_result         = lr_btheaderdatesset .

       CALL  METHOD lr_btheaderdatesset ->get_related_entity
         EXPORTING
          iv_relation_name  =  'BTDatesAllCust_SALES'
        RECEIVING
          rv_result         = lr_btdatesallcust_sales .

      lr_btdatesallcust_sales ->get_properties (  IMPORTING es_attributes  = lw_crmst_date_btil  ) .


      lw_es_attributes -zzssyf  = lw_crmst_date_btil -fromdate+0 ( 6 ) .

       CALL  METHOD lr_header ->set_properties
         EXPORTING
          is_attributes  = lw_es_attributes .
     ENDIF .

*-----------------------------更新月份 END--------------------------------*
     CALL  METHOD lr_header ->get_related_entities  "判断当前库存明细是否有值 ZEXT_BOL_RELAT00000U <- BTOrderHeader
       EXPORTING
        iv_relation_name  =  'ZEXT_BOL_RELAT00000U'
      RECEIVING
        rv_result         = lr_kcmx_new .

     CALL  METHOD lr_kcmx_new -> size
      RECEIVING
        rv_result  = lv_lines .
     IF lv_lines  =  0 . "若 库存明细BLOCK 为空，则初始化BLOCK ，否则刷新 金额 和 库存合计表

*-----------------------------库存明细 START--------------------------------*

       TRY .
           CALL  METHOD lr_header ->get_related_entity  "取客户号partner_no   BTPartner_PFT_0006_MAIN <- BTHeaderPartnerSet <- BTOrderHeader
             EXPORTING
              iv_relation_name  =  'BTHeaderPartnerSet'
            RECEIVING
              rv_result         = lr_btheaderpartnerset .
         CATCH cx_crm_genil_model_error  .
       ENDTRY .

       TRY .
           CALL  METHOD lr_btheaderpartnerset ->get_related_entity
             EXPORTING
              iv_relation_name  =  'BTPartner_PFT_0006_MAIN'
            RECEIVING
              rv_result         = lr_btpartner_pft_0006_main .
         CATCH cx_crm_genil_model_error  .
       ENDTRY .

       CALL  METHOD lr_btpartner_pft_0006_main ->get_properties
         IMPORTING
          es_attributes  = lw_crmst_partner_btil .


       "ERP取发货数量
       DATA :  lt_siteselect  TYPE  TABLE  OF siteselect  INITIAL  SIZE  0 ,
             ls_siteselect  TYPE          siteselect .

       CALL  FUNCTION  'SMOF0_READ_SITESELECT'    "取配置的目标系统
         TABLES
          to_siteselect  = lt_siteselect .

       READ  TABLE lt_siteselect  INTO ls_siteselect
            WITH  KEY sitetypeid  = cl_smw1_siteprovider =>c_sitetype_r3oltp .
       IF sy -subrc  =  0 .
         CALL  FUNCTION  'Z_CRM_GET_LIKP'
          DESTINATION ls_siteselect -rfcdest
           EXPORTING
            kunnr   = lw_crmst_partner_btil -partner_no
            zyf     = lw_es_attributes -zzssyf
           TABLES
            zsd021  = lt_zsd021 .
       ENDIF .

*-----------------------------库存明细 END--------------------------------*


*-----------------------------初期库存 START--------------------------------*

       DATA :
        lv_dyn_query  TYPE  REF  TO cl_crm_bol_dquery_service ,
        lr_root       TYPE  REF  TO cl_crm_bol_entity ,     "SR根对象
        lr_partner    TYPE  REF  TO cl_crm_bol_entity .

       DATA :lv_result  TYPE  REF  TO if_bol_entity_col ,
           lr_entity  TYPE  REF  TO cl_crm_bol_entity ,
           wa_result  TYPE      crmst_query_r_opp_btil .

       DATA : lt_parameters  TYPE crmt_name_value_pair_tab ,
            ls_parameters  TYPE crmt_name_value_pair .


      lv_dyn_query  = cl_crm_bol_dquery_service =>get_instance (  'BTQLeadDoc'  ) .

       DATA lv_string  TYPE string .

      lv_dyn_query ->insert_selection_param (   iv_index      =  '1'
                                           iv_attr_name  =  'TEMPLATE_TYPE'
                                           iv_sign       =  'I'
                                           iv_option     =  'EQ'
                                           iv_low        =  'D'  ) . "设置取值模板

       DATA lv_currdate    TYPE sy -datum .
       DATA lv_newdate     TYPE sy -datum .

      lv_currdate+0 ( 6 )  = lw_es_attributes -zzssyf . "取上个月单据的库存明细
      lv_currdate+6 ( 2 )  =  '01' .

       CALL  FUNCTION  'CCM_GO_BACK_MONTHS'
         EXPORTING
          currdate    = lv_currdate
          backmonths  =  1
         IMPORTING
          newdate     = lv_newdate .

      lv_string  = lw_crmst_partner_btil -partner_no .
       CALL  METHOD lv_dyn_query ->add_selection_param  "设置筛选条件
         EXPORTING
          iv_attr_name  =  'BU_PARTNER'
          iv_sign       =  'I'
          iv_option     =  'EQ'
          iv_low        = lv_string
*         iv_high      =
         .

       "月份设置为前一个月
      lv_string  = lv_newdate+0 ( 6 ) .
       CALL  METHOD lv_dyn_query ->add_selection_param
         EXPORTING
          iv_attr_name  =  'ZZSSYF'
          iv_sign       =  'I'
          iv_option     =  'EQ'
          iv_low        = lv_string
*         iv_high      =
         .

       "状态设置为已过帐
       CALL  METHOD lv_dyn_query ->add_selection_param
         EXPORTING
          iv_attr_name  =  'STATUS_AREA'
          iv_sign       =  'I'
          iv_option     =  'EQ'
          iv_low        =  'E0003ZCRMLEAD'
*         iv_high      =
         .

       DATA :
        lr_btadvslea      TYPE  REF  TO cl_crm_bol_entity ,
        lr_btorderheader  TYPE  REF  TO cl_crm_bol_entity ,

        lr_kcmx           TYPE  REF  TO if_bol_entity_col .

      lv_result  = lv_dyn_query ->get_result (  ) .
      lr_entity ?= lv_result ->get_first (  ) .
       IF lr_entity  IS  BOUND .

         TRY .
             CALL  METHOD lr_entity ->get_related_entity  "取上月库存
               EXPORTING
                iv_relation_name  =  'BTADVSLea'
              RECEIVING
                rv_result         = lr_btadvslea .

             CALL  METHOD lr_btadvslea ->get_related_entity
               EXPORTING
                iv_relation_name  =  'BTOrderHeader'
              RECEIVING
                rv_result         = lr_btorderheader .

             CALL  METHOD lr_btorderheader ->get_related_entities
               EXPORTING
                iv_relation_name  =  'ZEXT_BOL_RELAT00000U'
              RECEIVING
                rv_result         = lr_kcmx .

             CALL  METHOD lr_kcmx ->get_first
              RECEIVING
                rv_result  = lr_property_acces .

             WHILE lr_property_acces  IS  BOUND .

               CALL  METHOD lr_property_acces ->get_properties
                 IMPORTING
                  es_attributes  = wa_kcmx .

               IF wa_kcmx -zzqmkcsl >  0 .
                 APPEND wa_kcmx  TO it_kcmx .
               ENDIF .


               CALL  METHOD lr_kcmx ->get_next
                RECEIVING
                  rv_result  = lr_property_acces .
             ENDWHILE .

           CATCH cx_crm_genil_model_error  .
         ENDTRY .
       ENDIF .


*-----------------------------初期库存 END--------------------------------*


*-----------------------------整合数据 START--------------------------------*

       LOOP  AT it_kcmx  INTO wa_kcmx .
        wa_kcmx_new -zzcpbh  = wa_kcmx -zzcpbh .
        wa_kcmx_new -zzcqkcsl  = wa_kcmx -zzqmkcsl .
         APPEND wa_kcmx_new  TO it_kcmx_new .
       ENDLOOP .

       LOOP  AT lt_zsd021  INTO lw_zsd021 .
         READ  TABLE it_kcmx_new   INTO wa_kcmx_new   WITH  KEY zzcpbh  = lw_zsd021 -matnr .
         IF sy -subrc  =  0 .

          wa_kcmx_new -zzbyfhsl  = lw_zsd021 -lfimg .
           MODIFY it_kcmx_new  FROM  wa_kcmx_new  INDEX sy -tabix .
         ELSE .

          wa_kcmx_new -zzcpbh   = lw_zsd021 -matnr .
          wa_kcmx_new -zzbyfhsl  = lw_zsd021 -lfimg .
           APPEND wa_kcmx_new  TO it_kcmx_new .

         ENDIF .
         CLEAR wa_kcmx_new .
       ENDLOOP .

       LOOP  AT it_kcmx_new  INTO wa_kcmx_new .

         CALL  FUNCTION  'CONVERSION_EXIT_ALPHA_INPUT'
           EXPORTING
             input   = wa_kcmx_new -zzcpbh
           IMPORTING
             output  = wa_kcmx_new -zzcpbh .
         MODIFY it_kcmx_new  FROM wa_kcmx_new .
       ENDLOOP .
*-----------------------------整合数据 END----------------------------------*


*-----------------------------单价 START--------------------------------*
*产品编号=COMM_PRODUCT-PRODUCT_ID，
*COMM_PRODUCT-PRODUCT_GUID=CNCCRMPRCUS505-PRODUCT_GUID，
*销售组织=CNCCRMPRCUS505-SALES_ORG，
*分销渠道=CNCCRMPRCUS505-DIS_CHANNEL，
*销售办事处=CNCCRMPRCUS505-SALES_OFFICE
*CNCCRMPRCUS505-RELEASE_STATUS(发布状态) =''，  CNCCRMPRCUS505-KSCHL（条件类型）=Z000，
*盘点日期在 CNCCRMPRCUS505-TIMESTAMP_FROM有效期自（截止前8位）和CNCCRMPRCUS505-TIMESTAMP_TO有效期自（截止前8位）之间，CNCCRMPRCUS505-KBETR金额
*添加修改：20160613
*CNCCRMPRCUS505-PRODUCT_GUID=COMM_PR_UNIT-PRODUCT_GUID，
*CNCCRMPRCUS505-KMEIN=COMM_PR_UNIT-UNIT；
*基本单价=【CNCCRMPRCUS505-KBETR/CNCCRMPRCUS505-KPEIN】*【COMM_PR_UNIT-NUMERATOR/COMM_PR_UNIT-DENOMINATOR】；

       DATA lw_organ  TYPE crmst_orgset_btil .
       DATA lr_orgman  TYPE  REF  TO cl_crm_bol_entity .

       TRY .
           CALL  METHOD lr_header ->get_related_entity  "取组织BLOCK内容
             EXPORTING
              iv_relation_name  =  'BTHeaderOrgmanSet'
            RECEIVING
              rv_result         = lr_orgman .
         CATCH cx_crm_genil_model_error .
       ENDTRY .

       CALL  METHOD lr_orgman ->get_properties
         IMPORTING
          es_attributes  = lw_organ .

       IF it_kcmx_new  IS  NOT   INITIAL .
         DATA lt_comm_product  TYPE  STANDARD  TABLE  OF comm_product .
         DATA lw_comm_product  TYPE comm_product .

         SELECT *  FROM comm_product  INTO CORRESPONDING  FIELDS  OF  TABLE lt_comm_product
           FOR  ALL ENTRIES  IN it_kcmx_new
           WHERE product_id  = it_kcmx_new -zzcpbh .

         DATA lt_cnccrmprcus505  TYPE  STANDARD  TABLE  OF cnccrmprcus505 .
         DATA lw_cnccrmprcus505  TYPE cnccrmprcus505 .
         DATA lt_comm_pr_unit  TYPE  STANDARD  TABLE  OF comm_pr_unit .
         DATA lw_comm_pr_unit  TYPE comm_pr_unit .
         DATA lt_t006a  TYPE  STANDARD  TABLE  OF t006a .
         DATA lw_t006a  TYPE t006a .

         IF lt_comm_product  IS  NOT  INITIAL  .
           SELECT *  FROM  cnccrmprcus505  INTO CORRESPONDING  FIELDS  OF  TABLE lt_cnccrmprcus505
             FOR  ALL ENTRIES  IN lt_comm_product
             WHERE sales_org  = lw_organ -sales_org
             AND dis_channel  = lw_organ -dis_channel
             AND sales_office  = lw_organ -sales_office
             AND product  = lt_comm_product -product_guid
             AND release_stat  =  ''
             AND kschl  =  'Z000' .

           DATA lt_comm_prshtext  TYPE  STANDARD  TABLE  OF comm_prshtext .
           DATA lw_comm_prshtext  TYPE comm_prshtext .

           SELECT *  FROM comm_prshtext  INTO CORRESPONDING  FIELDS  OF  TABLE lt_comm_prshtext
             FOR  ALL ENTRIES  IN lt_comm_product
             WHERE product_guid  = lt_comm_product -product_guid
             AND   langu  = sy -langu .

           SELECT *  FROM comm_pr_unit  INTO CORRESPONDING  FIELDS  OF  TABLE lt_comm_pr_unit
           FOR  ALL ENTRIES  IN lt_comm_product
           WHERE product_guid  = lt_comm_product -product_guid
             AND is_base_unit  =  'X' .

           IF lt_comm_pr_unit  IS  NOT  INITIAL .
             SELECT *  FROM t006a  INTO CORRESPONDING  FIELDS  OF  TABLE lt_t006a
               FOR  ALL ENTRIES  IN lt_comm_pr_unit
               WHERE msehi  = lt_comm_pr_unit - unit .
           ENDIF .

         ENDIF .

       ENDIF .
*-----------------------------单价 END--------------------------------*
     ELSE . "刷新 金额 和 库存合计表

       CALL  METHOD lr_kcmx_new ->get_first
        RECEIVING
          rv_result  = lr_property_acces .

       WHILE lr_property_acces  IS  BOUND .

         CALL  METHOD lr_property_acces ->get_properties
           IMPORTING
            es_attributes  = wa_kcmx_new .

         APPEND wa_kcmx_new  TO it_kcmx_new .

         CALL  METHOD lr_kcmx_new ->get_next
          RECEIVING
            rv_result  = lr_property_acces .
       ENDWHILE .
     ENDIF .
*-----------------------------整合数据 START--------------------------------*
     ""刷新 金额 和 库存合计表
     CLEAR wa_kchj .
     LOOP  AT it_kcmx_new  INTO wa_kcmx_new .

      wa_kcmx_new -zzxh  = sy -tabix .

       READ  TABLE lt_comm_product  INTO lw_comm_product  WITH  KEY product_id  = wa_kcmx_new -zzcpbh .
       IF sy -subrc  =  0 .

         READ  TABLE lt_comm_prshtext  INTO lw_comm_prshtext  WITH  KEY product_guid  = lw_comm_product -product_guid .
         IF sy -subrc  =  0 .
          wa_kcmx_new -zzcpmc  = lw_comm_prshtext -short_text .
         ENDIF .

         READ  TABLE lt_cnccrmprcus505  INTO lw_cnccrmprcus505  WITH  KEY product  = lw_comm_product -product_guid .
         IF sy -subrc  =  0 .
           READ  TABLE lt_comm_pr_unit  INTO lw_comm_pr_unit  WITH  KEY product_guid  = lw_comm_product -product_guid .

           IF sy -subrc  =  0 .
*添加修改：20160613
*CNCCRMPRCUS505-PRODUCT_GUID=COMM_PR_UNIT-PRODUCT_GUID，
*CNCCRMPRCUS505-KMEIN=COMM_PR_UNIT-UNIT；
*基本单价=【CNCCRMPRCUS505-KBETR/CNCCRMPRCUS505-KPEIN】*【COMM_PR_UNIT-NUMERATOR/COMM_PR_UNIT-DENOMINATOR】；

            wa_kcmx_new -zzdj  =  ( lw_cnccrmprcus505 -kbetr / lw_cnccrmprcus505 -kpein  ) *  ( lw_comm_pr_unit -numerator / lw_comm_pr_unit -denominator  ) .
             READ  TABLE lt_t006a  INTO lw_t006a  WITH  KEY msehi  = lw_comm_pr_unit - unit .
             IF sy -subrc  =  0 .
              wa_kcmx_new -zzdw  = lw_t006a -msehl .
             ENDIF .
           ENDIF .
         ENDIF .

       ENDIF .

      wa_kcmx_new -zzbyfxl  =  wa_kcmx_new -zzcqkcsl  - wa_kcmx_new -zzqmkcsl + wa_kcmx_new -zzbyfhsl .

      wa_kcmx_new -zzcqkcje  = wa_kcmx_new -zzdj * wa_kcmx_new -zzcqkcsl .
      wa_kcmx_new -zzbyfhje  = wa_kcmx_new -zzdj * wa_kcmx_new -zzbyfhsl .
      wa_kcmx_new -zzqmkcje  = wa_kcmx_new -zzdj * wa_kcmx_new -zzqmkcsl .
      wa_kcmx_new -zzbyfxje  = wa_kcmx_new -zzdj * wa_kcmx_new -zzbyfxl  .

      wa_kchj -zzcqkcslhj  = wa_kchj -zzcqkcslhj + wa_kcmx_new -zzcqkcsl .
      wa_kchj -zzcqkcjehj  = wa_kchj -zzcqkcjehj + wa_kcmx_new -zzcqkcje .
      wa_kchj -zzbyfhslhj  = wa_kchj -zzbyfhslhj + wa_kcmx_new -zzbyfhsl .
      wa_kchj -zzbyfhjehj  = wa_kchj -zzbyfhjehj + wa_kcmx_new -zzbyfhje .
      wa_kchj -zzqmkcslhj  = wa_kchj -zzqmkcslhj + wa_kcmx_new -zzqmkcsl .
      wa_kchj -zzqmkujehj  = wa_kchj -zzqmkujehj + wa_kcmx_new -zzqmkcje .
      wa_kchj -zzbyfxslhj  = wa_kchj -zzbyfxslhj + wa_kcmx_new -zzbyfxl .
      wa_kchj -zzbyfxjehj  = wa_kchj -zzbyfxjehj + wa_kcmx_new -zzbyfxje .



       CALL  FUNCTION  'CONVERSION_EXIT_ALPHA_OUTPUT'
         EXPORTING
           input   = wa_kcmx_new -zzcpbh
         IMPORTING
           output  = wa_kcmx_new -zzcpbh .

       MODIFY it_kcmx_new  FROM wa_kcmx_new .
     ENDLOOP .

     "整合后数据为 it_kcmx_new wa_kchj

*-----------------------------整合数据 END----------------------------------*

*-----------------------------写入数据 START--------------------------------*

     DATA lv_entity_kcmx     TYPE  REF  TO cl_crm_bol_entity .
     DATA lv_entity_kchj     TYPE  REF  TO cl_crm_bol_entity .
     DATA lr_kchj      TYPE  REF  TO if_bol_entity_col .

     CALL  METHOD lr_header ->get_related_entities  "在抬头组件中删除明细BLOCK数据
       EXPORTING
        iv_relation_name  =  'ZEXT_BOL_RELAT00000U'
      RECEIVING
        rv_result         = lr_kcmx_new .

     CALL  METHOD lr_kcmx_new ->get_first
      RECEIVING
        rv_result  = lv_entity_kcmx .

     WHILE lv_entity_kcmx  IS  BOUND  .

      lv_entity_kcmx -> delete (  ) .
       CALL  METHOD lr_kcmx_new ->get_next
        RECEIVING
          rv_result  = lv_entity_kcmx .
     ENDWHILE .


     DELETE it_kcmx_new  WHERE zzcpbh  IS  INITIAL .
     LOOP  AT it_kcmx_new  INTO wa_kcmx_new .

       CALL  METHOD lr_header ->create_related_entity  "写入明细
         EXPORTING
          iv_relation_name  =  'ZEXT_BOL_RELAT00000U'
        RECEIVING
          rv_result         = lv_entity_kcmx .

       CALL  METHOD lv_entity_kcmx ->set_properties
         EXPORTING
          is_attributes  = wa_kcmx_new .

     ENDLOOP .


     CALL  METHOD lr_header ->get_related_entity  "写入合计
       EXPORTING
        iv_relation_name  =  'ZEXT_BOL_RELAT00000Y'
      RECEIVING
        rv_result         = lv_entity_kchj .

     CALL  METHOD lv_entity_kchj ->set_properties
       EXPORTING
        is_attributes  = wa_kchj .


*-----------------------------写入数据 END----------------------------------*
     "清空变量
     CLEAR lv_entity_kcmx .
     CLEAR lv_entity_kchj .
     CLEAR lr_kchj .
     CLEAR it_kcmx_new .
     CLEAR it_kcmx .
     CLEAR lt_zsd021 .
   ENDMETHOD .