2. 程式人生 > >我的BRF+自學教程（三）：動態技術

我的BRF+自學教程（三）：動態技術

阿新 • • 發佈：2018-09-03
-a gid values 條目 its ans sta sym 函數

開發者們可以在編程中使用各種動態技術，比如RTTS，比如通過動態的類創建和多態來實現功能的平滑擴展。BRF+對象也有一定動態能力。本文將介紹3種不同場景下的動態實踐方式。其中第一種是純配置的，第二和第三種是編程相關的。

本文鏈接：https://www.cnblogs.com/hhelibeb/p/9571707.html

我的BRF+教程系列：https://www.cnblogs.com/hhelibeb/tag/BRFplus/

1，動態表達式（Dynamic Expression）

動態表達式是一種特殊類型的表達式，它可以用來實現對其它表達式的動態調用。動態表達式的應用場景之一是，有很多個表達式可以供用戶選擇，這些表達式使用基本一樣的上下文對象，你不希望為每個表達式創建一個函數（因為創建它們的過程太繁瑣），而是希望在一個統一的入口函數去調用。

1）選項

  • 被調用的表達式（Called Expression）：選擇一個表達式，將它分配給動態表達式。被分配的表達式會在運行期間被動態表達式調用。註意，雖然被稱為被調用的表達式，但是它並不是被動態調用的表達式，它的返回結果才是被動態調用的表達式的ID。Called Expression可以處理動態表達式的上下文，結果中必須包含一個表達式的ID，該表達式的結果會被傳回給動態表達式。
  • 結果數據對象（Result Data Object：）結果數據對象可以使用任何種類的對象。然而，很重要的一點是確保第二個被調用的表達式的結果數據對象和動態表達式的結果數據對象是兼容的。

2）限制

動態表達式可以提供靈活性，但它也有缺陷，因為動態表達式類型的特質，使得某些大部分可以應用在其它BRF+表達式上的檢查無法應用在動態表達式上面。所以這可能導致一些設計缺陷無法被檢查出來，只有在運行期間才會暴露。此外，動態表達式是不支持代碼生成模式的，只能使用解釋模式，這使得它的性能不太好，在對時間要求高或數據負載量大的時候不建議使用它。

3）例子

實際操作部分比較簡單，讀完上面的文字之後應該可以很順利地出來，這裏就不再一圖一圖地貼了。可以參考官方文檔。

2，動態創建決策表（Decision Table）

通過使用ABAP代碼，可以動態地創建BRFplus中的decisiong table和function等對象。

（本節的內容基本來自於Create decision table & it’s entries dynamically in BRF + Workbench through API）

1）前提

要讀懂本節，需要兩方面的知識，

  1. 基本的ABAP面向對象知識。
  2. 基本的BRF+知識。

2）需求

通過一個簡單的report程序來創建決策表和它的條目。

3）使用的接口

  1. IF_FDT_FACTORY
  2. IF_FDT_DECISION_TABLE
  3. IF_FDT_FUNCTION

4）創建應用

在工作臺中創建一個應用，接下來將會在這個應用中動態地創建決策表。

技術分享圖片

5）復制代碼

把以下代碼粘貼到自定義程序中，代碼的具體意義寫在註釋中，註意ID要替換成你自己創建的BRF+應用的ID

DATA: lo_factory        TYPE REF TO if_fdt_factory,
      lt_message        TYPE if_fdt_types=>t_message,
      lv_message        TYPE string,
      lv_boolean        TYPE abap_bool,
      lo_element        TYPE REF TO if_fdt_element,
      lo_table          TYPE REF TO if_fdt_table,
      lo_structure      TYPE REF TO if_fdt_structure,
      lv_element1_id    TYPE if_fdt_types=>id,
      lv_element2_id    TYPE if_fdt_types=>id,
      lv_element3_id    TYPE if_fdt_types=>id,
      lv_structure_id   TYPE if_fdt_types=>id,
      lo_constant       TYPE REF TO if_fdt_constant,
      ls_element        TYPE if_fdt_structure=>s_element,
      lts_element       TYPE if_fdt_structure=>ts_element,
      lv_string         TYPE string,
      ls_range          TYPE if_fdt_decision_table=>s_range,
      ls_table_data     TYPE if_fdt_decision_table=>s_table_data,
      lo_decision_table TYPE REF TO if_fdt_decision_table,
      lo_function       TYPE REF TO if_fdt_function,
      lo_context        TYPE REF TO if_fdt_context,
      lts_context_id    TYPE if_fdt_types=>ts_object_id,
      lts_table_data    TYPE if_fdt_decision_table=>ts_table_data,
      lts_column        TYPE if_fdt_decision_table=>ts_column,
      lv_actv_failed    TYPE abap_bool,
      lx_fdt            TYPE REF TO cx_fdt,
      lv_dt_id          TYPE if_fdt_types=>id,
      ls_column         LIKE LINE OF lts_column.

FIELD-SYMBOLS: <ls_message> TYPE if_fdt_types=>s_message,

               <lv_value>   TYPE any.

* 獲取FDT工廠實例，使用上面創建的應用ID
lo_factory = cl_fdt_factory=>if_fdt_factory~get_instance(
                           ‘005056A4CCA61ED8AA9AAF84A7712616‘ ).


*創建數據對象
lo_element ?= lo_factory->get_data_object(
     iv_data_object_type = if_fdt_constants=>gc_data_object_type_element ).

lo_element->if_fdt_transaction~enqueue( ).

lo_element->if_fdt_admin_data~set_name( ‘IV_VAR1‘ ).

lo_element->set_element_type( if_fdt_constants=>gc_element_type_text ).

lo_element->if_fdt_transaction~activate(
   IMPORTING
     et_message           = lt_message
     ev_activation_failed = lv_boolean ).

IF lv_boolean EQ abap_true.

*如果激活失敗，需要處理

  lo_element->if_fdt_transaction~dequeue( ).

ELSE.

  lo_element->if_fdt_transaction~save( ).

  lo_element->if_fdt_transaction~dequeue( ).

* 通常需要把ID單獨存下來，以便後續操作
  lv_element1_id = lo_element->mv_id.

  ls_element-position = 1.

  ls_element-element_id = lv_element1_id.

  APPEND ls_element TO lts_element.

ENDIF.

INSERT lv_element1_id INTO TABLE lts_context_id.

*創建另一個元素

lo_element ?= lo_factory->get_data_object(
     iv_data_object_type = if_fdt_constants=>gc_data_object_type_element ).

lo_element->if_fdt_transaction~enqueue( ).

lo_element->if_fdt_admin_data~set_name( ‘IV_VAR2‘ ).

* 設置元素類型(可以搜索if_fdt_constants=>gc_element_type_* 得到可用元素類型列表

lo_element->set_element_type( if_fdt_constants=>gc_element_type_text ).

lo_element->if_fdt_transaction~activate(
   IMPORTING
     et_message           = lt_message
     ev_activation_failed = lv_boolean ).

IF lv_boolean EQ abap_true.

  lo_element->if_fdt_transaction~dequeue( ).

ELSE.

  lo_element->if_fdt_transaction~save( ).

  lo_element->if_fdt_transaction~dequeue( ).

  lv_element2_id = lo_element->mv_id.

  ls_element-position = 2.

  ls_element-element_id = lv_element2_id.

  APPEND ls_element TO lts_element.

ENDIF.

INSERT lv_element2_id INTO TABLE lts_context_id.

* 創建結果數據元素

lo_element ?= lo_factory->get_data_object(
     iv_data_object_type = if_fdt_constants=>gc_data_object_type_element ).

lo_element->if_fdt_transaction~enqueue( ).

lo_element->if_fdt_admin_data~set_name( ‘EV_RESULT‘ ).

lo_element->set_element_type( if_fdt_constants=>gc_element_type_text ).

lo_element->if_fdt_transaction~activate(
   IMPORTING
     et_message           = lt_message
     ev_activation_failed = lv_boolean ).

IF lv_boolean EQ abap_true.

  lo_element->if_fdt_transaction~dequeue( ).

ELSE.

  lo_element->if_fdt_transaction~save( ).

  lo_element->if_fdt_transaction~dequeue( ).

  lv_element3_id = lo_element->mv_id.

  ls_element-position = 3.

  ls_element-element_id = lv_element3_id.

  APPEND ls_element TO lts_element.

ENDIF.

INSERT lv_element3_id INTO TABLE lts_context_id.

* 填充第1列元素
ls_column-col_no     = 1.

ls_column-object_id =   lv_element1_id.

ls_column-is_result  = abap_false.

INSERT ls_column INTO TABLE lts_column.

* 填充第2列元素
 ls_column-col_no = 2. 
 ls_column-object_id = lv_element2_id. 
 ls_column-is_result = abap_false. 
 
INSERT ls_column INTO TABLE lts_column. 

* 填充結果列元素  
ls_column-col_no = 3. 
ls_column-object_id = lv_element3_id. 
ls_column-is_result = abap_true. 

INSERT ls_column INTO TABLE lts_column. 

* 創建並設置決策表表達式
lo_decision_table ?= lo_factory->get_expression( iv_expression_type_id = if_fdt_constants=>gc_exty_decision_table ). 

* 對表達式加鎖.  
lo_decision_table->if_fdt_transaction~enqueue( abap_true ).
* 設置表列  
lo_decision_table->set_columns( its_column = lts_column ). 
lo_decision_table->if_fdt_admin_data~set_name( ‘DT_TEST‘ ). "user defined name. DT_TEST is the decision table Name 

* 使用工廠對象創建一個函數實例. 
 lo_function ?= lo_factory->get_function( ). 

* 對函數加鎖.  
lo_function->if_fdt_transaction~enqueue( ). 

* 設置函數上下文對象.  
lo_function->set_context_data_objects( lts_context_id ). 
lo_function->if_fdt_admin_data~set_name( ‘FN_TEST‘ ). "自定義函數名

* 設置函數根表達式.  
lo_function->set_expression( lo_decision_table->mv_id ). 

* 設置單元格(1,1)的條件
ls_table_data-row_no = 1. 
ls_table_data-col_no = 1. 
ls_range-position = 1. 
ls_range-sign = if_fdt_range=>gc_sign_include. 
ls_range-option = if_fdt_range=>gc_option_equal.
CREATE DATA ls_range-r_low_value TYPE if_fdt_types=>element_text. 

ASSIGN ls_range-r_low_value->* TO <lv_value>. <lv_value> = ‘MOURI‘. 

INSERT ls_range INTO TABLE ls_table_data-ts_range. 

INSERT ls_table_data INTO TABLE lts_table_data. 

CLEAR ls_table_data. . 

*設置單元格(1,2)的條件
ls_table_data-row_no = 1. 
ls_table_data-col_no = 2. 
ls_range-position = 1. 
ls_range-sign = if_fdt_range=>gc_sign_include. 
ls_range-option = if_fdt_range=>gc_option_equal. 

CREATE DATA ls_range-r_low_value TYPE if_fdt_types=>element_text. 

ASSIGN ls_range-r_low_value->* TO <lv_value>. <lv_value> = ‘TECH‘. 

INSERT ls_range INTO TABLE ls_table_data-ts_range. 

INSERT ls_table_data INTO TABLE lts_table_data. 

CLEAR ls_table_data. **在單元格(1, 3)得到結果  
ls_table_data-row_no = 1. ls_table_data-col_no = 3. 

CREATE DATA ls_table_data-r_value TYPE if_fdt_types=>element_text. 

ASSIGN ls_table_data-r_value->* TO <lv_value>. <lv_value> = ‘MOURITECH‘. 

INSERT ls_table_data INTO TABLE lts_table_data. 

CLEAR ls_table_data. 

* 設置完全的表數據.  
lo_decision_table->set_table_data( its_data = lts_table_data ). 

* 保存並激活.  
lo_function->if_fdt_transaction~activate( 
　　EXPORTING iv_deep　　　　　　　  = abap_true 
　　IMPORTING et_message 　　　　　　= lt_message 
　　　　　　　　ev_activation_failed = lv_actv_failed ). 

* 如果成功，先保存對象。無論成功失敗，釋放全部鎖

IF lv_actv_failed EQ abap_true. 

　　lo_function->if_fdt_transaction~dequeue( iv_deep = abap_true ). 

　　WRITE : / ‘Deep activation failed‘. 

　　LOOP AT lt_message ASSIGNING <ls_message>. 

　　　　MESSAGE ID <ls_message>-msgid TYPE <ls_message>-msgty NUMBER <ls_message>-msgno 
　　　　　　WITH <ls_message>-msgv1 <ls_message>-msgv2 <ls_message>-msgv3 <ls_message>-msgv4 INTO lv_message.
　　　　WRITE: / ‘Reason : -‘,lv_message. 

　　ENDLOOP. 

ELSE. 

　　TRY.
　　 lv_dt_id = lo_decision_table->mv_id. 
　　 lo_function->if_fdt_transaction~save( iv_deep = abap_true ). 

　　 WRITE : ‘The ID of the decision table created is:‘ ,lv_dt_id. . 

　　CATCH cx_fdt INTO lx_fdt. 

　　　WRITE : / ‘Save failed with exception‘.
　　　LOOP AT lx_fdt->mt_message ASSIGNING <ls_message>.
 　　　　WRITE :/ <ls_message>-text. 
　　  ENDLOOP. 

　　ENDTRY. 
　　lo_function->if_fdt_transaction~dequeue( iv_deep = abap_true ). 

ENDIF.

執行後可以看到結果，如下圖，

技術分享圖片

前往BRF+工作臺，按ID搜索對象

技術分享圖片

可以查詢到結果，

技術分享圖片

已經成功創建了決策表，也可以在上文創建的應用下找到這個決策表，

技術分享圖片

3，動態獲取函數參數

函數的參數是在創建BRF+函數時定義的，在某些場景下，我們需要動態地獲取這些參數，以供程序使用。

比如，用戶創建了若幹公式，公式中存在常量，也存在不同的需要用戶輸入的運算數，這些運算數即函數的參數。程序需要獲取到用戶所選擇的公式中需要輸入的運算數，這樣才能告訴用戶，需要在界面輸入哪些變量的值。

對於這個功能的實現方式，我曾經在SCN上提問，最後自己找到了答案。現把答案轉貼在這裏。

在調用BRG+函數時，需要獲取上下文對象，而函數的參數的名字和ID，就位於上下文對象中的屬性MT_NAME_VALUE中，如下圖

技術分享圖片

可以為類CL_FDT_CONTEXT創建增強，新增方法GET_MT_NAME_VALUES，以讀取私有屬性MT_NAME_VALUE，

  methods GET_MT_NAME_VALUES
    exporting
      value(ET_NAME_VALUE) type HASHED TABLE .

方法的實現如下，

METHOD get_mt_name_values .

  et_name_value = me->mt_name_value.

ENDMETHOD.

接下來在自己的程序中調用該方法，

TYPES:
  BEGIN OF s_name_id_value,
    id               TYPE if_fdt_types=>id,
    name             TYPE abap_parmname,
    data_object_type TYPE if_fdt_types=>data_object_type,
    value            TYPE REF TO data,
    value_set        TYPE abap_bool,
  END OF s_name_id_value .
TYPES:
  t_name_id_value TYPE HASHED TABLE OF s_name_id_value
                  WITH UNIQUE KEY name .

DATA: t_name TYPE t_name_id_value.

DATA(lo_fuction) = cl_fdt_factory=>if_fdt_factory~get_instance(
  )->get_function( ‘005056A4CCA61ED8A8924F0F3F4F1D98‘ ).
*

DATA(lo_context) = CAST cl_fdt_context( lo_fuction->get_process_context( ) ).

lo_context->get_mt_name_values( IMPORTING et_name_value = t_name ).

就可以得到相關信息。

我的BRF+自學教程（三）：動態技術

相關推薦

我的BRF+自學教程（三）：動態技術

-a gid values 條目 its ans sta sym 函數 開發者們可以在編程中使用各種動態技術，比如RTTS，比如通過動態的類創建和多態來實現功能的平滑擴展。BRF+對象也有一定動態能力。本文將介紹3種不同場景下的動態實踐方式。其中第一種是純配置的，第二和第三

[譯]MVC網站教程（三）：動態佈局和站點管理

目錄 1.介紹 2.軟體環境 5.控制器擴充套件 1)資料實體 2)站點設定 3)站點檔案 介紹 “MVC網站教程”系列的目的是教你如何使用 ASP.NET MVC 建立一個基本的、可擴充套件的網站。 3)MVC網站教程（三

Git 教程（三）：倉庫與分支

ide 不但 clas version span 右上角 director discard pre 遠程倉庫 到目前為止，我們已經掌握了如何在Git倉庫裏對一個文件進行時光穿梭，你再也不用擔心文件備份或者丟失的問題了。 可是有用過集中式版本控制系統SVN的童鞋會站出來說，這

Redux 入門教程（三）：React-Redux 的用法

建立 www counter reducer creates 所有 port 操作 lin 作者： 阮一峰 前兩篇教程介紹了 Redux 的基本用法和異步操作，今天是最後一部分，介紹如何在 React 項目中使用 Redux。 為了方便使用，Redux 的作者封裝

VSphere系列教程（三）：ESXI 主機設定開機自動啟動虛擬機器

一、配置 ESXI 主機        登入 WebClient，管理 -> 自動啟動 -> 編輯設定                配置成如下內容，儲

Linux小小白入門教程（三）：Linux資料夾

學習一個作業系統的使用，最先應該搞清楚的是他的C盤、D盤、E盤。 一、Linux的資料夾 Linux和Windows最大的區別是，Windows有C盤、D盤的概念，但是在Linux上沒有碟符的概念。Linux只有一個碟符，那就是“/”。你沒有看錯，就是一個斜杆。這個

python3教程（三）：程式碼執行環境及你的第一段python程式碼

程式碼執行環境 我們安裝完Python後，可以使用ide或idle來執行程式。 關於ide我們之後會專門進行介紹，我們前期一般是使用idle來學習及執行程式碼。 在Windows上一般有兩個idle ，一個是cmd ，另一個則是python自帶的。 cmd的話，和上一節課程一樣，

jmeter教程（三）：介面測試初探

做測試，怎麼測試，要測試什麼，得有依據。功能測試的依據是需求規格說明書，介面測試的依據，通常有需求規格說明書及介面開發文件。但這些文件，並不是每個公司都有的，有的可能沒有介面文件，甚至需求文件都沒有，這個時候，就只能與產品、開發溝通來確定介面的邏輯了。 現在假定有個登入的介面，需求是使用者名稱和

kettle 教程（三）：條件判斷 Switch Case

介紹 Switch / Case，顧名思義，類似 Java 中的 Switch / Case，用於進行條件判斷。是 kettle 中一個非常常用元件。 使用起來也非常簡單，我們直接來看例子。 場景介紹 有一個 user 表，表中資料如下：

【翻譯】CodeMix使用教程（三）：Emmet

CodeMix中的Emmet Emmet是改善開發人員工作流程的好方法。 使用Emmet，可以動態解析類似CSS的表示式，並根據您在縮寫中鍵入的內容生成輸出。 Emmet支援內置於CodeMix中，無需擴充套件。 CodeMix外掛與基於Eclipse的IDE和工具（如MyEclips

Navicat使用教程（三）：使用MySQL日誌（第3部分）——慢速日誌

下載Navicat for MySQL最新版本 Navicat for MySQL 是一套管理和開發 MySQL 或 MariaDB 的理想解決方案。使用Navicat for MySQL可以同時連線到 MySQL 和 MariaDB。Navicat for MySQL提供了強大的前端功能，為

Elasticsearch 通關教程（三）： 索引別名Aliases問題

業務問題 業務需求是不斷變化迭代的，也許我們之前寫的某個業務邏輯在下個版本就變化了，我們可能需要修改原來的設計，例如資料庫可能需要新增一個欄位或刪減一個欄位，而在搜尋中也會發生這件事，即使你認為現在的索引設計已經很完美了，在生產環境中，還是有可能需要做一些修改的，需要新增對映欄位或者需要修改欄位型別等等。

【鏈塊技術55期】超級賬本Fabric教程（三）：Hyperledger Fabric 1.0架構及原理

原文連結：超級賬本Fabric教程（三）：Hyperledger Fabric 1.0架構及原理   如果說以比特幣為代表的貨幣區塊鏈技術為 1.0，以以太坊為代表的合同區塊鏈技術為 2.0，那麼實現了完備的許可權控制和安全保障的 Hyperledger 專案毫無疑問代表著區塊鏈技

Vue.js教程（三）：v-if條件判斷

v-if是繼v-bind之後的又一個v-xxx系列 前言 v-if這是我們學習Vue中的的第二個v-xxx系列。學到這裡，不得不提一下的是，所有v-bind或者v-if所關聯的都是Vue的動態變數，

NPOI 2.0 教程（三）：EXCEL 基本格式設定之ICellStyle

轉載請註明出處 http://blog.csdn.net/fujie724 前兩篇，我們已經學習瞭如何用NPOI來建立和編輯Excel，並且已經熟悉了HSSFWorkbook，ISheet，IRow和ICell。 接下來我們把它變得漂亮一點。 ICellStyle——單

API 系列教程（三）：使用 API Resource 來建立自定義 JSON 格式的 API

上一篇教程中我們通過 jwt-auth 實現了 Laravel 的 API 認證。 使用者請求登入介面 http://apidemo.test/api/auth/login 登入成功後，獲取到 JSON 響應，響應頭會帶有 token 資訊。 Authorizatio

機器學習實戰教程（三）：決策樹實戰篇之為自己配個隱形眼鏡

原文連結：cuijiahua.com/blog/2017/1… 一、前言 上篇文章機器學習實戰教程（二）：決策樹基礎篇之讓我們從相親說起講述了機器學習決策樹的原理，以及如何選擇最優特徵作為分類特徵。本篇文章將在此基礎上進行介紹。主要包括： 決策樹構建 決策樹視覺化 使用決

Python之numpy教程（三）：轉置、乘積、通用函式

1.陣列轉置和軸對換：陣列不僅有transpose方法，還有一個特殊的T屬性： arr = np.arange(15).reshape(3,5) arr輸出： array([[ 0, 1, 2, 3, 4], [ 5, 6, 7, 8,

webpack4系列教程（三）：自動生成專案中的HTML檔案

傳送門： webpack4系列教程（一）：初識webpack webpack4系列教程（二）：建立專案，打包第一個JS檔案   1. webpack中的CommonJS和ES Mudule 規範 1.1 CommonJs規範 CommonJs規範的出發點：JS沒

【Unity3D基礎教程】給初學者看的Unity教程（三）：通過製作Flappy Bird瞭解Native 2D中的Sprite，Animation

引子 上一次我們講了MonoBehaviour的前世今生，瞭解了遊戲中的每一個GameObjec都是由指令碼控制的，這一次我們開始將Unity中Native 2D中的Sprite，並且使用Animation來讓Sprite動起來。 在接下來的幾篇部落格裡，我會通過做一個Flappy Bird來講解