SAP 代码示例总览

全站共收录 5242 段代码示例，覆盖 488 篇文章。按语言分类，点击卡片即可查看完整代码与来源文章。

按语言浏览

ABAP (4349) Other (841) SQL (43) Shell (8) JavaScript (1)

代码片段

ABAP 4349 段

ABAP 2024SAP顾问第01卷ABAP基础初体验 
REPORT +  空格+程序名。然后用点表示语句结束。
查看完整代码 
REPORT +  空格+程序名。然后用点表示语句结束。
ABAP 90的ABAPer不知道二分法的这个用法 
END OF  itab1  .
查看完整代码 
END OF  itab1  .
ABAP 90的ABAPer不知道二分法的这个用法 
LOOP AT  itab1  .
READ TABLE  itab2  WITH KEY  matnr  =  itab1  \-  matnr
werks  =  itab1  \-  werks
meins  =  itab1  \-  meins  .
IF  sy  \-  subrc  =  0  .
itab2  \-  menge  =  itab2  \-  menge + itab1  \-  menge  .
MODIFY  itab2  INDEX  sy  \-  tabix  .
查看完整代码 
LOOP AT  itab1  .
READ TABLE  itab2  WITH KEY  matnr  =  itab1  \-  matnr
werks  =  itab1  \-  werks
meins  =  itab1  \-  meins  .
IF  sy  \-  subrc  =  0  .
itab2  \-  menge  =  itab2  \-  menge + itab1  \-  menge  .
MODIFY  itab2  INDEX  sy  \-  tabix  .
ABAP 90的ABAPer不知道二分法的这个用法 
APPEND  itab1  TO  itab2  .
ENDIF  .
ENDLOOP  .
查看完整代码 
APPEND  itab1  TO  itab2  .
ENDIF  .
ENDLOOP  .
ABAP 90的ABAPer不知道二分法的这个用法 
LOOP AT  itab1  .
READ TABLE  itab2  WITH KEY  matnr  =  itab1  \-  matnr
werks  =  itab1  \-  werks
meins  =  itab1  \-  meins
查看完整代码 
LOOP AT  itab1  .
READ TABLE  itab2  WITH KEY  matnr  =  itab1  \-  matnr
werks  =  itab1  \-  werks
meins  =  itab1  \-  meins
ABAP 90的ABAPer不知道二分法的这个用法 
IF  sy  \-  subrc  =  0  .
itab2  \-  menge  =  itab2  \-  menge + itab1  \-  menge  .
MODIFY  itab2  INDEX  sy  \-  tabix  .
查看完整代码 
IF  sy  \-  subrc  =  0  .
itab2  \-  menge  =  itab2  \-  menge + itab1  \-  menge  .
MODIFY  itab2  INDEX  sy  \-  tabix  .
ABAP 90的ABAPer不知道二分法的这个用法 
ENDIF  .
ENDLOOP  .
查看完整代码 
ENDIF  .
ENDLOOP  .
ABAP ABAP - Payment Advice Sent through mail Via PDF Attachment 
REPORT zfpbccp_ihk  NO STANDARD PAGE HEADING
查看完整代码 
REPORT zfpbccp_ihk  NO STANDARD PAGE HEADING
ABAP ABAP - Payment Advice Sent through mail Via PDF Attachment 
TABLES:
查看完整代码 
TABLES:
ABAP ABAP - Payment Advice Sent through mail Via PDF Attachment 
TYPES: BEGIN OF t_tbtcp.
查看完整代码 
TYPES: BEGIN OF t_tbtcp.
ABAP ABAP - Payment Advice Sent through mail Via PDF Attachment 
TYPES: END OF t_tbtcp.
查看完整代码 
TYPES: END OF t_tbtcp.
ABAP ABAP - Payment Advice Sent through mail Via PDF Attachment 
DATA:
查看完整代码 
DATA:
ABAP ABAP - Payment Advice Sent through mail Via PDF Attachment 
DATA:
查看完整代码 
DATA:
ABAP ABAP - Payment Advice Sent through mail Via PDF Attachment 
DATA:
查看完整代码 
DATA:
ABAP ABAP - Payment Advice Sent through mail Via PDF Attachment 
DATA:
查看完整代码 
DATA:
ABAP ABAP - Payment Advice Sent through mail Via PDF Attachment 
DATA: gd_bytecount LIKE tst01-dsize,
查看完整代码 
DATA: gd_bytecount LIKE tst01-dsize,
ABAP ABAP - Payment Advice Sent through mail Via PDF Attachment 
DATA: BEGIN OF it_pdf_output OCCURS 0.
查看完整代码 
DATA: BEGIN OF it_pdf_output OCCURS 0.
ABAP ABAP - Payment Advice Sent through mail Via PDF Attachment 
DATA: END OF it_pdf_output.
查看完整代码 
DATA: END OF it_pdf_output.
ABAP ABAP - Payment Advice Sent through mail Via PDF Attachment 
DATA:
查看完整代码 
DATA:
ABAP ABAP - Payment Advice Sent through mail Via PDF Attachment 
DATA: v_bukrs LIKE t001-bukrs.
查看完整代码 
DATA: v_bukrs LIKE t001-bukrs.
ABAP ABAP - Payment Advice Sent through mail Via PDF Attachment 
DATA:
查看完整代码 
DATA:
ABAP ABAP - Payment Advice Sent through mail Via PDF Attachment 
DATA:
查看完整代码 
DATA:
ABAP ABAP - Payment Advice Sent through mail Via PDF Attachment 
PARAMETERS: p_zbukr  LIKE t042i-zbukr DEFAULT 'IHK' NO-DISPLAY.
查看完整代码 
PARAMETERS: p_zbukr  LIKE t042i-zbukr DEFAULT 'IHK' NO-DISPLAY.
ABAP ABAP - Payment Advice Sent through mail Via PDF Attachment 
PARAMETERS: p_hbkid  LIKE t042i-hbkid DEFAULT 'BOA' NO-DISPLAY.
查看完整代码 
PARAMETERS: p_hbkid  LIKE t042i-hbkid DEFAULT 'BOA' NO-DISPLAY.
ABAP ABAP - Payment Advice Sent through mail Via PDF Attachment 
PARAMETERS: payforco LIKE bkpf-bukrs OBLIGATORY.
查看完整代码 
PARAMETERS: payforco LIKE bkpf-bukrs OBLIGATORY.
ABAP ABAP - Payment Advice Sent through mail Via PDF Attachment 
PARAMETERS: paymeth        DEFAULT '1'.          "kaleem
查看完整代码 
PARAMETERS: paymeth        DEFAULT '1'.          "kaleem
ABAP ABAP - Payment Advice Sent through mail Via PDF Attachment 
PARAMETERS: paym TYPE num1  DEFAULT '1' NO-DISPLAY.
查看完整代码 
PARAMETERS: paym TYPE num1  DEFAULT '1' NO-DISPLAY.
ABAP ABAP - Payment Advice Sent through mail Via PDF Attachment 
PARAMETERS:
查看完整代码 
PARAMETERS:
ABAP ABAP - Payment Advice Sent through mail Via PDF Attachment 
PARAMETERS:     payrdate LIKE sy-datum DEFAULT sy-datum,"'19990525',
查看完整代码 
PARAMETERS:     payrdate LIKE sy-datum DEFAULT sy-datum,"'19990525',
ABAP ABAP - Payment Advice Sent through mail Via PDF Attachment 
IF p_zbukr NE 'IHK'.
查看完整代码 
IF p_zbukr NE 'IHK'.
ABAP ABAP - Payment Advice Sent through mail Via PDF Attachment 
WRITE:/ 'Paying Company Code should always be IHK'(k34).        "kaleem
查看完整代码 
WRITE:/ 'Paying Company Code should always be IHK'(k34).        "kaleem
ABAP ABAP - Payment Advice Sent through mail Via PDF Attachment 
ENDIF.
查看完整代码 
ENDIF.
ABAP ABAP popup window 
CALL FUNCTION 'POPUP_CONTINUE_YES_NO'
查看完整代码 
CALL FUNCTION 'POPUP_CONTINUE_YES_NO'
ABAP ABAP popup window 
answer    = lv_answer.
IF lv_answer = 'J'.
查看完整代码 
answer    = lv_answer.
IF lv_answer = 'J'.
ABAP ABAP popup window 
ENDIF.
查看完整代码 
ENDIF.
ABAP ABAP popup window 
CALL FUNCTION 'POPUP_TO_CONFIRM_DATA_LOSS'
查看完整代码 
CALL FUNCTION 'POPUP_TO_CONFIRM_DATA_LOSS'
ABAP ABAP popup window 
answer        = lv_answer.
IF lv_answer = 'J'.
查看完整代码 
answer        = lv_answer.
IF lv_answer = 'J'.
ABAP ABAP popup window 
ENDIF..
查看完整代码 
ENDIF..
ABAP ABAP popup window 
CALL FUNCTION 'POPUP_WITH_TABLE_DISPLAY'
查看完整代码 
CALL FUNCTION 'POPUP_WITH_TABLE_DISPLAY'
ABAP ABAP popup window 
valuetab           = lt_tab
查看完整代码 
valuetab           = lt_tab
ABAP ABAP popup window 
TYPES: BEGIN OF esp1_message_wa_type,
查看完整代码 
TYPES: BEGIN OF esp1_message_wa_type,
ABAP ABAP popup window 
END OF esp1_message_wa_type.
查看完整代码 
END OF esp1_message_wa_type.
ABAP ABAP popup window 
DATA: lt_message_popup TYPE TABLE OF esp1_message_wa_type.
DATA: lt_bapiret_tab   TYPE TABLE OF bapiret2. " BAPIRETTAB
查看完整代码 
DATA: lt_message_popup TYPE TABLE OF esp1_message_wa_type.
DATA: lt_bapiret_tab   TYPE TABLE OF bapiret2. " BAPIRETTAB
ABAP ABAP popup window 
LOOP AT lt_bapiret_tab ASSIGNING
查看完整代码 
LOOP AT lt_bapiret_tab ASSIGNING
ABAP ABAP popup window 
APPEND INITIAL LINE TO lt_message_popup ASSIGNING .
查看完整代码 
APPEND INITIAL LINE TO lt_message_popup ASSIGNING .
ABAP ABAP popup window 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP ABAP popup window 
IF NOT lt_message_popup[] IS INITIAL.
CALL FUNCTION 'C14Z_MESSAGES_SHOW_AS_POPUP'
查看完整代码 
IF NOT lt_message_popup[] IS INITIAL.
CALL FUNCTION 'C14Z_MESSAGES_SHOW_AS_POPUP'
ABAP ABAP popup window 
i_message_tab = lt_message_popup[].
ENDIF.
查看完整代码 
i_message_tab = lt_message_popup[].
ENDIF.
ABAP ABAP popup window 
1 | " use grid for display if wanted ls_display_profile-use_grid = p_grid. " 'X' or ' '
查看完整代码 
1 | " use grid for display if wanted ls_display_profile-use_grid = p_grid. " 'X' or ' '
ABAP ABAP tips Checking existence within an internal table 
READ TABLE itab INTO row WITH KEY id = find_id.
查看完整代码 
READ TABLE itab INTO row WITH KEY id = find_id.
ABAP ABAP tips Checking existence within an internal table 
row = itab[ id = find_id ].
查看完整代码 
row = itab[ id = find_id ].
ABAP ABAP tips Checking existence within an internal table 
row = itab[ id = find_id ].
查看完整代码 
row = itab[ id = find_id ].
ABAP ABAP tips Checking existence within an internal table 
CATCH cx_sy_itab_line_not_found.
查看完整代码 
CATCH cx_sy_itab_line_not_found.
ABAP ABAP tips Checking existence within an internal table 
row = VALUE #( itab[ id = find_id ] OPTIONAL ).
查看完整代码 
row = VALUE #( itab[ id = find_id ] OPTIONAL ).
ABAP ABAP tips Checking existence within an internal table 
IF row IS INITIAL.
查看完整代码 
IF row IS INITIAL.
ABAP ABAP tips Checking existence within an internal table 
READ TABLE ... TRANSPORTING NO FIELDS :   671,368
查看完整代码 
READ TABLE ... TRANSPORTING NO FIELDS :   671,368
ABAP ABAP tips Checking existence within an internal table 
READ TABLE                            :   671,115
查看完整代码 
READ TABLE                            :   671,115
ABAP ABAP tips Checking existence within an internal table 
TRY ... itab[ ... ] CATCH             : 6,325,265
查看完整代码 
TRY ... itab[ ... ] CATCH             : 6,325,265
ABAP ABAP tips Checking existence within an internal table 
IF line_exists( itab[ id = find_id ] ).
查看完整代码 
IF line_exists( itab[ id = find_id ] ).
ABAP ABAP tips Checking existence within an internal table 
row = itab[ id = find_id ].
查看完整代码 
row = itab[ id = find_id ].
ABAP ABAP tips Checking existence within an internal table 
TRY-CATCH with table expressions can be a useful way to structure your code (e.g. to use a single catch handler for multiple expressions), but be mindful of the expected failure rate and performance-criticality of the component. If we’re talking anything less than thousands in a short space of time then you can safely ignore the impact.
查看完整代码 
TRY-CATCH with table expressions can be a useful way to structure your code (e.g. to use a single catch handler for multiple expressions), but be mindful of the expected failure rate and performance-criticality of the component. If we’re talking anything less than thousands in a short space of time then you can safely ignore the impact.
ABAP ABAP 调用HTTP上传附件
查看代码
DATA:lt_bin TYPE STANDARD TABLE OF ty_itab,       ls_bin LIKE LINE OF lt_bin.
DATA: lv_len         TYPE i, "发送报文长度        lv_url         TYPE string, "接口地址        lo_http_client TYPE REF TO if_http_client, "http客户端        lo_part        TYPE REF TO if_http_entity,        lv_value       TYPE string,        lv_name        TYPE string,        lv_file        TYPE string,        lv_rec_json    TYPE string, "接收的JSON        lv_code        TYPE i, "HTTP 返回状态        lv_reas
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA:lt_bin TYPE STANDARD TABLE OF ty_itab,       ls_bin LIKE LINE OF lt_bin.
DATA: lv_len         TYPE i, "发送报文长度        lv_url         TYPE string, "接口地址        lo_http_client TYPE REF TO if_http_client, "http客户端        lo_part        TYPE REF TO if_http_entity,        lv_value       TYPE string,        lv_name        TYPE string,        lv_file        TYPE string,        lv_rec_json    TYPE string, "接收的JSON        lv_code        TYPE i, "HTTP 返回状态        lv_reas
/* ... 已截断，完整代码请查看原文 */
ABAP ABAP 调用HTTP上传附件
查看代码
"创建http客户端  CALL METHOD cl_http_client=>create_by_url    EXPORTING      url                        = lv_url    IMPORTING      client                     = lo_http_client    EXCEPTIONS      argument_not_found         = 1      plugin_not_active          = 2      internal_error             = 3      pse_not_found              = 4      pse_not_distrib            = 5      pse_errors                 = 6      oa2c_set_token_error       = 7      oa2c_missing_authorization = 8      oa2c_inva
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
"创建http客户端  CALL METHOD cl_http_client=>create_by_url    EXPORTING      url                        = lv_url    IMPORTING      client                     = lo_http_client    EXCEPTIONS      argument_not_found         = 1      plugin_not_active          = 2      internal_error             = 3      pse_not_found              = 4      pse_not_distrib            = 5      pse_errors                 = 6      oa2c_set_token_error       = 7      oa2c_missing_authorization = 8      oa2c_inva
/* ... 已截断，完整代码请查看原文 */
ABAP ABAP 调用HTTP上传附件
查看代码
"-----------------------------@斌将军-----------------------------"浏览器支持的 MIME 类型  CALL METHOD lo_http_client->request->set_header_field    EXPORTING      name  = 'Accept'      value = '*/*'.
"浏览器支持的压缩编码  CALL METHOD lo_http_client->request->set_header_field    EXPORTING      name  = 'Accept-Encoding'      value = 'gzip, deflate'.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
"-----------------------------@斌将军-----------------------------"浏览器支持的 MIME 类型  CALL METHOD lo_http_client->request->set_header_field    EXPORTING      name  = 'Accept'      value = '*/*'.
"浏览器支持的压缩编码  CALL METHOD lo_http_client->request->set_header_field    EXPORTING      name  = 'Accept-Encoding'      value = 'gzip, deflate'.
/* ... 已截断，完整代码请查看原文 */
ABAP ABAP 调用HTTP上传附件
查看代码
"-----------------------------@斌将军-----------------------------CALL METHOD lo_http_client->request->if_http_entity~set_formfield_encoding    EXPORTING      formfield_encoding = cl_http_request=>if_http_entity~co_encoding_raw.
lo_part = lo_http_client->request->if_http_entity~add_multipart( ).
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
"-----------------------------@斌将军-----------------------------CALL METHOD lo_http_client->request->if_http_entity~set_formfield_encoding    EXPORTING      formfield_encoding = cl_http_request=>if_http_entity~co_encoding_raw.
lo_part = lo_http_client->request->if_http_entity~add_multipart( ).
/* ... 已截断，完整代码请查看原文 */
ABAP ABAP 调用HTTP上传附件
查看代码
"-----------------------------@斌将军-----------------------------CALL FUNCTION 'GUI_UPLOAD'    EXPORTING      filename                = lv_file      filetype                = 'BIN'    IMPORTING      filelength              = lv_filelength    TABLES      data_tab                = lt_bin    EXCEPTIONS      file_open_error         = 1      file_read_error         = 2      no_batch                = 3      gui_refuse_filetransfer = 4      invalid_type            = 5      
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
"-----------------------------@斌将军-----------------------------CALL FUNCTION 'GUI_UPLOAD'    EXPORTING      filename                = lv_file      filetype                = 'BIN'    IMPORTING      filelength              = lv_filelength    TABLES      data_tab                = lt_bin    EXCEPTIONS      file_open_error         = 1      file_read_error         = 2      no_batch                = 3      gui_refuse_filetransfer = 4      invalid_type            = 5      
/* ... 已截断，完整代码请查看原文 */
ABAP ABAP 调用HTTP上传附件
查看代码
"-----------------------------@斌将军-----------------------------lv_len = xstrlen( lv_xstring ).
CALL METHOD lo_part->set_data    EXPORTING      data   = lv_xstring      offset = 0      length = lv_len.
"发送  CALL METHOD lo_http_client->send    EXCEPTIONS      http_communication_failure = 1      http_invalid_state         = 2      http_processing_failed     = 3      OTHERS                     = 4.  IF sy-subrc <> 0.    CALL METHOD lo_http_client->get_last_error      I
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
"-----------------------------@斌将军-----------------------------lv_len = xstrlen( lv_xstring ).
CALL METHOD lo_part->set_data    EXPORTING      data   = lv_xstring      offset = 0      length = lv_len.
"发送  CALL METHOD lo_http_client->send    EXCEPTIONS      http_communication_failure = 1      http_invalid_state         = 2      http_processing_failed     = 3      OTHERS                     = 4.  IF sy-subrc <> 0.    CALL METHOD lo_http_client->get_last_error      I
/* ... 已截断，完整代码请查看原文 */
ABAP ABAP 调用HTTP上传附件 
"接收  CALL METHOD lo_http_client->receive    EXCEPTIONS      http_communication_failure = 1      http_invalid_state         = 2      http_processing_failed     = 3      OTHERS                     = 9.  IF sy-subrc <> 0.    CALL METHOD lo_http_client->get_last_error      IMPORTING        message = lv_error_message.    CALL METHOD lo_http_client->close.
查看完整代码 
"接收  CALL METHOD lo_http_client->receive    EXCEPTIONS      http_communication_failure = 1      http_invalid_state         = 2      http_processing_failed     = 3      OTHERS                     = 9.  IF sy-subrc <> 0.    CALL METHOD lo_http_client->get_last_error      IMPORTING        message = lv_error_message.    CALL METHOD lo_http_client->close.
ABAP ABAP 调用HTTP上传附件 
"提取返回字符串  CLEAR:lv_code,lv_reason.  CALL METHOD lo_http_client->response->get_status    IMPORTING      code   = lv_code      reason = lv_reason.
"获取返回的JSON  CLEAR:lv_rec_json.  lv_rec_json = lo_http_client->response->get_cdata( ).
查看完整代码 
"提取返回字符串  CLEAR:lv_code,lv_reason.  CALL METHOD lo_http_client->response->get_status    IMPORTING      code   = lv_code      reason = lv_reason.
"获取返回的JSON  CLEAR:lv_rec_json.  lv_rec_json = lo_http_client->response->get_cdata( ).
ABAP ABAPCL_OBJECT_COLLECTION工具类 
REPORT  ztest_polymorphism  .
查看完整代码 
REPORT  ztest_polymorphism  .
ABAP ABAPCL_OBJECT_COLLECTION工具类 
CLASS  zcl_circle  DEFINITION  .
查看完整代码 
CLASS  zcl_circle  DEFINITION  .
ABAP ABAPCL_OBJECT_COLLECTION工具类 
ENDCLASS  .
查看完整代码 
ENDCLASS  .
ABAP ABAPCL_OBJECT_COLLECTION工具类 
CLASS  zcl_circle  IMPLEMENTATION  .
METHOD  constructor  .
查看完整代码 
CLASS  zcl_circle  IMPLEMENTATION  .
METHOD  constructor  .
ABAP ABAPCL_OBJECT_COLLECTION工具类 
ENDMETHOD  .
METHOD  zif_shape  ~  get_area  .
查看完整代码 
ENDMETHOD  .
METHOD  zif_shape  ~  get_area  .
ABAP ABAPCL_OBJECT_COLLECTION工具类 
ENDMETHOD  .
ENDCLASS  .
查看完整代码 
ENDMETHOD  .
ENDCLASS  .
ABAP ABAPCL_OBJECT_COLLECTION工具类 
CLASS  zcl_rectangle  DEFINITION  .
查看完整代码 
CLASS  zcl_rectangle  DEFINITION  .
ABAP ABAPCL_OBJECT_COLLECTION工具类 
ENDCLASS  .
CLASS  zcl_rectangle  IMPLEMENTATION  .
METHOD  constructor  .
查看完整代码 
ENDCLASS  .
CLASS  zcl_rectangle  IMPLEMENTATION  .
METHOD  constructor  .
ABAP ABAPCL_OBJECT_COLLECTION工具类 
ENDMETHOD  .
METHOD  zif_shape  ~  get_area  .
查看完整代码 
ENDMETHOD  .
METHOD  zif_shape  ~  get_area  .
ABAP ABAPCL_OBJECT_COLLECTION工具类 
ENDMETHOD  .
ENDCLASS  .
查看完整代码 
ENDMETHOD  .
ENDCLASS  .
ABAP ABAPCL_OBJECT_COLLECTION工具类 
CLASS  zcl_triangle  DEFINITION  .
查看完整代码 
CLASS  zcl_triangle  DEFINITION  .
ABAP ABAPCL_OBJECT_COLLECTION工具类 
ENDCLASS  .
查看完整代码 
ENDCLASS  .
ABAP ABAPCL_OBJECT_COLLECTION工具类 
CLASS  zcl_triangle  IMPLEMENTATION  .
METHOD  constructor  .
查看完整代码 
CLASS  zcl_triangle  IMPLEMENTATION  .
METHOD  constructor  .
ABAP ABAPCL_OBJECT_COLLECTION工具类 
ENDMETHOD  .
METHOD  zif_shape  ~  get_area  .
查看完整代码 
ENDMETHOD  .
METHOD  zif_shape  ~  get_area  .
ABAP ABAPCL_OBJECT_COLLECTION工具类 
ENDMETHOD  .
ENDCLASS  .
查看完整代码 
ENDMETHOD  .
ENDCLASS  .
ABAP ABAPCL_OBJECT_COLLECTION工具类 
DATA  (  lo_container  )  =  NEW  cl_object_collection  (  )  .
查看完整代码 
DATA  (  lo_container  )  =  NEW  cl_object_collection  (  )  .
ABAP ABAPCL_OBJECT_COLLECTION工具类 
DATA  (  lo_circle  )  =  NEW  zcl_circle  (  1  )  .
查看完整代码 
DATA  (  lo_circle  )  =  NEW  zcl_circle  (  1  )  .
ABAP ABAPCL_OBJECT_COLLECTION工具类 
DATA  (  lo_rectangle  )  =  NEW  zcl_rectangle  (  iv_width  =  1  iv_height
查看完整代码 
DATA  (  lo_rectangle  )  =  NEW  zcl_rectangle  (  iv_width  =  1  iv_height
ABAP ABAPCL_OBJECT_COLLECTION工具类 
DATA  (  lo_triangle  )  =  NEW  zcl_triangle  (  iv_height  =  2  iv_side  =
查看完整代码 
DATA  (  lo_triangle  )  =  NEW  zcl_triangle  (  iv_height  =  2  iv_side  =
ABAP ABAPCL_OBJECT_COLLECTION工具类 
DATA  (  lo_iterator  )  =  lo_container  -> get_iterator  (  )  .  "获取了一个迭代器
查看完整代码 
DATA  (  lo_iterator  )  =  lo_container  -> get_iterator  (  )  .  "获取了一个迭代器
ABAP ABAPCL_OBJECT_COLLECTION工具类 
DATA  (  lo_shape  )  =  CAST zif_shape  (  lo_iterator  -> get_next  (  )  )
查看完整代码 
DATA  (  lo_shape  )  =  CAST zif_shape  (  lo_iterator  -> get_next  (  )  )
ABAP ABAPCL_OBJECT_COLLECTION工具类 
lv_result  =  lv_result + lo_shape  -> get_area  (  )  .
ENDWHILE  .
查看完整代码 
lv_result  =  lv_result + lo_shape  -> get_area  (  )  .
ENDWHILE  .
ABAP ABAPCL_OBJECT_COLLECTION工具类 
DATA  (  entry  )  =  VALUE  ty_shape  (  shape  =  lo_circle  )  .
APPEND  entry  TO  lt_shape  .
查看完整代码 
DATA  (  entry  )  =  VALUE  ty_shape  (  shape  =  lo_circle  )  .
APPEND  entry  TO  lt_shape  .
ABAP ABAPCL_OBJECT_COLLECTION工具类 
entry  =  VALUE  ty_shape  (  shape  =  lo_rectangle  )  .
APPEND  entry  TO  lt_shape  .
查看完整代码 
entry  =  VALUE  ty_shape  (  shape  =  lo_rectangle  )  .
APPEND  entry  TO  lt_shape  .
ABAP ABAPCL_OBJECT_COLLECTION工具类 
entry  =  VALUE  ty_shape  (  shape  =  lo_iterator  )  .
APPEND  entry  TO  lt_shape  .
查看完整代码 
entry  =  VALUE  ty_shape  (  shape  =  lo_iterator  )  .
APPEND  entry  TO  lt_shape  .
ABAP ABAPCL_OBJECT_COLLECTION工具类 
LOOP  AT  lt_shape  REFERENCE  INTO  DATA  (  lr_shape  )  .
lo_shape  =  CAST zif_shape  (  lr_shape  -> shape  )  .
lv_result  =  lv_result + lo_shape  -> get_area  (  )  .
ENDLOOP  .
查看完整代码 
LOOP  AT  lt_shape  REFERENCE  INTO  DATA  (  lr_shape  )  .
lo_shape  =  CAST zif_shape  (  lr_shape  -> shape  )  .
lv_result  =  lv_result + lo_shape  -> get_area  (  )  .
ENDLOOP  .
ABAP ABAPFIELDSYMBOLS的一个小问题 
END OF  ls_line  .
查看完整代码 
END OF  ls_line  .
ABAP ABAPFIELDSYMBOLS的一个小问题 
IF  <f> IS ASSIGNED  .
查看完整代码 
IF  <f> IS ASSIGNED  .
ABAP ABAPFIELDSYMBOLS的一个小问题 
ENDIF  .
ENDDO  .
查看完整代码 
ENDIF  .
ENDDO  .
ABAP ABAPFIELDSYMBOLS的一个小问题 
IF  <f> IS ASSIGNED  .
查看完整代码 
IF  <f> IS ASSIGNED  .
ABAP ABAPFIELDSYMBOLS的一个小问题 
ENDIF  .
ENDDO  .
查看完整代码 
ENDIF  .
ENDDO  .
ABAP ABAPFIELDSYMBOLS的一个小问题 
IF  sy  \-  subrc  EQ  0  .
查看完整代码 
IF  sy  \-  subrc  EQ  0  .
ABAP ABAPFIELDSYMBOLS的一个小问题 
ENDIF  .
ENDDO  .
查看完整代码 
ENDIF  .
ENDDO  .
ABAP ABAPOOALVcontextmenurequest事件 
CLASS  lcl_dragdropobj  DEFINITION  .
查看完整代码 
CLASS  lcl_dragdropobj  DEFINITION  .
ABAP ABAPOOALVcontextmenurequest事件 
ENDCLASS  .  "lcl_dragdropobj DEFINITION
查看完整代码 
ENDCLASS  .  "lcl_dragdropobj DEFINITION
ABAP ABAPOOALVcontextmenurequest事件 
SELECT  *  FROM  spfli  INTO  CORRESPONDING  FIELDS OF TABLE  gt_spfli  UP TO
查看完整代码 
SELECT  *  FROM  spfli  INTO  CORRESPONDING  FIELDS OF TABLE  gt_spfli  UP TO
ABAP ABAPOOALVcontextmenurequest事件 
IF  gt_spfli  IS NOT INITIAL  .
SELECT  *  FROM  scarr  INTO TABLE  gt_scarr
查看完整代码 
IF  gt_spfli  IS NOT INITIAL  .
SELECT  *  FROM  scarr  INTO TABLE  gt_scarr
ABAP ABAPOOALVcontextmenurequest事件 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAPOOALVcontextmenurequest事件 
LOOP AT  gt_spfli  INTO  gs_spfli  .
查看完整代码 
LOOP AT  gt_spfli  INTO  gs_spfli  .
ABAP ABAPOOALVcontextmenurequest事件 
ls_scol  \-  color  \-  col  =  5  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
查看完整代码 
ls_scol  \-  color  \-  col  =  5  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
ABAP ABAPOOALVcontextmenurequest事件 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  ''  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  ''  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALVcontextmenurequest事件 
ls_scol  \-  color  \-  col  =  6  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
查看完整代码 
ls_scol  \-  color  \-  col  =  6  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
ABAP ABAPOOALVcontextmenurequest事件 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  'X'  .  "避免被Key颜色覆盖
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  'X'  .  "避免被Key颜色覆盖
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALVcontextmenurequest事件 
ls_scol  \-  color  \-  col  =  3  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
查看完整代码 
ls_scol  \-  color  \-  col  =  3  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
ABAP ABAPOOALVcontextmenurequest事件 
ls_scol  \-  fname  =  'COUNTRYFR'  .
ls_scol  \-  nokeycol  =  'X'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  'COUNTRYFR'  .
ls_scol  \-  nokeycol  =  'X'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALVcontextmenurequest事件 
ls_scol  \-  fname  =  'COUNTRYTO'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  'COUNTRYTO'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALVcontextmenurequest事件 
ls_scol  \-  fname  =  'FLTIME'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  'FLTIME'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALVcontextmenurequest事件 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_button  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_button  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALVcontextmenurequest事件 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_hotspot  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_hotspot  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALVcontextmenurequest事件 
ls_styl  \-  fieldname  =  'COUNTRYFR'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_button  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  'COUNTRYFR'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_button  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALVcontextmenurequest事件 
ls_styl  \-  fieldname  =  'COUNTRYTO'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_hotspot  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  'COUNTRYTO'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_hotspot  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALVcontextmenurequest事件 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALVcontextmenurequest事件 
ls_styl  \-  fieldname  =  'COUNTRYFR'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  'COUNTRYFR'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALVcontextmenurequest事件 
ls_styl  \-  fieldname  =  'COUNTRYTO'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  'COUNTRYTO'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALVcontextmenurequest事件 
READ TABLE  gt_scarr  INTO  gs_scarr  WITH KEY  carrid  =  gs_spfli  \-
查看完整代码 
READ TABLE  gt_scarr  INTO  gs_scarr  WITH KEY  carrid  =  gs_spfli  \-
ABAP ABAPOOALVcontextmenurequest事件 
IF  sy  \-  subrc  EQ  0  .
查看完整代码 
IF  sy  \-  subrc  EQ  0  .
ABAP ABAPOOALVcontextmenurequest事件 
APPEND  gs_link  TO  gt_link  .
查看完整代码 
APPEND  gs_link  TO  gt_link  .
ABAP ABAPOOALVcontextmenurequest事件 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAPOOALVcontextmenurequest事件 
MODIFY  gt_spfli  FROM  gs_spfli  .
ENDLOOP  .
查看完整代码 
MODIFY  gt_spfli  FROM  gs_spfli  .
ENDLOOP  .
ABAP ABAPOOALVcontextmenurequest事件 
i_parent  =  cl_gui_container  => default_screen  .
查看完整代码 
i_parent  =  cl_gui_container  => default_screen  .
ABAP ABAPOOALVcontextmenurequest事件 
lv_effect  =  cl_dragdrop  => move  .  " + cl_dragdrop=>copy.
查看完整代码 
lv_effect  =  cl_dragdrop  => move  .  " + cl_dragdrop=>copy.
ABAP ABAPOOALVcontextmenurequest事件 
CALL METHOD  go_dragdrop  -> add
查看完整代码 
CALL METHOD  go_dragdrop  -> add
ABAP ABAPOOALVcontextmenurequest事件 
effect  =  lv_effect  .
查看完整代码 
effect  =  lv_effect  .
ABAP ABAPOOALVcontextmenurequest事件 
CALL METHOD  go_dragdrop  -> get_handle
查看完整代码 
CALL METHOD  go_dragdrop  -> get_handle
ABAP ABAPOOALVcontextmenurequest事件 
handle  =  lv_ddid  .
查看完整代码 
handle  =  lv_ddid  .
ABAP ABAPOOALVcontextmenurequest事件 
gs_layout  \-  s_dragdrop  \-  row_ddid  =  lv_ddid  .
查看完整代码 
gs_layout  \-  s_dragdrop  \-  row_ddid  =  lv_ddid  .
ABAP ABAPOOALVcontextmenurequest事件 
APPEND  gs_sort  TO  gt_sort  .
查看完整代码 
APPEND  gs_sort  TO  gt_sort  .
ABAP ABAPOOALVcontextmenurequest事件 
APPEND  gs_filter  TO  gt_filter  .
查看完整代码 
APPEND  gs_filter  TO  gt_filter  .
ABAP ABAPOOALVcontextmenurequest事件 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
查看完整代码 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
ABAP ABAPOOALVcontextmenurequest事件 
APPEND  gs_qinfo  TO  gt_qinfo  .
查看完整代码 
APPEND  gs_qinfo  TO  gt_qinfo  .
ABAP ABAPOOALVcontextmenurequest事件 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
查看完整代码 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
ABAP ABAPOOALVcontextmenurequest事件 
APPEND  gs_qinfo  TO  gt_qinfo  .
查看完整代码 
APPEND  gs_qinfo  TO  gt_qinfo  .
ABAP ABAPOOALVcontextmenurequest事件 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
查看完整代码 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
ABAP ABAPOOALVcontextmenurequest事件 
APPEND  gs_qinfo  TO  gt_qinfo  .
查看完整代码 
APPEND  gs_qinfo  TO  gt_qinfo  .
ABAP ABAPOOALVcontextmenurequest事件
查看代码
APPEND  cl_gui_alv_grid  => mc_fc_loc_paste_new_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_copy  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_append_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_copy_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_insert_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_delete_row  TO  gt_toolbar_exc  .
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
APPEND  cl_gui_alv_grid  => mc_fc_loc_paste_new_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_copy  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_append_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_copy_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_insert_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_delete_row  TO  gt_toolbar_exc  .
/* ... 已截断，完整代码请查看原文 */
ABAP ABAPOOALVcontextmenurequest事件 
ls_dropval  \-  handle  =  1  .
ls_dropval  \-  value  =  '绿灯'
查看完整代码 
ls_dropval  \-  handle  =  1  .
ls_dropval  \-  value  =  '绿灯'
ABAP ABAPOOALVdatachangeddatachangedfinished事件 
SELECT  *  FROM  spfli  INTO  CORRESPONDING  FIELDS OF TABLE  gt_spfli  UP TO
查看完整代码 
SELECT  *  FROM  spfli  INTO  CORRESPONDING  FIELDS OF TABLE  gt_spfli  UP TO
ABAP ABAPOOALVdatachangeddatachangedfinished事件 
LOOP AT  gt_spfli  INTO  gs_spfli  .
查看完整代码 
LOOP AT  gt_spfli  INTO  gs_spfli  .
ABAP ABAPOOALVdatachangeddatachangedfinished事件 
ls_scol  \-  color  \-  col  =  5  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
查看完整代码 
ls_scol  \-  color  \-  col  =  5  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
ABAP ABAPOOALVdatachangeddatachangedfinished事件 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  ''  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  ''  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALVdatachangeddatachangedfinished事件 
ls_scol  \-  color  \-  col  =  6  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
查看完整代码 
ls_scol  \-  color  \-  col  =  6  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
ABAP ABAPOOALVdatachangeddatachangedfinished事件 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  'X'  .  "避免被Key颜色覆盖
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  'X'  .  "避免被Key颜色覆盖
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALVdatachangeddatachangedfinished事件 
ls_scol  \-  color  \-  col  =  3  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
查看完整代码 
ls_scol  \-  color  \-  col  =  3  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
ABAP ABAPOOALVdatachangeddatachangedfinished事件 
ls_scol  \-  fname  =  'COUNTRYFR'  .
ls_scol  \-  nokeycol  =  'X'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  'COUNTRYFR'  .
ls_scol  \-  nokeycol  =  'X'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALVdatachangeddatachangedfinished事件 
ls_scol  \-  fname  =  'COUNTRYTO'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  'COUNTRYTO'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALVdatachangeddatachangedfinished事件 
ls_scol  \-  fname  =  'FLTIME'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  'FLTIME'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALVdatachangeddatachangedfinished事件 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_button  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_button  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALVdatachangeddatachangedfinished事件 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_hotspot  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_hotspot  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALVdatachangeddatachangedfinished事件 
ls_styl  \-  fieldname  =  'COUNTRYFR'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_button  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  'COUNTRYFR'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_button  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALVdatachangeddatachangedfinished事件 
ls_styl  \-  fieldname  =  'COUNTRYTO'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_hotspot  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  'COUNTRYTO'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_hotspot  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALVdatachangeddatachangedfinished事件 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALVdatachangeddatachangedfinished事件 
ls_styl  \-  fieldname  =  'COUNTRYFR'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  'COUNTRYFR'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALVdatachangeddatachangedfinished事件 
ls_styl  \-  fieldname  =  'COUNTRYTO'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  'COUNTRYTO'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALVdatachangeddatachangedfinished事件 
ENDCASE  .
MODIFY  gt_spfli  FROM  gs_spfli  .
ENDLOOP  .
查看完整代码 
ENDCASE  .
MODIFY  gt_spfli  FROM  gs_spfli  .
ENDLOOP  .
ABAP ABAPOOALVdatachangeddatachangedfinished事件 
i_parent  =  cl_gui_container  => default_screen  .
查看完整代码 
i_parent  =  cl_gui_container  => default_screen  .
ABAP ABAPOOALVdatachangeddatachangedfinished事件 
APPEND  gs_sort  TO  gt_sort  .
查看完整代码 
APPEND  gs_sort  TO  gt_sort  .
ABAP ABAPOOALVdatachangeddatachangedfinished事件 
APPEND  gs_filter  TO  gt_filter  .
查看完整代码 
APPEND  gs_filter  TO  gt_filter  .
ABAP ABAPOOALVdatachangeddatachangedfinished事件 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
查看完整代码 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
ABAP ABAPOOALVdatachangeddatachangedfinished事件 
APPEND  gs_qinfo  TO  gt_qinfo  .
查看完整代码 
APPEND  gs_qinfo  TO  gt_qinfo  .
ABAP ABAPOOALVdatachangeddatachangedfinished事件 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
查看完整代码 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
ABAP ABAPOOALVdatachangeddatachangedfinished事件 
APPEND  gs_qinfo  TO  gt_qinfo  .
查看完整代码 
APPEND  gs_qinfo  TO  gt_qinfo  .
ABAP ABAPOOALVdatachangeddatachangedfinished事件 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
查看完整代码 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
ABAP ABAPOOALVdatachangeddatachangedfinished事件 
APPEND  gs_qinfo  TO  gt_qinfo  .
查看完整代码 
APPEND  gs_qinfo  TO  gt_qinfo  .
ABAP ABAPOOALVdatachangeddatachangedfinished事件
查看代码
APPEND  cl_gui_alv_grid  => mc_fc_loc_paste_new_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_copy  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_append_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_copy_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_insert_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_delete_row  TO  gt_toolbar_exc  .
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
APPEND  cl_gui_alv_grid  => mc_fc_loc_paste_new_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_copy  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_append_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_copy_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_insert_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_delete_row  TO  gt_toolbar_exc  .
/* ... 已截断，完整代码请查看原文 */
ABAP ABAPOOALVdatachangeddatachangedfinished事件 
ls_dropval  \-  handle  =  1  .
ls_dropval  \-  value  =  '绿灯'  .
APPEND  ls_dropval  TO  lt_dropval  .
查看完整代码 
ls_dropval  \-  handle  =  1  .
ls_dropval  \-  value  =  '绿灯'  .
APPEND  ls_dropval  TO  lt_dropval  .
ABAP ABAPOOALVdatachangeddatachangedfinished事件 
ls_dropval  \-  value  =  '红灯'  .
APPEND  ls_dropval  TO  lt_dropval  .
查看完整代码 
ls_dropval  \-  value  =  '红灯'  .
APPEND  ls_dropval  TO  lt_dropval  .
ABAP ABAPOOALVdatachangeddatachangedfinished事件 
ls_dropval  \-  value  =  '黄灯'  .
APPEND  ls_dropval  TO  lt_dropval  .
查看完整代码 
ls_dropval  \-  value  =  '黄灯'  .
APPEND  ls_dropval  TO  lt_dropval  .
ABAP ABAPOOALVdatachangeddatachangedfinished事件 
ls_dropval  \-  value  =  ''  .
APPEND  ls_dropval  TO  lt_dropval  .
查看完整代码 
ls_dropval  \-  value  =  ''  .
APPEND  ls_dropval  TO  lt_dropval  .
ABAP ABAPOOALVdatachangeddatachangedfinished事件 
CALL METHOD  go_alv  -> set_drop_down_table
查看完整代码 
CALL METHOD  go_alv  -> set_drop_down_table
ABAP ABAPOOALVdatachangeddatachangedfinished事件 
it_drop_down  =  lt_dropval  .
查看完整代码 
it_drop_down  =  lt_dropval  .
ABAP ABAPOOALVdatachangeddatachangedfinished事件 
APPEND  gs_f4  TO  gt_f4  .
查看完整代码 
APPEND  gs_f4  TO  gt_f4  .
ABAP ABAPOOALVdatachangeddatachangedfinished事件 
CALL METHOD  go_alv  -> register_f4_for_fields
查看完整代码 
CALL METHOD  go_alv  -> register_f4_for_fields
ABAP ABAPOOALVdatachangeddatachangedfinished事件 
go_alv  -> register_edit_event  (  EXPORTING  i_event_id  =  cl_gui_alv_grid
查看完整代码 
go_alv  -> register_edit_event  (  EXPORTING  i_event_id  =  cl_gui_alv_grid
ABAP ABAPOOALVdatachangeddatachangedfinished事件 
go_alv  -> register_edit_event  (  EXPORTING  i_event_id  =  cl_gui_alv_grid
查看完整代码 
go_alv  -> register_edit_event  (  EXPORTING  i_event_id  =  cl_gui_alv_grid
ABAP ABAPOOALVdatachangeddatachangedfinished事件 
CALL FUNCTION  'LVC_FIELDCATALOG_MERGE'
查看完整代码 
CALL FUNCTION  'LVC_FIELDCATALOG_MERGE'
ABAP ABAPOOALVdatachangeddatachangedfinished事件 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
查看完整代码 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
ABAP ABAPOOALVdatachangeddatachangedfinished事件 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
查看完整代码 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
ABAP ABAPOOALVdatachangeddatachangedfinished事件 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
查看完整代码 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
ABAP ABAPOOALVdatachangeddatachangedfinished事件 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
查看完整代码 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
ABAP ABAPOOALVdatachangeddatachangedfinished事件 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
查看完整代码 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
ABAP ABAPOOALVmenubuttonbuttonclick事件 
SELECT  *  FROM  spfli  INTO  CORRESPONDING  FIELDS OF TABLE  gt_spfli  UP TO
查看完整代码 
SELECT  *  FROM  spfli  INTO  CORRESPONDING  FIELDS OF TABLE  gt_spfli  UP TO
ABAP ABAPOOALVmenubuttonbuttonclick事件 
LOOP AT  gt_spfli  INTO  gs_spfli  .
查看完整代码 
LOOP AT  gt_spfli  INTO  gs_spfli  .
ABAP ABAPOOALVmenubuttonbuttonclick事件 
ls_scol  \-  color  \-  col  =  5  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
查看完整代码 
ls_scol  \-  color  \-  col  =  5  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
ABAP ABAPOOALVmenubuttonbuttonclick事件 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  ''  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  ''  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALVmenubuttonbuttonclick事件 
ls_scol  \-  color  \-  col  =  6  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
查看完整代码 
ls_scol  \-  color  \-  col  =  6  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
ABAP ABAPOOALVmenubuttonbuttonclick事件 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  'X'  .  "避免被Key颜色覆盖
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  'X'  .  "避免被Key颜色覆盖
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALVmenubuttonbuttonclick事件 
ls_scol  \-  color  \-  col  =  3  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
查看完整代码 
ls_scol  \-  color  \-  col  =  3  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
ABAP ABAPOOALVmenubuttonbuttonclick事件 
ls_scol  \-  fname  =  'COUNTRYFR'  .
ls_scol  \-  nokeycol  =  'X'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  'COUNTRYFR'  .
ls_scol  \-  nokeycol  =  'X'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALVmenubuttonbuttonclick事件 
ls_scol  \-  fname  =  'COUNTRYTO'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  'COUNTRYTO'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALVmenubuttonbuttonclick事件 
ls_scol  \-  fname  =  'FLTIME'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  'FLTIME'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALVmenubuttonbuttonclick事件 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_button  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_button  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALVmenubuttonbuttonclick事件 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_hotspot  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_hotspot  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALVmenubuttonbuttonclick事件 
ls_styl  \-  fieldname  =  'COUNTRYFR'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_button  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  'COUNTRYFR'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_button  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALVmenubuttonbuttonclick事件 
ls_styl  \-  fieldname  =  'COUNTRYTO'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_hotspot  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  'COUNTRYTO'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_hotspot  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALVmenubuttonbuttonclick事件 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALVmenubuttonbuttonclick事件 
ls_styl  \-  fieldname  =  'COUNTRYFR'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  'COUNTRYFR'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALVmenubuttonbuttonclick事件 
ls_styl  \-  fieldname  =  'COUNTRYTO'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  'COUNTRYTO'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALVmenubuttonbuttonclick事件 
ENDCASE  .
MODIFY  gt_spfli  FROM  gs_spfli  .
ENDLOOP  .
查看完整代码 
ENDCASE  .
MODIFY  gt_spfli  FROM  gs_spfli  .
ENDLOOP  .
ABAP ABAPOOALVmenubuttonbuttonclick事件 
i_parent  =  cl_gui_container  => default_screen  .
查看完整代码 
i_parent  =  cl_gui_container  => default_screen  .
ABAP ABAPOOALVmenubuttonbuttonclick事件 
APPEND  gs_sort  TO  gt_sort  .
查看完整代码 
APPEND  gs_sort  TO  gt_sort  .
ABAP ABAPOOALVmenubuttonbuttonclick事件 
APPEND  gs_filter  TO  gt_filter  .
查看完整代码 
APPEND  gs_filter  TO  gt_filter  .
ABAP ABAPOOALVmenubuttonbuttonclick事件 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
查看完整代码 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
ABAP ABAPOOALVmenubuttonbuttonclick事件 
APPEND  gs_qinfo  TO  gt_qinfo  .
查看完整代码 
APPEND  gs_qinfo  TO  gt_qinfo  .
ABAP ABAPOOALVmenubuttonbuttonclick事件 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
查看完整代码 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
ABAP ABAPOOALVmenubuttonbuttonclick事件 
APPEND  gs_qinfo  TO  gt_qinfo  .
查看完整代码 
APPEND  gs_qinfo  TO  gt_qinfo  .
ABAP ABAPOOALVmenubuttonbuttonclick事件 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
查看完整代码 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
ABAP ABAPOOALVmenubuttonbuttonclick事件 
APPEND  gs_qinfo  TO  gt_qinfo  .
查看完整代码 
APPEND  gs_qinfo  TO  gt_qinfo  .
ABAP ABAPOOALVmenubuttonbuttonclick事件
查看代码
APPEND  cl_gui_alv_grid  => mc_fc_loc_paste_new_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_copy  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_append_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_copy_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_insert_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_delete_row  TO  gt_toolbar_exc  .
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
APPEND  cl_gui_alv_grid  => mc_fc_loc_paste_new_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_copy  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_append_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_copy_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_insert_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_delete_row  TO  gt_toolbar_exc  .
/* ... 已截断，完整代码请查看原文 */
ABAP ABAPOOALVmenubuttonbuttonclick事件 
ls_dropval  \-  handle  =  1  .
ls_dropval  \-  value  =  '绿灯'  .
APPEND  ls_dropval  TO  lt_dropval  .
查看完整代码 
ls_dropval  \-  handle  =  1  .
ls_dropval  \-  value  =  '绿灯'  .
APPEND  ls_dropval  TO  lt_dropval  .
ABAP ABAPOOALVmenubuttonbuttonclick事件 
ls_dropval  \-  value  =  '红灯'  .
APPEND  ls_dropval  TO  lt_dropval  .
查看完整代码 
ls_dropval  \-  value  =  '红灯'  .
APPEND  ls_dropval  TO  lt_dropval  .
ABAP ABAPOOALVmenubuttonbuttonclick事件 
ls_dropval  \-  value  =  '黄灯'  .
APPEND  ls_dropval  TO  lt_dropval  .
查看完整代码 
ls_dropval  \-  value  =  '黄灯'  .
APPEND  ls_dropval  TO  lt_dropval  .
ABAP ABAPOOALVmenubuttonbuttonclick事件 
ls_dropval  \-  value  =  ''  .
APPEND  ls_dropval  TO  lt_dropval  .
查看完整代码 
ls_dropval  \-  value  =  ''  .
APPEND  ls_dropval  TO  lt_dropval  .
ABAP ABAPOOALVmenubuttonbuttonclick事件 
CALL METHOD  go_alv  -> set_drop_down_table
查看完整代码 
CALL METHOD  go_alv  -> set_drop_down_table
ABAP ABAPOOALVmenubuttonbuttonclick事件 
it_drop_down  =  lt_dropval  .
查看完整代码 
it_drop_down  =  lt_dropval  .
ABAP ABAPOOALVmenubuttonbuttonclick事件 
APPEND  gs_f4  TO  gt_f4  .
查看完整代码 
APPEND  gs_f4  TO  gt_f4  .
ABAP ABAPOOALVmenubuttonbuttonclick事件 
CALL METHOD  go_alv  -> register_f4_for_fields
查看完整代码 
CALL METHOD  go_alv  -> register_f4_for_fields
ABAP ABAPOOALVmenubuttonbuttonclick事件 
go_alv  -> register_edit_event  (  EXPORTING  i_event_id  =  cl_gui_alv_grid
查看完整代码 
go_alv  -> register_edit_event  (  EXPORTING  i_event_id  =  cl_gui_alv_grid
ABAP ABAPOOALVmenubuttonbuttonclick事件 
go_alv  -> register_edit_event  (  EXPORTING  i_event_id  =  cl_gui_alv_grid
查看完整代码 
go_alv  -> register_edit_event  (  EXPORTING  i_event_id  =  cl_gui_alv_grid
ABAP ABAPOOALVmenubuttonbuttonclick事件 
CALL FUNCTION  'LVC_FIELDCATALOG_MERGE'
查看完整代码 
CALL FUNCTION  'LVC_FIELDCATALOG_MERGE'
ABAP ABAPOOALVmenubuttonbuttonclick事件 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
查看完整代码 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
ABAP ABAPOOALVmenubuttonbuttonclick事件 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
查看完整代码 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
ABAP ABAPOOALVmenubuttonbuttonclick事件 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
查看完整代码 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
ABAP ABAPOOALVmenubuttonbuttonclick事件 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
查看完整代码 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
ABAP ABAPOOALVondragondrop事件 
CLASS  lcl_dragdropobj  DEFINITION  .
查看完整代码 
CLASS  lcl_dragdropobj  DEFINITION  .
ABAP ABAPOOALVondragondrop事件 
ENDCLASS  .  "lcl_dragdropobj DEFINITION
查看完整代码 
ENDCLASS  .  "lcl_dragdropobj DEFINITION
ABAP ABAPOOALVondragondrop事件 
SELECT  *  FROM  spfli  INTO  CORRESPONDING  FIELDS OF TABLE  gt_spfli  UP TO
查看完整代码 
SELECT  *  FROM  spfli  INTO  CORRESPONDING  FIELDS OF TABLE  gt_spfli  UP TO
ABAP ABAPOOALVondragondrop事件 
IF  gt_spfli  IS NOT INITIAL  .
SELECT  *  FROM  scarr  INTO TABLE  gt_scarr
查看完整代码 
IF  gt_spfli  IS NOT INITIAL  .
SELECT  *  FROM  scarr  INTO TABLE  gt_scarr
ABAP ABAPOOALVondragondrop事件 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAPOOALVondragondrop事件 
LOOP AT  gt_spfli  INTO  gs_spfli  .
查看完整代码 
LOOP AT  gt_spfli  INTO  gs_spfli  .
ABAP ABAPOOALVondragondrop事件 
ls_scol  \-  color  \-  col  =  5  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
查看完整代码 
ls_scol  \-  color  \-  col  =  5  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
ABAP ABAPOOALVondragondrop事件 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  ''  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  ''  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALVondragondrop事件 
ls_scol  \-  color  \-  col  =  6  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
查看完整代码 
ls_scol  \-  color  \-  col  =  6  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
ABAP ABAPOOALVondragondrop事件 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  'X'  .  "避免被Key颜色覆盖
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  'X'  .  "避免被Key颜色覆盖
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALVondragondrop事件 
ls_scol  \-  color  \-  col  =  3  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
查看完整代码 
ls_scol  \-  color  \-  col  =  3  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
ABAP ABAPOOALVondragondrop事件 
ls_scol  \-  fname  =  'COUNTRYFR'  .
ls_scol  \-  nokeycol  =  'X'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  'COUNTRYFR'  .
ls_scol  \-  nokeycol  =  'X'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALVondragondrop事件 
ls_scol  \-  fname  =  'COUNTRYTO'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  'COUNTRYTO'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALVondragondrop事件 
ls_scol  \-  fname  =  'FLTIME'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  'FLTIME'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALVondragondrop事件 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_button  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_button  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALVondragondrop事件 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_hotspot  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_hotspot  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALVondragondrop事件 
ls_styl  \-  fieldname  =  'COUNTRYFR'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_button  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  'COUNTRYFR'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_button  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALVondragondrop事件 
ls_styl  \-  fieldname  =  'COUNTRYTO'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_hotspot  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  'COUNTRYTO'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_hotspot  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALVondragondrop事件 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALVondragondrop事件 
ls_styl  \-  fieldname  =  'COUNTRYFR'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  'COUNTRYFR'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALVondragondrop事件 
ls_styl  \-  fieldname  =  'COUNTRYTO'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  'COUNTRYTO'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALVondragondrop事件 
READ TABLE  gt_scarr  INTO  gs_scarr  WITH KEY  carrid  =  gs_spfli  \-
查看完整代码 
READ TABLE  gt_scarr  INTO  gs_scarr  WITH KEY  carrid  =  gs_spfli  \-
ABAP ABAPOOALVondragondrop事件 
IF  sy  \-  subrc  EQ  0  .
查看完整代码 
IF  sy  \-  subrc  EQ  0  .
ABAP ABAPOOALVondragondrop事件 
APPEND  gs_link  TO  gt_link  .
查看完整代码 
APPEND  gs_link  TO  gt_link  .
ABAP ABAPOOALVondragondrop事件 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAPOOALVondragondrop事件 
MODIFY  gt_spfli  FROM  gs_spfli  .
ENDLOOP  .
查看完整代码 
MODIFY  gt_spfli  FROM  gs_spfli  .
ENDLOOP  .
ABAP ABAPOOALVondragondrop事件 
i_parent  =  cl_gui_container  => default_screen  .
查看完整代码 
i_parent  =  cl_gui_container  => default_screen  .
ABAP ABAPOOALVondragondrop事件 
lv_effect  =  cl_dragdrop  => move  .  " + cl_dragdrop=>copy.
查看完整代码 
lv_effect  =  cl_dragdrop  => move  .  " + cl_dragdrop=>copy.
ABAP ABAPOOALVondragondrop事件 
CALL METHOD  go_dragdrop  -> add
查看完整代码 
CALL METHOD  go_dragdrop  -> add
ABAP ABAPOOALVondragondrop事件 
effect  =  lv_effect  .
查看完整代码 
effect  =  lv_effect  .
ABAP ABAPOOALVondragondrop事件 
CALL METHOD  go_dragdrop  -> get_handle
查看完整代码 
CALL METHOD  go_dragdrop  -> get_handle
ABAP ABAPOOALVondragondrop事件 
handle  =  lv_ddid  .
查看完整代码 
handle  =  lv_ddid  .
ABAP ABAPOOALVondragondrop事件 
gs_layout  \-  s_dragdrop  \-  row_ddid  =  lv_ddid  .
查看完整代码 
gs_layout  \-  s_dragdrop  \-  row_ddid  =  lv_ddid  .
ABAP ABAPOOALVondragondrop事件 
APPEND  gs_sort  TO  gt_sort  .
查看完整代码 
APPEND  gs_sort  TO  gt_sort  .
ABAP ABAPOOALVondragondrop事件 
APPEND  gs_filter  TO  gt_filter  .
查看完整代码 
APPEND  gs_filter  TO  gt_filter  .
ABAP ABAPOOALVondragondrop事件 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
查看完整代码 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
ABAP ABAPOOALVondragondrop事件 
APPEND  gs_qinfo  TO  gt_qinfo  .
查看完整代码 
APPEND  gs_qinfo  TO  gt_qinfo  .
ABAP ABAPOOALVondragondrop事件 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
查看完整代码 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
ABAP ABAPOOALVondragondrop事件 
APPEND  gs_qinfo  TO  gt_qinfo  .
查看完整代码 
APPEND  gs_qinfo  TO  gt_qinfo  .
ABAP ABAPOOALVondragondrop事件 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
查看完整代码 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
ABAP ABAPOOALVondragondrop事件 
APPEND  gs_qinfo  TO  gt_qinfo  .
查看完整代码 
APPEND  gs_qinfo  TO  gt_qinfo  .
ABAP ABAPOOALVondragondrop事件 
APPEND  cl_gui_alv_grid  => mc_fc_loc_paste_new_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_copy  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_append_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_copy_
查看完整代码 
APPEND  cl_gui_alv_grid  => mc_fc_loc_paste_new_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_copy  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_append_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_copy_
ABAP ABAPOOALV下拉列表 
SELECT  *  FROM  spfli  INTO  CORRESPONDING  FIELDS OF TABLE  gt_spfli  UP TO
查看完整代码 
SELECT  *  FROM  spfli  INTO  CORRESPONDING  FIELDS OF TABLE  gt_spfli  UP TO
ABAP ABAPOOALV下拉列表 
LOOP AT  gt_spfli  INTO  gs_spfli  .
查看完整代码 
LOOP AT  gt_spfli  INTO  gs_spfli  .
ABAP ABAPOOALV下拉列表 
ls_scol  \-  color  \-  col  =  5  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
查看完整代码 
ls_scol  \-  color  \-  col  =  5  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
ABAP ABAPOOALV下拉列表 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  ''  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  ''  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALV下拉列表 
ls_scol  \-  color  \-  col  =  6  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
查看完整代码 
ls_scol  \-  color  \-  col  =  6  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
ABAP ABAPOOALV下拉列表 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  'X'  .  "避免被Key颜色覆盖
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  'X'  .  "避免被Key颜色覆盖
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALV下拉列表 
ls_scol  \-  color  \-  col  =  3  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
查看完整代码 
ls_scol  \-  color  \-  col  =  3  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
ABAP ABAPOOALV下拉列表 
ls_scol  \-  fname  =  'COUNTRYFR'  .
ls_scol  \-  nokeycol  =  'X'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  'COUNTRYFR'  .
ls_scol  \-  nokeycol  =  'X'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALV下拉列表 
ls_scol  \-  fname  =  'COUNTRYTO'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  'COUNTRYTO'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALV下拉列表 
ls_scol  \-  fname  =  'FLTIME'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  'FLTIME'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALV下拉列表 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_button  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_button  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALV下拉列表 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_hotspot  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_hotspot  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALV下拉列表 
ls_styl  \-  fieldname  =  'COUNTRYFR'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_button  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  'COUNTRYFR'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_button  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALV下拉列表 
ls_styl  \-  fieldname  =  'COUNTRYTO'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_hotspot  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  'COUNTRYTO'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_hotspot  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALV下拉列表 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALV下拉列表 
ls_styl  \-  fieldname  =  'COUNTRYFR'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  'COUNTRYFR'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALV下拉列表 
ls_styl  \-  fieldname  =  'COUNTRYTO'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  'COUNTRYTO'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALV下拉列表 
ENDCASE  .
MODIFY  gt_spfli  FROM  gs_spfli  .
ENDLOOP  .
查看完整代码 
ENDCASE  .
MODIFY  gt_spfli  FROM  gs_spfli  .
ENDLOOP  .
ABAP ABAPOOALV下拉列表 
i_parent  =  cl_gui_container  => default_screen  .
查看完整代码 
i_parent  =  cl_gui_container  => default_screen  .
ABAP ABAPOOALV下拉列表 
APPEND  gs_sort  TO  gt_sort  .
查看完整代码 
APPEND  gs_sort  TO  gt_sort  .
ABAP ABAPOOALV下拉列表 
APPEND  gs_filter  TO  gt_filter  .
查看完整代码 
APPEND  gs_filter  TO  gt_filter  .
ABAP ABAPOOALV下拉列表 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
查看完整代码 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
ABAP ABAPOOALV下拉列表 
APPEND  gs_qinfo  TO  gt_qinfo  .
查看完整代码 
APPEND  gs_qinfo  TO  gt_qinfo  .
ABAP ABAPOOALV下拉列表 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
查看完整代码 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
ABAP ABAPOOALV下拉列表 
APPEND  gs_qinfo  TO  gt_qinfo  .
查看完整代码 
APPEND  gs_qinfo  TO  gt_qinfo  .
ABAP ABAPOOALV下拉列表 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
查看完整代码 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
ABAP ABAPOOALV下拉列表 
APPEND  gs_qinfo  TO  gt_qinfo  .
查看完整代码 
APPEND  gs_qinfo  TO  gt_qinfo  .
ABAP ABAPOOALV下拉列表
查看代码
APPEND  cl_gui_alv_grid  => mc_fc_loc_paste_new_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_copy  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_append_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_copy_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_insert_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_delete_row  TO  gt_toolbar_exc  .
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
APPEND  cl_gui_alv_grid  => mc_fc_loc_paste_new_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_copy  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_append_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_copy_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_insert_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_delete_row  TO  gt_toolbar_exc  .
/* ... 已截断，完整代码请查看原文 */
ABAP ABAPOOALV下拉列表 
ls_dropval  \-  handle  =  1  .
ls_dropval  \-  value  =  '绿灯'  .
APPEND  ls_dropval  TO  lt_dropval  .
查看完整代码 
ls_dropval  \-  handle  =  1  .
ls_dropval  \-  value  =  '绿灯'  .
APPEND  ls_dropval  TO  lt_dropval  .
ABAP ABAPOOALV下拉列表 
ls_dropval  \-  value  =  '红灯'  .
APPEND  ls_dropval  TO  lt_dropval  .
查看完整代码 
ls_dropval  \-  value  =  '红灯'  .
APPEND  ls_dropval  TO  lt_dropval  .
ABAP ABAPOOALV下拉列表 
ls_dropval  \-  value  =  '黄灯'  .
APPEND  ls_dropval  TO  lt_dropval  .
查看完整代码 
ls_dropval  \-  value  =  '黄灯'  .
APPEND  ls_dropval  TO  lt_dropval  .
ABAP ABAPOOALV下拉列表 
ls_dropval  \-  value  =  ''  .
APPEND  ls_dropval  TO  lt_dropval  .
查看完整代码 
ls_dropval  \-  value  =  ''  .
APPEND  ls_dropval  TO  lt_dropval  .
ABAP ABAPOOALV下拉列表 
CALL METHOD  go_alv  -> set_drop_down_table
查看完整代码 
CALL METHOD  go_alv  -> set_drop_down_table
ABAP ABAPOOALV下拉列表 
it_drop_down  =  lt_dropval  .
查看完整代码 
it_drop_down  =  lt_dropval  .
ABAP ABAPOOALV下拉列表 
CALL FUNCTION  'LVC_FIELDCATALOG_MERGE'
查看完整代码 
CALL FUNCTION  'LVC_FIELDCATALOG_MERGE'
ABAP ABAPOOALV下拉列表 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
查看完整代码 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
ABAP ABAPOOALV下拉列表 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
查看完整代码 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
ABAP ABAPOOALV下拉列表 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
查看完整代码 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
ABAP ABAPOOALV下拉列表 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
查看完整代码 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
ABAP ABAPOOALV下拉列表 
LOOP AT  gt_fieldcat  ASSIGNING  <fcat> .
查看完整代码 
LOOP AT  gt_fieldcat  ASSIGNING  <fcat> .
ABAP ABAPOOALV可编辑列行单元格 
SELECT  *  FROM  spfli  INTO  CORRESPONDING  FIELDS OF TABLE  gt_spfli  UP TO
查看完整代码 
SELECT  *  FROM  spfli  INTO  CORRESPONDING  FIELDS OF TABLE  gt_spfli  UP TO
ABAP ABAPOOALV可编辑列行单元格 
LOOP AT  gt_spfli  INTO  gs_spfli  .
查看完整代码 
LOOP AT  gt_spfli  INTO  gs_spfli  .
ABAP ABAPOOALV可编辑列行单元格 
ls_scol  \-  color  \-  col  =  5  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
查看完整代码 
ls_scol  \-  color  \-  col  =  5  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
ABAP ABAPOOALV可编辑列行单元格 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  ''  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  ''  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALV可编辑列行单元格 
ls_scol  \-  color  \-  col  =  6  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
查看完整代码 
ls_scol  \-  color  \-  col  =  6  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
ABAP ABAPOOALV可编辑列行单元格 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  'X'  .  "避免被Key颜色覆盖
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  'X'  .  "避免被Key颜色覆盖
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALV可编辑列行单元格 
ls_scol  \-  color  \-  col  =  3  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
查看完整代码 
ls_scol  \-  color  \-  col  =  3  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
ABAP ABAPOOALV可编辑列行单元格 
ls_scol  \-  fname  =  'COUNTRYFR'  .
ls_scol  \-  nokeycol  =  'X'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  'COUNTRYFR'  .
ls_scol  \-  nokeycol  =  'X'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALV可编辑列行单元格 
ls_scol  \-  fname  =  'COUNTRYTO'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  'COUNTRYTO'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALV可编辑列行单元格 
ls_scol  \-  fname  =  'FLTIME'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  'FLTIME'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALV可编辑列行单元格 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_button  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_button  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALV可编辑列行单元格 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_hotspot  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_hotspot  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALV可编辑列行单元格 
ls_styl  \-  fieldname  =  'COUNTRYFR'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_button  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  'COUNTRYFR'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_button  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALV可编辑列行单元格 
ls_styl  \-  fieldname  =  'COUNTRYTO'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_hotspot  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  'COUNTRYTO'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_hotspot  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALV可编辑列行单元格 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALV可编辑列行单元格 
ls_styl  \-  fieldname  =  'COUNTRYFR'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  'COUNTRYFR'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALV可编辑列行单元格 
ls_styl  \-  fieldname  =  'COUNTRYTO'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  'COUNTRYTO'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALV可编辑列行单元格 
ENDCASE  .
MODIFY  gt_spfli  FROM  gs_spfli  .
ENDLOOP  .
查看完整代码 
ENDCASE  .
MODIFY  gt_spfli  FROM  gs_spfli  .
ENDLOOP  .
ABAP ABAPOOALV可编辑列行单元格 
i_parent  =  cl_gui_container  => default_screen  .
查看完整代码 
i_parent  =  cl_gui_container  => default_screen  .
ABAP ABAPOOALV可编辑列行单元格 
APPEND  gs_sort  TO  gt_sort  .
查看完整代码 
APPEND  gs_sort  TO  gt_sort  .
ABAP ABAPOOALV可编辑列行单元格 
APPEND  gs_filter  TO  gt_filter  .
查看完整代码 
APPEND  gs_filter  TO  gt_filter  .
ABAP ABAPOOALV可编辑列行单元格 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
查看完整代码 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
ABAP ABAPOOALV可编辑列行单元格 
APPEND  gs_qinfo  TO  gt_qinfo  .
查看完整代码 
APPEND  gs_qinfo  TO  gt_qinfo  .
ABAP ABAPOOALV可编辑列行单元格 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
查看完整代码 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
ABAP ABAPOOALV可编辑列行单元格 
APPEND  gs_qinfo  TO  gt_qinfo  .
查看完整代码 
APPEND  gs_qinfo  TO  gt_qinfo  .
ABAP ABAPOOALV可编辑列行单元格 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
查看完整代码 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
ABAP ABAPOOALV可编辑列行单元格 
APPEND  gs_qinfo  TO  gt_qinfo  .
查看完整代码 
APPEND  gs_qinfo  TO  gt_qinfo  .
ABAP ABAPOOALV可编辑列行单元格
查看代码
APPEND  cl_gui_alv_grid  => mc_fc_loc_paste_new_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_copy  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_append_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_copy_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_insert_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_delete_row  TO  gt_toolbar_exc  .
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
APPEND  cl_gui_alv_grid  => mc_fc_loc_paste_new_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_copy  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_append_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_copy_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_insert_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_delete_row  TO  gt_toolbar_exc  .
/* ... 已截断，完整代码请查看原文 */
ABAP ABAPOOALV可编辑列行单元格 
CALL FUNCTION  'LVC_FIELDCATALOG_MERGE'
查看完整代码 
CALL FUNCTION  'LVC_FIELDCATALOG_MERGE'
ABAP ABAPOOALV可编辑列行单元格 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
查看完整代码 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
ABAP ABAPOOALV可编辑列行单元格 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
查看完整代码 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
ABAP ABAPOOALV可编辑列行单元格 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
查看完整代码 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
ABAP ABAPOOALV可编辑列行单元格 
LOOP AT  gt_fieldcat  ASSIGNING  <fcat> .
查看完整代码 
LOOP AT  gt_fieldcat  ASSIGNING  <fcat> .
ABAP ABAPOOALV可编辑列行单元格 
<fcat> \-  style  =  cl_gui_alv_grid  => mc_style_button  .
查看完整代码 
<fcat> \-  style  =  cl_gui_alv_grid  => mc_style_button  .
ABAP ABAPOOALV可编辑列行单元格 
ENDCASE  .
ENDLOOP  .
查看完整代码 
ENDCASE  .
ENDLOOP  .
ABAP ABAPOOALV可编辑列行单元格 
CALL METHOD  go_alv  -> set_table_for_first_display
查看完整代码 
CALL METHOD  go_alv  -> set_table_for_first_display
ABAP ABAPOOALV合计小计 
REPORT  zooalv_demo  NO STANDARD PAGE  HEADING  .
查看完整代码 
REPORT  zooalv_demo  NO STANDARD PAGE  HEADING  .
ABAP ABAPOOALV合计小计 
SELECT  *  FROM  spfli  INTO TABLE  gt_spfli  UP TO  30  ROWS  .
查看完整代码 
SELECT  *  FROM  spfli  INTO TABLE  gt_spfli  UP TO  30  ROWS  .
ABAP ABAPOOALV合计小计 
i_parent  =  cl_gui_container  => default_screen  .
查看完整代码 
i_parent  =  cl_gui_container  => default_screen  .
ABAP ABAPOOALV合计小计 
APPEND  gs_sort  TO  gt_sort  .
查看完整代码 
APPEND  gs_sort  TO  gt_sort  .
ABAP ABAPOOALV合计小计 
APPEND  gs_filter  TO  gt_filter  .
查看完整代码 
APPEND  gs_filter  TO  gt_filter  .
ABAP ABAPOOALV合计小计 
CALL FUNCTION  'LVC_FIELDCATALOG_MERGE'
查看完整代码 
CALL FUNCTION  'LVC_FIELDCATALOG_MERGE'
ABAP ABAPOOALV合计小计 
LOOP AT  gt_fieldcat  ASSIGNING  <fcat> .
查看完整代码 
LOOP AT  gt_fieldcat  ASSIGNING  <fcat> .
ABAP ABAPOOALV合计小计 
ENDCASE  .
ENDLOOP  .
查看完整代码 
ENDCASE  .
ENDLOOP  .
ABAP ABAPOOALV合计小计 
CALL METHOD  go_alv  -> set_table_for_first_display
查看完整代码 
CALL METHOD  go_alv  -> set_table_for_first_display
ABAP ABAPOOALV固定列鼠标悬停文本 
SELECT  *  FROM  spfli  INTO TABLE  gt_spfli  UP TO  30  ROWS  .
查看完整代码 
SELECT  *  FROM  spfli  INTO TABLE  gt_spfli  UP TO  30  ROWS  .
ABAP ABAPOOALV固定列鼠标悬停文本 
LOOP AT  gt_spfli  INTO  gs_spfli  .
查看完整代码 
LOOP AT  gt_spfli  INTO  gs_spfli  .
ABAP ABAPOOALV固定列鼠标悬停文本 
ENDCASE  .
MODIFY  gt_spfli  FROM  gs_spfli  .
ENDLOOP  .
查看完整代码 
ENDCASE  .
MODIFY  gt_spfli  FROM  gs_spfli  .
ENDLOOP  .
ABAP ABAPOOALV固定列鼠标悬停文本 
i_parent  =  cl_gui_container  => default_screen  .
查看完整代码 
i_parent  =  cl_gui_container  => default_screen  .
ABAP ABAPOOALV固定列鼠标悬停文本 
APPEND  gs_sort  TO  gt_sort  .
查看完整代码 
APPEND  gs_sort  TO  gt_sort  .
ABAP ABAPOOALV固定列鼠标悬停文本 
APPEND  gs_filter  TO  gt_filter  .
查看完整代码 
APPEND  gs_filter  TO  gt_filter  .
ABAP ABAPOOALV固定列鼠标悬停文本 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
查看完整代码 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
ABAP ABAPOOALV固定列鼠标悬停文本 
APPEND  gs_qinfo  TO  gt_qinfo  .
查看完整代码 
APPEND  gs_qinfo  TO  gt_qinfo  .
ABAP ABAPOOALV固定列鼠标悬停文本 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
查看完整代码 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
ABAP ABAPOOALV固定列鼠标悬停文本 
APPEND  gs_qinfo  TO  gt_qinfo  .
查看完整代码 
APPEND  gs_qinfo  TO  gt_qinfo  .
ABAP ABAPOOALV固定列鼠标悬停文本 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
查看完整代码 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
ABAP ABAPOOALV固定列鼠标悬停文本 
APPEND  gs_qinfo  TO  gt_qinfo  .
查看完整代码 
APPEND  gs_qinfo  TO  gt_qinfo  .
ABAP ABAPOOALV固定列鼠标悬停文本 
CALL FUNCTION  'LVC_FIELDCATALOG_MERGE'
查看完整代码 
CALL FUNCTION  'LVC_FIELDCATALOG_MERGE'
ABAP ABAPOOALV固定列鼠标悬停文本 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
查看完整代码 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
ABAP ABAPOOALV固定列鼠标悬停文本 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
查看完整代码 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
ABAP ABAPOOALV固定列鼠标悬停文本 
LOOP AT  gt_fieldcat  ASSIGNING  <fcat> .
查看完整代码 
LOOP AT  gt_fieldcat  ASSIGNING  <fcat> .
ABAP ABAPOOALV固定列鼠标悬停文本 
ENDCASE  .
ENDLOOP  .
查看完整代码 
ENDCASE  .
ENDLOOP  .
ABAP ABAPOOALV固定列鼠标悬停文本 
CALL METHOD  go_alv  -> set_table_for_first_display
查看完整代码 
CALL METHOD  go_alv  -> set_table_for_first_display
ABAP ABAPOOALV基本显示 
SELECT  *  FROM  spfli  INTO TABLE  gt_spfli  UP TO  30  ROWS  .
查看完整代码 
SELECT  *  FROM  spfli  INTO TABLE  gt_spfli  UP TO  30  ROWS  .
ABAP ABAPOOALV基本显示 
i_parent  =  cl_gui_container  => default_screen  . "默认屏幕
查看完整代码 
i_parent  =  cl_gui_container  => default_screen  . "默认屏幕
ABAP ABAPOOALV基本显示 
CALL METHOD  go_alv  -> set_table_for_first_display
查看完整代码 
CALL METHOD  go_alv  -> set_table_for_first_display
ABAP ABAPOOALV布局刷新 
CLASS  lcl_dragdropobj  DEFINITION  .
查看完整代码 
CLASS  lcl_dragdropobj  DEFINITION  .
ABAP ABAPOOALV布局刷新 
ENDCLASS  .  "lcl_dragdropobj DEFINITION
查看完整代码 
ENDCLASS  .  "lcl_dragdropobj DEFINITION
ABAP ABAPOOALV布局刷新 
SELECT  *  FROM  spfli  INTO  CORRESPONDING  FIELDS OF TABLE  gt_spfli  UP TO
查看完整代码 
SELECT  *  FROM  spfli  INTO  CORRESPONDING  FIELDS OF TABLE  gt_spfli  UP TO
ABAP ABAPOOALV布局刷新 
IF  gt_spfli  IS NOT INITIAL  .
SELECT  *  FROM  scarr  INTO TABLE  gt_scarr
查看完整代码 
IF  gt_spfli  IS NOT INITIAL  .
SELECT  *  FROM  scarr  INTO TABLE  gt_scarr
ABAP ABAPOOALV布局刷新 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAPOOALV布局刷新 
LOOP AT  gt_spfli  INTO  gs_spfli  .
查看完整代码 
LOOP AT  gt_spfli  INTO  gs_spfli  .
ABAP ABAPOOALV布局刷新 
ls_scol  \-  color  \-  col  =  5  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
查看完整代码 
ls_scol  \-  color  \-  col  =  5  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
ABAP ABAPOOALV布局刷新 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  ''  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  ''  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALV布局刷新 
ls_scol  \-  color  \-  col  =  6  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
查看完整代码 
ls_scol  \-  color  \-  col  =  6  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
ABAP ABAPOOALV布局刷新 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  'X'  .  "避免被Key颜色覆盖
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  'X'  .  "避免被Key颜色覆盖
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALV布局刷新 
ls_scol  \-  color  \-  col  =  3  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
查看完整代码 
ls_scol  \-  color  \-  col  =  3  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
ABAP ABAPOOALV布局刷新 
ls_scol  \-  fname  =  'COUNTRYFR'  .
ls_scol  \-  nokeycol  =  'X'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  'COUNTRYFR'  .
ls_scol  \-  nokeycol  =  'X'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALV布局刷新 
ls_scol  \-  fname  =  'COUNTRYTO'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  'COUNTRYTO'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALV布局刷新 
ls_scol  \-  fname  =  'FLTIME'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  'FLTIME'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALV布局刷新 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_button  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_button  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALV布局刷新 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_hotspot  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_hotspot  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALV布局刷新 
ls_styl  \-  fieldname  =  'COUNTRYFR'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_button  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  'COUNTRYFR'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_button  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALV布局刷新 
ls_styl  \-  fieldname  =  'COUNTRYTO'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_hotspot  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  'COUNTRYTO'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_hotspot  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALV布局刷新 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALV布局刷新 
ls_styl  \-  fieldname  =  'COUNTRYFR'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  'COUNTRYFR'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALV布局刷新 
ls_styl  \-  fieldname  =  'COUNTRYTO'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  'COUNTRYTO'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALV布局刷新 
READ TABLE  gt_scarr  INTO  gs_scarr  WITH KEY  carrid  =  gs_spfli  \-
查看完整代码 
READ TABLE  gt_scarr  INTO  gs_scarr  WITH KEY  carrid  =  gs_spfli  \-
ABAP ABAPOOALV布局刷新 
IF  sy  \-  subrc  EQ  0  .
查看完整代码 
IF  sy  \-  subrc  EQ  0  .
ABAP ABAPOOALV布局刷新 
APPEND  gs_link  TO  gt_link  .
查看完整代码 
APPEND  gs_link  TO  gt_link  .
ABAP ABAPOOALV布局刷新 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAPOOALV布局刷新 
MODIFY  gt_spfli  FROM  gs_spfli  .
ENDLOOP  .
查看完整代码 
MODIFY  gt_spfli  FROM  gs_spfli  .
ENDLOOP  .
ABAP ABAPOOALV布局刷新 
i_parent  =  cl_gui_container  => default_screen  .
查看完整代码 
i_parent  =  cl_gui_container  => default_screen  .
ABAP ABAPOOALV布局刷新 
lv_effect  =  cl_dragdrop  => move  .  " + cl_dragdrop=>copy.
查看完整代码 
lv_effect  =  cl_dragdrop  => move  .  " + cl_dragdrop=>copy.
ABAP ABAPOOALV布局刷新 
CALL METHOD  go_dragdrop  -> add
查看完整代码 
CALL METHOD  go_dragdrop  -> add
ABAP ABAPOOALV布局刷新 
effect  =  lv_effect  .
查看完整代码 
effect  =  lv_effect  .
ABAP ABAPOOALV布局刷新 
CALL METHOD  go_dragdrop  -> get_handle
查看完整代码 
CALL METHOD  go_dragdrop  -> get_handle
ABAP ABAPOOALV布局刷新 
handle  =  lv_ddid  .
查看完整代码 
handle  =  lv_ddid  .
ABAP ABAPOOALV布局刷新 
gs_layout  \-  s_dragdrop  \-  row_ddid  =  lv_ddid  .
查看完整代码 
gs_layout  \-  s_dragdrop  \-  row_ddid  =  lv_ddid  .
ABAP ABAPOOALV布局刷新 
APPEND  gs_sort  TO  gt_sort  .
查看完整代码 
APPEND  gs_sort  TO  gt_sort  .
ABAP ABAPOOALV布局刷新 
APPEND  gs_filter  TO  gt_filter  .
查看完整代码 
APPEND  gs_filter  TO  gt_filter  .
ABAP ABAPOOALV布局刷新 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
查看完整代码 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
ABAP ABAPOOALV布局刷新 
APPEND  gs_qinfo  TO  gt_qinfo  .
查看完整代码 
APPEND  gs_qinfo  TO  gt_qinfo  .
ABAP ABAPOOALV布局刷新 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
查看完整代码 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
ABAP ABAPOOALV布局刷新 
APPEND  gs_qinfo  TO  gt_qinfo  .
查看完整代码 
APPEND  gs_qinfo  TO  gt_qinfo  .
ABAP ABAPOOALV布局刷新 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
查看完整代码 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
ABAP ABAPOOALV布局刷新 
APPEND  gs_qinfo  TO  gt_qinfo  .
查看完整代码 
APPEND  gs_qinfo  TO  gt_qinfo  .
ABAP ABAPOOALV布局刷新
查看代码
APPEND  cl_gui_alv_grid  => mc_fc_loc_paste_new_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_copy  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_append_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_copy_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_insert_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_delete_row  TO  gt_toolbar_exc  .
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
APPEND  cl_gui_alv_grid  => mc_fc_loc_paste_new_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_copy  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_append_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_copy_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_insert_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_delete_row  TO  gt_toolbar_exc  .
/* ... 已截断，完整代码请查看原文 */
ABAP ABAPOOALV应用程序工具栏 
SELECT  *  FROM  spfli  INTO  CORRESPONDING  FIELDS OF TABLE  gt_spfli  UP TO
查看完整代码 
SELECT  *  FROM  spfli  INTO  CORRESPONDING  FIELDS OF TABLE  gt_spfli  UP TO
ABAP ABAPOOALV应用程序工具栏 
LOOP AT  gt_spfli  INTO  gs_spfli  .
查看完整代码 
LOOP AT  gt_spfli  INTO  gs_spfli  .
ABAP ABAPOOALV应用程序工具栏 
ls_scol  \-  color  \-  col  =  5  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
查看完整代码 
ls_scol  \-  color  \-  col  =  5  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
ABAP ABAPOOALV应用程序工具栏 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  ''  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  ''  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALV应用程序工具栏 
ls_scol  \-  color  \-  col  =  6  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
查看完整代码 
ls_scol  \-  color  \-  col  =  6  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
ABAP ABAPOOALV应用程序工具栏 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  'X'  .  "避免被Key颜色覆盖
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  'X'  .  "避免被Key颜色覆盖
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALV应用程序工具栏 
ls_scol  \-  color  \-  col  =  3  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
查看完整代码 
ls_scol  \-  color  \-  col  =  3  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
ABAP ABAPOOALV应用程序工具栏 
ls_scol  \-  fname  =  'COUNTRYFR'  .
ls_scol  \-  nokeycol  =  'X'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  'COUNTRYFR'  .
ls_scol  \-  nokeycol  =  'X'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALV应用程序工具栏 
ls_scol  \-  fname  =  'COUNTRYTO'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  'COUNTRYTO'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALV应用程序工具栏 
ls_scol  \-  fname  =  'FLTIME'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  'FLTIME'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALV应用程序工具栏 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_button  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_button  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALV应用程序工具栏 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_hotspot  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_hotspot  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALV应用程序工具栏 
ls_styl  \-  fieldname  =  'COUNTRYFR'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_button  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  'COUNTRYFR'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_button  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALV应用程序工具栏 
ls_styl  \-  fieldname  =  'COUNTRYTO'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_hotspot  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  'COUNTRYTO'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_hotspot  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALV应用程序工具栏 
ENDCASE  .
MODIFY  gt_spfli  FROM  gs_spfli  .
ENDLOOP  .
查看完整代码 
ENDCASE  .
MODIFY  gt_spfli  FROM  gs_spfli  .
ENDLOOP  .
ABAP ABAPOOALV应用程序工具栏 
i_parent  =  cl_gui_container  => default_screen  .
查看完整代码 
i_parent  =  cl_gui_container  => default_screen  .
ABAP ABAPOOALV应用程序工具栏 
APPEND  gs_sort  TO  gt_sort  .
查看完整代码 
APPEND  gs_sort  TO  gt_sort  .
ABAP ABAPOOALV应用程序工具栏 
APPEND  gs_filter  TO  gt_filter  .
查看完整代码 
APPEND  gs_filter  TO  gt_filter  .
ABAP ABAPOOALV应用程序工具栏 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
查看完整代码 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
ABAP ABAPOOALV应用程序工具栏 
APPEND  gs_qinfo  TO  gt_qinfo  .
查看完整代码 
APPEND  gs_qinfo  TO  gt_qinfo  .
ABAP ABAPOOALV应用程序工具栏 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
查看完整代码 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
ABAP ABAPOOALV应用程序工具栏 
APPEND  gs_qinfo  TO  gt_qinfo  .
查看完整代码 
APPEND  gs_qinfo  TO  gt_qinfo  .
ABAP ABAPOOALV应用程序工具栏 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
查看完整代码 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
ABAP ABAPOOALV应用程序工具栏 
APPEND  gs_qinfo  TO  gt_qinfo  .
查看完整代码 
APPEND  gs_qinfo  TO  gt_qinfo  .
ABAP ABAPOOALV应用程序工具栏
查看代码
APPEND  cl_gui_alv_grid  => mc_fc_loc_paste_new_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_copy  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_append_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_copy_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_insert_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_delete_row  TO  gt_toolbar_exc  .
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
APPEND  cl_gui_alv_grid  => mc_fc_loc_paste_new_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_copy  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_append_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_copy_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_insert_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_delete_row  TO  gt_toolbar_exc  .
/* ... 已截断，完整代码请查看原文 */
ABAP ABAPOOALV应用程序工具栏 
CALL FUNCTION  'LVC_FIELDCATALOG_MERGE'
查看完整代码 
CALL FUNCTION  'LVC_FIELDCATALOG_MERGE'
ABAP ABAPOOALV应用程序工具栏 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
查看完整代码 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
ABAP ABAPOOALV应用程序工具栏 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
查看完整代码 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
ABAP ABAPOOALV应用程序工具栏 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
查看完整代码 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
ABAP ABAPOOALV应用程序工具栏 
LOOP AT  gt_fieldcat  ASSIGNING  <fcat> .
查看完整代码 
LOOP AT  gt_fieldcat  ASSIGNING  <fcat> .
ABAP ABAPOOALV应用程序工具栏 
<fcat> \-  style  =  cl_gui_alv_grid  => mc_style_button  .
查看完整代码 
<fcat> \-  style  =  cl_gui_alv_grid  => mc_style_button  .
ABAP ABAPOOALV应用程序工具栏 
ENDCASE  .
ENDLOOP  .
查看完整代码 
ENDCASE  .
ENDLOOP  .
ABAP ABAPOOALV应用程序工具栏 
CALL METHOD  go_alv  -> set_table_for_first_display
查看完整代码 
CALL METHOD  go_alv  -> set_table_for_first_display
ABAP ABAPOOALV排序过滤 
REPORT  zooalv_demo  NO STANDARD PAGE  HEADING  .
查看完整代码 
REPORT  zooalv_demo  NO STANDARD PAGE  HEADING  .
ABAP ABAPOOALV排序过滤 
SELECT  *  FROM  spfli  INTO TABLE  gt_spfli  UP TO  30  ROWS  .
查看完整代码 
SELECT  *  FROM  spfli  INTO TABLE  gt_spfli  UP TO  30  ROWS  .
ABAP ABAPOOALV排序过滤 
i_parent  =  cl_gui_container  => default_screen  .
查看完整代码 
i_parent  =  cl_gui_container  => default_screen  .
ABAP ABAPOOALV排序过滤 
APPEND  gs_sort  TO  gt_sort  .
查看完整代码 
APPEND  gs_sort  TO  gt_sort  .
ABAP ABAPOOALV排序过滤 
APPEND  gs_filter  TO  gt_filter  .
查看完整代码 
APPEND  gs_filter  TO  gt_filter  .
ABAP ABAPOOALV排序过滤 
CALL METHOD  go_alv  -> set_table_for_first_display
查看完整代码 
CALL METHOD  go_alv  -> set_table_for_first_display
ABAP ABAPOOALV搜索帮助 
SELECT  *  FROM  spfli  INTO  CORRESPONDING  FIELDS OF TABLE  gt_spfli  UP TO
查看完整代码 
SELECT  *  FROM  spfli  INTO  CORRESPONDING  FIELDS OF TABLE  gt_spfli  UP TO
ABAP ABAPOOALV搜索帮助 
LOOP AT  gt_spfli  INTO  gs_spfli  .
查看完整代码 
LOOP AT  gt_spfli  INTO  gs_spfli  .
ABAP ABAPOOALV搜索帮助 
ls_scol  \-  color  \-  col  =  5  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
查看完整代码 
ls_scol  \-  color  \-  col  =  5  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
ABAP ABAPOOALV搜索帮助 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  ''  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  ''  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALV搜索帮助 
ls_scol  \-  color  \-  col  =  6  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
查看完整代码 
ls_scol  \-  color  \-  col  =  6  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
ABAP ABAPOOALV搜索帮助 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  'X'  .  "避免被Key颜色覆盖
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  'X'  .  "避免被Key颜色覆盖
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALV搜索帮助 
ls_scol  \-  color  \-  col  =  3  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
查看完整代码 
ls_scol  \-  color  \-  col  =  3  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
ABAP ABAPOOALV搜索帮助 
ls_scol  \-  fname  =  'COUNTRYFR'  .
ls_scol  \-  nokeycol  =  'X'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  'COUNTRYFR'  .
ls_scol  \-  nokeycol  =  'X'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALV搜索帮助 
ls_scol  \-  fname  =  'COUNTRYTO'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  'COUNTRYTO'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALV搜索帮助 
ls_scol  \-  fname  =  'FLTIME'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  'FLTIME'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALV搜索帮助 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_button  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_button  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALV搜索帮助 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_hotspot  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_hotspot  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALV搜索帮助 
ls_styl  \-  fieldname  =  'COUNTRYFR'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_button  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  'COUNTRYFR'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_button  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALV搜索帮助 
ls_styl  \-  fieldname  =  'COUNTRYTO'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_hotspot  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  'COUNTRYTO'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_hotspot  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALV搜索帮助 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALV搜索帮助 
ls_styl  \-  fieldname  =  'COUNTRYFR'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  'COUNTRYFR'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALV搜索帮助 
ls_styl  \-  fieldname  =  'COUNTRYTO'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  'COUNTRYTO'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALV搜索帮助 
ENDCASE  .
MODIFY  gt_spfli  FROM  gs_spfli  .
ENDLOOP  .
查看完整代码 
ENDCASE  .
MODIFY  gt_spfli  FROM  gs_spfli  .
ENDLOOP  .
ABAP ABAPOOALV搜索帮助 
i_parent  =  cl_gui_container  => default_screen  .
查看完整代码 
i_parent  =  cl_gui_container  => default_screen  .
ABAP ABAPOOALV搜索帮助 
APPEND  gs_sort  TO  gt_sort  .
查看完整代码 
APPEND  gs_sort  TO  gt_sort  .
ABAP ABAPOOALV搜索帮助 
APPEND  gs_filter  TO  gt_filter  .
查看完整代码 
APPEND  gs_filter  TO  gt_filter  .
ABAP ABAPOOALV搜索帮助 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
查看完整代码 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
ABAP ABAPOOALV搜索帮助 
APPEND  gs_qinfo  TO  gt_qinfo  .
查看完整代码 
APPEND  gs_qinfo  TO  gt_qinfo  .
ABAP ABAPOOALV搜索帮助 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
查看完整代码 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
ABAP ABAPOOALV搜索帮助 
APPEND  gs_qinfo  TO  gt_qinfo  .
查看完整代码 
APPEND  gs_qinfo  TO  gt_qinfo  .
ABAP ABAPOOALV搜索帮助 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
查看完整代码 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
ABAP ABAPOOALV搜索帮助 
APPEND  gs_qinfo  TO  gt_qinfo  .
查看完整代码 
APPEND  gs_qinfo  TO  gt_qinfo  .
ABAP ABAPOOALV搜索帮助
查看代码
APPEND  cl_gui_alv_grid  => mc_fc_loc_paste_new_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_copy  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_append_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_copy_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_insert_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_delete_row  TO  gt_toolbar_exc  .
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
APPEND  cl_gui_alv_grid  => mc_fc_loc_paste_new_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_copy  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_append_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_copy_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_insert_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_delete_row  TO  gt_toolbar_exc  .
/* ... 已截断，完整代码请查看原文 */
ABAP ABAPOOALV搜索帮助 
ls_dropval  \-  handle  =  1  .
ls_dropval  \-  value  =  '绿灯'  .
APPEND  ls_dropval  TO  lt_dropval  .
查看完整代码 
ls_dropval  \-  handle  =  1  .
ls_dropval  \-  value  =  '绿灯'  .
APPEND  ls_dropval  TO  lt_dropval  .
ABAP ABAPOOALV搜索帮助 
ls_dropval  \-  value  =  '红灯'  .
APPEND  ls_dropval  TO  lt_dropval  .
查看完整代码 
ls_dropval  \-  value  =  '红灯'  .
APPEND  ls_dropval  TO  lt_dropval  .
ABAP ABAPOOALV搜索帮助 
ls_dropval  \-  value  =  '黄灯'  .
APPEND  ls_dropval  TO  lt_dropval  .
查看完整代码 
ls_dropval  \-  value  =  '黄灯'  .
APPEND  ls_dropval  TO  lt_dropval  .
ABAP ABAPOOALV搜索帮助 
ls_dropval  \-  value  =  ''  .
APPEND  ls_dropval  TO  lt_dropval  .
查看完整代码 
ls_dropval  \-  value  =  ''  .
APPEND  ls_dropval  TO  lt_dropval  .
ABAP ABAPOOALV搜索帮助 
CALL METHOD  go_alv  -> set_drop_down_table
查看完整代码 
CALL METHOD  go_alv  -> set_drop_down_table
ABAP ABAPOOALV搜索帮助 
it_drop_down  =  lt_dropval  .
查看完整代码 
it_drop_down  =  lt_dropval  .
ABAP ABAPOOALV搜索帮助 
APPEND  gs_f4  TO  gt_f4  .
查看完整代码 
APPEND  gs_f4  TO  gt_f4  .
ABAP ABAPOOALV搜索帮助 
CALL METHOD  go_alv  -> register_f4_for_fields
查看完整代码 
CALL METHOD  go_alv  -> register_f4_for_fields
ABAP ABAPOOALV搜索帮助 
CALL FUNCTION  'LVC_FIELDCATALOG_MERGE'
查看完整代码 
CALL FUNCTION  'LVC_FIELDCATALOG_MERGE'
ABAP ABAPOOALV搜索帮助 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
查看完整代码 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
ABAP ABAPOOALV搜索帮助 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
查看完整代码 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
ABAP ABAPOOALV搜索帮助 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
查看完整代码 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
ABAP ABAPOOALV搜索帮助 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
查看完整代码 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
ABAP ABAPOOALV搜索帮助 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
查看完整代码 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
ABAP ABAPOOALV搜索帮助 
LOOP AT  gt_fieldcat  ASSIGNING  <fcat> .
查看完整代码 
LOOP AT  gt_fieldcat  ASSIGNING  <fcat> .
ABAP ABAPOOALV样式列行单元格 
SELECT  *  FROM  spfli  INTO  CORRESPONDING  FIELDS OF TABLE  gt_spfli  UP TO
查看完整代码 
SELECT  *  FROM  spfli  INTO  CORRESPONDING  FIELDS OF TABLE  gt_spfli  UP TO
ABAP ABAPOOALV样式列行单元格 
LOOP AT  gt_spfli  INTO  gs_spfli  .
查看完整代码 
LOOP AT  gt_spfli  INTO  gs_spfli  .
ABAP ABAPOOALV样式列行单元格 
ls_scol  \-  color  \-  col  =  5  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
查看完整代码 
ls_scol  \-  color  \-  col  =  5  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
ABAP ABAPOOALV样式列行单元格 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  ''  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  ''  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALV样式列行单元格 
ls_scol  \-  color  \-  col  =  6  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
查看完整代码 
ls_scol  \-  color  \-  col  =  6  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
ABAP ABAPOOALV样式列行单元格 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  'X'  .  "避免被Key颜色覆盖
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  'X'  .  "避免被Key颜色覆盖
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALV样式列行单元格 
ls_scol  \-  color  \-  col  =  3  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
查看完整代码 
ls_scol  \-  color  \-  col  =  3  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
ABAP ABAPOOALV样式列行单元格 
ls_scol  \-  fname  =  'COUNTRYFR'  .
ls_scol  \-  nokeycol  =  'X'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  'COUNTRYFR'  .
ls_scol  \-  nokeycol  =  'X'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALV样式列行单元格 
ls_scol  \-  fname  =  'COUNTRYTO'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  'COUNTRYTO'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALV样式列行单元格 
ls_scol  \-  fname  =  'FLTIME'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  'FLTIME'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALV样式列行单元格 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_button  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_button  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALV样式列行单元格 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_hotspot  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_hotspot  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALV样式列行单元格 
ls_styl  \-  fieldname  =  'COUNTRYFR'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_button  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  'COUNTRYFR'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_button  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALV样式列行单元格 
ls_styl  \-  fieldname  =  'COUNTRYTO'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_hotspot  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  'COUNTRYTO'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_hotspot  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALV样式列行单元格 
ENDCASE  .
MODIFY  gt_spfli  FROM  gs_spfli  .
ENDLOOP  .
查看完整代码 
ENDCASE  .
MODIFY  gt_spfli  FROM  gs_spfli  .
ENDLOOP  .
ABAP ABAPOOALV样式列行单元格 
i_parent  =  cl_gui_container  => default_screen  .
查看完整代码 
i_parent  =  cl_gui_container  => default_screen  .
ABAP ABAPOOALV样式列行单元格 
APPEND  gs_sort  TO  gt_sort  .
查看完整代码 
APPEND  gs_sort  TO  gt_sort  .
ABAP ABAPOOALV样式列行单元格 
APPEND  gs_filter  TO  gt_filter  .
查看完整代码 
APPEND  gs_filter  TO  gt_filter  .
ABAP ABAPOOALV样式列行单元格 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
查看完整代码 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
ABAP ABAPOOALV样式列行单元格 
APPEND  gs_qinfo  TO  gt_qinfo  .
查看完整代码 
APPEND  gs_qinfo  TO  gt_qinfo  .
ABAP ABAPOOALV样式列行单元格 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
查看完整代码 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
ABAP ABAPOOALV样式列行单元格 
APPEND  gs_qinfo  TO  gt_qinfo  .
查看完整代码 
APPEND  gs_qinfo  TO  gt_qinfo  .
ABAP ABAPOOALV样式列行单元格 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
查看完整代码 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
ABAP ABAPOOALV样式列行单元格 
APPEND  gs_qinfo  TO  gt_qinfo  .
查看完整代码 
APPEND  gs_qinfo  TO  gt_qinfo  .
ABAP ABAPOOALV样式列行单元格 
CALL FUNCTION  'LVC_FIELDCATALOG_MERGE'
查看完整代码 
CALL FUNCTION  'LVC_FIELDCATALOG_MERGE'
ABAP ABAPOOALV样式列行单元格 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
查看完整代码 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
ABAP ABAPOOALV样式列行单元格 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
查看完整代码 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
ABAP ABAPOOALV样式列行单元格 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
查看完整代码 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
ABAP ABAPOOALV样式列行单元格 
LOOP AT  gt_fieldcat  ASSIGNING  <fcat> .
查看完整代码 
LOOP AT  gt_fieldcat  ASSIGNING  <fcat> .
ABAP ABAPOOALV样式列行单元格 
<fcat> \-  style  =  cl_gui_alv_grid  => mc_style_button  .  "<\----列样式
查看完整代码 
<fcat> \-  style  =  cl_gui_alv_grid  => mc_style_button  .  "<\----列样式
ABAP ABAPOOALV样式列行单元格 
ENDCASE  .
ENDLOOP  .
查看完整代码 
ENDCASE  .
ENDLOOP  .
ABAP ABAPOOALV样式列行单元格 
CALL METHOD  go_alv  -> set_table_for_first_display
查看完整代码 
CALL METHOD  go_alv  -> set_table_for_first_display
ABAP ABAPOOALV超链接 
SELECT  *  FROM  spfli  INTO  CORRESPONDING  FIELDS OF TABLE  gt_spfli  UP TO
查看完整代码 
SELECT  *  FROM  spfli  INTO  CORRESPONDING  FIELDS OF TABLE  gt_spfli  UP TO
ABAP ABAPOOALV超链接 
IF  gt_spfli  IS NOT INITIAL  .
SELECT  *  FROM  scarr  INTO TABLE  gt_scarr
查看完整代码 
IF  gt_spfli  IS NOT INITIAL  .
SELECT  *  FROM  scarr  INTO TABLE  gt_scarr
ABAP ABAPOOALV超链接 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAPOOALV超链接 
LOOP AT  gt_spfli  INTO  gs_spfli  .
查看完整代码 
LOOP AT  gt_spfli  INTO  gs_spfli  .
ABAP ABAPOOALV超链接 
ls_scol  \-  color  \-  col  =  5  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
查看完整代码 
ls_scol  \-  color  \-  col  =  5  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
ABAP ABAPOOALV超链接 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  ''  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  ''  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALV超链接 
ls_scol  \-  color  \-  col  =  6  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
查看完整代码 
ls_scol  \-  color  \-  col  =  6  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
ABAP ABAPOOALV超链接 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  'X'  .  "避免被Key颜色覆盖
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  'X'  .  "避免被Key颜色覆盖
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALV超链接 
ls_scol  \-  color  \-  col  =  3  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
查看完整代码 
ls_scol  \-  color  \-  col  =  3  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
ABAP ABAPOOALV超链接 
ls_scol  \-  fname  =  'COUNTRYFR'  .
ls_scol  \-  nokeycol  =  'X'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  'COUNTRYFR'  .
ls_scol  \-  nokeycol  =  'X'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALV超链接 
ls_scol  \-  fname  =  'COUNTRYTO'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  'COUNTRYTO'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALV超链接 
ls_scol  \-  fname  =  'FLTIME'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  'FLTIME'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALV超链接 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_button  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_button  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALV超链接 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_hotspot  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_hotspot  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALV超链接 
ls_styl  \-  fieldname  =  'COUNTRYFR'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_button  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  'COUNTRYFR'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_button  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALV超链接 
ls_styl  \-  fieldname  =  'COUNTRYTO'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_hotspot  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  'COUNTRYTO'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_hotspot  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALV超链接 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  ''  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALV超链接 
ls_styl  \-  fieldname  =  'COUNTRYFR'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  'COUNTRYFR'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALV超链接 
ls_styl  \-  fieldname  =  'COUNTRYTO'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
查看完整代码 
ls_styl  \-  fieldname  =  'COUNTRYTO'  .
ls_styl  \-  style  =  cl_gui_alv_grid  => mc_style_enabled  .
APPEND  ls_styl  TO  gs_spfli  \-  styl  .
ABAP ABAPOOALV超链接 
READ TABLE  gt_scarr  INTO  gs_scarr  WITH KEY  carrid  =  gs_spfli  \-
查看完整代码 
READ TABLE  gt_scarr  INTO  gs_scarr  WITH KEY  carrid  =  gs_spfli  \-
ABAP ABAPOOALV超链接 
IF  sy  \-  subrc  EQ  0  .
查看完整代码 
IF  sy  \-  subrc  EQ  0  .
ABAP ABAPOOALV超链接 
APPEND  gs_link  TO  gt_link  .
查看完整代码 
APPEND  gs_link  TO  gt_link  .
ABAP ABAPOOALV超链接 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAPOOALV超链接 
MODIFY  gt_spfli  FROM  gs_spfli  .
ENDLOOP  .
查看完整代码 
MODIFY  gt_spfli  FROM  gs_spfli  .
ENDLOOP  .
ABAP ABAPOOALV超链接 
i_parent  =  cl_gui_container  => default_screen  .
查看完整代码 
i_parent  =  cl_gui_container  => default_screen  .
ABAP ABAPOOALV超链接 
APPEND  gs_sort  TO  gt_sort  .
查看完整代码 
APPEND  gs_sort  TO  gt_sort  .
ABAP ABAPOOALV超链接 
APPEND  gs_filter  TO  gt_filter  .
查看完整代码 
APPEND  gs_filter  TO  gt_filter  .
ABAP ABAPOOALV超链接 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
查看完整代码 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
ABAP ABAPOOALV超链接 
APPEND  gs_qinfo  TO  gt_qinfo  .
查看完整代码 
APPEND  gs_qinfo  TO  gt_qinfo  .
ABAP ABAPOOALV超链接 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
查看完整代码 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
ABAP ABAPOOALV超链接 
APPEND  gs_qinfo  TO  gt_qinfo  .
查看完整代码 
APPEND  gs_qinfo  TO  gt_qinfo  .
ABAP ABAPOOALV超链接 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
查看完整代码 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
ABAP ABAPOOALV超链接 
APPEND  gs_qinfo  TO  gt_qinfo  .
查看完整代码 
APPEND  gs_qinfo  TO  gt_qinfo  .
ABAP ABAPOOALV超链接
查看代码
APPEND  cl_gui_alv_grid  => mc_fc_loc_paste_new_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_copy  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_append_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_copy_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_insert_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_delete_row  TO  gt_toolbar_exc  .
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
APPEND  cl_gui_alv_grid  => mc_fc_loc_paste_new_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_copy  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_append_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_copy_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_insert_row  TO  gt_toolbar_exc  .
APPEND  cl_gui_alv_grid  => mc_fc_loc_delete_row  TO  gt_toolbar_exc  .
/* ... 已截断，完整代码请查看原文 */
ABAP ABAPOOALV超链接 
ls_dropval  \-  handle  =  1  .
ls_dropval  \-  value  =  '绿灯'  .
APPEND  ls_dropval  TO  lt_dropval  .
查看完整代码 
ls_dropval  \-  handle  =  1  .
ls_dropval  \-  value  =  '绿灯'  .
APPEND  ls_dropval  TO  lt_dropval  .
ABAP ABAPOOALV超链接 
ls_dropval  \-  value  =  '红灯'  .
APPEND  ls_dropval  TO  lt_dropval  .
查看完整代码 
ls_dropval  \-  value  =  '红灯'  .
APPEND  ls_dropval  TO  lt_dropval  .
ABAP ABAPOOALV超链接 
ls_dropval  \-  value  =  '黄灯'  .
APPEND  ls_dropval  TO  lt_dropval  .
查看完整代码 
ls_dropval  \-  value  =  '黄灯'  .
APPEND  ls_dropval  TO  lt_dropval  .
ABAP ABAPOOALV超链接 
ls_dropval  \-  value  =  ''  .
APPEND  ls_dropval  TO  lt_dropval  .
查看完整代码 
ls_dropval  \-  value  =  ''  .
APPEND  ls_dropval  TO  lt_dropval  .
ABAP ABAPOOALV超链接 
CALL METHOD  go_alv  -> set_drop_down_table
查看完整代码 
CALL METHOD  go_alv  -> set_drop_down_table
ABAP ABAPOOALV超链接 
it_drop_down  =  lt_dropval  .
查看完整代码 
it_drop_down  =  lt_dropval  .
ABAP ABAPOOALV选择模式触发事件 
SELECT  *  FROM  spfli  INTO TABLE  gt_spfli  UP TO  30  ROWS  .
查看完整代码 
SELECT  *  FROM  spfli  INTO TABLE  gt_spfli  UP TO  30  ROWS  .
ABAP ABAPOOALV选择模式触发事件 
i_parent  =  cl_gui_container  => default_screen  .
查看完整代码 
i_parent  =  cl_gui_container  => default_screen  .
ABAP ABAPOOALV选择模式触发事件 
APPEND  gs_sort  TO  gt_sort  .
查看完整代码 
APPEND  gs_sort  TO  gt_sort  .
ABAP ABAPOOALV选择模式触发事件 
APPEND  gs_filter  TO  gt_filter  .
查看完整代码 
APPEND  gs_filter  TO  gt_filter  .
ABAP ABAPOOALV选择模式触发事件 
CALL FUNCTION  'LVC_FIELDCATALOG_MERGE'
查看完整代码 
CALL FUNCTION  'LVC_FIELDCATALOG_MERGE'
ABAP ABAPOOALV选择模式触发事件 
LOOP AT  gt_fieldcat  ASSIGNING  <fcat> .
查看完整代码 
LOOP AT  gt_fieldcat  ASSIGNING  <fcat> .
ABAP ABAPOOALV选择模式触发事件 
ENDCASE  .
ENDLOOP  .
查看完整代码 
ENDCASE  .
ENDLOOP  .
ABAP ABAPOOALV选择模式触发事件 
CALL METHOD  go_alv  -> set_table_for_first_display
查看完整代码 
CALL METHOD  go_alv  -> set_table_for_first_display
ABAP ABAPOOALV隐藏列修改列标题添加图标列调整列位置 
SELECT  *  FROM  spfli  INTO TABLE  gt_spfli  UP TO  30  ROWS  .
LOOP AT  gt_spfli  INTO  gs_spfli  .
查看完整代码 
SELECT  *  FROM  spfli  INTO TABLE  gt_spfli  UP TO  30  ROWS  .
LOOP AT  gt_spfli  INTO  gs_spfli  .
ABAP ABAPOOALV隐藏列修改列标题添加图标列调整列位置 
ENDCASE  .
MODIFY  gt_spfli  FROM  gs_spfli  .
ENDLOOP  .
查看完整代码 
ENDCASE  .
MODIFY  gt_spfli  FROM  gs_spfli  .
ENDLOOP  .
ABAP ABAPOOALV隐藏列修改列标题添加图标列调整列位置 
i_parent  =  cl_gui_container  => default_screen  .
查看完整代码 
i_parent  =  cl_gui_container  => default_screen  .
ABAP ABAPOOALV隐藏列修改列标题添加图标列调整列位置 
APPEND  gs_sort  TO  gt_sort  .
查看完整代码 
APPEND  gs_sort  TO  gt_sort  .
ABAP ABAPOOALV隐藏列修改列标题添加图标列调整列位置 
APPEND  gs_filter  TO  gt_filter  .
查看完整代码 
APPEND  gs_filter  TO  gt_filter  .
ABAP ABAPOOALV隐藏列修改列标题添加图标列调整列位置 
CALL FUNCTION  'LVC_FIELDCATALOG_MERGE'
查看完整代码 
CALL FUNCTION  'LVC_FIELDCATALOG_MERGE'
ABAP ABAPOOALV隐藏列修改列标题添加图标列调整列位置 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
查看完整代码 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
ABAP ABAPOOALV隐藏列修改列标题添加图标列调整列位置 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
查看完整代码 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
ABAP ABAPOOALV隐藏列修改列标题添加图标列调整列位置 
LOOP AT  gt_fieldcat  ASSIGNING  <fcat> .
查看完整代码 
LOOP AT  gt_fieldcat  ASSIGNING  <fcat> .
ABAP ABAPOOALV隐藏列修改列标题添加图标列调整列位置 
ENDCASE  .
ENDLOOP  .
查看完整代码 
ENDCASE  .
ENDLOOP  .
ABAP ABAPOOALV隐藏列修改列标题添加图标列调整列位置 
CALL METHOD  go_alv  -> set_table_for_first_display
查看完整代码 
CALL METHOD  go_alv  -> set_table_for_first_display
ABAP ABAPOOALV颜色列行单元格 
SELECT  *  FROM  spfli  INTO  CORRESPONDING  FIELDS OF TABLE  gt_spfli  UP TO
查看完整代码 
SELECT  *  FROM  spfli  INTO  CORRESPONDING  FIELDS OF TABLE  gt_spfli  UP TO
ABAP ABAPOOALV颜色列行单元格 
LOOP AT  gt_spfli  INTO  gs_spfli  .
查看完整代码 
LOOP AT  gt_spfli  INTO  gs_spfli  .
ABAP ABAPOOALV颜色列行单元格 
ls_scol  \-  color  \-  col  =  5  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
查看完整代码 
ls_scol  \-  color  \-  col  =  5  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
ABAP ABAPOOALV颜色列行单元格 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  ''  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  ''  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALV颜色列行单元格 
ls_scol  \-  color  \-  col  =  6  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
查看完整代码 
ls_scol  \-  color  \-  col  =  6  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
ABAP ABAPOOALV颜色列行单元格 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  'X'  .  "避免被Key颜色覆盖
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  'X'  .  "避免被Key颜色覆盖
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALV颜色列行单元格 
ls_scol  \-  color  \-  col  =  3  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
查看完整代码 
ls_scol  \-  color  \-  col  =  3  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
ABAP ABAPOOALV颜色列行单元格 
ls_scol  \-  fname  =  'COUNTRYFR'  .
ls_scol  \-  nokeycol  =  'X'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  'COUNTRYFR'  .
ls_scol  \-  nokeycol  =  'X'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALV颜色列行单元格 
ls_scol  \-  fname  =  'COUNTRYTO'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  'COUNTRYTO'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALV颜色列行单元格 
ls_scol  \-  fname  =  'FLTIME'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  'FLTIME'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPOOALV颜色列行单元格 
ENDCASE  .
MODIFY  gt_spfli  FROM  gs_spfli  .
ENDLOOP  .
查看完整代码 
ENDCASE  .
MODIFY  gt_spfli  FROM  gs_spfli  .
ENDLOOP  .
ABAP ABAPOOALV颜色列行单元格 
i_parent  =  cl_gui_container  => default_screen  .
查看完整代码 
i_parent  =  cl_gui_container  => default_screen  .
ABAP ABAPOOALV颜色列行单元格 
APPEND  gs_sort  TO  gt_sort  .
查看完整代码 
APPEND  gs_sort  TO  gt_sort  .
ABAP ABAPOOALV颜色列行单元格 
APPEND  gs_filter  TO  gt_filter  .
查看完整代码 
APPEND  gs_filter  TO  gt_filter  .
ABAP ABAPOOALV颜色列行单元格 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
查看完整代码 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
ABAP ABAPOOALV颜色列行单元格 
APPEND  gs_qinfo  TO  gt_qinfo  .
查看完整代码 
APPEND  gs_qinfo  TO  gt_qinfo  .
ABAP ABAPOOALV颜色列行单元格 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
查看完整代码 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
ABAP ABAPOOALV颜色列行单元格 
APPEND  gs_qinfo  TO  gt_qinfo  .
查看完整代码 
APPEND  gs_qinfo  TO  gt_qinfo  .
ABAP ABAPOOALV颜色列行单元格 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
查看完整代码 
gs_qinfo  \-  type  =  cl_salv_tooltip  => c_type_icon  .
ABAP ABAPOOALV颜色列行单元格 
APPEND  gs_qinfo  TO  gt_qinfo  .
查看完整代码 
APPEND  gs_qinfo  TO  gt_qinfo  .
ABAP ABAPOOALV颜色列行单元格 
CALL FUNCTION  'LVC_FIELDCATALOG_MERGE'
查看完整代码 
CALL FUNCTION  'LVC_FIELDCATALOG_MERGE'
ABAP ABAPOOALV颜色列行单元格 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
查看完整代码 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
ABAP ABAPOOALV颜色列行单元格 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
查看完整代码 
APPEND  gs_fieldcat  TO  gt_fieldcat  .
ABAP ABAPOOALV颜色列行单元格 
LOOP AT  gt_fieldcat  ASSIGNING  <fcat> .
查看完整代码 
LOOP AT  gt_fieldcat  ASSIGNING  <fcat> .
ABAP ABAPOOALV颜色列行单元格 
ENDCASE  .
ENDLOOP  .
查看完整代码 
ENDCASE  .
ENDLOOP  .
ABAP ABAPOOALV颜色列行单元格 
CALL METHOD  go_alv  -> set_table_for_first_display
查看完整代码 
CALL METHOD  go_alv  -> set_table_for_first_display
ABAP ABAPSALV刷新弹框 
READ TABLE  gt_spfli  ASSIGNING  <spfli> INDEX  row  .
IF  <spfli> \-  cbox  =  'X'  .
查看完整代码 
READ TABLE  gt_spfli  ASSIGNING  <spfli> INDEX  row  .
IF  <spfli> \-  cbox  =  'X'  .
ABAP ABAPSALV刷新弹框 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAPSALV刷新弹框 
ls_stable  \-  row  =  'X'  .
ls_stable  \-  col  =  'X'  .
查看完整代码 
ls_stable  \-  row  =  'X'  .
ls_stable  \-  col  =  'X'  .
ABAP ABAPSALV刷新弹框 
s_stable  =  ls_stable
refresh_mode  =  if_salv_c_refresh  => soft
查看完整代码 
s_stable  =  ls_stable
refresh_mode  =  if_salv_c_refresh  => soft
ABAP ABAPSALV刷新弹框 
IF  p_day21  =  'X'  .
查看完整代码 
IF  p_day21  =  'X'  .
ABAP ABAPSALV刷新弹框 
position  =  if_salv_c_function_position  => right_of_salv_functions
查看完整代码 
position  =  if_salv_c_function_position  => right_of_salv_functions
ABAP ABAPSALV刷新弹框 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAPSALV刷新弹框 
LOOP AT  gt_spfli  INTO  gs_spfli  WHERE  cbox  =  'X'  .
SELECT  *  FROM  sflight
APPENDING TABLE  lt_sflight
查看完整代码 
LOOP AT  gt_spfli  INTO  gs_spfli  WHERE  cbox  =  'X'  .
SELECT  *  FROM  sflight
APPENDING TABLE  lt_sflight
ABAP ABAPSALV刷新弹框 
ENDLOOP  .
查看完整代码 
ENDLOOP  .
ABAP ABAPSALV刷新弹框 
TRY  .
cl_salv_table  => factory  (
查看完整代码 
TRY  .
cl_salv_table  => factory  (
ABAP ABAPSALV刷新弹框 
r_salv_table  =  lo_salv
查看完整代码 
r_salv_table  =  lo_salv
ABAP ABAPSALV刷新弹框 
t_table  =  lt_sflight
查看完整代码 
t_table  =  lt_sflight
ABAP ABAPSALV刷新弹框 
CATCH  cx_salv_msg  .
ENDTRY  .
查看完整代码 
CATCH  cx_salv_msg  .
ENDTRY  .
ABAP ABAPSALV刷新弹框 
lo_functions_list  =  lo_salv  -> get_functions  ( ).
lo_columns_table  =  lo_salv  -> get_columns  ( ).
查看完整代码 
lo_functions_list  =  lo_salv  -> get_functions  ( ).
lo_columns_table  =  lo_salv  -> get_columns  ( ).
ABAP ABAPSALV刷新弹框 
REPORT  zsalv_deom  NO STANDARD PAGE  HEADING  .
查看完整代码 
REPORT  zsalv_deom  NO STANDARD PAGE  HEADING  .
ABAP ABAPSALV刷新弹框 
CLASS  lcl_evt_handler  DEFINITION  .
查看完整代码 
CLASS  lcl_evt_handler  DEFINITION  .
ABAP ABAPSALV刷新弹框 
ENDCLASS  .  "lcl_evt_handler DEFINITION
查看完整代码 
ENDCLASS  .  "lcl_evt_handler DEFINITION
ABAP ABAPSALV刷新弹框 
CLASS  lcl_evt_handler  IMPLEMENTATION  .
METHOD  on_link_click  .
查看完整代码 
CLASS  lcl_evt_handler  IMPLEMENTATION  .
METHOD  on_link_click  .
ABAP ABAPSALV刷新弹框 
READ TABLE  gt_spfli  ASSIGNING  <spfli> INDEX  row  .
IF  <spfli> \-  cbox  =  'X'  .
查看完整代码 
READ TABLE  gt_spfli  ASSIGNING  <spfli> INDEX  row  .
IF  <spfli> \-  cbox  =  'X'  .
ABAP ABAPSALV刷新弹框 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAPSALV刷新弹框 
ls_stable  \-  row  =  'X'  .
ls_stable  \-  col  =  'X'  .
查看完整代码 
ls_stable  \-  row  =  'X'  .
ls_stable  \-  col  =  'X'  .
ABAP ABAPSALV刷新弹框 
s_stable  =  ls_stable
refresh_mode  =  if_salv_c_refresh  => soft
查看完整代码 
s_stable  =  ls_stable
refresh_mode  =  if_salv_c_refresh  => soft
ABAP ABAPSALV刷新弹框 
ENDCASE  .
ENDMETHOD  .  "on_link_click
METHOD  on_added_function  .
查看完整代码 
ENDCASE  .
ENDMETHOD  .  "on_link_click
METHOD  on_added_function  .
ABAP ABAPSALV刷新弹框 
LOOP AT  gt_spfli  INTO  gs_spfli  WHERE  cbox  =  'X'  .
SELECT  *  FROM  sflight
APPENDING TABLE  lt_sflight
查看完整代码 
LOOP AT  gt_spfli  INTO  gs_spfli  WHERE  cbox  =  'X'  .
SELECT  *  FROM  sflight
APPENDING TABLE  lt_sflight
ABAP ABAPSALV刷新弹框 
ENDLOOP  .
查看完整代码 
ENDLOOP  .
ABAP ABAPSALV刷新弹框 
TRY  .
cl_salv_table  => factory  (
查看完整代码 
TRY  .
cl_salv_table  => factory  (
ABAP ABAPSALV刷新弹框 
r_salv_table  =  lo_salv
查看完整代码 
r_salv_table  =  lo_salv
ABAP ABAPSALV刷新弹框 
t_table  =  lt_sflight
查看完整代码 
t_table  =  lt_sflight
ABAP ABAPSALV刷新弹框 
CATCH  cx_salv_msg  .
ENDTRY  .
查看完整代码 
CATCH  cx_salv_msg  .
ENDTRY  .
ABAP ABAPSALV刷新弹框 
lo_functions_list  =  lo_salv  -> get_functions  ( ).
lo_columns_table  =  lo_salv  -> get_columns  ( ).
查看完整代码 
lo_functions_list  =  lo_salv  -> get_functions  ( ).
lo_columns_table  =  lo_salv  -> get_columns  ( ).
ABAP ABAPSALV刷新弹框 
ENDCASE  .
ENDMETHOD  .  "on_added_function
ENDCLASS  .  "lcl_evt_handler IMPLEMENTATION
查看完整代码 
ENDCASE  .
ENDMETHOD  .  "on_added_function
ENDCLASS  .  "lcl_evt_handler IMPLEMENTATION
ABAP ABAPSALV刷新弹框 
SELECT  *  FROM  spfli  INTO  CORRESPONDING  FIELDS OF TABLE  gt_spfli  UP TO
查看完整代码 
SELECT  *  FROM  spfli  INTO  CORRESPONDING  FIELDS OF TABLE  gt_spfli  UP TO
ABAP ABAPSALV刷新弹框 
cl_salv_table  => factory  (
查看完整代码 
cl_salv_table  => factory  (
ABAP ABAPSALV刷新弹框 
r_container  =  cl_gui_container  => default_screen
查看完整代码 
r_container  =  cl_gui_container  => default_screen
ABAP ABAPSALV刷新弹框 
r_salv_table  =  go_salv
查看完整代码 
r_salv_table  =  go_salv
ABAP ABAPSALV刷新弹框 
lo_display  =  go_salv  -> get_display_settings  ( ).
查看完整代码 
lo_display  =  go_salv  -> get_display_settings  ( ).
ABAP ABAPSALV刷新弹框 
lo_functions  =  go_salv  -> get_functions  ( ).
查看完整代码 
lo_functions  =  go_salv  -> get_functions  ( ).
ABAP ABAPSALV刷新弹框 
position  =  if_salv_c_function_position  => right_of_salv_functions
查看完整代码 
position  =  if_salv_c_function_position  => right_of_salv_functions
ABAP ABAPSALV刷新弹框 
lo_events_table  =  go_salv  -> get_event  ( ).
查看完整代码 
lo_events_table  =  go_salv  -> get_event  ( ).
ABAP ABAPSALV刷新弹框 
lo_columns  =  go_salv  -> get_columns  ( ).
查看完整代码 
lo_columns  =  go_salv  -> get_columns  ( ).
ABAP ABAPSALV刷新弹框 
lo_columns  -> set_column_position  (  columnname  =  'CBOX'  position  =  1
查看完整代码 
lo_columns  -> set_column_position  (  columnname  =  'CBOX'  position  =  1
ABAP ABAPSALV刷新弹框 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'CBOX'  ).
查看完整代码 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'CBOX'  ).
ABAP ABAPSALV刷新弹框 
lo_column  -> set_alignment  (  if_salv_c_alignment  => centered  ).
lo_column  -> set_cell_type  (  if_salv_c_cell_type  => checkbox_hotspot  ).
查看完整代码 
lo_column  -> set_alignment  (  if_salv_c_alignment  => centered  ).
lo_column  -> set_cell_type  (  if_salv_c_cell_type  => checkbox_hotspot  ).
ABAP ABAPSALV合计小计 
IF  p_day08  EQ  'X'  .
查看完整代码 
IF  p_day08  EQ  'X'  .
ABAP ABAPSALV合计小计 
lo_aggregations  =  go_salv  -> get_aggregations  (  )  .
查看完整代码 
lo_aggregations  =  go_salv  -> get_aggregations  (  )  .
ABAP ABAPSALV合计小计 
aggregation  =  if_salv_c_aggregation  => total
查看完整代码 
aggregation  =  if_salv_c_aggregation  => total
ABAP ABAPSALV合计小计 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAPSALV合计小计 
IF  p_day06  EQ  'X'  .
lo_sort  =  lo_sorts  -> get_sort  (  columnname  =  'CARRID'  )  .
查看完整代码 
IF  p_day06  EQ  'X'  .
lo_sort  =  lo_sorts  -> get_sort  (  columnname  =  'CARRID'  )  .
ABAP ABAPSALV合计小计 
lo_sorts  =  go_salv  -> get_sorts  (  )  .
查看完整代码 
lo_sorts  =  go_salv  -> get_sorts  (  )  .
ABAP ABAPSALV合计小计 
sequence  =  if_salv_c_sort  => sort_down
查看完整代码 
sequence  =  if_salv_c_sort  => sort_down
ABAP ABAPSALV合计小计 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAPSALV合计小计 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAPSALV合计小计 
SELECT  *  FROM  spfli  INTO TABLE  gt_spfli  UP TO  30  ROWS  .
查看完整代码 
SELECT  *  FROM  spfli  INTO TABLE  gt_spfli  UP TO  30  ROWS  .
ABAP ABAPSALV合计小计 
cl_salv_table  => factory  (
查看完整代码 
cl_salv_table  => factory  (
ABAP ABAPSALV合计小计 
r_salv_table  =  go_salv
查看完整代码 
r_salv_table  =  go_salv
ABAP ABAPSALV合计小计 
IF  p_day06  EQ  'X'  .
查看完整代码 
IF  p_day06  EQ  'X'  .
ABAP ABAPSALV合计小计 
lo_sorts  =  go_salv  -> get_sorts  ( ).
查看完整代码 
lo_sorts  =  go_salv  -> get_sorts  ( ).
ABAP ABAPSALV合计小计 
sequence  =  if_salv_c_sort  => sort_down
查看完整代码 
sequence  =  if_salv_c_sort  => sort_down
ABAP ABAPSALV合计小计 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAPSALV合计小计 
IF  p_day08  EQ  'X'  .
查看完整代码 
IF  p_day08  EQ  'X'  .
ABAP ABAPSALV合计小计 
lo_aggregations  =  go_salv  -> get_aggregations  ( ).
查看完整代码 
lo_aggregations  =  go_salv  -> get_aggregations  ( ).
ABAP ABAPSALV合计小计 
aggregation  =  if_salv_c_aggregation  => total
查看完整代码 
aggregation  =  if_salv_c_aggregation  => total
ABAP ABAPSALV合计小计 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAPSALV合计小计 
IF  p_day09  EQ  'X'  AND  p_day08  =  'X'  .
查看完整代码 
IF  p_day09  EQ  'X'  AND  p_day08  =  'X'  .
ABAP ABAPSALV合计小计 
IF  p_day06  EQ  'X'  .
lo_sort  =  lo_sorts  -> get_sort  (  columnname  =  'CARRID'  ).
查看完整代码 
IF  p_day06  EQ  'X'  .
lo_sort  =  lo_sorts  -> get_sort  (  columnname  =  'CARRID'  ).
ABAP ABAPSALV合计小计 
lo_sorts  =  go_salv  -> get_sorts  ( ).
查看完整代码 
lo_sorts  =  go_salv  -> get_sorts  ( ).
ABAP ABAPSALV合计小计 
sequence  =  if_salv_c_sort  => sort_down
查看完整代码 
sequence  =  if_salv_c_sort  => sort_down
ABAP ABAPSALV合计小计 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAPSALV合计小计 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAPSALV固定列鼠标悬停文本 
IF  p_day16  =  'X'  .
查看完整代码 
IF  p_day16  =  'X'  .
ABAP ABAPSALV固定列鼠标悬停文本 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'SNUM'  ).
查看完整代码 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'SNUM'  ).
ABAP ABAPSALV固定列鼠标悬停文本 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'ICON'  ).
查看完整代码 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'ICON'  ).
ABAP ABAPSALV固定列鼠标悬停文本 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAPSALV固定列鼠标悬停文本 
IF  p_day17  =  'X'  .
查看完整代码 
IF  p_day17  =  'X'  .
ABAP ABAPSALV固定列鼠标悬停文本 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'ICON'  ).
查看完整代码 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'ICON'  ).
ABAP ABAPSALV固定列鼠标悬停文本 
lo_functional_settings  =  go_salv  -> get_functional_settings  ( ).
lo_tooltips  =  lo_functional_settings  -> get_tooltips  ( ).
查看完整代码 
lo_functional_settings  =  go_salv  -> get_functional_settings  ( ).
lo_tooltips  =  lo_functional_settings  -> get_tooltips  ( ).
ABAP ABAPSALV固定列鼠标悬停文本 
type  =  cl_salv_tooltip  => c_type_icon  "不设置图标列，不起效果
查看完整代码 
type  =  cl_salv_tooltip  => c_type_icon  "不设置图标列，不起效果
ABAP ABAPSALV固定列鼠标悬停文本 
type  =  cl_salv_tooltip  => c_type_icon
查看完整代码 
type  =  cl_salv_tooltip  => c_type_icon
ABAP ABAPSALV固定列鼠标悬停文本 
type  =  cl_salv_tooltip  => c_type_icon
查看完整代码 
type  =  cl_salv_tooltip  => c_type_icon
ABAP ABAPSALV固定列鼠标悬停文本 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAPSALV固定列鼠标悬停文本 
SELECT  *  FROM  spfli  INTO TABLE  gt_spfli  UP TO  30  ROWS  .
查看完整代码 
SELECT  *  FROM  spfli  INTO TABLE  gt_spfli  UP TO  30  ROWS  .
ABAP ABAPSALV固定列鼠标悬停文本 
cl_salv_table  => factory  (
查看完整代码 
cl_salv_table  => factory  (
ABAP ABAPSALV固定列鼠标悬停文本 
r_salv_table  =  go_salv
查看完整代码 
r_salv_table  =  go_salv
ABAP ABAPSALV固定列鼠标悬停文本 
IF  p_day02  EQ  'X'  .
查看完整代码 
IF  p_day02  EQ  'X'  .
ABAP ABAPSALV固定列鼠标悬停文本 
lo_display  =  go_salv  -> get_display_settings  ( ).
查看完整代码 
lo_display  =  go_salv  -> get_display_settings  ( ).
ABAP ABAPSALV固定列鼠标悬停文本 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAPSALV固定列鼠标悬停文本 
IF  p_day03  EQ  'X'  .
查看完整代码 
IF  p_day03  EQ  'X'  .
ABAP ABAPSALV固定列鼠标悬停文本 
lo_columns  =  go_salv  -> get_columns  ( ).
查看完整代码 
lo_columns  =  go_salv  -> get_columns  ( ).
ABAP ABAPSALV固定列鼠标悬停文本 
IF  p_day14  =  'X'  .
查看完整代码 
IF  p_day14  =  'X'  .
ABAP ABAPSALV固定列鼠标悬停文本 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'MANDT'  ).
查看完整代码 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'MANDT'  ).
ABAP ABAPSALV固定列鼠标悬停文本 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'COUNTRYFR'  ).
查看完整代码 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'COUNTRYFR'  ).
ABAP ABAPSALV固定列鼠标悬停文本 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'COUNTRYTO'  ).
查看完整代码 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'COUNTRYTO'  ).
ABAP ABAPSALV固定列鼠标悬停文本 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAPSALV固定列鼠标悬停文本 
IF  p_day15  =  'X'  .
查看完整代码 
IF  p_day15  =  'X'  .
ABAP ABAPSALV固定列鼠标悬停文本 
lo_columns  -> set_column_position  (  columnname  =  'SNUM'  position  =  1
查看完整代码 
lo_columns  -> set_column_position  (  columnname  =  'SNUM'  position  =  1
ABAP ABAPSALV固定列鼠标悬停文本 
lo_columns  -> set_column_position  (  columnname  =  'ICON'  position  =  2
查看完整代码 
lo_columns  -> set_column_position  (  columnname  =  'ICON'  position  =  2
ABAP ABAPSALV固定列鼠标悬停文本 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'CARRID'  ).
查看完整代码 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'CARRID'  ).
ABAP ABAPSALV固定列鼠标悬停文本 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'CONNID'  ).
查看完整代码 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'CONNID'  ).
ABAP ABAPSALV固定列鼠标悬停文本 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'SNUM'  ).
查看完整代码 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'SNUM'  ).
ABAP ABAPSALV固定列鼠标悬停文本 
lo_column  -> set_alignment  (  if_salv_c_alignment  => centered  ).
查看完整代码 
lo_column  -> set_alignment  (  if_salv_c_alignment  => centered  ).
ABAP ABAPSALV固定列鼠标悬停文本 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'ICON'  ).
查看完整代码 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'ICON'  ).
ABAP ABAPSALV固定列鼠标悬停文本 
lo_column  -> set_alignment  (  if_salv_c_alignment  => centered  ).
查看完整代码 
lo_column  -> set_alignment  (  if_salv_c_alignment  => centered  ).
ABAP ABAPSALV固定列鼠标悬停文本 
LOOP AT  gt_spfli  INTO  gs_spfli  .
查看完整代码 
LOOP AT  gt_spfli  INTO  gs_spfli  .
ABAP ABAPSALV固定列鼠标悬停文本 
ENDCASE  .
MODIFY  gt_spfli  FROM  gs_spfli  .
ENDLOOP  .
ENDIF  .
查看完整代码 
ENDCASE  .
MODIFY  gt_spfli  FROM  gs_spfli  .
ENDLOOP  .
ENDIF  .
ABAP ABAPSALV固定列鼠标悬停文本 
IF  p_day16  =  'X'  .
查看完整代码 
IF  p_day16  =  'X'  .
ABAP ABAPSALV固定列鼠标悬停文本 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'SNUM'  ).
查看完整代码 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'SNUM'  ).
ABAP ABAPSALV固定列鼠标悬停文本 
lo_column ?= lo_columns  -> get_column  (  columnname  =
查看完整代码 
lo_column ?= lo_columns  -> get_column  (  columnname  =
ABAP ABAPSALV基本显示外观设置列设置 
SELECT  *  FROM  spfli  INTO  TABLE  gt_spfli  UP  TO  30  ROWS  .
查看完整代码 
SELECT  *  FROM  spfli  INTO  TABLE  gt_spfli  UP  TO  30  ROWS  .
ABAP ABAPSALV基本显示外观设置列设置 
cl_salv_table  => factory  (
查看完整代码 
cl_salv_table  => factory  (
ABAP ABAPSALV基本显示外观设置列设置 
r_salv_table  =  go_salv
查看完整代码 
r_salv_table  =  go_salv
ABAP ABAPSALV基本显示外观设置列设置 
IF  p_day02  EQ  'X'  .
查看完整代码 
IF  p_day02  EQ  'X'  .
ABAP ABAPSALV基本显示外观设置列设置 
lo_display  =  go_salv  -> get_display_settings  (  )  .
查看完整代码 
lo_display  =  go_salv  -> get_display_settings  (  )  .
ABAP ABAPSALV基本显示外观设置列设置 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAPSALV基本显示外观设置列设置 
IF  p_day03  EQ  'X'  .
查看完整代码 
IF  p_day03  EQ  'X'  .
ABAP ABAPSALV基本显示外观设置列设置 
lo_columns  =  go_salv  -> get_columns  (  )  .
查看完整代码 
lo_columns  =  go_salv  -> get_columns  (  )  .
ABAP ABAPSALV基本显示外观设置列设置 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAPSALV基本显示外观设置列设置 
SELECT  *  FROM  spfli  INTO TABLE  gt_spfli  UP TO  30  ROWS  .
查看完整代码 
SELECT  *  FROM  spfli  INTO TABLE  gt_spfli  UP TO  30  ROWS  .
ABAP ABAPSALV基本显示外观设置列设置 
cl_salv_table  => factory  (
查看完整代码 
cl_salv_table  => factory  (
ABAP ABAPSALV基本显示外观设置列设置 
r_salv_table  =  go_salv
查看完整代码 
r_salv_table  =  go_salv
ABAP ABAPSALV基本显示外观设置列设置 
IF  p_day02  EQ  'X'  .
查看完整代码 
IF  p_day02  EQ  'X'  .
ABAP ABAPSALV基本显示外观设置列设置 
lo_display  =  go_salv  -> get_display_settings  ( ).
查看完整代码 
lo_display  =  go_salv  -> get_display_settings  ( ).
ABAP ABAPSALV基本显示外观设置列设置 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAPSALV基本显示外观设置列设置 
IF  p_day03  EQ  'X'  .
查看完整代码 
IF  p_day03  EQ  'X'  .
ABAP ABAPSALV基本显示外观设置列设置 
lo_columns  =  go_salv  -> get_columns  ( ).
查看完整代码 
lo_columns  =  go_salv  -> get_columns  ( ).
ABAP ABAPSALV基本显示外观设置列设置 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAPSALV按钮设置布局设置 
IF  p_day04  EQ  'X'  .
查看完整代码 
IF  p_day04  EQ  'X'  .
ABAP ABAPSALV按钮设置布局设置 
lo_functions  =  go_salv  -> get_functions  (  )  .
查看完整代码 
lo_functions  =  go_salv  -> get_functions  (  )  .
ABAP ABAPSALV按钮设置布局设置 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAPSALV按钮设置布局设置 
IF  p_day05  EQ  'X'  .
查看完整代码 
IF  p_day05  EQ  'X'  .
ABAP ABAPSALV按钮设置布局设置 
lo_layout  =  go_salv  -> get_layout  (  )  .
ls_layout_key  \-  report  =  sy  \-  repid  .
查看完整代码 
lo_layout  =  go_salv  -> get_layout  (  )  .
ls_layout_key  \-  report  =  sy  \-  repid  .
ABAP ABAPSALV按钮设置布局设置 
lo_layout  -> set_save_restriction  (  if_salv_c_layout  => restrict_none  )
查看完整代码 
lo_layout  -> set_save_restriction  (  if_salv_c_layout  => restrict_none  )
ABAP ABAPSALV按钮设置布局设置 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAPSALV按钮设置布局设置 
SELECT  *  FROM  spfli  INTO TABLE  gt_spfli  UP TO  30  ROWS  .
查看完整代码 
SELECT  *  FROM  spfli  INTO TABLE  gt_spfli  UP TO  30  ROWS  .
ABAP ABAPSALV按钮设置布局设置 
cl_salv_table  => factory  (
查看完整代码 
cl_salv_table  => factory  (
ABAP ABAPSALV按钮设置布局设置 
r_salv_table  =  go_salv
查看完整代码 
r_salv_table  =  go_salv
ABAP ABAPSALV按钮设置布局设置 
IF  p_day04  EQ  'X'  .
查看完整代码 
IF  p_day04  EQ  'X'  .
ABAP ABAPSALV按钮设置布局设置 
lo_functions  =  go_salv  -> get_functions  ( ).
查看完整代码 
lo_functions  =  go_salv  -> get_functions  ( ).
ABAP ABAPSALV按钮设置布局设置 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAPSALV按钮设置布局设置 
IF  p_day05  EQ  'X'  .
查看完整代码 
IF  p_day05  EQ  'X'  .
ABAP ABAPSALV按钮设置布局设置 
lo_layout  =  go_salv  -> get_layout  ( ).
ls_layout_key  \-  report  =  sy  \-  repid  .
查看完整代码 
lo_layout  =  go_salv  -> get_layout  ( ).
ls_layout_key  \-  report  =  sy  \-  repid  .
ABAP ABAPSALV按钮设置布局设置 
lo_layout  -> set_save_restriction  (  if_salv_c_layout  => restrict_none  ).
查看完整代码 
lo_layout  -> set_save_restriction  (  if_salv_c_layout  => restrict_none  ).
ABAP ABAPSALV按钮设置布局设置 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAPSALV排序过滤 
IF  p_day06  EQ  'X'  .
查看完整代码 
IF  p_day06  EQ  'X'  .
ABAP ABAPSALV排序过滤 
lo_sorts  =  go_salv  -> get_sorts  (  )  .
查看完整代码 
lo_sorts  =  go_salv  -> get_sorts  (  )  .
ABAP ABAPSALV排序过滤 
sequence  =  if_salv_c_sort  => sort_down
查看完整代码 
sequence  =  if_salv_c_sort  => sort_down
ABAP ABAPSALV排序过滤 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAPSALV排序过滤 
IF  p_day07  EQ  'X'  .
查看完整代码 
IF  p_day07  EQ  'X'  .
ABAP ABAPSALV排序过滤 
lo_filters  =  go_salv  -> get_filters  (  )  .
查看完整代码 
lo_filters  =  go_salv  -> get_filters  (  )  .
ABAP ABAPSALV排序过滤 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAPSALV排序过滤 
SELECT  *  FROM  spfli  INTO TABLE  gt_spfli  UP TO  30  ROWS  .
查看完整代码 
SELECT  *  FROM  spfli  INTO TABLE  gt_spfli  UP TO  30  ROWS  .
ABAP ABAPSALV排序过滤 
cl_salv_table  => factory  (
查看完整代码 
cl_salv_table  => factory  (
ABAP ABAPSALV排序过滤 
r_salv_table  =  go_salv
查看完整代码 
r_salv_table  =  go_salv
ABAP ABAPSALV排序过滤 
IF  p_day06  EQ  'X'  .
查看完整代码 
IF  p_day06  EQ  'X'  .
ABAP ABAPSALV排序过滤 
lo_sorts  =  go_salv  -> get_sorts  ( ).
查看完整代码 
lo_sorts  =  go_salv  -> get_sorts  ( ).
ABAP ABAPSALV排序过滤 
sequence  =  if_salv_c_sort  => sort_down
查看完整代码 
sequence  =  if_salv_c_sort  => sort_down
ABAP ABAPSALV排序过滤 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAPSALV排序过滤 
IF  p_day07  EQ  'X'  .
查看完整代码 
IF  p_day07  EQ  'X'  .
ABAP ABAPSALV排序过滤 
lo_filters  =  go_salv  -> get_filters  ( ).
查看完整代码 
lo_filters  =  go_salv  -> get_filters  ( ).
ABAP ABAPSALV排序过滤 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAPSALV数据读取不限于SALV 
IF  p_day22  =  'X'  .
cl_salv_bs_runtime_info  => set  (
查看完整代码 
IF  p_day22  =  'X'  .
cl_salv_bs_runtime_info  => set  (
ABAP ABAPSALV数据读取不限于SALV 
SUBMIT  zsalv_test01  WITH  r_rb1  =  'X'
查看完整代码 
SUBMIT  zsalv_test01  WITH  r_rb1  =  'X'
ABAP ABAPSALV数据读取不限于SALV 
cl_salv_bs_runtime_info  => get_data_ref  (
查看完整代码 
cl_salv_bs_runtime_info  => get_data_ref  (
ABAP ABAPSALV数据读取不限于SALV 
r_data  =  lo_data
查看完整代码 
r_data  =  lo_data
ABAP ABAPSALV数据读取不限于SALV 
IF  <data> IS ASSIGNED  .
APPEND LINES OF  <data> TO  lt_sflight  .
ENDIF  .
CATCH  cx_salv_bs_sc_runtime_info  .
ENDTRY  .
查看完整代码 
IF  <data> IS ASSIGNED  .
APPEND LINES OF  <data> TO  lt_sflight  .
ENDIF  .
CATCH  cx_salv_bs_sc_runtime_info  .
ENDTRY  .
ABAP ABAPSALV数据读取不限于SALV 
cl_salv_bs_runtime_info  => clear_all  ( ).
cl_salv_bs_runtime_info  => clear_error  ( ).
ENDIF  .
查看完整代码 
cl_salv_bs_runtime_info  => clear_all  ( ).
cl_salv_bs_runtime_info  => clear_error  ( ).
ENDIF  .
ABAP ABAPSALV数据读取不限于SALV 
REPORT  zsalv_deom  NO STANDARD PAGE  HEADING  .
查看完整代码 
REPORT  zsalv_deom  NO STANDARD PAGE  HEADING  .
ABAP ABAPSALV数据读取不限于SALV 
CLASS  lcl_evt_handler  DEFINITION  .
查看完整代码 
CLASS  lcl_evt_handler  DEFINITION  .
ABAP ABAPSALV数据读取不限于SALV 
ENDCLASS  .  "lcl_evt_handler DEFINITION
查看完整代码 
ENDCLASS  .  "lcl_evt_handler DEFINITION
ABAP ABAPSALV数据读取不限于SALV 
CLASS  lcl_evt_handler  IMPLEMENTATION  .
METHOD  on_link_click  .
查看完整代码 
CLASS  lcl_evt_handler  IMPLEMENTATION  .
METHOD  on_link_click  .
ABAP ABAPSALV数据读取不限于SALV 
READ TABLE  gt_spfli  ASSIGNING  <spfli> INDEX  row  .
IF  <spfli> \-  cbox  =  'X'  .
查看完整代码 
READ TABLE  gt_spfli  ASSIGNING  <spfli> INDEX  row  .
IF  <spfli> \-  cbox  =  'X'  .
ABAP ABAPSALV数据读取不限于SALV 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAPSALV数据读取不限于SALV 
ls_stable  \-  row  =  'X'  .
ls_stable  \-  col  =  'X'  .
查看完整代码 
ls_stable  \-  row  =  'X'  .
ls_stable  \-  col  =  'X'  .
ABAP ABAPSALV数据读取不限于SALV 
s_stable  =  ls_stable
refresh_mode  =  if_salv_c_refresh  => soft
查看完整代码 
s_stable  =  ls_stable
refresh_mode  =  if_salv_c_refresh  => soft
ABAP ABAPSALV数据读取不限于SALV 
ENDCASE  .
ENDMETHOD  .  "on_link_click
METHOD  on_added_function  .
查看完整代码 
ENDCASE  .
ENDMETHOD  .  "on_link_click
METHOD  on_added_function  .
ABAP ABAPSALV数据读取不限于SALV 
LOOP AT  gt_spfli  INTO  gs_spfli  WHERE  cbox  =  'X'  .
查看完整代码 
LOOP AT  gt_spfli  INTO  gs_spfli  WHERE  cbox  =  'X'  .
ABAP ABAPSALV数据读取不限于SALV 
APPEND  rs_carrid  TO  rt_carrid  .
查看完整代码 
APPEND  rs_carrid  TO  rt_carrid  .
ABAP ABAPSALV数据读取不限于SALV 
APPEND  rs_connid  TO  rt_connid  .
ENDLOOP  .
查看完整代码 
APPEND  rs_connid  TO  rt_connid  .
ENDLOOP  .
ABAP ABAPSALV数据读取不限于SALV 
cl_salv_bs_runtime_info  => set  (
查看完整代码 
cl_salv_bs_runtime_info  => set  (
ABAP ABAPSALV数据读取不限于SALV 
SUBMIT  zsalv_test01  WITH  r_rb1  =  'X'
查看完整代码 
SUBMIT  zsalv_test01  WITH  r_rb1  =  'X'
ABAP ABAPSALV数据读取不限于SALV 
cl_salv_bs_runtime_info  => get_data_ref  (
查看完整代码 
cl_salv_bs_runtime_info  => get_data_ref  (
ABAP ABAPSALV数据读取不限于SALV 
r_data  =  lo_data
查看完整代码 
r_data  =  lo_data
ABAP ABAPSALV数据读取不限于SALV 
IF  <data> IS ASSIGNED  .
APPEND LINES OF  <data> TO  lt_sflight  .
ENDIF  .
CATCH  cx_salv_bs_sc_runtime_info  .
ENDTRY  .
查看完整代码 
IF  <data> IS ASSIGNED  .
APPEND LINES OF  <data> TO  lt_sflight  .
ENDIF  .
CATCH  cx_salv_bs_sc_runtime_info  .
ENDTRY  .
ABAP ABAPSALV数据读取不限于SALV 
cl_salv_bs_runtime_info  => clear_all  ( ).
cl_salv_bs_runtime_info  => clear_error  ( ).
查看完整代码 
cl_salv_bs_runtime_info  => clear_all  ( ).
cl_salv_bs_runtime_info  => clear_error  ( ).
ABAP ABAPSALV数据读取不限于SALV 
TRY  .
cl_salv_table  => factory  (
查看完整代码 
TRY  .
cl_salv_table  => factory  (
ABAP ABAPSALV数据读取不限于SALV 
r_salv_table  =  lo_salv
查看完整代码 
r_salv_table  =  lo_salv
ABAP ABAPSALV数据读取不限于SALV 
t_table  =  lt_sflight
查看完整代码 
t_table  =  lt_sflight
ABAP ABAPSALV数据读取不限于SALV 
CATCH  cx_salv_msg  .
ENDTRY  .
查看完整代码 
CATCH  cx_salv_msg  .
ENDTRY  .
ABAP ABAPSALV数据读取不限于SALV 
lo_functions_list  =  lo_salv  -> get_functions  ( ).
lo_columns_table  =  lo_salv  -> get_columns  ( ).
查看完整代码 
lo_functions_list  =  lo_salv  -> get_functions  ( ).
lo_columns_table  =  lo_salv  -> get_columns  ( ).
ABAP ABAPSALV数据读取不限于SALV 
ENDCASE  .
ENDMETHOD  .  "on_added_function
ENDCLASS  .  "lcl_evt_handler IMPLEMENTATION
查看完整代码 
ENDCASE  .
ENDMETHOD  .  "on_added_function
ENDCLASS  .  "lcl_evt_handler IMPLEMENTATION
ABAP ABAPSALV数据读取不限于SALV 
SELECT  *  FROM  spfli  INTO  CORRESPONDING  FIELDS OF TABLE  gt_spfli  UP TO
查看完整代码 
SELECT  *  FROM  spfli  INTO  CORRESPONDING  FIELDS OF TABLE  gt_spfli  UP TO
ABAP ABAPSALV数据读取不限于SALV 
cl_salv_table  => factory  (
查看完整代码 
cl_salv_table  => factory  (
ABAP ABAPSALV数据读取不限于SALV 
r_container  =  cl_gui_container  => default_screen
查看完整代码 
r_container  =  cl_gui_container  => default_screen
ABAP ABAPSALV数据读取不限于SALV 
r_salv_table  =  go_salv
查看完整代码 
r_salv_table  =  go_salv
ABAP ABAPSALV数据读取不限于SALV 
lo_display  =  go_salv  -> get_display_settings  ( ).
查看完整代码 
lo_display  =  go_salv  -> get_display_settings  ( ).
ABAP ABAPSALV数据读取不限于SALV 
lo_functions  =  go_salv  -> get_functions  ( ).
查看完整代码 
lo_functions  =  go_salv  -> get_functions  ( ).
ABAP ABAPSALV数据读取不限于SALV 
position  =  if_salv_c_function_position  => right_of_salv_functions
查看完整代码 
position  =  if_salv_c_function_position  => right_of_salv_functions
ABAP ABAPSALV数据读取不限于SALV 
lo_events_table  =  go_salv  -> get_event  ( ).
查看完整代码 
lo_events_table  =  go_salv  -> get_event  ( ).
ABAP ABAPSALV数据读取不限于SALV 
lo_columns  =  go_salv  -> get_columns  ( ).
查看完整代码 
lo_columns  =  go_salv  -> get_columns  ( ).
ABAP ABAPSALV数据读取不限于SALV 
lo_columns  -> set_column_position  (  columnname  =  'CBOX'  position  =  1
查看完整代码 
lo_columns  -> set_column_position  (  columnname  =  'CBOX'  position  =  1
ABAP ABAPSALV数据读取不限于SALV 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'CBOX'  ).
查看完整代码 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'CBOX'  ).
ABAP ABAPSALV数据读取不限于SALV 
lo_column  -> set_alignment  (  if_salv_c_alignment  => centered  ).
lo_column  -> set_cell_type  (  if_salv_c_cell_type  => checkbox_hotspot  ).
查看完整代码 
lo_column  -> set_alignment  (  if_salv_c_alignment  => centered  ).
lo_column  -> set_cell_type  (  if_salv_c_cell_type  => checkbox_hotspot  ).
ABAP ABAPSALV数据读取不限于SALV 
REPORT  zsalv_test01  NO STANDARD PAGE  HEADING  .
查看完整代码 
REPORT  zsalv_test01  NO STANDARD PAGE  HEADING  .
ABAP ABAPSALV样式列行单元格 
lo_columns  -> set_column_position  (  columnname  =  'CBOX'  position  =  1
查看完整代码 
lo_columns  -> set_column_position  (  columnname  =  'CBOX'  position  =  1
ABAP ABAPSALV样式列行单元格 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'CBOX'  ).
查看完整代码 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'CBOX'  ).
ABAP ABAPSALV样式列行单元格 
lo_column  -> set_alignment  (  if_salv_c_alignment  => centered  ).
lo_column  -> set_cell_type  (  if_salv_c_cell_type  => checkbox_hotspot  ).
查看完整代码 
lo_column  -> set_alignment  (  if_salv_c_alignment  => centered  ).
lo_column  -> set_cell_type  (  if_salv_c_cell_type  => checkbox_hotspot  ).
ABAP ABAPSALV样式列行单元格 
LOOP AT  gt_spfli  INTO  gs_spfli  .
查看完整代码 
LOOP AT  gt_spfli  INTO  gs_spfli  .
ABAP ABAPSALV样式列行单元格 
ls_ctyp  \-  columnname  =  ''  .
ls_ctyp  \-  value  =  if_salv_c_cell_type  => button  .
APPEND  ls_ctyp  TO  gs_spfli  \-  ctyp  .
查看完整代码 
ls_ctyp  \-  columnname  =  ''  .
ls_ctyp  \-  value  =  if_salv_c_cell_type  => button  .
APPEND  ls_ctyp  TO  gs_spfli  \-  ctyp  .
ABAP ABAPSALV样式列行单元格 
ls_ctyp  \-  columnname  =  ''  .
ls_ctyp  \-  value  =  if_salv_c_cell_type  => hotspot  .
APPEND  ls_ctyp  TO  gs_spfli  \-  ctyp  .
查看完整代码 
ls_ctyp  \-  columnname  =  ''  .
ls_ctyp  \-  value  =  if_salv_c_cell_type  => hotspot  .
APPEND  ls_ctyp  TO  gs_spfli  \-  ctyp  .
ABAP ABAPSALV样式列行单元格 
ls_ctyp  \-  columnname  =  'COUNTRYFR'  .
ls_ctyp  \-  value  =  if_salv_c_cell_type  => button  .
APPEND  ls_ctyp  TO  gs_spfli  \-  ctyp  .
查看完整代码 
ls_ctyp  \-  columnname  =  'COUNTRYFR'  .
ls_ctyp  \-  value  =  if_salv_c_cell_type  => button  .
APPEND  ls_ctyp  TO  gs_spfli  \-  ctyp  .
ABAP ABAPSALV样式列行单元格 
ls_ctyp  \-  columnname  =  'COUNTRYTO'  .
ls_ctyp  \-  value  =  if_salv_c_cell_type  => hotspot  .
APPEND  ls_ctyp  TO  gs_spfli  \-  ctyp  .
查看完整代码 
ls_ctyp  \-  columnname  =  'COUNTRYTO'  .
ls_ctyp  \-  value  =  if_salv_c_cell_type  => hotspot  .
APPEND  ls_ctyp  TO  gs_spfli  \-  ctyp  .
ABAP ABAPSALV样式列行单元格 
ENDCASE  .
MODIFY  gt_spfli  FROM  gs_spfli  .
ENDLOOP  .
查看完整代码 
ENDCASE  .
MODIFY  gt_spfli  FROM  gs_spfli  .
ENDLOOP  .
ABAP ABAPSALV样式列行单元格 
SELECT  *  FROM  spfli  INTO  CORRESPONDING  FIELDS OF TABLE  gt_spfli  UP TO
查看完整代码 
SELECT  *  FROM  spfli  INTO  CORRESPONDING  FIELDS OF TABLE  gt_spfli  UP TO
ABAP ABAPSALV样式列行单元格 
cl_salv_table  => factory  (
查看完整代码 
cl_salv_table  => factory  (
ABAP ABAPSALV样式列行单元格 
r_salv_table  =  go_salv
查看完整代码 
r_salv_table  =  go_salv
ABAP ABAPSALV样式列行单元格 
lo_display  =  go_salv  -> get_display_settings  ( ).
查看完整代码 
lo_display  =  go_salv  -> get_display_settings  ( ).
ABAP ABAPSALV样式列行单元格 
lo_functions  =  go_salv  -> get_functions  ( ).
查看完整代码 
lo_functions  =  go_salv  -> get_functions  ( ).
ABAP ABAPSALV样式列行单元格 
lo_columns  =  go_salv  -> get_columns  ( ).
查看完整代码 
lo_columns  =  go_salv  -> get_columns  ( ).
ABAP ABAPSALV样式列行单元格 
lo_columns  -> set_column_position  (  columnname  =  'CBOX'  position  =  1
查看完整代码 
lo_columns  -> set_column_position  (  columnname  =  'CBOX'  position  =  1
ABAP ABAPSALV样式列行单元格 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'CBOX'  ).
查看完整代码 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'CBOX'  ).
ABAP ABAPSALV样式列行单元格 
lo_column  -> set_alignment  (  if_salv_c_alignment  => centered  ).
lo_column  -> set_cell_type  (  if_salv_c_cell_type  => checkbox_hotspot  ).
查看完整代码 
lo_column  -> set_alignment  (  if_salv_c_alignment  => centered  ).
lo_column  -> set_cell_type  (  if_salv_c_cell_type  => checkbox_hotspot  ).
ABAP ABAPSALV样式列行单元格 
LOOP AT  gt_spfli  INTO  gs_spfli  .
查看完整代码 
LOOP AT  gt_spfli  INTO  gs_spfli  .
ABAP ABAPSALV样式列行单元格 
ls_ctyp  \-  columnname  =  ''  .
ls_ctyp  \-  value  =  if_salv_c_cell_type  => button  .
APPEND  ls_ctyp  TO  gs_spfli  \-  ctyp  .
查看完整代码 
ls_ctyp  \-  columnname  =  ''  .
ls_ctyp  \-  value  =  if_salv_c_cell_type  => button  .
APPEND  ls_ctyp  TO  gs_spfli  \-  ctyp  .
ABAP ABAPSALV样式列行单元格 
ls_ctyp  \-  columnname  =  ''  .
ls_ctyp  \-  value  =  if_salv_c_cell_type  => hotspot  .
APPEND  ls_ctyp  TO  gs_spfli  \-  ctyp  .
查看完整代码 
ls_ctyp  \-  columnname  =  ''  .
ls_ctyp  \-  value  =  if_salv_c_cell_type  => hotspot  .
APPEND  ls_ctyp  TO  gs_spfli  \-  ctyp  .
ABAP ABAPSALV样式列行单元格 
ls_ctyp  \-  columnname  =  'COUNTRYFR'  .
ls_ctyp  \-  value  =  if_salv_c_cell_type  => button  .
APPEND  ls_ctyp  TO  gs_spfli  \-  ctyp  .
查看完整代码 
ls_ctyp  \-  columnname  =  'COUNTRYFR'  .
ls_ctyp  \-  value  =  if_salv_c_cell_type  => button  .
APPEND  ls_ctyp  TO  gs_spfli  \-  ctyp  .
ABAP ABAPSALV样式列行单元格 
ls_ctyp  \-  columnname  =  'COUNTRYTO'  .
ls_ctyp  \-  value  =  if_salv_c_cell_type  => hotspot  .
APPEND  ls_ctyp  TO  gs_spfli  \-  ctyp  .
查看完整代码 
ls_ctyp  \-  columnname  =  'COUNTRYTO'  .
ls_ctyp  \-  value  =  if_salv_c_cell_type  => hotspot  .
APPEND  ls_ctyp  TO  gs_spfli  \-  ctyp  .
ABAP ABAPSALV样式列行单元格 
ENDCASE  .
MODIFY  gt_spfli  FROM  gs_spfli  .
ENDLOOP  .
查看完整代码 
ENDCASE  .
MODIFY  gt_spfli  FROM  gs_spfli  .
ENDLOOP  .
ABAP ABAPSALV选择模式触发事件 
IF  p_day12  EQ  'X'  .
查看完整代码 
IF  p_day12  EQ  'X'  .
ABAP ABAPSALV选择模式触发事件 
lo_selections  =  go_salv  -> get_selections  ( ).
lo_selections  -> set_selection_mode  (  if_salv_c_selection_mode  => cell  ).
查看完整代码 
lo_selections  =  go_salv  -> get_selections  ( ).
lo_selections  -> set_selection_mode  (  if_salv_c_selection_mode  => cell  ).
ABAP ABAPSALV选择模式触发事件 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAPSALV选择模式触发事件 
IF  p_day13  EQ  'X'  .
查看完整代码 
IF  p_day13  EQ  'X'  .
ABAP ABAPSALV选择模式触发事件 
lo_events_table  =  go_salv  -> get_event  ( ).
查看完整代码 
lo_events_table  =  go_salv  -> get_event  ( ).
ABAP ABAPSALV选择模式触发事件 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAPSALV选择模式触发事件 
CLASS  lcl_evt_handler  DEFINITION  .
查看完整代码 
CLASS  lcl_evt_handler  DEFINITION  .
ABAP ABAPSALV选择模式触发事件 
METHODS  before_salv_function  "标准按钮点击前
查看完整代码 
METHODS  before_salv_function  "标准按钮点击前
ABAP ABAPSALV选择模式触发事件 
METHODS  after_salv_function  "标准按钮点击后
查看完整代码 
METHODS  after_salv_function  "标准按钮点击后
ABAP ABAPSALV选择模式触发事件 
ENDCLASS  .
查看完整代码 
ENDCLASS  .
ABAP ABAPSALV选择模式触发事件 
CLASS  lcl_evt_handler  IMPLEMENTATION  .
METHOD  on_link_click  .
查看完整代码 
CLASS  lcl_evt_handler  IMPLEMENTATION  .
METHOD  on_link_click  .
ABAP ABAPSALV选择模式触发事件 
ENDMETHOD  .
METHOD  on_double_click  .
查看完整代码 
ENDMETHOD  .
METHOD  on_double_click  .
ABAP ABAPSALV选择模式触发事件 
ENDMETHOD  .
METHOD  on_added_function  .
查看完整代码 
ENDMETHOD  .
METHOD  on_added_function  .
ABAP ABAPSALV选择模式触发事件 
ENDMETHOD  .
METHOD  before_salv_function  .
查看完整代码 
ENDMETHOD  .
METHOD  before_salv_function  .
ABAP ABAPSALV选择模式触发事件 
ENDMETHOD  .
METHOD  after_salv_function  .
查看完整代码 
ENDMETHOD  .
METHOD  after_salv_function  .
ABAP ABAPSALV选择模式触发事件 
ENDMETHOD  .
ENDCLASS  .
查看完整代码 
ENDMETHOD  .
ENDCLASS  .
ABAP ABAPSALV选择模式触发事件 
SELECT  *  FROM  spfli  INTO TABLE  gt_spfli  UP TO  30  ROWS  .
查看完整代码 
SELECT  *  FROM  spfli  INTO TABLE  gt_spfli  UP TO  30  ROWS  .
ABAP ABAPSALV选择模式触发事件 
cl_salv_table  => factory  (
查看完整代码 
cl_salv_table  => factory  (
ABAP ABAPSALV选择模式触发事件 
r_salv_table  =  go_salv
查看完整代码 
r_salv_table  =  go_salv
ABAP ABAPSALV选择模式触发事件 
IF  p_day02  EQ  'X'  .
查看完整代码 
IF  p_day02  EQ  'X'  .
ABAP ABAPSALV选择模式触发事件 
lo_display  =  go_salv  -> get_display_settings  ( ).
查看完整代码 
lo_display  =  go_salv  -> get_display_settings  ( ).
ABAP ABAPSALV选择模式触发事件 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAPSALV选择模式触发事件 
IF  p_day03  EQ  'X'  .
查看完整代码 
IF  p_day03  EQ  'X'  .
ABAP ABAPSALV选择模式触发事件 
lo_columns  =  go_salv  -> get_columns  ( ).
查看完整代码 
lo_columns  =  go_salv  -> get_columns  ( ).
ABAP ABAPSALV选择模式触发事件 
IF  p_day13  =  'X'  .
查看完整代码 
IF  p_day13  =  'X'  .
ABAP ABAPSALV选择模式触发事件 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'CARRID'  ).
lo_column  -> set_cell_type  (  if_salv_c_cell_type  => hotspot  ).
ENDIF  .
ENDIF  .
查看完整代码 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'CARRID'  ).
lo_column  -> set_cell_type  (  if_salv_c_cell_type  => hotspot  ).
ENDIF  .
ENDIF  .
ABAP ABAPSALV选择模式触发事件 
IF  p_day04  EQ  'X'  .
查看完整代码 
IF  p_day04  EQ  'X'  .
ABAP ABAPSALV选择模式触发事件 
lo_functions  =  go_salv  -> get_functions  ( ).
查看完整代码 
lo_functions  =  go_salv  -> get_functions  ( ).
ABAP ABAPSALV选择模式触发事件 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAPSALV选择模式触发事件 
IF  p_day12  EQ  'X'  .
查看完整代码 
IF  p_day12  EQ  'X'  .
ABAP ABAPSALV选择模式触发事件 
lo_selections  =  go_salv  -> get_selections  ( ).
lo_selections  -> set_selection_mode  (  if_salv_c_selection_mode  => cell  ).
查看完整代码 
lo_selections  =  go_salv  -> get_selections  ( ).
lo_selections  -> set_selection_mode  (  if_salv_c_selection_mode  => cell  ).
ABAP ABAPSALV选择模式触发事件 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAPSALV选择模式触发事件 
IF  p_day13  EQ  'X'  .
查看完整代码 
IF  p_day13  EQ  'X'  .
ABAP ABAPSALV选择模式触发事件 
lo_events_table  =  go_salv  -> get_event  ( ).
查看完整代码 
lo_events_table  =  go_salv  -> get_event  ( ).
ABAP ABAPSALV选择模式触发事件 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAPSALV隐藏列修改列标题添加图标列调整列位置 
IF  p_day14  =  'X'  .
查看完整代码 
IF  p_day14  =  'X'  .
ABAP ABAPSALV隐藏列修改列标题添加图标列调整列位置 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'MANDT'  ).
查看完整代码 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'MANDT'  ).
ABAP ABAPSALV隐藏列修改列标题添加图标列调整列位置 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'COUNTRYFR'  ).
查看完整代码 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'COUNTRYFR'  ).
ABAP ABAPSALV隐藏列修改列标题添加图标列调整列位置 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'COUNTRYTO'  ).
查看完整代码 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'COUNTRYTO'  ).
ABAP ABAPSALV隐藏列修改列标题添加图标列调整列位置 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAPSALV隐藏列修改列标题添加图标列调整列位置 
IF  p_day15  =  'X'  .
查看完整代码 
IF  p_day15  =  'X'  .
ABAP ABAPSALV隐藏列修改列标题添加图标列调整列位置 
lo_columns  -> set_column_position  (  columnname  =  'SNUM'  position  =  1
查看完整代码 
lo_columns  -> set_column_position  (  columnname  =  'SNUM'  position  =  1
ABAP ABAPSALV隐藏列修改列标题添加图标列调整列位置 
lo_columns  -> set_column_position  (  columnname  =  'ICON'  position  =  2
查看完整代码 
lo_columns  -> set_column_position  (  columnname  =  'ICON'  position  =  2
ABAP ABAPSALV隐藏列修改列标题添加图标列调整列位置 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'CARRID'  ).
查看完整代码 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'CARRID'  ).
ABAP ABAPSALV隐藏列修改列标题添加图标列调整列位置 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'CONNID'  ).
查看完整代码 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'CONNID'  ).
ABAP ABAPSALV隐藏列修改列标题添加图标列调整列位置 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'SNUM'  ).
查看完整代码 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'SNUM'  ).
ABAP ABAPSALV隐藏列修改列标题添加图标列调整列位置 
lo_column  -> set_alignment  (  if_salv_c_alignment  => centered  ).
查看完整代码 
lo_column  -> set_alignment  (  if_salv_c_alignment  => centered  ).
ABAP ABAPSALV隐藏列修改列标题添加图标列调整列位置 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'ICON'  ).
查看完整代码 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'ICON'  ).
ABAP ABAPSALV隐藏列修改列标题添加图标列调整列位置 
lo_column  -> set_alignment  (  if_salv_c_alignment  => centered  ).
查看完整代码 
lo_column  -> set_alignment  (  if_salv_c_alignment  => centered  ).
ABAP ABAPSALV隐藏列修改列标题添加图标列调整列位置 
LOOP AT  gt_spfli  INTO  gs_spfli  .
查看完整代码 
LOOP AT  gt_spfli  INTO  gs_spfli  .
ABAP ABAPSALV隐藏列修改列标题添加图标列调整列位置 
ENDCASE  .
MODIFY  gt_spfli  FROM  gs_spfli  .
ENDLOOP  .
ENDIF  .
查看完整代码 
ENDCASE  .
MODIFY  gt_spfli  FROM  gs_spfli  .
ENDLOOP  .
ENDIF  .
ABAP ABAPSALV隐藏列修改列标题添加图标列调整列位置 
SELECT  *  FROM  spfli  INTO TABLE  gt_spfli  UP TO  30  ROWS  .
查看完整代码 
SELECT  *  FROM  spfli  INTO TABLE  gt_spfli  UP TO  30  ROWS  .
ABAP ABAPSALV隐藏列修改列标题添加图标列调整列位置 
cl_salv_table  => factory  (
查看完整代码 
cl_salv_table  => factory  (
ABAP ABAPSALV隐藏列修改列标题添加图标列调整列位置 
r_salv_table  =  go_salv
查看完整代码 
r_salv_table  =  go_salv
ABAP ABAPSALV隐藏列修改列标题添加图标列调整列位置 
IF  p_day02  EQ  'X'  .
查看完整代码 
IF  p_day02  EQ  'X'  .
ABAP ABAPSALV隐藏列修改列标题添加图标列调整列位置 
lo_display  =  go_salv  -> get_display_settings  ( ).
查看完整代码 
lo_display  =  go_salv  -> get_display_settings  ( ).
ABAP ABAPSALV隐藏列修改列标题添加图标列调整列位置 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAPSALV隐藏列修改列标题添加图标列调整列位置 
IF  p_day03  EQ  'X'  .
查看完整代码 
IF  p_day03  EQ  'X'  .
ABAP ABAPSALV隐藏列修改列标题添加图标列调整列位置 
lo_columns  =  go_salv  -> get_columns  ( ).
查看完整代码 
lo_columns  =  go_salv  -> get_columns  ( ).
ABAP ABAPSALV隐藏列修改列标题添加图标列调整列位置 
IF  p_day14  =  'X'  .
查看完整代码 
IF  p_day14  =  'X'  .
ABAP ABAPSALV隐藏列修改列标题添加图标列调整列位置 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'MANDT'  ).
查看完整代码 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'MANDT'  ).
ABAP ABAPSALV隐藏列修改列标题添加图标列调整列位置 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'COUNTRYFR'  ).
查看完整代码 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'COUNTRYFR'  ).
ABAP ABAPSALV隐藏列修改列标题添加图标列调整列位置 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'COUNTRYTO'  ).
查看完整代码 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'COUNTRYTO'  ).
ABAP ABAPSALV隐藏列修改列标题添加图标列调整列位置 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAPSALV隐藏列修改列标题添加图标列调整列位置 
IF  p_day15  =  'X'  .
查看完整代码 
IF  p_day15  =  'X'  .
ABAP ABAPSALV隐藏列修改列标题添加图标列调整列位置 
lo_columns  -> set_column_position  (  columnname  =  'SNUM'  position  =  1
查看完整代码 
lo_columns  -> set_column_position  (  columnname  =  'SNUM'  position  =  1
ABAP ABAPSALV隐藏列修改列标题添加图标列调整列位置 
lo_columns  -> set_column_position  (  columnname  =  'ICON'  position  =  2
查看完整代码 
lo_columns  -> set_column_position  (  columnname  =  'ICON'  position  =  2
ABAP ABAPSALV隐藏列修改列标题添加图标列调整列位置 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'CARRID'  ).
查看完整代码 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'CARRID'  ).
ABAP ABAPSALV隐藏列修改列标题添加图标列调整列位置 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'CONNID'  ).
查看完整代码 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'CONNID'  ).
ABAP ABAPSALV隐藏列修改列标题添加图标列调整列位置 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'SNUM'  ).
查看完整代码 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'SNUM'  ).
ABAP ABAPSALV隐藏列修改列标题添加图标列调整列位置 
lo_column  -> set_alignment  (  if_salv_c_alignment  => centered  ).
查看完整代码 
lo_column  -> set_alignment  (  if_salv_c_alignment  => centered  ).
ABAP ABAPSALV隐藏列修改列标题添加图标列调整列位置 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'ICON'  ).
查看完整代码 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'ICON'  ).
ABAP ABAPSALV隐藏列修改列标题添加图标列调整列位置 
lo_column  -> set_alignment  (  if_salv_c_alignment  => centered  ).
查看完整代码 
lo_column  -> set_alignment  (  if_salv_c_alignment  => centered  ).
ABAP ABAPSALV隐藏列修改列标题添加图标列调整列位置 
LOOP AT  gt_spfli  INTO  gs_spfli  .
查看完整代码 
LOOP AT  gt_spfli  INTO  gs_spfli  .
ABAP ABAPSALV隐藏列修改列标题添加图标列调整列位置 
ENDCASE  .
MODIFY  gt_spfli  FROM  gs_spfli  .
ENDLOOP  .
ENDIF  .
ENDIF  .
查看完整代码 
ENDCASE  .
MODIFY  gt_spfli  FROM  gs_spfli  .
ENDLOOP  .
ENDIF  .
ENDIF  .
ABAP ABAPSALV颜色列行单元格 
ls_color  \-  col  =  5  .
ls_color  \-  int  =  1  .
ls_color  \-  inv  =  0  .
查看完整代码 
ls_color  \-  col  =  5  .
ls_color  \-  int  =  1  .
ls_color  \-  inv  =  0  .
ABAP ABAPSALV颜色列行单元格 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'DEPTIME'  ).
查看完整代码 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'DEPTIME'  ).
ABAP ABAPSALV颜色列行单元格 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'ARRTIME'  ).
查看完整代码 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'ARRTIME'  ).
ABAP ABAPSALV颜色列行单元格 
LOOP AT  gt_spfli  INTO  gs_spfli  .
查看完整代码 
LOOP AT  gt_spfli  INTO  gs_spfli  .
ABAP ABAPSALV颜色列行单元格 
ls_scol  \-  color  \-  col  =  5  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
查看完整代码 
ls_scol  \-  color  \-  col  =  5  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
ABAP ABAPSALV颜色列行单元格 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  ''  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  ''  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPSALV颜色列行单元格 
ls_scol  \-  color  \-  col  =  6  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
查看完整代码 
ls_scol  \-  color  \-  col  =  6  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
ABAP ABAPSALV颜色列行单元格 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  'X'  .  "避免被Key颜色覆盖
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  'X'  .  "避免被Key颜色覆盖
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPSALV颜色列行单元格 
ls_scol  \-  color  \-  col  =  3  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
查看完整代码 
ls_scol  \-  color  \-  col  =  3  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
ABAP ABAPSALV颜色列行单元格 
ls_scol  \-  fname  =  'COUNTRYFR'  .
ls_scol  \-  nokeycol  =  'X'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  'COUNTRYFR'  .
ls_scol  \-  nokeycol  =  'X'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPSALV颜色列行单元格 
ls_scol  \-  fname  =  'COUNTRYTO'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  'COUNTRYTO'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPSALV颜色列行单元格 
ls_scol  \-  fname  =  'FLTIME'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  'FLTIME'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPSALV颜色列行单元格 
ENDCASE  .
MODIFY  gt_spfli  FROM  gs_spfli  .
ENDLOOP  .
查看完整代码 
ENDCASE  .
MODIFY  gt_spfli  FROM  gs_spfli  .
ENDLOOP  .
ABAP ABAPSALV颜色列行单元格 
SELECT  *  FROM  spfli  INTO  CORRESPONDING  FIELDS OF TABLE  gt_spfli  UP TO
查看完整代码 
SELECT  *  FROM  spfli  INTO  CORRESPONDING  FIELDS OF TABLE  gt_spfli  UP TO
ABAP ABAPSALV颜色列行单元格 
cl_salv_table  => factory  (
查看完整代码 
cl_salv_table  => factory  (
ABAP ABAPSALV颜色列行单元格 
r_salv_table  =  go_salv
查看完整代码 
r_salv_table  =  go_salv
ABAP ABAPSALV颜色列行单元格 
lo_display  =  go_salv  -> get_display_settings  ( ).
查看完整代码 
lo_display  =  go_salv  -> get_display_settings  ( ).
ABAP ABAPSALV颜色列行单元格 
lo_functions  =  go_salv  -> get_functions  ( ).
查看完整代码 
lo_functions  =  go_salv  -> get_functions  ( ).
ABAP ABAPSALV颜色列行单元格 
lo_columns  =  go_salv  -> get_columns  ( ).
查看完整代码 
lo_columns  =  go_salv  -> get_columns  ( ).
ABAP ABAPSALV颜色列行单元格 
ls_color  \-  col  =  5  .
ls_color  \-  int  =  1  .
ls_color  \-  inv  =  0  .
查看完整代码 
ls_color  \-  col  =  5  .
ls_color  \-  int  =  1  .
ls_color  \-  inv  =  0  .
ABAP ABAPSALV颜色列行单元格 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'DEPTIME'  ).
查看完整代码 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'DEPTIME'  ).
ABAP ABAPSALV颜色列行单元格 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'ARRTIME'  ).
查看完整代码 
lo_column ?= lo_columns  -> get_column  (  columnname  =  'ARRTIME'  ).
ABAP ABAPSALV颜色列行单元格 
LOOP AT  gt_spfli  INTO  gs_spfli  .
查看完整代码 
LOOP AT  gt_spfli  INTO  gs_spfli  .
ABAP ABAPSALV颜色列行单元格 
ls_scol  \-  color  \-  col  =  5  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
查看完整代码 
ls_scol  \-  color  \-  col  =  5  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
ABAP ABAPSALV颜色列行单元格 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  ''  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  ''  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPSALV颜色列行单元格 
ls_scol  \-  color  \-  col  =  6  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
查看完整代码 
ls_scol  \-  color  \-  col  =  6  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
ABAP ABAPSALV颜色列行单元格 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  'X'  .  "避免被Key颜色覆盖
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  ''  .
ls_scol  \-  nokeycol  =  'X'  .  "避免被Key颜色覆盖
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPSALV颜色列行单元格 
ls_scol  \-  color  \-  col  =  3  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
查看完整代码 
ls_scol  \-  color  \-  col  =  3  .
ls_scol  \-  color  \-  int  =  1  .
ls_scol  \-  color  \-  inv  =  0  .
ABAP ABAPSALV颜色列行单元格 
ls_scol  \-  fname  =  'COUNTRYFR'  .
ls_scol  \-  nokeycol  =  'X'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  'COUNTRYFR'  .
ls_scol  \-  nokeycol  =  'X'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPSALV颜色列行单元格 
ls_scol  \-  fname  =  'COUNTRYTO'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  'COUNTRYTO'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPSALV颜色列行单元格 
ls_scol  \-  fname  =  'FLTIME'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
查看完整代码 
ls_scol  \-  fname  =  'FLTIME'  .
APPEND  ls_scol  TO  gs_spfli  \-  scol  .
ABAP ABAPSALV颜色列行单元格 
ENDCASE  .
MODIFY  gt_spfli  FROM  gs_spfli  .
ENDLOOP  .
查看完整代码 
ENDCASE  .
MODIFY  gt_spfli  FROM  gs_spfli  .
ENDLOOP  .
ABAP ABAPSM30删除前检查 
FORM frm_before_delete
查看完整代码 
FORM frm_before_delete
ABAP ABAPSM30删除前检查 
IF  <field> IS  ASSIGNED  AND  <field> IS  NOT  INITIAL  .
查看完整代码 
IF  <field> IS  ASSIGNED  AND  <field> IS  NOT  INITIAL  .
ABAP ABAPSM30删除前检查 
IF  sy  \-  subrc  EQ  0  AND  <value> =  '标准订单'  .
lv_message  =  'X'  .
查看完整代码 
IF  sy  \-  subrc  EQ  0  AND  <value> =  '标准订单'  .
lv_message  =  'X'  .
ABAP ABAPSM30删除前检查 
MODIFY  extract  .
ENDIF  .
ENDIF  .
ENDLOOP  .
IF  lv_message  =  'X'  .
查看完整代码 
MODIFY  extract  .
ENDIF  .
ENDIF  .
ENDLOOP  .
IF  lv_message  =  'X'  .
ABAP ABAPSM30删除前检查 
ENDIF  .
ENDFORM  .
查看完整代码 
ENDIF  .
ENDFORM  .
ABAP ABAPSM30删除前检查 
IF  vim_marked  NE  space  AND  function  =  'DELE'  .
IF  zvjxzhu_01  \-  context  =  '标准订单'  .
查看完整代码 
IF  vim_marked  NE  space  AND  function  =  'DELE'  .
IF  zvjxzhu_01  \-  context  =  '标准订单'  .
ABAP ABAPSM30删除前检查 
ENDIF  .
ENDIF  .
ENDMODULE  .
查看完整代码 
ENDIF  .
ENDIF  .
ENDMODULE  .
ABAP ABAPSQL中实现行列转换
查看代码
"UNPIVOT  SELECT a~ryear,a~racct,a~rbukrs,a~drcrk,a~activ,a~awtyp,    concat( 'HSL',lpad( CAST( b~num AS CHAR ),2,'0' ) ) AS col_name,    CASE b~num      WHEN 1  THEN hsl01      WHEN 2  THEN hsl02      WHEN 3  THEN hsl03      WHEN 4  THEN hsl04      WHEN 5  THEN hsl05      WHEN 6  THEN hsl06      WHEN 7  THEN hsl07      WHEN 8  THEN hsl08      WHEN 9  THEN hsl09      WHEN 10 THEN hsl10      WHEN 11 THEN hsl11      WHEN 12 THEN hsl12      WHEN 13 THEN hsl13      WHE
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
"UNPIVOT  SELECT a~ryear,a~racct,a~rbukrs,a~drcrk,a~activ,a~awtyp,    concat( 'HSL',lpad( CAST( b~num AS CHAR ),2,'0' ) ) AS col_name,    CASE b~num      WHEN 1  THEN hsl01      WHEN 2  THEN hsl02      WHEN 3  THEN hsl03      WHEN 4  THEN hsl04      WHEN 5  THEN hsl05      WHEN 6  THEN hsl06      WHEN 7  THEN hsl07      WHEN 8  THEN hsl08      WHEN 9  THEN hsl09      WHEN 10 THEN hsl10      WHEN 11 THEN hsl11      WHEN 12 THEN hsl12      WHEN 13 THEN hsl13      WHE
/* ... 已截断，完整代码请查看原文 */
ABAP ABAPSQL中实现行列转换 
cl_demo_output=>display( lt_data_pivot ).
查看完整代码 
cl_demo_output=>display( lt_data_pivot ).
ABAP ABAP中使用正则表达式的一点知识分享 
IF cl_abap_matcher=>matches(                             pattern = '^(-?[0-9]{1,12})(\.[0-9]{1,3})?$'                                                     text = lv_data_value                                                         ) = abap_true.    cl_demo_output=>write( |{ lv_data_value }是金额或数量值| ).ELSE.      cl_demo_output=>write( |{ lv_data_value }不是金额或数量值| ).ENDIF.
查看完整代码 
IF cl_abap_matcher=>matches(                             pattern = '^(-?[0-9]{1,12})(\.[0-9]{1,3})?$'                                                     text = lv_data_value                                                         ) = abap_true.    cl_demo_output=>write( |{ lv_data_value }是金额或数量值| ).ELSE.      cl_demo_output=>write( |{ lv_data_value }不是金额或数量值| ).ENDIF.
ABAP ABAP中使用正则表达式的一点知识分享 
lv_data_value = '1K.78'.
查看完整代码 
lv_data_value = '1K.78'.
ABAP ABAP中使用正则表达式的一点知识分享 
lv_data_value = 'ab_c.1-23@xyz.com'.IF cl_abap_matcher=>matches(                    pattern = '^[a-zA-Z0-9_.-]+@[a-zA-Z0-9]{2,10}(.[a-z]{2,6}){1,3}$'                    text = lv_data_value                                                        ) = abap_true.    cl_demo_output=>write( |{ lv_data_value }是Email地址| ).ENDIF.
查看完整代码 
lv_data_value = 'ab_c.1-23@xyz.com'.IF cl_abap_matcher=>matches(                    pattern = '^[a-zA-Z0-9_.-]+@[a-zA-Z0-9]{2,10}(.[a-z]{2,6}){1,3}$'                    text = lv_data_value                                                        ) = abap_true.    cl_demo_output=>write( |{ lv_data_value }是Email地址| ).ENDIF.
ABAP ABAP中使用正则表达式的一点知识分享 
lv_data_value = '12345678.33500'.REPLACE ALL OCCURRENCES OF REGEX '(?=(?!^)(?:\d{3})+(?:\.))' IN lv_data_value WITH ','.
查看完整代码 
lv_data_value = '12345678.33500'.REPLACE ALL OCCURRENCES OF REGEX '(?=(?!^)(?:\d{3})+(?:\.))' IN lv_data_value WITH ','.
ABAP ABAP中使用正则表达式的一点知识分享
查看代码
DATA:lv_string_sms TYPE char100.DATA lv_valid_code(6).lv_string_sms = '【网易】验证码：685733，您正在登录网易账号（若非本人操作，请删除本短信）'.
FIND ALL OCCURRENCES OF REGEX '验证码\D*(?:\d{6}|\d{4})' IN lv_string_sms                MATCH COUNT DATA(l_match_count) RESULTS DATA(lt_reg_results).DATA(ls_reg_result) = VALUE #( lt_reg_results[ 1 ] OPTIONAL ).IF ls_reg_result IS NOT INITIAL.  DATA(lv_sub_str) = CONV char20( lv_string_sms+ls_reg_result-offset(ls_reg_result-length) ).  DATA(lv_len) = strlen( lv
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA:lv_string_sms TYPE char100.DATA lv_valid_code(6).lv_string_sms = '【网易】验证码：685733，您正在登录网易账号（若非本人操作，请删除本短信）'.
FIND ALL OCCURRENCES OF REGEX '验证码\D*(?:\d{6}|\d{4})' IN lv_string_sms                MATCH COUNT DATA(l_match_count) RESULTS DATA(lt_reg_results).DATA(ls_reg_result) = VALUE #( lt_reg_results[ 1 ] OPTIONAL ).IF ls_reg_result IS NOT INITIAL.  DATA(lv_sub_str) = CONV char20( lv_string_sms+ls_reg_result-offset(ls_reg_result-length) ).  DATA(lv_len) = strlen( lv
/* ... 已截断，完整代码请查看原文 */
ABAP ABAP使用INDICATORS更新指定列 
SELECT carrid,connid,fldate,price       FROM sflight       WHERE carrid = 'LH' AND             connid = '0400'       INTO CORRESPONDING FIELDS OF TABLE @itab.
IF sy-subrc  = 0.
LOOP AT itab ASSIGNING FIELD-SYMBOL(<wa>).    <wa>-price *= '0.8'.    <wa>-ind-price = abap_true.  ENDLOOP.
查看完整代码 
SELECT carrid,connid,fldate,price       FROM sflight       WHERE carrid = 'LH' AND             connid = '0400'       INTO CORRESPONDING FIELDS OF TABLE @itab.
IF sy-subrc  = 0.
LOOP AT itab ASSIGNING FIELD-SYMBOL(<wa>).    <wa>-price *= '0.8'.    <wa>-ind-price = abap_true.  ENDLOOP.
ABAP ABAP使用INDICATORS更新指定列 
ENDIF.
查看完整代码 
ENDIF.
ABAP ABAP使用INDICATORS更新指定列 
SELECT carrid,connid,fldate,price       FROM sflight       WHERE carrid = 'LH' AND             connid = '0400'       INTO CORRESPONDING FIELDS OF TABLE @itab.
IF sy-subrc  = 0.
LOOP AT itab ASSIGNING FIELD-SYMBOL(<wa>).    <wa>-price *= '0.8'.    <wa>-ind-price = '01'.  ENDLOOP.
查看完整代码 
SELECT carrid,connid,fldate,price       FROM sflight       WHERE carrid = 'LH' AND             connid = '0400'       INTO CORRESPONDING FIELDS OF TABLE @itab.
IF sy-subrc  = 0.
LOOP AT itab ASSIGNING FIELD-SYMBOL(<wa>).    <wa>-price *= '0.8'.    <wa>-ind-price = '01'.  ENDLOOP.
ABAP ABAP使用INDICATORS更新指定列 
ENDIF.
查看完整代码 
ENDIF.
ABAP ABAP使用异步远程RFC实现并行处理
查看代码
"获取登录/服务器组名称SELECT SINGLE  classnameFROM  rzllitabINTO  gv_classname    "Server Group NameWHERE  applserver  =  gv_applserver  AND  grouptype  =  'S' .    "S:服务器组，空:登陆组
CALL FUNCTION 'SPBT_INITIALIZE'      EXPORTING        group_name                     = gv_classname      IMPORTING        max_pbt_wps                    = gv_total "可用资源总数        free_pbt_wps                   = gv_available "空闲资源数      EXCEPTIONS        invalid_group_name       
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
"获取登录/服务器组名称SELECT SINGLE  classnameFROM  rzllitabINTO  gv_classname    "Server Group NameWHERE  applserver  =  gv_applserver  AND  grouptype  =  'S' .    "S:服务器组，空:登陆组
CALL FUNCTION 'SPBT_INITIALIZE'      EXPORTING        group_name                     = gv_classname      IMPORTING        max_pbt_wps                    = gv_total "可用资源总数        free_pbt_wps                   = gv_available "空闲资源数      EXCEPTIONS        invalid_group_name       
/* ... 已截断，完整代码请查看原文 */
ABAP ABAP使用异步远程RFC实现并行处理
查看代码
"--------------------@斌将军--------------------CALL FUNCTION 'YTEST001_001' STARTING NEW TASK gv_taskname    DESTINATION IN GROUP gv_classname    PERFORMING frm_ytest ON END OF TASK "调用每条线程的处理方法，接收处理结果    EXPORTING      i_index               = ps_alv-index      i_count               = ps_alv-count    EXCEPTIONS      communication_failure = 1 MESSAGE lv_message      system_failure        = 2 MESSAGE lv_message      resource_failure      = 3."--------------------@斌将军--
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
"--------------------@斌将军--------------------CALL FUNCTION 'YTEST001_001' STARTING NEW TASK gv_taskname    DESTINATION IN GROUP gv_classname    PERFORMING frm_ytest ON END OF TASK "调用每条线程的处理方法，接收处理结果    EXPORTING      i_index               = ps_alv-index      i_count               = ps_alv-count    EXCEPTIONS      communication_failure = 1 MESSAGE lv_message      system_failure        = 2 MESSAGE lv_message      resource_failure      = 3."--------------------@斌将军--
/* ... 已截断，完整代码请查看原文 */
ABAP ABAP使用异步远程RFC实现并行处理 
DATA:ls_alv TYPE ty_alv.
"接收处理数据的返回消息  RECEIVE RESULTS FROM  FUNCTION 'YTEST001_001'   IMPORTING     e_index       = ls_alv-index     e_count       = ls_alv-count  EXCEPTIONS      communication_failure  = 1 MESSAGE lv_message      system_failure         = 2 MESSAGE lv_message.
MODIFY gt_alv FROM ls_alv TRANSPORTING count WHERE index = ls_alv-index.
查看完整代码 
DATA:ls_alv TYPE ty_alv.
"接收处理数据的返回消息  RECEIVE RESULTS FROM  FUNCTION 'YTEST001_001'   IMPORTING     e_index       = ls_alv-index     e_count       = ls_alv-count  EXCEPTIONS      communication_failure  = 1 MESSAGE lv_message      system_failure         = 2 MESSAGE lv_message.
MODIFY gt_alv FROM ls_alv TRANSPORTING count WHERE index = ls_alv-index.
ABAP ABAP使用异步远程RFC实现并行处理
查看代码
DATA:gt_alv TYPE TABLE OF ty_alv,     gs_alv TYPE ty_alv.
DATA:gv_open_jobs TYPE i, "开启的进程     gv_jobs      TYPE i, "可用的进程     gv_end_jobs  TYPE i. "结束的进程
DATA:gv_applserver TYPE rzlli_asvr, "服务器标识 实例名称（用于登录/服务器组分配）     gv_classname  TYPE rzlli_apcl, "登录/服务器组名称     gv_taskname   TYPE char10, "进程名称     gv_init_flag  TYPE char1,     gv_total      TYPE i, "可用资源总数     gv_available  TYPE i. "空闲资源数
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA:gt_alv TYPE TABLE OF ty_alv,     gs_alv TYPE ty_alv.
DATA:gv_open_jobs TYPE i, "开启的进程     gv_jobs      TYPE i, "可用的进程     gv_end_jobs  TYPE i. "结束的进程
DATA:gv_applserver TYPE rzlli_asvr, "服务器标识 实例名称（用于登录/服务器组分配）     gv_classname  TYPE rzlli_apcl, "登录/服务器组名称     gv_taskname   TYPE char10, "进程名称     gv_init_flag  TYPE char1,     gv_total      TYPE i, "可用资源总数     gv_available  TYPE i. "空闲资源数
/* ... 已截断，完整代码请查看原文 */
ABAP ABAP使用异步远程RFC实现并行处理 
lv_count = lv_count + 1."进程任务计数器  IF gv_open_jobs - gv_end_jobs = gv_jobs."已开进程 - 已结束进程 = 可用进程    WAIT UNTIL gv_open_jobs - gv_end_jobs < gv_jobs."等待 已开进程 - 已结束进程 < 可用进程  ENDIF.
"拼接进程名称  gv_taskname = 'Task' && lv_count.  CONDENSE gv_taskname.
查看完整代码 
lv_count = lv_count + 1."进程任务计数器  IF gv_open_jobs - gv_end_jobs = gv_jobs."已开进程 - 已结束进程 = 可用进程    WAIT UNTIL gv_open_jobs - gv_end_jobs < gv_jobs."等待 已开进程 - 已结束进程 < 可用进程  ENDIF.
"拼接进程名称  gv_taskname = 'Task' && lv_count.  CONDENSE gv_taskname.
ABAP ABAP使用异步远程RFC实现并行处理 
"获取登录/服务器组名称  SELECT SINGLE    classname  FROM  rzllitab  INTO  gv_classname    "Server Group Name  WHERE  applserver  =  gv_applserver    AND  grouptype  =  'S' .    "S:服务器组，空:登陆组
ENDFORM.
查看完整代码 
"获取登录/服务器组名称  SELECT SINGLE    classname  FROM  rzllitab  INTO  gv_classname    "Server Group Name  WHERE  applserver  =  gv_applserver    AND  grouptype  =  'S' .    "S:服务器组，空:登陆组
ENDFORM.
ABAP ABAP使用异步远程RFC实现并行处理 
CASE sy-subrc.      WHEN 0.        lv_flat = gv_available * 9 / 10.        gv_jobs = floor( lv_flat ). "拿其中一部分的空闲资源数来执行        IF gv_jobs = 0 AND gv_available = 1.          gv_jobs = 1.        ENDIF.        gv_init_flag = 'X'.        "按照jobs来进行数据拆分      WHEN 1.*        MESSAGE E836."未定义 PBT 服务器组      WHEN 2.
查看完整代码 
CASE sy-subrc.      WHEN 0.        lv_flat = gv_available * 9 / 10.        gv_jobs = floor( lv_flat ). "拿其中一部分的空闲资源数来执行        IF gv_jobs = 0 AND gv_available = 1.          gv_jobs = 1.        ENDIF.        gv_init_flag = 'X'.        "按照jobs来进行数据拆分      WHEN 1.*        MESSAGE E836."未定义 PBT 服务器组      WHEN 2.
ABAP ABAP使用异步远程RFC实现并行处理
查看代码
"刷新资源数量  ELSE.    "第二次获取资源调用函数    CALL FUNCTION 'SPBT_GET_CURR_RESOURCE_INFO'      IMPORTING        max_pbt_wps                 = gv_total        free_pbt_wps                = gv_available      EXCEPTIONS        internal_error              = 1        pbt_env_not_initialized_yet = 2        OTHERS                      = 3.    CASE  sy-subrc .      WHEN 0.        lv_flat = gv_available * 9 / 10.        gv_jobs = floor( lv_flat ). "拿其中一部分的空闲资源数来执行        IF gv_jobs = 0
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
"刷新资源数量  ELSE.    "第二次获取资源调用函数    CALL FUNCTION 'SPBT_GET_CURR_RESOURCE_INFO'      IMPORTING        max_pbt_wps                 = gv_total        free_pbt_wps                = gv_available      EXCEPTIONS        internal_error              = 1        pbt_env_not_initialized_yet = 2        OTHERS                      = 3.    CASE  sy-subrc .      WHEN 0.        lv_flat = gv_available * 9 / 10.        gv_jobs = floor( lv_flat ). "拿其中一部分的空闲资源数来执行        IF gv_jobs = 0
/* ... 已截断，完整代码请查看原文 */
ABAP ABAP使用异步远程RFC实现并行处理
查看代码
"调用需要并行执行的函数，此函数必须为远程函数  CALL FUNCTION 'YTEST001_001' STARTING NEW TASK gv_taskname    DESTINATION IN GROUP gv_classname    PERFORMING frm_ytest ON END OF TASK "调用每条进程的处理方法，接收处理结果    EXPORTING      i_index               = ps_alv-index      i_count               = ps_alv-count    EXCEPTIONS      communication_failure = 1 MESSAGE lv_message      system_failure        = 2 MESSAGE lv_message      resource_failure      = 3.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
"调用需要并行执行的函数，此函数必须为远程函数  CALL FUNCTION 'YTEST001_001' STARTING NEW TASK gv_taskname    DESTINATION IN GROUP gv_classname    PERFORMING frm_ytest ON END OF TASK "调用每条进程的处理方法，接收处理结果    EXPORTING      i_index               = ps_alv-index      i_count               = ps_alv-count    EXCEPTIONS      communication_failure = 1 MESSAGE lv_message      system_failure        = 2 MESSAGE lv_message      resource_failure      = 3.
/* ... 已截断，完整代码请查看原文 */
ABAP ABAP使用异步远程RFC实现并行处理 
DATA:ls_alv TYPE ty_alv.
查看完整代码 
DATA:ls_alv TYPE ty_alv.
ABAP ABAP内表与XML转换 
CALL TRANSFORMATION ZXMLTEST001    SOURCE XML XML_STRING    RESULT POHEADER = LT_EKKO.  CATCH CX_ST_ERROR INTO LO_OREF.    "返回XML解析错误    LV_MESSAGE = LO_OREF->GET_TEXT( ).ENDTRY.WRITE /:LV_MESSAGE."-----------------------------------------@斌将军--------------------------------------------
查看完整代码 
CALL TRANSFORMATION ZXMLTEST001    SOURCE XML XML_STRING    RESULT POHEADER = LT_EKKO.  CATCH CX_ST_ERROR INTO LO_OREF.    "返回XML解析错误    LV_MESSAGE = LO_OREF->GET_TEXT( ).ENDTRY.WRITE /:LV_MESSAGE."-----------------------------------------@斌将军--------------------------------------------
ABAP ABAP协助模块顾问救火一例
查看代码
DATA: BEGIN OF gs_out.        INCLUDE TYPE t001p.DATA:   name1 TYPE t500p-name1,        phfac TYPE t7cn0p-phfac,        psiau TYPE t7cn0p-psiau,        msiau TYPE t7cn0p-msiau,        usiau TYPE t7cn0p-usiau,        isiau TYPE t7cn0p-isiau,        bsiau TYPE t7cn0p-bsiau,        taxgp TYPE t7cn0p-taxgp,        color TYPE etloghead_color-ct,        seled TYPE char1,      END OF gs_out.DATA: gt_out LIKE TABLE OF gs_out.DATA: gs_col TYPE lvc_s_scol.DATA: gt_cfg TYPE TABLE OF zt001p WITH HEADE
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA: BEGIN OF gs_out.        INCLUDE TYPE t001p.DATA:   name1 TYPE t500p-name1,        phfac TYPE t7cn0p-phfac,        psiau TYPE t7cn0p-psiau,        msiau TYPE t7cn0p-msiau,        usiau TYPE t7cn0p-usiau,        isiau TYPE t7cn0p-isiau,        bsiau TYPE t7cn0p-bsiau,        taxgp TYPE t7cn0p-taxgp,        color TYPE etloghead_color-ct,        seled TYPE char1,      END OF gs_out.DATA: gt_out LIKE TABLE OF gs_out.DATA: gs_col TYPE lvc_s_scol.DATA: gt_cfg TYPE TABLE OF zt001p WITH HEADE
/* ... 已截断，完整代码请查看原文 */
ABAP ABAP协助模块顾问救火一例
查看代码
IF p_mozko = '' AND p_mosid = '' AND p_mofid = '' AND     p_moabw = '' AND p_wktyp = '' AND p_trfgb = '' AND     p_phfac = '' AND p_psiau = '' AND p_taxgp = ''.    MESSAGE e000(oo) WITH '至少选择一项更改'.  ENDIF.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
IF p_mozko = '' AND p_mosid = '' AND p_mofid = '' AND     p_moabw = '' AND p_wktyp = '' AND p_trfgb = '' AND     p_phfac = '' AND p_psiau = '' AND p_taxgp = ''.    MESSAGE e000(oo) WITH '至少选择一项更改'.  ENDIF.
/* ... 已截断，完整代码请查看原文 */
ABAP ABAP协助模块顾问救火一例
查看代码
SELECT t001p~mandt         t001p~werks         t500p~name1         t001p~btrtl         t001p~btext         t001p~mozko         t001p~mosid         t001p~mofid         t001p~moabw         t001p~wktyp         t001p~molga         t001p~trfgb         t001p~trfar         t7cn0p~phfac         t7cn0p~psiau         t7cn0p~msiau         t7cn0p~usiau         t7cn0p~isiau         t7cn0p~bsiau         t7cn0p~taxgp    INTO CORRESPONDING FIELDS OF TABLE gt_out    FROM t001p LEFT JOIN t500p  ON t500p~per
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
SELECT t001p~mandt         t001p~werks         t500p~name1         t001p~btrtl         t001p~btext         t001p~mozko         t001p~mosid         t001p~mofid         t001p~moabw         t001p~wktyp         t001p~molga         t001p~trfgb         t001p~trfar         t7cn0p~phfac         t7cn0p~psiau         t7cn0p~msiau         t7cn0p~usiau         t7cn0p~isiau         t7cn0p~bsiau         t7cn0p~taxgp    INTO CORRESPONDING FIELDS OF TABLE gt_out    FROM t001p LEFT JOIN t500p  ON t500p~per
/* ... 已截断，完整代码请查看原文 */
ABAP ABAP图片压缩
查看代码
METHOD resize_image.    DATA:lf_xres     TYPE i,         lf_yres     TYPE i,         lf_xres_new TYPE i,         lf_yres_new TYPE i,         lf_ratio    TYPE menge_d. "宽高比，小数.
TRY.        rv_small = iv_original.        DATA(lo_image) = NEW cl_fxs_image_processor( ).        DATA(lf_handle) = lo_image->add_image( iv_original ).        lo_image->get_info(          EXPORTING            iv_handle = lf_handle          IMPORTING            ev_xres   = lf_xres            ev_yres   = lf_
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
METHOD resize_image.    DATA:lf_xres     TYPE i,         lf_yres     TYPE i,         lf_xres_new TYPE i,         lf_yres_new TYPE i,         lf_ratio    TYPE menge_d. "宽高比，小数.
TRY.        rv_small = iv_original.        DATA(lo_image) = NEW cl_fxs_image_processor( ).        DATA(lf_handle) = lo_image->add_image( iv_original ).        lo_image->get_info(          EXPORTING            iv_handle = lf_handle          IMPORTING            ev_xres   = lf_xres            ev_yres   = lf_
/* ... 已截断，完整代码请查看原文 */
ABAP ABAP图片压缩
查看代码
IF lf_xres_new >= lf_xres.          lo_image->discard_image( lf_handle ).          FREE lo_image.          RETURN.        ENDIF.        lo_image->resize(          EXPORTING            iv_handle = lf_handle            iv_xres   = lf_xres_new            iv_yres   = lf_yres_new ).        rv_small = lo_image->get_image( lf_handle ).        lo_image->discard_image( lf_handle ).        FREE lo_image.      CATCH cx_fxs_image_unsupported.      CATCH cx_root.    ENDTRY.  ENDMETHOD./* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
IF lf_xres_new >= lf_xres.          lo_image->discard_image( lf_handle ).          FREE lo_image.          RETURN.        ENDIF.        lo_image->resize(          EXPORTING            iv_handle = lf_handle            iv_xres   = lf_xres_new            iv_yres   = lf_yres_new ).        rv_small = lo_image->get_image( lf_handle ).        lo_image->discard_image( lf_handle ).        FREE lo_image.      CATCH cx_fxs_image_unsupported.      CATCH cx_root.    ENDTRY.  ENDMETHOD./* ... 已截断，完整代码请查看原文 */
ABAP ABAP图片压缩
查看代码
*&---------------------------------------------------------------------**& Report ZDEMO_RESIZE_PICTURE*&---------------------------------------------------------------------**&*&---------------------------------------------------------------------*REPORT zdemo_resize_picture."选择上传文件名DATA(lv_filename) = zcl_common=>get_file_name( iv_filter = '*.JPEG' ).CHECK lv_filename IS NOT INITIAL."打开文件DATA(ls_return) = zcl_common=>upload_file( iv_filename =
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
*&---------------------------------------------------------------------**& Report ZDEMO_RESIZE_PICTURE*&---------------------------------------------------------------------**&*&---------------------------------------------------------------------*REPORT zdemo_resize_picture."选择上传文件名DATA(lv_filename) = zcl_common=>get_file_name( iv_filter = '*.JPEG' ).CHECK lv_filename IS NOT INITIAL."打开文件DATA(ls_return) = zcl_common=>upload_file( iv_filename =
/* ... 已截断，完整代码请查看原文 */
ABAP ABAP图片显示 
METHOD show_picture.    CALL FUNCTION 'ZFUN_DISPLAY_PICTURE'      EXPORTING        iv_filename = iv_filename        io_picture  = io_picture.  ENDMETHOD.
查看完整代码 
METHOD show_picture.    CALL FUNCTION 'ZFUN_DISPLAY_PICTURE'      EXPORTING        iv_filename = iv_filename        io_picture  = io_picture.  ENDMETHOD.
ABAP ABAP基础知识ABAP执行JAVASCRIPT代码 
DATA: g_js         TYPE REF TO cl_java_script,      g_javascript TYPE string,      g_return     TYPE string.
PARAMETERS: p_email TYPE char20.
查看完整代码 
DATA: g_js         TYPE REF TO cl_java_script,      g_javascript TYPE string,      g_return     TYPE string.
PARAMETERS: p_email TYPE char20.
ABAP ABAP基础知识ABAP执行JAVASCRIPT代码 
METHOD levenshtein_distance.    DATA: lc_js         TYPE REF TO cl_java_script,          lv_javascript TYPE string,          lv_return     TYPE string.
查看完整代码 
METHOD levenshtein_distance.    DATA: lc_js         TYPE REF TO cl_java_script,          lv_javascript TYPE string,          lv_return     TYPE string.
ABAP ABAP基础知识ABAP执行JAVASCRIPT代码
查看代码
* Build JavaScript Code*赋值变量    DATA: lv_line TYPE string.    CLEAR lv_line.    CONCATENATE  'var stra = "' iv_stra '";' INTO lv_line.    lv_javascript = lv_line.
CLEAR lv_line.    CONCATENATE   'var strb = "' iv_strb '";' INTO lv_line.    CONCATENATE lv_javascript lv_line INTO lv_javascript SEPARATED BY cl_abap_char_utilities=>cr_lf.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
* Build JavaScript Code*赋值变量    DATA: lv_line TYPE string.    CLEAR lv_line.    CONCATENATE  'var stra = "' iv_stra '";' INTO lv_line.    lv_javascript = lv_line.
CLEAR lv_line.    CONCATENATE   'var strb = "' iv_strb '";' INTO lv_line.    CONCATENATE lv_javascript lv_line INTO lv_javascript SEPARATED BY cl_abap_char_utilities=>cr_lf.
/* ... 已截断，完整代码请查看原文 */
ABAP ABAP基础知识内表汇总数据的方式 
LOOP AT GROUP实现
查看完整代码 
LOOP AT GROUP实现
ABAP ABAP基础知识内表汇总数据的方式
查看代码
DATA: BEGIN OF lw_data,        matnr TYPE matnr,        werks TYPE werks_d,        menge TYPE menge_d,      END OF lw_data.DATA: lt_data LIKE TABLE OF lw_data.DATA: BEGIN OF lw_sum,        matnr TYPE matnr,        werks TYPE werks_d,        menge TYPE menge_d,      END OF lw_sum.DATA: lt_sum LIKE TABLE OF lw_sum.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA: BEGIN OF lw_data,        matnr TYPE matnr,        werks TYPE werks_d,        menge TYPE menge_d,      END OF lw_data.DATA: lt_data LIKE TABLE OF lw_data.DATA: BEGIN OF lw_sum,        matnr TYPE matnr,        werks TYPE werks_d,        menge TYPE menge_d,      END OF lw_sum.DATA: lt_sum LIKE TABLE OF lw_sum.
/* ... 已截断，完整代码请查看原文 */
ABAP ABAP基础知识整单包含和排除查询 
SELECT 订单,物料 FROM 表 WHERE MATNR IN S_MATNR
查看完整代码 
SELECT 订单,物料 FROM 表 WHERE MATNR IN S_MATNR
ABAP ABAP基础知识整单包含和排除查询 
SELECT 订单,物料 FROM 表 AS A WHERE EXISTS ( SELECT VBELN FROM 表 WHERE VBELN =
查看完整代码 
SELECT 订单,物料 FROM 表 AS A WHERE EXISTS ( SELECT VBELN FROM 表 WHERE VBELN =
ABAP ABAP基础知识整单包含和排除查询 
SELECT 订单,物料 FROM 表 WHERE MATNR IN S_MATNR
查看完整代码 
SELECT 订单,物料 FROM 表 WHERE MATNR IN S_MATNR
ABAP ABAP基础知识整单包含和排除查询 
SELECT 订单,物料 FROM 表 AS A WHERE NOT EXISTS ( SELECT VBELN FROM 表 WHERE VBELN =
查看完整代码 
SELECT 订单,物料 FROM 表 AS A WHERE NOT EXISTS ( SELECT VBELN FROM 表 WHERE VBELN =
ABAP ABAP基础知识整单包含和排除查询 
SELECT 订单,物料 FROM 表 AS A WHERE EXISTS ( SELECT VBELN FROM 表 WHERE VBELN =
查看完整代码 
SELECT 订单,物料 FROM 表 AS A WHERE EXISTS ( SELECT VBELN FROM 表 WHERE VBELN =
ABAP ABAP基础知识用SQL处理内表
查看代码
PARAMETERS:  p_1 AS CHECKBOX,  p_2 AS CHECKBOX,  p_3 AS CHECKBOX.
DATA: lt_hs TYPE HASHED TABLE OF  acdoca WITH UNIQUE KEY rclnt rldnr rbukrs gjahr belnr docln, "哈希内表      lt_st TYPE TABLE OF acdoca,  "通常内表      lt_ss TYPE SORTED TABLE OF acdoca WITH NON-UNIQUE KEY rclnt rldnr rbukrs gjahr belnr docln.IF p_1 = 'X'.  cl_demo_output=>next_section('内表关键字访问(微秒)').  cl_demo_output=>next_section('-内表关键字访问-哈希').  PERFORM frm_access_with_key_hs.  cl_de
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
PARAMETERS:  p_1 AS CHECKBOX,  p_2 AS CHECKBOX,  p_3 AS CHECKBOX.
DATA: lt_hs TYPE HASHED TABLE OF  acdoca WITH UNIQUE KEY rclnt rldnr rbukrs gjahr belnr docln, "哈希内表      lt_st TYPE TABLE OF acdoca,  "通常内表      lt_ss TYPE SORTED TABLE OF acdoca WITH NON-UNIQUE KEY rclnt rldnr rbukrs gjahr belnr docln.IF p_1 = 'X'.  cl_demo_output=>next_section('内表关键字访问(微秒)').  cl_demo_output=>next_section('-内表关键字访问-哈希').  PERFORM frm_access_with_key_hs.  cl_de
/* ... 已截断，完整代码请查看原文 */
ABAP ABAP基础知识用SQL处理内表
查看代码
cl_demo_output=>display( ).*&---------------------------------------------------------------------**& Form frm_access_with_key*&---------------------------------------------------------------------**& text*&---------------------------------------------------------------------**& -->  p1        text*& <--  p2        text*&---------------------------------------------------------------------*FORM frm_access_with_key_hs .  "耗时考虑,哈希表的读取,及访问  GET RU
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
cl_demo_output=>display( ).*&---------------------------------------------------------------------**& Form frm_access_with_key*&---------------------------------------------------------------------**& text*&---------------------------------------------------------------------**& -->  p1        text*& <--  p2        text*&---------------------------------------------------------------------*FORM frm_access_with_key_hs .  "耗时考虑,哈希表的读取,及访问  GET RU
/* ... 已截断，完整代码请查看原文 */
ABAP ABAP基础知识用SQL处理内表 
ENDFORM.
FORM frm_access_with_key_st .  "耗时考虑,哈希表的读取,及访问  GET RUN TIME FIELD DATA(t1).  SELECT * FROM acdoca INTO TABLE lt_st ORDER BY rldnr rbukrs gjahr belnr docln.  GET RUN TIME FIELD DATA(t2).  READ TABLE lt_st INTO DATA(ls_st)   WITH KEY rldnr = '0L' rbukrs = '2450' gjahr = '2021' belnr = '0100000239' docln = '000003' BINARY SEARCH.  GET RUN TIME FIELD DATA(t3).
查看完整代码 
ENDFORM.
FORM frm_access_with_key_st .  "耗时考虑,哈希表的读取,及访问  GET RUN TIME FIELD DATA(t1).  SELECT * FROM acdoca INTO TABLE lt_st ORDER BY rldnr rbukrs gjahr belnr docln.  GET RUN TIME FIELD DATA(t2).  READ TABLE lt_st INTO DATA(ls_st)   WITH KEY rldnr = '0L' rbukrs = '2450' gjahr = '2021' belnr = '0100000239' docln = '000003' BINARY SEARCH.  GET RUN TIME FIELD DATA(t3).
ABAP ABAP基础知识用SQL处理内表
查看代码
ENDFORM.
FORM frm_access_with_key_select.  DATA: ls_st TYPE acdoca.  "耗时考虑,哈希表的读取,及访问  GET RUN TIME FIELD DATA(t1).  SELECT * FROM acdoca INTO TABLE lt_st . " ORDER BY rldnr rbukrs gjahr belnr docln.  GET RUN TIME FIELD DATA(t2).  SELECT SINGLE * FROM @lt_st AS a    WHERE rldnr = '0L' AND  rbukrs = '2450' AND  gjahr = '2021' AND  belnr = '0100000239' AND docln = '000003'     INTO @ls_st.  GET RUN TIME FIELD DATA(t3).  READ TABLE l
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
ENDFORM.
FORM frm_access_with_key_select.  DATA: ls_st TYPE acdoca.  "耗时考虑,哈希表的读取,及访问  GET RUN TIME FIELD DATA(t1).  SELECT * FROM acdoca INTO TABLE lt_st . " ORDER BY rldnr rbukrs gjahr belnr docln.  GET RUN TIME FIELD DATA(t2).  SELECT SINGLE * FROM @lt_st AS a    WHERE rldnr = '0L' AND  rbukrs = '2450' AND  gjahr = '2021' AND  belnr = '0100000239' AND docln = '000003'     INTO @ls_st.  GET RUN TIME FIELD DATA(t3).  READ TABLE l
/* ... 已截断，完整代码请查看原文 */
ABAP ABAP基础知识用SQL处理内表
查看代码
ENDFORM.
FORM frm_access_by_select_itab.  DATA: ls_st TYPE acdoca.  "耗时考虑,哈希表的读取,及访问  GET RUN TIME FIELD DATA(t1).  SELECT * FROM acdoca INTO TABLE lt_st ORDER BY rldnr rbukrs gjahr belnr docln.  GET RUN TIME FIELD DATA(t2).  lt_hs[] = lt_st[].  GET RUN TIME FIELD DATA(t3).  lt_ss[] = lt_st[].  GET RUN TIME FIELD DATA(t4).
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
ENDFORM.
FORM frm_access_by_select_itab.  DATA: ls_st TYPE acdoca.  "耗时考虑,哈希表的读取,及访问  GET RUN TIME FIELD DATA(t1).  SELECT * FROM acdoca INTO TABLE lt_st ORDER BY rldnr rbukrs gjahr belnr docln.  GET RUN TIME FIELD DATA(t2).  lt_hs[] = lt_st[].  GET RUN TIME FIELD DATA(t3).  lt_ss[] = lt_st[].  GET RUN TIME FIELD DATA(t4).
/* ... 已截断，完整代码请查看原文 */
ABAP ABAP基础知识类的例外处理 
DATA: gc_test TYPE REF TO zcl_test_exception.
查看完整代码 
DATA: gc_test TYPE REF TO zcl_test_exception.
ABAP ABAP基础知识类的例外处理
查看代码
*使用新的例外方法  cl_demo_output=>next_section( title = '捕获例外,错误方式:' ).  TRY.      CALL METHOD gc_test->test_new( EXPORTING iv_error = '1' ).    CATCH cx_root INTO DATA(lo_ref).    "也可以捕获这个所有错误类的根类      DATA(lv_msg) = lo_ref->get_text( ).      cl_demo_output=>write( '捕获类中的例外:' && lv_msg ).  ENDTRY.*带有消息的例外.  TRY.      CALL METHOD gc_test->test_new( EXPORTING iv_error = '2' ).    CATCH cx_root INTO lo_ref.    "也可以捕获这个所有错误类的根类
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
*使用新的例外方法  cl_demo_output=>next_section( title = '捕获例外,错误方式:' ).  TRY.      CALL METHOD gc_test->test_new( EXPORTING iv_error = '1' ).    CATCH cx_root INTO DATA(lo_ref).    "也可以捕获这个所有错误类的根类      DATA(lv_msg) = lo_ref->get_text( ).      cl_demo_output=>write( '捕获类中的例外:' && lv_msg ).  ENDTRY.*带有消息的例外.  TRY.      CALL METHOD gc_test->test_new( EXPORTING iv_error = '2' ).    CATCH cx_root INTO lo_ref.    "也可以捕获这个所有错误类的根类
/* ... 已截断，完整代码请查看原文 */
ABAP ABAP基础知识类的例外处理
查看代码
*使用通用异常类  cl_demo_output=>next_section( title = '捕获例外,正确方式(通用异常类ZCX_BC_COMM):' ).  TRY.      CALL METHOD gc_test->test_comm( EXPORTING iv_error = '1' ).    CATCH zcx_bc_comm INTO DATA(lo_ref_comm).    "可以捕获特定的异常类      lv_msg = lo_ref_comm->get_text( ).      cl_demo_output=>write( '捕获类中的例外:' && lv_msg ).  ENDTRY.*带有消息的例外.  TRY.      CALL METHOD gc_test->test_comm( EXPORTING iv_error = '2' ).    CATCH cx_root INTO DATA(lo_re
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
*使用通用异常类  cl_demo_output=>next_section( title = '捕获例外,正确方式(通用异常类ZCX_BC_COMM):' ).  TRY.      CALL METHOD gc_test->test_comm( EXPORTING iv_error = '1' ).    CATCH zcx_bc_comm INTO DATA(lo_ref_comm).    "可以捕获特定的异常类      lv_msg = lo_ref_comm->get_text( ).      cl_demo_output=>write( '捕获类中的例外:' && lv_msg ).  ENDTRY.*带有消息的例外.  TRY.      CALL METHOD gc_test->test_comm( EXPORTING iv_error = '2' ).    CATCH cx_root INTO DATA(lo_re
/* ... 已截断，完整代码请查看原文 */
ABAP ABAP基础知识行表与列表的转换
查看代码
*行表赋值  lt_line = VALUE #(  ( name = '张三' cat = '电视'  sl = 10  )  ( name = '张三' cat = '手机'  sl = 20  )  ( name = '张三' cat = '冰箱'  sl = 30  )  ( name = '李四' cat = '电视'  sl = 40  )  ( name = '李四' cat = '电视'  sl = 5   )  ( name = '李四' cat = '手机'  sl = 50  )  ( name = '王五' cat = '冰箱'  sl = 60  )  ).  CALL METHOD cl_demo_output=>write( lt_line ).*行表转换成列表*
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
*行表赋值  lt_line = VALUE #(  ( name = '张三' cat = '电视'  sl = 10  )  ( name = '张三' cat = '手机'  sl = 20  )  ( name = '张三' cat = '冰箱'  sl = 30  )  ( name = '李四' cat = '电视'  sl = 40  )  ( name = '李四' cat = '电视'  sl = 5   )  ( name = '李四' cat = '手机'  sl = 50  )  ( name = '王五' cat = '冰箱'  sl = 60  )  ).  CALL METHOD cl_demo_output=>write( lt_line ).*行表转换成列表*
/* ... 已截断，完整代码请查看原文 */
ABAP ABAP基础知识访问外部数据库开发篇
查看代码
PARAMETERS: p_s4  RADIOBUTTON GROUP ra1,            p_ora RADIOBUTTON GROUP ra1.
START-OF-SELECTION.  CASE 'X'.    WHEN p_s4.*访问另一个S4系统的同名表*需要注意的是,目标系统CLIENT和当前CLIENT 很可能不一样, 所以需要加上CLIENT SPECIFIED 避免CLIENT不同干扰数据获取      SELECT * FROM usr02  CLIENT SPECIFIED  INTO  TABLE @DATA(lt_usr02)  BYPASSING BUFFER CONNECTION R/3*S4Q        WHERE bname = '00177'.      ."可以获取数据      DATA(lv_subrc) = sy-subrc .      cl_demo_output=>write( lv_subrc ).      cl_demo_output=>w
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
PARAMETERS: p_s4  RADIOBUTTON GROUP ra1,            p_ora RADIOBUTTON GROUP ra1.
START-OF-SELECTION.  CASE 'X'.    WHEN p_s4.*访问另一个S4系统的同名表*需要注意的是,目标系统CLIENT和当前CLIENT 很可能不一样, 所以需要加上CLIENT SPECIFIED 避免CLIENT不同干扰数据获取      SELECT * FROM usr02  CLIENT SPECIFIED  INTO  TABLE @DATA(lt_usr02)  BYPASSING BUFFER CONNECTION R/3*S4Q        WHERE bname = '00177'.      ."可以获取数据      DATA(lv_subrc) = sy-subrc .      cl_demo_output=>write( lv_subrc ).      cl_demo_output=>w
/* ... 已截断，完整代码请查看原文 */
ABAP ABAP基础知识访问外部数据库开发篇 
PARAMETERS:  p_1 RADIOBUTTON GROUP ra1,  p_2 RADIOBUTTON GROUP ra1,  p_3 RADIOBUTTON GROUP ra1,  p_4 RADIOBUTTON GROUP ra1.
DATA: BEGIN OF gs_temp,        zztno(30),        werks(4),      END OF gs_temp.DATA: gt_temp LIKE TABLE OF gs_temp.DATA conn TYPE dbcon-con_name.
查看完整代码 
PARAMETERS:  p_1 RADIOBUTTON GROUP ra1,  p_2 RADIOBUTTON GROUP ra1,  p_3 RADIOBUTTON GROUP ra1,  p_4 RADIOBUTTON GROUP ra1.
DATA: BEGIN OF gs_temp,        zztno(30),        werks(4),      END OF gs_temp.DATA: gt_temp LIKE TABLE OF gs_temp.DATA conn TYPE dbcon-con_name.
ABAP ABAP基础知识访问外部数据库开发篇
查看代码
*输出结果  CASE 'X'.    WHEN p_1 or p_2.      cl_demo_output=>display( gt_temp ).  ENDCASE.*&---------------------------------------------------------------------**& Form FRM_METHOD_1*&---------------------------------------------------------------------**& text*&---------------------------------------------------------------------**& -->  p1        text*& <--  p2        text*&-------------------------------------------------------------------
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
*输出结果  CASE 'X'.    WHEN p_1 or p_2.      cl_demo_output=>display( gt_temp ).  ENDCASE.*&---------------------------------------------------------------------**& Form FRM_METHOD_1*&---------------------------------------------------------------------**& text*&---------------------------------------------------------------------**& -->  p1        text*& <--  p2        text*&-------------------------------------------------------------------
/* ... 已截断，完整代码请查看原文 */
ABAP ABAP执行SM35会话
查看代码
REPORT zsdp161.
TABLES: apqi.DATA: gt_qid TYPE STANDARD TABLE OF apqi-qid.DATA: gt_rsparams TYPE TABLE OF rsparams.DATA: gv_jobname TYPE tbtcjob-jobname.DATA: gv_jobcount TYPE tbtcjob-jobcount.DATA: gv_eventid TYPE tbtcjob-eventid.DATA: gv_eventparm TYPE tbtcjob-eventparm.DATA: gv_date LIKE sy-datum.DATA: gv_time LIKE sy-uzeit.*&---------------------------------------------------------------------**& 选择屏幕 / SELECTION SCREEN*&-----------------------------------------------------
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
REPORT zsdp161.
TABLES: apqi.DATA: gt_qid TYPE STANDARD TABLE OF apqi-qid.DATA: gt_rsparams TYPE TABLE OF rsparams.DATA: gv_jobname TYPE tbtcjob-jobname.DATA: gv_jobcount TYPE tbtcjob-jobcount.DATA: gv_eventid TYPE tbtcjob-eventid.DATA: gv_eventparm TYPE tbtcjob-eventparm.DATA: gv_date LIKE sy-datum.DATA: gv_time LIKE sy-uzeit.*&---------------------------------------------------------------------**& 选择屏幕 / SELECTION SCREEN*&-----------------------------------------------------
/* ... 已截断，完整代码请查看原文 */
ABAP ABAP执行SM35会话
查看代码
END-OF-SELECTION .  LOOP AT gt_qid INTO DATA(lv_qid).    gt_rsparams = VALUE #( ( selname = 'QUEUE_ID' kind = 'P' low = lv_qid  ) ).    IF sy-tabix = 1.      gv_date = sy-datum.      gv_time = sy-uzeit + 10."10秒后执行,只有已释放和已调度的JOB才能作为前趋作业    ELSE.      CLEAR:  gv_date,  gv_time.    ENDIF.    DATA(ls_return) = zcl_common=>start_job( jobname    = |SM35_{ lv_qid }|                                             report     = 'RSBDCBTC'                          
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
END-OF-SELECTION .  LOOP AT gt_qid INTO DATA(lv_qid).    gt_rsparams = VALUE #( ( selname = 'QUEUE_ID' kind = 'P' low = lv_qid  ) ).    IF sy-tabix = 1.      gv_date = sy-datum.      gv_time = sy-uzeit + 10."10秒后执行,只有已释放和已调度的JOB才能作为前趋作业    ELSE.      CLEAR:  gv_date,  gv_time.    ENDIF.    DATA(ls_return) = zcl_common=>start_job( jobname    = |SM35_{ lv_qid }|                                             report     = 'RSBDCBTC'                          
/* ... 已截断，完整代码请查看原文 */
ABAP ABAP按条件锁定报表防止程序同一时间重复运行 
FORM  check_running  .
查看完整代码 
FORM  check_running  .
ABAP ABAP按条件锁定报表防止程序同一时间重复运行 
relid  =  lv_relid
srtfd  =  lv_srtfd
查看完整代码 
relid  =  lv_relid
srtfd  =  lv_srtfd
ABAP ABAP按条件锁定报表防止程序同一时间重复运行 
IF  sy  \-  subrc <> 0  .
查看完整代码 
IF  sy  \-  subrc <> 0  .
ABAP ABAP按条件锁定报表防止程序同一时间重复运行 
ENDIF  .
ENDFORM  .
查看完整代码 
ENDIF  .
ENDFORM  .
ABAP ABAP操作服务器文件 
TYPES:BEGIN OF ty_tab,        line(255) TYPE x,      END OF ty_tab .DATA: ls_tab TYPE ty_tab,      lt_tab TYPE STANDARD TABLE OF ty_tab.      OPEN DATASET iv_filename FOR OUTPUT IN BINARY MODE.IF sy-subrc EQ 0.  LOOP AT lt_tab INTO DATA(ls_tab).    TRANSFER ls_tab TO iv_filename.  ENDLOOP.  CLOSE DATASET iv_filename.ENDIF.
查看完整代码 
TYPES:BEGIN OF ty_tab,        line(255) TYPE x,      END OF ty_tab .DATA: ls_tab TYPE ty_tab,      lt_tab TYPE STANDARD TABLE OF ty_tab.      OPEN DATASET iv_filename FOR OUTPUT IN BINARY MODE.IF sy-subrc EQ 0.  LOOP AT lt_tab INTO DATA(ls_tab).    TRANSFER ls_tab TO iv_filename.  ENDLOOP.  CLOSE DATASET iv_filename.ENDIF.
ABAP ABAP操作服务器文件
查看代码
*&---------------------------------------------------------------------**& Report ZDEMO_DATASET*&---------------------------------------------------------------------**&*&---------------------------------------------------------------------*REPORT zdemo_dataset."选择上传文件名DATA(lv_filename) = zcl_common=>get_file_name( ).CHECK lv_filename IS NOT INITIAL."上传到服务器DATA(rs_return) = zcl_common=>upload_file_to_server( iv_filename = lv_filename ).IF rs_return-retur
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
*&---------------------------------------------------------------------**& Report ZDEMO_DATASET*&---------------------------------------------------------------------**&*&---------------------------------------------------------------------*REPORT zdemo_dataset."选择上传文件名DATA(lv_filename) = zcl_common=>get_file_name( ).CHECK lv_filename IS NOT INITIAL."上传到服务器DATA(rs_return) = zcl_common=>upload_file_to_server( iv_filename = lv_filename ).IF rs_return-retur
/* ... 已截断，完整代码请查看原文 */
ABAP ABAP新语法BASE 
DATA  (  ls_base  ) =  VALUE  gty_student  (  name  =  'Tom'  gender  =  '男'
查看完整代码 
DATA  (  ls_base  ) =  VALUE  gty_student  (  name  =  'Tom'  gender  =  '男'
ABAP ABAP新语法BASE 
DATA  (  ls_base01  ) =  VALUE  gty_student  (  name  =  'Tom_01'  ).
查看完整代码 
DATA  (  ls_base01  ) =  VALUE  gty_student  (  name  =  'Tom_01'  ).
ABAP ABAP新语法BASE 
DATA  (  ls_base02  ) =  VALUE  gty_student  (  BASE ls_base name  =  'Tom_02'
查看完整代码 
DATA  (  ls_base02  ) =  VALUE  gty_student  (  BASE ls_base name  =  'Tom_02'
ABAP ABAP新语法BASE 
DATA  (  lt_base  ) =  VALUE  gty_t_student  ( (  ls_base01  ) (  ls_base02  )
查看完整代码 
DATA  (  lt_base  ) =  VALUE  gty_t_student  ( (  ls_base01  ) (  ls_base02  )
ABAP ABAP新语法BASE 
DATA  (  lt_base01  ) =  VALUE  gty_t_student  ( (  name  =  'Bob'  gender  =
查看完整代码 
DATA  (  lt_base01  ) =  VALUE  gty_t_student  ( (  name  =  'Bob'  gender  =
ABAP ABAP新语法BASE 
DATA  (  lt_base02  ) =  VALUE  gty_t_student  (  BASE lt_base
查看完整代码 
DATA  (  lt_base02  ) =  VALUE  gty_t_student  (  BASE lt_base
ABAP ABAP新语法BASE 
** VALUE + BASE：基于结构或内表的赋值操作：  ** 使用  ` DATA(ls_base) = VALUE gty_student(
name = 'Tom' gender = '男' age = 20 ).  ` 初始化结构体，然后通过  ` DATA(ls_base01) =
VALUE gty_student( BASE ls_base name = 'Tom_01' ).  ` ，基于已有的结构体进行赋值，只修改  `
name  ` 字段，其他字段被重置。  使用  ` DATA(ls_base02) = VALUE gty_student( BASE ls_base
查看完整代码 
** VALUE + BASE：基于结构或内表的赋值操作：  ** 使用  ` DATA(ls_base) = VALUE gty_student(
name = 'Tom' gender = '男' age = 20 ).  ` 初始化结构体，然后通过  ` DATA(ls_base01) =
VALUE gty_student( BASE ls_base name = 'Tom_01' ).  ` ，基于已有的结构体进行赋值，只修改  `
name  ` 字段，其他字段被重置。  使用  ` DATA(ls_base02) = VALUE gty_student( BASE ls_base
ABAP ABAP新语法BASE 
**CORRESPONDING + BASE：基于结构或内表的映射操作：** 使用  ` DATA(lt_base01) = VALUE
查看完整代码 
**CORRESPONDING + BASE：基于结构或内表的映射操作：** 使用  ` DATA(lt_base01) = VALUE
ABAP ABAP新语法BASE 
DATA(lt_base02) = VALUE gty_t_student( BASE lt_base ( name = 'Bob' gender =
'男' age = 22 ) ).  ` ，基于已有的内表进行映射赋值，保留  ` lt_base  ` 的原始值，并进行映射APPEND。
查看完整代码 
DATA(lt_base02) = VALUE gty_t_student( BASE lt_base ( name = 'Bob' gender =
'男' age = 22 ) ).  ` ，基于已有的内表进行映射赋值，保留  ` lt_base  ` 的原始值，并进行映射APPEND。
ABAP ABAP新语法CONV 
DATA  (  lv_score_c  ) =  '95.5'  .
DATA  (  lv_score_i  ) =  CONV  i  (  lv_score_c  ).
DATA  (  lv_score_str  ) =  CONV string  (  lv_score_c  ).
查看完整代码 
DATA  (  lv_score_c  ) =  '95.5'  .
DATA  (  lv_score_i  ) =  CONV  i  (  lv_score_c  ).
DATA  (  lv_score_str  ) =  CONV string  (  lv_score_c  ).
ABAP ABAP新语法CONV 
CALL FUNCTION  'SN_LAST_DAY_OF_MONTH'
查看完整代码 
CALL FUNCTION  'SN_LAST_DAY_OF_MONTH'
ABAP ABAP新语法CONV 
day_in  =  CONV d  (  lv_day_in  )
查看完整代码 
day_in  =  CONV d  (  lv_day_in  )
ABAP ABAP新语法CONV 
end_of_month  =  lv_day_out  .
查看完整代码 
end_of_month  =  lv_day_out  .
ABAP ABAP新语法CONV 
DATA  (  lv_xstr  ) =  cl_abap_codepage  => convert_to  (  source  =  CONV
查看完整代码 
DATA  (  lv_xstr  ) =  cl_abap_codepage  => convert_to  (  source  =  CONV
ABAP ABAP新语法CONV 
` DATA(lv_score_c) = '95.5'.  ` ：定义一个字符型变量  ` lv_score_c  ` 并赋值。
查看完整代码 
` DATA(lv_score_c) = '95.5'.  ` ：定义一个字符型变量  ` lv_score_c  ` 并赋值。
ABAP ABAP新语法CONV 
` DATA(lv_score_i) = CONV i( lv_score_c ).  ` ：使用  ` CONV i  ` 将字符型变量转换为整数型。
查看完整代码 
` DATA(lv_score_i) = CONV i( lv_score_c ).  ` ：使用  ` CONV i  ` 将字符型变量转换为整数型。
ABAP ABAP新语法CONV 
` DATA(lv_score_str) = CONV string( lv_score_c ).  ` ：使用  ` CONV string  `
查看完整代码 
` DATA(lv_score_str) = CONV string( lv_score_c ).  ` ：使用  ` CONV string  `
ABAP ABAP新语法CONV 
` cl_abap_codepage=>convert_to( source = CONV string( lv_text ) codepage =
查看完整代码 
` cl_abap_codepage=>convert_to( source = CONV string( lv_text ) codepage =
ABAP ABAP新语法CORRESPONDING 
DATA  (  ls_corr01  ) =  VALUE  gty_teacher  (  name  =  'Tom'  gender  =  '男'
查看完整代码 
DATA  (  ls_corr01  ) =  VALUE  gty_teacher  (  name  =  'Tom'  gender  =  '男'
ABAP ABAP新语法CORRESPONDING 
DATA  (  ls_corr02  ) =  VALUE  gty_student  (  name  =  'Lisa'  gender  =
查看完整代码 
DATA  (  ls_corr02  ) =  VALUE  gty_student  (  name  =  'Lisa'  gender  =
ABAP ABAP新语法CORRESPONDING 
DATA  (  ls_teacher01  ) =  ls_corr01  .
DATA  (  ls_teacher02  ) =  ls_corr01  .
ls_teacher01  =  CORRESPONDING gty_teacher  (  ls_corr02  ).
查看完整代码 
DATA  (  ls_teacher01  ) =  ls_corr01  .
DATA  (  ls_teacher02  ) =  ls_corr01  .
ls_teacher01  =  CORRESPONDING gty_teacher  (  ls_corr02  ).
ABAP ABAP新语法CORRESPONDING 
ls_teacher02  =  CORRESPONDING gty_teacher  (  BASE  (  ls_corr01  )
查看完整代码 
ls_teacher02  =  CORRESPONDING gty_teacher  (  BASE  (  ls_corr01  )
ABAP ABAP新语法CORRESPONDING 
DATA  (  ls_teacher03  ) =  CORRESPONDING gty_teacher  (  ls_corr02 MAPPING
查看完整代码 
DATA  (  ls_teacher03  ) =  CORRESPONDING gty_teacher  (  ls_corr02 MAPPING
ABAP ABAP新语法CORRESPONDING 
DATA  (  ls_teacher04  ) =  CORRESPONDING gty_teacher  (  BASE  (  ls_corr01
)  ls_corr02 MAPPING seniority  =  age EXCEPT age  ).
查看完整代码 
DATA  (  ls_teacher04  ) =  CORRESPONDING gty_teacher  (  BASE  (  ls_corr01
)  ls_corr02 MAPPING seniority  =  age EXCEPT age  ).
ABAP ABAP新语法CORRESPONDING 
DATA  (  lt_corr01  ) =  VALUE  gty_t_teacher  ( (  name  =  'Tom'  gender  =
查看完整代码 
DATA  (  lt_corr01  ) =  VALUE  gty_t_teacher  ( (  name  =  'Tom'  gender  =
ABAP ABAP新语法CORRESPONDING 
DATA  (  lt_corr02  ) =  VALUE  gty_t_student  ( (  name  =  'Lisa'  gender  =
查看完整代码 
DATA  (  lt_corr02  ) =  VALUE  gty_t_student  ( (  name  =  'Lisa'  gender  =
ABAP ABAP新语法CORRESPONDING 
DATA  (  lt_teacher01  ) =  lt_corr01  .
DATA  (  lt_teacher02  ) =  lt_corr01  .
lt_teacher01  =  CORRESPONDING gty_t_teacher  (  lt_corr02  ).
查看完整代码 
DATA  (  lt_teacher01  ) =  lt_corr01  .
DATA  (  lt_teacher02  ) =  lt_corr01  .
lt_teacher01  =  CORRESPONDING gty_t_teacher  (  lt_corr02  ).
ABAP ABAP新语法CORRESPONDING 
lt_teacher02  =  CORRESPONDING gty_t_teacher  (  BASE  (  lt_corr01  )
查看完整代码 
lt_teacher02  =  CORRESPONDING gty_t_teacher  (  BASE  (  lt_corr01  )
ABAP ABAP新语法CORRESPONDING 
DATA  (  lt_teacher03  ) =  CORRESPONDING gty_t_teacher  (  lt_corr02 MAPPING
查看完整代码 
DATA  (  lt_teacher03  ) =  CORRESPONDING gty_t_teacher  (  lt_corr02 MAPPING
ABAP ABAP新语法CORRESPONDING 
DATA  (  lt_teacher04  ) =  CORRESPONDING gty_t_teacher  (  BASE  (  lt_corr01
)  lt_corr02 MAPPING seniority  =  age EXCEPT age  ).
查看完整代码 
DATA  (  lt_teacher04  ) =  CORRESPONDING gty_t_teacher  (  BASE  (  lt_corr01
)  lt_corr02 MAPPING seniority  =  age EXCEPT age  ).
ABAP ABAP新语法CORRESPONDING 
** 结构体之间的字段映射：  ** 使用  ` ls_teacher01 = CORRESPONDING gty_teacher( ls_corr02
查看完整代码 
** 结构体之间的字段映射：  ** 使用  ` ls_teacher01 = CORRESPONDING gty_teacher( ls_corr02
ABAP ABAP新语法CORRESPONDING 
**结构体之间的字段映射，保留原值：** 使用  ` ls_teacher02 = CORRESPONDING gty_teacher( BASE (
查看完整代码 
**结构体之间的字段映射，保留原值：** 使用  ` ls_teacher02 = CORRESPONDING gty_teacher( BASE (
ABAP ABAP新语法CORRESPONDING 
**字段映射中的MAPPING和EXCEPT后缀：** 使用  ` ls_teacher03 = CORRESPONDING gty_teacher(
ls_corr02 MAPPING seniority = age EXCEPT age ).  ` ，通过  ` MAPPING  ` 指定映射关系，
查看完整代码 
**字段映射中的MAPPING和EXCEPT后缀：** 使用  ` ls_teacher03 = CORRESPONDING gty_teacher(
ls_corr02 MAPPING seniority = age EXCEPT age ).  ` ，通过  ` MAPPING  ` 指定映射关系，
ABAP ABAP新语法CORRESPONDING 
**内表之间的字段映射：** 使用  ` lt_teacher01 = CORRESPONDING gty_t_teacher( lt_corr02 ).
查看完整代码 
**内表之间的字段映射：** 使用  ` lt_teacher01 = CORRESPONDING gty_t_teacher( lt_corr02 ).
ABAP ABAP新语法CORRESPONDING 
**内表之间的字段映射，保留原值：** 使用  ` lt_teacher02 = CORRESPONDING gty_t_teacher( BASE (
查看完整代码 
**内表之间的字段映射，保留原值：** 使用  ` lt_teacher02 = CORRESPONDING gty_t_teacher( BASE (
ABAP ABAP新语法CORRESPONDING 
**内表字段映射中的MAPPING和EXCEPT后缀：** 使用  ` lt_teacher03 = CORRESPONDING
gty_t_teacher( lt_corr02 MAPPING seniority = age EXCEPT age ).  ` ，通过  `
查看完整代码 
**内表字段映射中的MAPPING和EXCEPT后缀：** 使用  ` lt_teacher03 = CORRESPONDING
gty_t_teacher( lt_corr02 MAPPING seniority = age EXCEPT age ).  ` ，通过  `
ABAP ABAP新语法DATAFIELDSYMBOL 
DATA  (  lv_name  ) =  'Tom'  .  "Char
DATA  (  lv_age  ) =  20  .  "Int
DATA  (  lv_name_str  ) =  CONV string  (  'Tom'  ).  "String
查看完整代码 
DATA  (  lv_name  ) =  'Tom'  .  "Char
DATA  (  lv_age  ) =  20  .  "Int
DATA  (  lv_name_str  ) =  CONV string  (  'Tom'  ).  "String
ABAP ABAP新语法DATAFIELDSYMBOL 
READ TABLE  gt_student  INTO DATA  (  ls_read  )  INDEX  1  .
查看完整代码 
READ TABLE  gt_student  INTO DATA  (  ls_read  )  INDEX  1  .
ABAP ABAP新语法DATAFIELDSYMBOL 
LOOP AT  gt_student  INTO DATA  (  ls_loop  ).
ENDLOOP  .
查看完整代码 
LOOP AT  gt_student  INTO DATA  (  ls_loop  ).
ENDLOOP  .
ABAP ABAP新语法DATAFIELDSYMBOL 
LOOP AT  gt_student  ASSIGNING FIELD  \-  SYMBOL  (  <loop> ).
ENDLOOP  .
查看完整代码 
LOOP AT  gt_student  ASSIGNING FIELD  \-  SYMBOL  (  <loop> ).
ENDLOOP  .
ABAP ABAP新语法DATAFIELDSYMBOL 
SELECT SINGLE  carrname
查看完整代码 
SELECT SINGLE  carrname
ABAP ABAP新语法DATAFIELDSYMBOL 
SELECT SINGLE  carrid  ,  carrname
查看完整代码 
SELECT SINGLE  carrid  ,  carrname
ABAP ABAP新语法DATAFIELDSYMBOL 
SELECT  carrid  ,  carrname
查看完整代码 
SELECT  carrid  ,  carrname
ABAP ABAP新语法DATAFIELDSYMBOL 
**内联声明及初始化字符串：** 使用  ` DATA(lv_name_str) = CONV string( 'Tom' )  `
查看完整代码 
**内联声明及初始化字符串：** 使用  ` DATA(lv_name_str) = CONV string( 'Tom' )  `
ABAP ABAP新语法DATAFIELDSYMBOL 
ip_address = DATA(lv_ip) )  ` 的方式，直接调用类  ` cl_gui_frontend_services  ` 的  `
查看完整代码 
ip_address = DATA(lv_ip) )  ` 的方式，直接调用类  ` cl_gui_frontend_services  ` 的  `
ABAP ABAP新语法FILTER 
DATA  (  lt_stu01  ) =  FILTER #  (  gt_student  WHERE  gender  =  '男'  ).
DATA  (  lt_stu02  ) =  FILTER #  (  gt_student EXCEPT  WHERE  gender  =  '男'
查看完整代码 
DATA  (  lt_stu01  ) =  FILTER #  (  gt_student  WHERE  gender  =  '男'  ).
DATA  (  lt_stu02  ) =  FILTER #  (  gt_student EXCEPT  WHERE  gender  =  '男'
ABAP ABAP新语法FILTER 
DATA  (  lt_filter  ) =  VALUE  lty_t_filter  ( (  '女'  ) ).
DATA  (  lt_stu03  ) =  FILTER #  (  gt_student  IN  lt_filter  WHERE  gender
查看完整代码 
DATA  (  lt_filter  ) =  VALUE  lty_t_filter  ( (  '女'  ) ).
DATA  (  lt_stu03  ) =  FILTER #  (  gt_student  IN  lt_filter  WHERE  gender
ABAP ABAP新语法FOR 
DATA  (  lt_stu01  ) =  VALUE  gty_t_student  (  FOR  <stu> IN  gt_student
INDEX INTO  lv_index  WHERE  (  score >=  60  ) (  <stu> ) ).
查看完整代码 
DATA  (  lt_stu01  ) =  VALUE  gty_t_student  (  FOR  <stu> IN  gt_student
INDEX INTO  lv_index  WHERE  (  score >=  60  ) (  <stu> ) ).
ABAP ABAP新语法FOR 
DATA  (  lt_itab01  ) =  VALUE  itab  (  FOR  j  =  11  THEN j +  10  WHILE  j
查看完整代码 
DATA  (  lt_itab01  ) =  VALUE  itab  (  FOR  j  =  11  THEN j +  10  WHILE  j
ABAP ABAP新语法FOR 
DATA  (  lt_itab02  ) =  VALUE  itab  (  FOR  j  =  11  THEN j +  10  UNTIL j
查看完整代码 
DATA  (  lt_itab02  ) =  VALUE  itab  (  FOR  j  =  11  THEN j +  10  UNTIL j
ABAP ABAP新语法FOR 
**循环内表元素** ：  ` FOR <stu> IN gt_student INDEX INTO lv_index WHERE ( score >=
查看完整代码 
**循环内表元素** ：  ` FOR <stu> IN gt_student INDEX INTO lv_index WHERE ( score >=
ABAP ABAP新语法GROUPBY 
LOOP AT  gt_student  INTO DATA  (  gs_student  )  WHERE  score > 60  GROUP BY
查看完整代码 
LOOP AT  gt_student  INTO DATA  (  gs_student  )  WHERE  score > 60  GROUP BY
ABAP ABAP新语法GROUPBY 
DATA  (  lt_grp_stu  ) =  VALUE  gty_t_student  (  FOR  ls_grp  IN GROUP  grp
查看完整代码 
DATA  (  lt_grp_stu  ) =  VALUE  gty_t_student  (  FOR  ls_grp  IN GROUP  grp
ABAP ABAP新语法GROUPBY 
ENDLOOP  .
查看完整代码 
ENDLOOP  .
ABAP ABAP新语法GROUPBY 
LOOP AT  gt_student  INTO  gs_student  WHERE  score >=  60  GROUP BY
查看完整代码 
LOOP AT  gt_student  INTO  gs_student  WHERE  score >=  60  GROUP BY
ABAP ABAP新语法GROUPBY 
lt_grp_stu  =  VALUE  gty_t_student  (  FOR  ls_grp  IN GROUP  custom_grp  (
查看完整代码 
lt_grp_stu  =  VALUE  gty_t_student  (  FOR  ls_grp  IN GROUP  custom_grp  (
ABAP ABAP新语法GROUPBY 
LOOP AT GROUP  custom_grp  ASSIGNING FIELD  \-  SYMBOL  (  <grp> ).
查看完整代码 
LOOP AT GROUP  custom_grp  ASSIGNING FIELD  \-  SYMBOL  (  <grp> ).
ABAP ABAP新语法GROUPBY 
ENDLOOP  .
ENDLOOP  .
查看完整代码 
ENDLOOP  .
ENDLOOP  .
ABAP ABAP新语法GROUPSIZE 
END OF  ls_data  ,
查看完整代码 
END OF  ls_data  ,
ABAP ABAP新语法GROUPSIZE 
APPEND VALUE  #  (  year  =  '2024'  month  =  '03'  day  =  '01'  )  TO
查看完整代码 
APPEND VALUE  #  (  year  =  '2024'  month  =  '03'  day  =  '01'  )  TO
ABAP ABAP新语法GROUPSIZE 
APPEND VALUE  #  (  year  =  '2023'  month  =  '02'  day  =  '08'  )  TO
查看完整代码 
APPEND VALUE  #  (  year  =  '2023'  month  =  '02'  day  =  '08'  )  TO
ABAP ABAP新语法GROUPSIZE 
APPEND VALUE  #  (  year  =  '2024'  month  =  '03'  day  =  '09'  )  TO
查看完整代码 
APPEND VALUE  #  (  year  =  '2024'  month  =  '03'  day  =  '09'  )  TO
ABAP ABAP新语法GROUPSIZE 
APPEND VALUE  #  (  year  =  '2022'  month  =  '08'  day  =  '03'  )  TO
查看完整代码 
APPEND VALUE  #  (  year  =  '2022'  month  =  '08'  day  =  '03'  )  TO
ABAP ABAP新语法GROUPSIZE 
APPEND VALUE  #  (  year  =  '2022'  month  =  '08'  day  =  '02'  )  TO
查看完整代码 
APPEND VALUE  #  (  year  =  '2022'  month  =  '08'  day  =  '02'  )  TO
ABAP ABAP新语法GROUPSIZE 
APPEND VALUE  #  (  year  =  '2023'  month  =  '09'  day  =  '02'  )  TO
查看完整代码 
APPEND VALUE  #  (  year  =  '2023'  month  =  '09'  day  =  '02'  )  TO
ABAP ABAP新语法GROUPSIZE 
APPEND VALUE  #  (  year  =  '2022'  month  =  '02'  day  =  '01'  )  TO
查看完整代码 
APPEND VALUE  #  (  year  =  '2022'  month  =  '02'  day  =  '01'  )  TO
ABAP ABAP新语法GROUPSIZE 
DATA  (  lt_sort  ) =  lt_data  .
查看完整代码 
DATA  (  lt_sort  ) =  lt_data  .
ABAP ABAP新语法GROUPSIZE 
LOOP AT  lt_data  ASSIGNING FIELD  \-  SYMBOL  (  <f> )
查看完整代码 
LOOP AT  lt_data  ASSIGNING FIELD  \-  SYMBOL  (  <f> )
ABAP ABAP新语法GROUPSIZE 
IF  grp_ref  -> size  > 1  .
APPEND  CORRESPONDING #  (  grp_ref  -> *  )  TO  lt_repeat  .
ENDIF  .
ENDLOOP  .
查看完整代码 
IF  grp_ref  -> size  > 1  .
APPEND  CORRESPONDING #  (  grp_ref  -> *  )  TO  lt_repeat  .
ENDIF  .
ENDLOOP  .
ABAP ABAP新语法GROUPSIZE 
data  =  lt_data name  =  '数据源'  ),
data  =  lt_sort name  =  '数据源-排序后'  ),
data  =  lt_repeat name  =  '按年月分组重复'
查看完整代码 
data  =  lt_data name  =  '数据源'  ),
data  =  lt_sort name  =  '数据源-排序后'  ),
data  =  lt_repeat name  =  '按年月分组重复'
ABAP ABAP新语法ITABidxITABkey 
*& itab[ col1 = … col2 = … ].
查看完整代码 
*& itab[ col1 = … col2 = … ].
ABAP ABAP新语法ITABidxITABkey 
IF  1  <> 1  .
DATA  (  ls_index  ) =  gt_student[  1  ]  .  "index读取
DATA  (  ls_key  ) =  gt_student[  id  =  '0000000005'  age  =  15  ]  .
查看完整代码 
IF  1  <> 1  .
DATA  (  ls_index  ) =  gt_student[  1  ]  .  "index读取
DATA  (  ls_key  ) =  gt_student[  id  =  '0000000005'  age  =  15  ]  .
ABAP ABAP新语法ITABidxITABkey 
DATA  (  lv_index_name  ) =  gt_student[  1  ]  \-  name  .  "index读取结构字段
DATA  (  lv_key_name  ) =  gt_student[  id  =  '0000000002'  ]  \-  name  .
查看完整代码 
DATA  (  lv_index_name  ) =  gt_student[  1  ]  \-  name  .  "index读取结构字段
DATA  (  lv_key_name  ) =  gt_student[  id  =  '0000000002'  ]  \-  name  .
ABAP ABAP新语法ITABidxITABkey 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAP新语法ITABidxITABkey 
IF  sy  \-  subrc  EQ  0  .
ENDIF  .
查看完整代码 
IF  sy  \-  subrc  EQ  0  .
ENDIF  .
ABAP ABAP新语法ITABidxITABkey 
IF  line_exists  (  gt_student[  1  ]  ).
DATA  (  ls_stu01  ) =  gt_student[  1  ]  .
DATA  (  lv_name  ) =  gt_student[  1  ]  \-  name  .
ENDIF  .
查看完整代码 
IF  line_exists  (  gt_student[  1  ]  ).
DATA  (  ls_stu01  ) =  gt_student[  1  ]  .
DATA  (  lv_name  ) =  gt_student[  1  ]  \-  name  .
ENDIF  .
ABAP ABAP新语法ITABidxITABkey 
DATA  (  ls_stu02  ) =  VALUE  #  (  gt_student[  11  ]  OPTIONAL  ).
查看完整代码 
DATA  (  ls_stu02  ) =  VALUE  #  (  gt_student[  11  ]  OPTIONAL  ).
ABAP ABAP新语法ITABidxITABkey 
DATA  (  ls_stu03  ) =  VALUE  #  (  gt_student[  11  ]  DEFAULT VALUE  #  (
查看完整代码 
DATA  (  ls_stu03  ) =  VALUE  #  (  gt_student[  11  ]  DEFAULT VALUE  #  (
ABAP ABAP新语法ITABidxITABkey 
DATA  (  ls_stu04  ) =  VALUE  #  (  gt_student[  11  ]  DEFAULT VALUE  #  (
查看完整代码 
DATA  (  ls_stu04  ) =  VALUE  #  (  gt_student[  11  ]  DEFAULT VALUE  #  (
ABAP ABAP新语法ITABidxITABkey 
DATA  (  ls_stu05  ) =  COND #  (  LET  c  =  lines  (  gt_student  )  IN WHEN
查看完整代码 
DATA  (  ls_stu05  ) =  COND #  (  LET  c  =  lines  (  gt_student  )  IN WHEN
ABAP ABAP新语法ITABidxITABkey 
DATA  (  ls_stu06  ) =  COND #  (  WHEN  line_exists  (  gt_student[  11  ]  )
查看完整代码 
DATA  (  ls_stu06  ) =  COND #  (  WHEN  line_exists  (  gt_student[  11  ]  )
ABAP ABAP新语法ITABidxITABkey 
TRY  .
DATA  (  ls_stu07  ) =  gt_student[  11  ]  .
CATCH  cx_sy_itab_line_not_found  .
查看完整代码 
TRY  .
DATA  (  ls_stu07  ) =  gt_student[  11  ]  .
CATCH  cx_sy_itab_line_not_found  .
ABAP ABAP新语法LET 
DATA  (  ls_let  ) =  VALUE  lty_let  (  LET ls_stu  =  VALUE  #  (
查看完整代码 
DATA  (  ls_let  ) =  VALUE  lty_let  (  LET ls_stu  =  VALUE  #  (
ABAP ABAP新语法LET 
ls_sch  =  VALUE  gty_school  (  school  =  'A'  date  =  '20210401'  time  =
查看完整代码 
ls_sch  =  VALUE  gty_school  (  school  =  'A'  date  =  '20210401'  time  =
ABAP ABAP新语法LET 
l_gender_en  =  SWITCH char12  (  ls_stu  \-  gender
查看完整代码 
l_gender_en  =  SWITCH char12  (  ls_stu  \-  gender
ABAP ABAP新语法LET 
l_score  =  ls_stu  \-  score
查看完整代码 
l_score  =  ls_stu  \-  score
ABAP ABAP新语法LET 
l_info  =  'Name:'  && ls_stu  \-  name && l_sep && 'Age:'  && ls_stu  \-  age
查看完整代码 
l_info  =  'Name:'  && ls_stu  \-  name && l_sep && 'Age:'  && ls_stu  \-  age
ABAP ABAP新语法LET 
name  =  ls_stu  \-  name  "Jack
gender  =  ls_stu  \-  gender  "男
查看完整代码 
name  =  ls_stu  \-  name  "Jack
gender  =  ls_stu  \-  gender  "男
ABAP ABAP新语法LET 
age  =  ls_stu  \-  age  "25
查看完整代码 
age  =  ls_stu  \-  age  "25
ABAP ABAP新语法LET 
school  =  ls_sch  \-  school  "A
查看完整代码 
school  =  ls_sch  \-  school  "A
ABAP ABAP新语法OPENSQLPart1 
SELECT id  ,
查看完整代码 
SELECT id  ,
ABAP ABAP新语法OPENSQLPart1 
@  (  COND #  (  WHEN  lv_score >=  90  THEN  '优秀'
WHEN  lv_score >=  80  AND  lv_score < 90  THEN  '良好'
WHEN  lv_score >=  70  AND  lv_score < 80  THEN  '中等'
WHEN  lv_score >=  60  AND  lv_score < 70  THEN  '及格'
查看完整代码 
@  (  COND #  (  WHEN  lv_score >=  90  THEN  '优秀'
WHEN  lv_score >=  80  AND  lv_score < 90  THEN  '良好'
WHEN  lv_score >=  70  AND  lv_score < 80  THEN  '中等'
WHEN  lv_score >=  60  AND  lv_score < 70  THEN  '及格'
ABAP ABAP新语法OPENSQLPart2 
SELECT  name  ,
查看完整代码 
SELECT  name  ,
ABAP ABAP新语法OPENSQLPart3 
SELECT id  ,
查看完整代码 
SELECT id  ,
ABAP ABAP新语法OPENSQLPart4 
SELECT id  ,
查看完整代码 
SELECT id  ,
ABAP ABAP新语法REDUCE 
DATA  (  lv_lines  ) =  REDUCE  i  (  INIT  lines  =  0
查看完整代码 
DATA  (  lv_lines  ) =  REDUCE  i  (  INIT  lines  =  0
ABAP ABAP新语法REDUCE 
DATA  (  lv_ages  ) =  REDUCE  i  (  INIT ages  =  0
查看完整代码 
DATA  (  lv_ages  ) =  REDUCE  i  (  INIT ages  =  0
ABAP ABAP新语法REDUCE 
DATA  (  ls_reduce  ) =  REDUCE lty_reduce  (  INIT res  =  VALUE  lty_reduce
查看完整代码 
DATA  (  ls_reduce  ) =  REDUCE lty_reduce  (  INIT res  =  VALUE  lty_reduce
ABAP ABAP新语法SEGMENT 
DATA  (  lv_year  ) =  segment  (  val  =  lv_str  index  =  1  sep  =  '/'
查看完整代码 
DATA  (  lv_year  ) =  segment  (  val  =  lv_str  index  =  1  sep  =  '/'
ABAP ABAP新语法SEGMENT 
TRY  .
DATA  (  lv_inva_index  ) =  segment  (  val  =  lv_str  index  =  4  sep  =
查看完整代码 
TRY  .
DATA  (  lv_inva_index  ) =  segment  (  val  =  lv_str  index  =  4  sep  =
ABAP ABAP新语法SEGMENT 
TRY  .
DATA  (  lv_value  ) =  segment  (  val  =  lv_str  index  =  sy  \-  index
查看完整代码 
TRY  .
DATA  (  lv_value  ) =  segment  (  val  =  lv_str  index  =  sy  \-  index
ABAP ABAP新语法SWITCHCOND 
DATA  (  lv_gender  ) =  '男'  .
DATA  (  lv_gender_en  ) =  SWITCH char12  (  lv_gender  "单一变量
查看完整代码 
DATA  (  lv_gender  ) =  '男'  .
DATA  (  lv_gender_en  ) =  SWITCH char12  (  lv_gender  "单一变量
ABAP ABAP新语法SWITCHCOND 
DATA  (  lv_score  ) =  95  .
DATA  (  lv_level  ) =  COND char12  (  WHEN  lv_score >=  90  THEN  '优秀'
WHEN  lv_score >=  80  AND  lv_score < 90  THEN  '良好'  "多条件
WHEN  lv_score >=  60  AND  lv_score < 80  THEN  '及格'
查看完整代码 
DATA  (  lv_score  ) =  95  .
DATA  (  lv_level  ) =  COND char12  (  WHEN  lv_score >=  90  THEN  '优秀'
WHEN  lv_score >=  80  AND  lv_score < 90  THEN  '良好'  "多条件
WHEN  lv_score >=  60  AND  lv_score < 80  THEN  '及格'
ABAP ABAP新语法VALUE 
DATA  (  lv_var  ) =  VALUE i  ( ).
查看完整代码 
DATA  (  lv_var  ) =  VALUE i  ( ).
ABAP ABAP新语法VALUE 
ls_stu01  =  VALUE  #  (  name  =  'Tom'  gender  =  '男'  age  =  20  ).
查看完整代码 
ls_stu01  =  VALUE  #  (  name  =  'Tom'  gender  =  '男'  age  =  20  ).
ABAP ABAP新语法VALUE 
DATA  (  ls_stu02  ) =  VALUE  gty_student  (  name  =  'Jack'  gender  =  '男'
查看完整代码 
DATA  (  ls_stu02  ) =  VALUE  gty_student  (  name  =  'Jack'  gender  =  '男'
ABAP ABAP新语法VALUE 
lt_stu01  =  VALUE  #  ( (  ls_stu01  )
查看完整代码 
lt_stu01  =  VALUE  #  ( (  ls_stu01  )
ABAP ABAP新语法VALUE 
DATA  (  lt_stu02  ) =  VALUE  lty_t_student  ( (  name  =  'Tom'  gender  =
查看完整代码 
DATA  (  lt_stu02  ) =  VALUE  lty_t_student  ( (  name  =  'Tom'  gender  =
ABAP ABAP新语法VALUE 
使用  ` DATA(lv_var) = VALUE i( ).  ` ，在声明变量的同时使用VALUE初始化，确保变量被正确赋予默认值。
查看完整代码 
使用  ` DATA(lv_var) = VALUE i( ).  ` ，在声明变量的同时使用VALUE初始化，确保变量被正确赋予默认值。
ABAP ABAP新语法VALUE 
使用  ` ls_stu01 = VALUE #( name = 'Tom' gender = '男' age = 20 ).  `
查看完整代码 
使用  ` ls_stu01 = VALUE #( name = 'Tom' gender = '男' age = 20 ).  `
ABAP ABAP新语法VALUE 
使用  ` lt_stu01 = VALUE #( ( ls_stu01 ) ( ls_stu02 ) ( ) ( name = 'Lisa' gender
= '女' age = 18 ) ).  ` ，通过VALUE初始化内表  ` lt_stu01  ` ，包含了不同的结构体实例。
查看完整代码 
使用  ` lt_stu01 = VALUE #( ( ls_stu01 ) ( ls_stu02 ) ( ) ( name = 'Lisa' gender
= '女' age = 18 ) ).  ` ，通过VALUE初始化内表  ` lt_stu01  ` ，包含了不同的结构体实例。
ABAP ABAP新语法VALUE 
使用  ` lt_stu02 = VALUE lty_t_student( ( name = 'Tom' gender = '男' age = 20 ) (
name = 'Lisa' gender = '女' age = 18 ) ).  ` ，通过VALUE初始化带有特定类型的内表  ` lt_stu02
查看完整代码 
使用  ` lt_stu02 = VALUE lty_t_student( ( name = 'Tom' gender = '男' age = 20 ) (
name = 'Lisa' gender = '女' age = 18 ) ).  ` ，通过VALUE初始化带有特定类型的内表  ` lt_stu02
ABAP ABAP时间戳与Unix时间戳互转 
DATA: lv_date TYPE d,      lv_time TYPE t.DATA: lv_timestampl TYPE string,      lv_timestamps TYPE string.
lv_date = sy-datum.lv_time = sy-uzeit.CONVERT DATE lv_date        TIME lv_time        INTO TIME STAMP DATA(ts) TIME ZONE sy-zonlo.*GET TIME STAMP FIELD DATA(ts).
查看完整代码 
DATA: lv_date TYPE d,      lv_time TYPE t.DATA: lv_timestampl TYPE string,      lv_timestamps TYPE string.
lv_date = sy-datum.lv_time = sy-uzeit.CONVERT DATE lv_date        TIME lv_time        INTO TIME STAMP DATA(ts) TIME ZONE sy-zonlo.*GET TIME STAMP FIELD DATA(ts).
ABAP ABAP时间戳与Unix时间戳互转
查看代码
*ABAP时间转Unix时间戳cl_pco_utility=>convert_abap_timestamp_to_java( EXPORTING iv_date      = date                                                          iv_time      = time                                                IMPORTING ev_timestamp = lv_timestampl ).DATA(lv_len) = strlen( lv_timestampl ) - 3 .*短时间戳lv_timestamps = lv_timestampl(lv_len).cl_demo_output=>display( |Date:{ lv_date } Time:{ lv_time } -> TimestampLong:{ lv_timestampl } TimestampShort:{ lv_timestamps }| ).
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
*ABAP时间转Unix时间戳cl_pco_utility=>convert_abap_timestamp_to_java( EXPORTING iv_date      = date                                                          iv_time      = time                                                IMPORTING ev_timestamp = lv_timestampl ).DATA(lv_len) = strlen( lv_timestampl ) - 3 .*短时间戳lv_timestamps = lv_timestampl(lv_len).cl_demo_output=>display( |Date:{ lv_date } Time:{ lv_time } -> TimestampLong:{ lv_timestampl } TimestampShort:{ lv_timestamps }| ).
/* ... 已截断，完整代码请查看原文 */
ABAP ABAP每日随笔day1 
READ TABLE  |  DATA wa LIKE LINE OF itab.  FIELD-SYMBOLS <FS> LIKE LINE OF itab.  READ TABLE itab INTO wa INDEX 1.  READ TABLE itab ASSIGNING <FS> INDEX 1.  |  READ TABLE itab INTO DATA(WA) INDEX 1.  READ TABLE itab ASSIGING FIELD-SYMBOLS(<FS>) INDEX 1.
SQL  |  DATA itab TYPE TABLE OF MARA.  SELECT * FROM MARA INTO TABLE itab  WHERE matnr = lv_matnr.  |
SELECT *  FROM mara  INTO  TABLE @DATA  (itab  )
WHERE matnr  = lv_matnr  .
查看完整代码 
READ TABLE  |  DATA wa LIKE LINE OF itab.  FIELD-SYMBOLS <FS> LIKE LINE OF itab.  READ TABLE itab INTO wa INDEX 1.  READ TABLE itab ASSIGNING <FS> INDEX 1.  |  READ TABLE itab INTO DATA(WA) INDEX 1.  READ TABLE itab ASSIGING FIELD-SYMBOLS(<FS>) INDEX 1.
SQL  |  DATA itab TYPE TABLE OF MARA.  SELECT * FROM MARA INTO TABLE itab  WHERE matnr = lv_matnr.  |
SELECT *  FROM mara  INTO  TABLE @DATA  (itab  )
WHERE matnr  = lv_matnr  .
ABAP ABAP每日随笔day2READTABLE 
SELECT * FROM mara INTO TABLE @DATA(gt_mara)
查看完整代码 
SELECT * FROM mara INTO TABLE @DATA(gt_mara)
ABAP ABAP每日随笔day2READTABLE 
READ TABLE GT_MARA INDEX 1 INTO DATA(LS_MARA).
查看完整代码 
READ TABLE GT_MARA INDEX 1 INTO DATA(LS_MARA).
ABAP ABAP每日随笔day2READTABLE 
READ TABLE gt_mara_sort INTO DATA(ls_mara_sort1) INDEX 1 USING KEY
查看完整代码 
READ TABLE gt_mara_sort INTO DATA(ls_mara_sort1) INDEX 1 USING KEY
ABAP ABAP每日随笔day2READTABLE 
READ TABLE gt_mara_sort INTO DATA(ls_mara_sort2) WITH KEY matnr = 'AT001'.
查看完整代码 
READ TABLE gt_mara_sort INTO DATA(ls_mara_sort2) WITH KEY matnr = 'AT001'.
ABAP ABAP每日随笔day2READTABLE 
IF SY-SUBRC EQ 0.
查看完整代码 
IF SY-SUBRC EQ 0.
ABAP ABAP每日随笔day2READTABLE 
ENDIF.
查看完整代码 
ENDIF.
ABAP ABAP每日随笔day2READTABLE 
DATA(ls_mara_sort1_new) = gt_mara_sort1[ KEY primary_key INDEX 1 ].
查看完整代码 
DATA(ls_mara_sort1_new) = gt_mara_sort1[ KEY primary_key INDEX 1 ].
ABAP ABAP每日随笔day2READTABLE 
DATA(ls_mara_sort2_new) = gt_mara_sort2[ matnr = 'AT001' ].
查看完整代码 
DATA(ls_mara_sort2_new) = gt_mara_sort2[ matnr = 'AT001' ].
ABAP ABAP每日随笔day2READTABLE 
READ TABLE gt_mara TRANSPORTING NO FIELDS WITH KEY matnr = 'AT001'.
查看完整代码 
READ TABLE gt_mara TRANSPORTING NO FIELDS WITH KEY matnr = 'AT001'.
ABAP ABAP每日随笔day2READTABLE 
READ TABLE gt_mara TRANSPORTING NO FIELDS WITH KEY matnr = 'AT001'.
查看完整代码 
READ TABLE gt_mara TRANSPORTING NO FIELDS WITH KEY matnr = 'AT001'.
ABAP ABAP每日随笔day2READTABLE 
IF sy-subrc EQ 0.
查看完整代码 
IF sy-subrc EQ 0.
ABAP ABAP每日随笔day2READTABLE 
lv_tabix = sy-tabix.
查看完整代码 
lv_tabix = sy-tabix.
ABAP ABAP每日随笔day2READTABLE 
ENDIF.
查看完整代码 
ENDIF.
ABAP ABAP每日随笔day2READTABLE 
DATA(lv_tabix_new) = line_index( gt_mara[ matnr = 'AT001' ] ).
查看完整代码 
DATA(lv_tabix_new) = line_index( gt_mara[ matnr = 'AT001' ] ).
ABAP ABAP每日随笔day2READTABLE 
IF sy-subrc EQ 0.
查看完整代码 
IF sy-subrc EQ 0.
ABAP ABAP每日随笔day2READTABLE 
ENDIF.
查看完整代码 
ENDIF.
ABAP ABAP每日随笔day3值转化和赋值 
TYPES:BEGIN OF ty_mara,
查看完整代码 
TYPES:BEGIN OF ty_mara,
ABAP ABAP每日随笔day3值转化和赋值 
TYPES:BEGIN OF ty_makt,
查看完整代码 
TYPES:BEGIN OF ty_makt,
ABAP ABAP每日随笔day3值转化和赋值 
DATA(lv_matnr) = 'AT001'.
查看完整代码 
DATA(lv_matnr) = 'AT001'.
ABAP ABAP每日随笔day3值转化和赋值 
DATA(ls_makt1) = VALUE ty_makt( maktx = 'TEST MATERIAL'
查看完整代码 
DATA(ls_makt1) = VALUE ty_makt( maktx = 'TEST MATERIAL'
ABAP ABAP每日随笔day3值转化和赋值 
mara1-matnr = lv_matnr
查看完整代码 
mara1-matnr = lv_matnr
ABAP ABAP每日随笔day3值转化和赋值 
TYPES: ty_t_makt TYPE STANDARD TABLE OF ty_makt WITH EMPTY KEY.
查看完整代码 
TYPES: ty_t_makt TYPE STANDARD TABLE OF ty_makt WITH EMPTY KEY.
ABAP ABAP每日随笔day3值转化和赋值 
DATA(lt_makt) = VALUE ty_t_makt(
查看完整代码 
DATA(lt_makt) = VALUE ty_t_makt(
ABAP ABAP的AES加密 
*&--Unix时间戳到毫秒级GET TIME STAMP FIELD lv_timestampl.lv_str_timestampl = lv_timestampl.cl_pco_utility=>convert_abap_timestamp_to_java(EXPORTINGiv_date      = CONV #( lv_str_timestampl(8)    )iv_time      = CONV #( lv_str_timestampl+8(6) )iv_msec      = CONV #( lv_str_timestampl+15(3) )IMPORTINGev_timestamp = lv_java_timestamp)."时间戳ls_json-time = lv_java_timestamp.
查看完整代码 
*&--Unix时间戳到毫秒级GET TIME STAMP FIELD lv_timestampl.lv_str_timestampl = lv_timestampl.cl_pco_utility=>convert_abap_timestamp_to_java(EXPORTINGiv_date      = CONV #( lv_str_timestampl(8)    )iv_time      = CONV #( lv_str_timestampl+8(6) )iv_msec      = CONV #( lv_str_timestampl+15(3) )IMPORTINGev_timestamp = lv_java_timestamp)."时间戳ls_json-time = lv_java_timestamp.
ABAP ABAP的AES加密 
lv_plaintext   = ls_json-account && lv_java_timestamp.
CALL FUNCTION 'SCMS_STRING_TO_XSTRING'EXPORTINGtext   = lv_plaintext*       mimetype = mimetypeIMPORTINGbuffer = plaintextEXCEPTIONSfailed = 1OTHERS = 2.
CALL FUNCTION 'SCMS_STRING_TO_XSTRING'EXPORTINGtext   = lv_key*       mimetype = mimetypeIMPORTINGbuffer = keyEXCEPTIONSfailed = 1OTHERS = 2.
查看完整代码 
lv_plaintext   = ls_json-account && lv_java_timestamp.
CALL FUNCTION 'SCMS_STRING_TO_XSTRING'EXPORTINGtext   = lv_plaintext*       mimetype = mimetypeIMPORTINGbuffer = plaintextEXCEPTIONSfailed = 1OTHERS = 2.
CALL FUNCTION 'SCMS_STRING_TO_XSTRING'EXPORTINGtext   = lv_key*       mimetype = mimetypeIMPORTINGbuffer = keyEXCEPTIONSfailed = 1OTHERS = 2.
ABAP ABAP的AES加密 
CALL FUNCTION 'SCMS_BASE64_ENCODE_STR'EXPORTINGinput  = testIMPORTINGoutput = lv_str."签名ls_json-sign = lv_str.
查看完整代码 
CALL FUNCTION 'SCMS_BASE64_ENCODE_STR'EXPORTINGinput  = testIMPORTINGoutput = lv_str."签名ls_json-sign = lv_str.
ABAP ABAP的坑4 
READ TABLE  itab  WITH KEY  name  =  it_source  BINARY SEARCH  .
查看完整代码 
READ TABLE  itab  WITH KEY  name  =  it_source  BINARY SEARCH  .
ABAP ABAP的坑4 
READ TABLE  itab  WITH KEY  name  =  it_source  BINARY SEARCH  .
查看完整代码 
READ TABLE  itab  WITH KEY  name  =  it_source  BINARY SEARCH  .
ABAP ABAP的坑5 
decimals_out = 3.
查看完整代码 
decimals_out = 3.
ABAP ABAP知识请不要这样设计OOALV
查看代码
FORM frm_read_dynpro_values .  DATA: lt_dynpread    TYPE TABLE OF dynpread,        lt_dynp_fields TYPE TABLE OF rsdcf,        lt_lines       TYPE TABLE OF tline.
CALL FUNCTION 'DYNPRO_FIELD_GET'    EXPORTING      dynpro           = CONV tstc-dypno( sy-dynnr )      program          = sy-repidTABLES      dynp_fields      = lt_dynp_fieldslines            = lt_linesEXCEPTIONS      dynpro_not_found = 1      OTHERS           = 2.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
FORM frm_read_dynpro_values .  DATA: lt_dynpread    TYPE TABLE OF dynpread,        lt_dynp_fields TYPE TABLE OF rsdcf,        lt_lines       TYPE TABLE OF tline.
CALL FUNCTION 'DYNPRO_FIELD_GET'    EXPORTING      dynpro           = CONV tstc-dypno( sy-dynnr )      program          = sy-repidTABLES      dynp_fields      = lt_dynp_fieldslines            = lt_linesEXCEPTIONS      dynpro_not_found = 1      OTHERS           = 2.
/* ... 已截断，完整代码请查看原文 */
ABAP ABAP自开发每日流水码的高并发优化
查看代码
FUNCTION znriv_get_next.*"----------------------------------------------------------------------*"*"局部接口：*"  IMPORTING*"     VALUE(IV_OBJCT) TYPE  C*"     VALUE(IV_DATUM) TYPE  DATUM OPTIONAL*"     VALUE(IV_NRLEN) TYPE  I OPTIONAL*"     VALUE(IV_INTER) DEFAULT 'D'*"     VALUE(IV_PREFIX) OPTIONAL*"  EXPORTING*"     VALUE(EV_SRNUM) TYPE  N*"     VALUE(EV_PRSTR) TYPE  C*"------------------------------------------------
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
FUNCTION znriv_get_next.*"----------------------------------------------------------------------*"*"局部接口：*"  IMPORTING*"     VALUE(IV_OBJCT) TYPE  C*"     VALUE(IV_DATUM) TYPE  DATUM OPTIONAL*"     VALUE(IV_NRLEN) TYPE  I OPTIONAL*"     VALUE(IV_INTER) DEFAULT 'D'*"     VALUE(IV_PREFIX) OPTIONAL*"  EXPORTING*"     VALUE(EV_SRNUM) TYPE  N*"     VALUE(EV_PRSTR) TYPE  C*"------------------------------------------------
/* ... 已截断，完整代码请查看原文 */
ABAP ABAP自开发每日流水码的高并发优化
查看代码
IF iv_datum IS INITIAL OR iv_datum = ''.    iv_datum = sy-datum.  ENDIF.
IF iv_inter = 'W'. "每周一个流水    CALL FUNCTION 'GET_WEEK_INFO_BASED_ON_DATE'      EXPORTING        date   = iv_datum      IMPORTING        week   = lv_kweek        monday = lv_datum.    lv_daywm = lv_kweek.  ELSEIF iv_inter = 'M'. "每月一个流水    CONCATENATE iv_datum(6) '01' INTO lv_datum.    lv_daywm = iv_datum(6).  ELSE. "每天一个流水    lv_datum = iv_datum.    lv_d
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
IF iv_datum IS INITIAL OR iv_datum = ''.    iv_datum = sy-datum.  ENDIF.
IF iv_inter = 'W'. "每周一个流水    CALL FUNCTION 'GET_WEEK_INFO_BASED_ON_DATE'      EXPORTING        date   = iv_datum      IMPORTING        week   = lv_kweek        monday = lv_datum.    lv_daywm = lv_kweek.  ELSEIF iv_inter = 'M'. "每月一个流水    CONCATENATE iv_datum(6) '01' INTO lv_datum.    lv_daywm = iv_datum(6).  ELSE. "每天一个流水    lv_datum = iv_datum.    lv_d
/* ... 已截断，完整代码请查看原文 */
ABAP ABAP自开发每日流水码的高并发优化 
CONCATENATE iv_prefix lv_daywm <lv_srnum> INTO ev_prstr.  ev_srnum = <lv_srnum>.
查看完整代码 
CONCATENATE iv_prefix lv_daywm <lv_srnum> INTO ev_prstr.  ev_srnum = <lv_srnum>.
ABAP ABAP获取DB12中数据库备份日志
查看代码
TRY.    DATA(system) = cl_db6_sys=>get_sys_ref( system_id = sy-sysid                                            synchronize = abap_false ).    DATA(meta) = cl_dba_rdi_meta=>get_instance( sys_ref = system                                                use_new_query_processor = abap_false ).    DATA(query) = NEW cl_hdb_rdi_query( rdi_meta = meta ).    DATA itab TYPE hdb_backup_catalogue_tab.    query->if_dba_rdi_query~set_top_n( 1000 ).    query->if_dba_rdi_query~get_snapshot( EX
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
TRY.    DATA(system) = cl_db6_sys=>get_sys_ref( system_id = sy-sysid                                            synchronize = abap_false ).    DATA(meta) = cl_dba_rdi_meta=>get_instance( sys_ref = system                                                use_new_query_processor = abap_false ).    DATA(query) = NEW cl_hdb_rdi_query( rdi_meta = meta ).    DATA itab TYPE hdb_backup_catalogue_tab.    query->if_dba_rdi_query~set_top_n( 1000 ).    query->if_dba_rdi_query~get_snapshot( EX
/* ... 已截断，完整代码请查看原文 */
ABAP ABAP获取用户参数 
GET PARAMETER ID zcl_memory_id=>wrk FIELD lv_werks.
查看完整代码 
GET PARAMETER ID zcl_memory_id=>wrk FIELD lv_werks.
ABAP ABAP获取用户参数 
CALL FUNCTION 'SUSR_USER_PARAMETERS_GET'      EXPORTING        user_name           = sy-uname      TABLES        user_parameters     = lt_params[]      EXCEPTIONS        user_name_not_exist = 1        OTHERS              = 2.
READ TABLE lt_params INTO ls_param WITH KEY parid = iv_parid.    rv_parva = ls_param-parva.  ENDMETHOD.
查看完整代码 
CALL FUNCTION 'SUSR_USER_PARAMETERS_GET'      EXPORTING        user_name           = sy-uname      TABLES        user_parameters     = lt_params[]      EXCEPTIONS        user_name_not_exist = 1        OTHERS              = 2.
READ TABLE lt_params INTO ls_param WITH KEY parid = iv_parid.    rv_parva = ls_param-parva.  ENDMETHOD.
ABAP ABAP设置后台JOB封装 
zcl_common=>start_job( report = sy-repid params = lt_rsparams ).
查看完整代码 
zcl_common=>start_job( report = sy-repid params = lt_rsparams ).
ABAP ABAP设置后台JOB封装 
REPORT  |  报表名称  |  必输  |  作业启动的报表名称
查看完整代码 
REPORT  |  报表名称  |  必输  |  作业启动的报表名称
ABAP ABAP设置后台JOB封装
查看代码
DATA: lt_rsparams TYPE TABLE OF rsparams.    APPEND LINES OF VALUE rsparams_tt( FOR wa_asort IN s_asort ( CORRESPONDING #( BASE ( VALUE #( selname = 'S_ASORT' kind = 'S' ) ) wa_asort ) ) ) TO lt_rsparams.    APPEND LINES OF VALUE rsparams_tt( FOR wa_matnr IN s_matnr ( CORRESPONDING #( BASE ( VALUE #( selname = 'S_MATNR' kind = 'S' ) ) wa_matnr ) ) ) TO lt_rsparams.    APPEND LINES OF VALUE rsparams_tt( FOR wa_year IN s_year ( CORRESPONDING #( BASE ( 
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA: lt_rsparams TYPE TABLE OF rsparams.    APPEND LINES OF VALUE rsparams_tt( FOR wa_asort IN s_asort ( CORRESPONDING #( BASE ( VALUE #( selname = 'S_ASORT' kind = 'S' ) ) wa_asort ) ) ) TO lt_rsparams.    APPEND LINES OF VALUE rsparams_tt( FOR wa_matnr IN s_matnr ( CORRESPONDING #( BASE ( VALUE #( selname = 'S_MATNR' kind = 'S' ) ) wa_matnr ) ) ) TO lt_rsparams.    APPEND LINES OF VALUE rsparams_tt( FOR wa_year IN s_year ( CORRESPONDING #( BASE ( 
/* ... 已截断，完整代码请查看原文 */
ABAP ABAP设置报表默认变式 
INITIALIZATION.  zcl_common=>get_default_variant( ).
查看完整代码 
INITIALIZATION.  zcl_common=>get_default_variant( ).
ABAP ABAP设置报表默认变式 
METHOD get_default_variant.    DATA: lv_repid   LIKE sy-repid.    DATA: lv_subrc   LIKE sy-subrc.    DATA: lv_variant TYPE rsvar-variant.    DATA: lt_callstack TYPE abap_callstack.
CALL FUNCTION 'SYSTEM_CALLSTACK'      IMPORTING        callstack = lt_callstack.
ASSIGN lt_callstack[ 2 ] TO FIELD-SYMBOL(<fs_stack>).    IF sy-subrc EQ 0.      lv_repid = <fs_stack>-mainprogram.    ENDIF.
查看完整代码 
METHOD get_default_variant.    DATA: lv_repid   LIKE sy-repid.    DATA: lv_subrc   LIKE sy-subrc.    DATA: lv_variant TYPE rsvar-variant.    DATA: lt_callstack TYPE abap_callstack.
CALL FUNCTION 'SYSTEM_CALLSTACK'      IMPORTING        callstack = lt_callstack.
ASSIGN lt_callstack[ 2 ] TO FIELD-SYMBOL(<fs_stack>).    IF sy-subrc EQ 0.      lv_repid = <fs_stack>-mainprogram.    ENDIF.
ABAP ABAP设置报表默认变式
查看代码
*--- 用户默认变式      lv_variant = |U_{ sy-uname }|.      lv_subrc = is_variant_exists( report = lv_repid variant = lv_variant ).
IF lv_subrc IS NOT INITIAL.*--- 自定义默认变式/不跨Client        lv_variant = |C_{ sy-tcode }|.        lv_subrc = is_variant_exists( report = lv_repid variant = lv_variant ).        IF lv_subrc IS NOT INITIAL.*--- 系统默认变式,跨客户端,"CUS&"开头变式会产生请求          lv_variant = |CUS&{ sy-tcode }|.          lv_subrc = is_variant_exists( report = lv_repid variant = lv_varian
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
*--- 用户默认变式      lv_variant = |U_{ sy-uname }|.      lv_subrc = is_variant_exists( report = lv_repid variant = lv_variant ).
IF lv_subrc IS NOT INITIAL.*--- 自定义默认变式/不跨Client        lv_variant = |C_{ sy-tcode }|.        lv_subrc = is_variant_exists( report = lv_repid variant = lv_variant ).        IF lv_subrc IS NOT INITIAL.*--- 系统默认变式,跨客户端,"CUS&"开头变式会产生请求          lv_variant = |CUS&{ sy-tcode }|.          lv_subrc = is_variant_exists( report = lv_repid variant = lv_varian
/* ... 已截断，完整代码请查看原文 */
ABAP ABAP设置报表默认变式 
METHOD is_variant_exists.    CALL FUNCTION 'RS_VARIANT_EXISTS'      EXPORTING        report              = report        variant             = variant      IMPORTING        r_c                 = rv_subrc      EXCEPTIONS        not_authorized      = 1        no_report           = 2        report_not_existent = 3        report_not_supplied = 4.    rv_subrc = COND #( WHEN sy-subrc <> 0 THEN sy-subrc ELSE rv_subrc ).  ENDMETHOD.
查看完整代码 
METHOD is_variant_exists.    CALL FUNCTION 'RS_VARIANT_EXISTS'      EXPORTING        report              = report        variant             = variant      IMPORTING        r_c                 = rv_subrc      EXCEPTIONS        not_authorized      = 1        no_report           = 2        report_not_existent = 3        report_not_supplied = 4.    rv_subrc = COND #( WHEN sy-subrc <> 0 THEN sy-subrc ELSE rv_subrc ).  ENDMETHOD.
ABAP ABAP读取内表行新老语法对比 
"-----------------------------@斌将军-----------------------------"老语法READ TABLE lt_acd INTO ls_acd WITH KEY rbukrs = gs_acd-rbukrs.IF sy-subrc EQ 0.
ENDIF.
"新语法ls_acd = lt_acd[ rbukrs = gs_acd-rbukrs ]."-----------------------------@斌将军-----------------------------
查看完整代码 
"-----------------------------@斌将军-----------------------------"老语法READ TABLE lt_acd INTO ls_acd WITH KEY rbukrs = gs_acd-rbukrs.IF sy-subrc EQ 0.
ENDIF.
"新语法ls_acd = lt_acd[ rbukrs = gs_acd-rbukrs ]."-----------------------------@斌将军-----------------------------
ABAP ABAP读取内表行新老语法对比 
ENDIF.
"新语法ls_acd = lt_acd[ 1 ]."-----------------------------@斌将军-----------------------------
查看完整代码 
ENDIF.
"新语法ls_acd = lt_acd[ 1 ]."-----------------------------@斌将军-----------------------------
ABAP ABAP读取内表行新老语法对比 
"-----------------------------@斌将军-----------------------------"老语法READ TABLE lt_acd WITH KEY rbukrs = gs_acd-rbukrs TRANSPORTING NO FIELDS.IF sy-subrc EQ 0.
ENDIF.
"新语法IF LINE_EXISTS( lt_acd[ rbukrs = gs_acd-rbukrs ] ).    ENDIF."-----------------------------@斌将军-----------------------------
查看完整代码 
"-----------------------------@斌将军-----------------------------"老语法READ TABLE lt_acd WITH KEY rbukrs = gs_acd-rbukrs TRANSPORTING NO FIELDS.IF sy-subrc EQ 0.
ENDIF.
"新语法IF LINE_EXISTS( lt_acd[ rbukrs = gs_acd-rbukrs ] ).    ENDIF."-----------------------------@斌将军-----------------------------
ABAP ABAP读取内表行新老语法对比 
"-----------------------------@斌将军-----------------------------"老语法READ TABLE lt_acd WITH KEY rbukrs = gs_acd-rbukrs TRANSPORTING NO FIELDS.IF sy-subrc EQ 0.WRITE:SY-TABIX.ENDIF.
"新语法LV_INDEX = LINE_INDEX( lt_acd[ rbukrs = gs_acd-rbukrs ] )."-----------------------------@斌将军-----------------------------
查看完整代码 
"-----------------------------@斌将军-----------------------------"老语法READ TABLE lt_acd WITH KEY rbukrs = gs_acd-rbukrs TRANSPORTING NO FIELDS.IF sy-subrc EQ 0.WRITE:SY-TABIX.ENDIF.
"新语法LV_INDEX = LINE_INDEX( lt_acd[ rbukrs = gs_acd-rbukrs ] )."-----------------------------@斌将军-----------------------------
ABAP ABAP读取内表行新老语法对比 
TRY .    ls_acd = lt_acd[ rbukrs = '333' ].CATCH cx_sy_itab_line_not_found .    MESSAGE '未找到数据' TYPE 'E' .ENDTRY.
查看完整代码 
TRY .    ls_acd = lt_acd[ rbukrs = '333' ].CATCH cx_sy_itab_line_not_found .    MESSAGE '未找到数据' TYPE 'E' .ENDTRY.
ABAP ABAP读取内表行新老语法对比 
IF line_exists( lt_acd[ rbukrs = '333' ] ).  ls_acd = lt_acd[ rbukrs = '333' ].ELSE.  MESSAGE '未找到数据' TYPE 'E' .ENDIF.
查看完整代码 
IF line_exists( lt_acd[ rbukrs = '333' ] ).  ls_acd = lt_acd[ rbukrs = '333' ].ELSE.  MESSAGE '未找到数据' TYPE 'E' .ENDIF.
ABAP ABAP读取内表行新老语法对比
查看代码
"-----------------------------@斌将军-----------------------------"1.测试新语法------------------------------------GET TIME STAMP FIELD lv_current1.CLEAR:lv_index.LOOP AT gt_acd INTO gs_acd.  lv_index = lv_index + 1.  TRY .      ls_acd = lt_acd[ rbukrs = gs_acd-rbukrs gjahr = gs_acd-gjahr  belnr = gs_acd-belnr docln = gs_acd-docln ].    CATCH cx_sy_itab_line_not_found .      MESSAGE '未找到数据' TYPE 'E' .  ENDTRY.ENDLOOP.GET TIME STAMP FIELD lv_current2."------------
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
"-----------------------------@斌将军-----------------------------"1.测试新语法------------------------------------GET TIME STAMP FIELD lv_current1.CLEAR:lv_index.LOOP AT gt_acd INTO gs_acd.  lv_index = lv_index + 1.  TRY .      ls_acd = lt_acd[ rbukrs = gs_acd-rbukrs gjahr = gs_acd-gjahr  belnr = gs_acd-belnr docln = gs_acd-docln ].    CATCH cx_sy_itab_line_not_found .      MESSAGE '未找到数据' TYPE 'E' .  ENDTRY.ENDLOOP.GET TIME STAMP FIELD lv_current2."------------
/* ... 已截断，完整代码请查看原文 */
ABAP ABAP读取内表行新老语法对比
查看代码
"-----------------------------@斌将军-----------------------------"2.测试老语法------------------------------------GET TIME STAMP FIELD lv_current1.CLEAR:lv_index.LOOP AT gt_acd INTO gs_acd.  lv_index = lv_index + 1.  READ TABLE lt_acd INTO ls_acd WITH KEY rbukrs = gs_acd-rbukrs                                          gjahr = gs_acd-gjahr                                          belnr = gs_acd-belnr                                          docln = gs_acd-docln.  IF sy-subrc EQ 0.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
"-----------------------------@斌将军-----------------------------"2.测试老语法------------------------------------GET TIME STAMP FIELD lv_current1.CLEAR:lv_index.LOOP AT gt_acd INTO gs_acd.  lv_index = lv_index + 1.  READ TABLE lt_acd INTO ls_acd WITH KEY rbukrs = gs_acd-rbukrs                                          gjahr = gs_acd-gjahr                                          belnr = gs_acd-belnr                                          docln = gs_acd-docln.  IF sy-subrc EQ 0.
/* ... 已截断，完整代码请查看原文 */
ABAP ABAP读取内表行新老语法对比 
READ TABLE lt_acd INTO ls_acd WITH KEY rbukrs = gs_acd-rbukrs                                          gjahr = gs_acd-gjahr                                          belnr = gs_acd-belnr                                          docln = gs_acd-docln BINARY SEARCH.  IF sy-subrc EQ 0.    lv_index = lv_index + 1.  ENDIF.ENDLOOP.GET TIME STAMP FIELD lv_current2."-----------------------------@斌将军-----------------------------
查看完整代码 
READ TABLE lt_acd INTO ls_acd WITH KEY rbukrs = gs_acd-rbukrs                                          gjahr = gs_acd-gjahr                                          belnr = gs_acd-belnr                                          docln = gs_acd-docln BINARY SEARCH.  IF sy-subrc EQ 0.    lv_index = lv_index + 1.  ENDIF.ENDLOOP.GET TIME STAMP FIELD lv_current2."-----------------------------@斌将军-----------------------------
ABAP ABAP读取内表行新老语法对比
查看代码
"-----------------------------@斌将军-----------------------------"4.测试新语法+排序表------------------------------------DATA:lt_acd_sort TYPE SORTED TABLE OF acdoca WITH NON-UNIQUE KEY rbukrs gjahr belnr docln.lt_acd_sort = lt_acd.GET TIME STAMP FIELD lv_current1.CLEAR:lv_index.LOOP AT gt_acd INTO gs_acd.  lv_index = lv_index + 1.  TRY .      ls_acd = lt_acd_sort[ rbukrs = gs_acd-rbukrs gjahr = gs_acd-gjahr  belnr = gs_acd-belnr docln = gs_acd-docln ].    CATCH cx_sy_itab_line_not_found .
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
"-----------------------------@斌将军-----------------------------"4.测试新语法+排序表------------------------------------DATA:lt_acd_sort TYPE SORTED TABLE OF acdoca WITH NON-UNIQUE KEY rbukrs gjahr belnr docln.lt_acd_sort = lt_acd.GET TIME STAMP FIELD lv_current1.CLEAR:lv_index.LOOP AT gt_acd INTO gs_acd.  lv_index = lv_index + 1.  TRY .      ls_acd = lt_acd_sort[ rbukrs = gs_acd-rbukrs gjahr = gs_acd-gjahr  belnr = gs_acd-belnr docln = gs_acd-docln ].    CATCH cx_sy_itab_line_not_found .
/* ... 已截断，完整代码请查看原文 */
ABAP ABAP读取内表行新老语法对比二
查看代码
"--------------------@斌将军--------------------"5.测试老语法+排序表------------------------------------DATA:lt_acd_sort TYPE SORTED TABLE OF acdoca WITH NON-UNIQUE KEY rbukrs gjahr belnr docln.lt_acd_sort = lt_acd.GET TIME STAMP FIELD lv_current1.CLEAR:lv_index.LOOP AT gt_acd INTO gs_acd.  READ TABLE lt_acd_sort INTO ls_acd WITH KEY rbukrs = gs_acd-rbukrs                                          gjahr = gs_acd-gjahr                                          belnr = gs_acd-belnr             
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
"--------------------@斌将军--------------------"5.测试老语法+排序表------------------------------------DATA:lt_acd_sort TYPE SORTED TABLE OF acdoca WITH NON-UNIQUE KEY rbukrs gjahr belnr docln.lt_acd_sort = lt_acd.GET TIME STAMP FIELD lv_current1.CLEAR:lv_index.LOOP AT gt_acd INTO gs_acd.  READ TABLE lt_acd_sort INTO ls_acd WITH KEY rbukrs = gs_acd-rbukrs                                          gjahr = gs_acd-gjahr                                          belnr = gs_acd-belnr             
/* ... 已截断，完整代码请查看原文 */
ABAP ABAP读取内表行新老语法对比二
查看代码
"--------------------@斌将军--------------------DATA:lt_acd_sort TYPE SORTED TABLE OF acdoca WITH NON-UNIQUE KEY rbukrs gjahr belnr docln.lt_acd_sort = lt_acd.  GET TIME STAMP FIELD lv_current1.  CLEAR:lv_index.  LOOP AT gt_acd INTO gs_acd.
READ TABLE lt_acd_sort INTO ls_acd WITH KEY gjahr = gs_acd-gjahr  "此处去掉了rbukrs作为搜索条件                                                  belnr = gs_acd-belnr                                                  docln = gs_acd-docln.    IF sy-subrc EQ 0.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
"--------------------@斌将军--------------------DATA:lt_acd_sort TYPE SORTED TABLE OF acdoca WITH NON-UNIQUE KEY rbukrs gjahr belnr docln.lt_acd_sort = lt_acd.  GET TIME STAMP FIELD lv_current1.  CLEAR:lv_index.  LOOP AT gt_acd INTO gs_acd.
READ TABLE lt_acd_sort INTO ls_acd WITH KEY gjahr = gs_acd-gjahr  "此处去掉了rbukrs作为搜索条件                                                  belnr = gs_acd-belnr                                                  docln = gs_acd-docln.    IF sy-subrc EQ 0.
/* ... 已截断，完整代码请查看原文 */
ABAP ABAP读取内表行新老语法对比二
查看代码
"--------------------@斌将军--------------------DATA:lt_acd_sort TYPE SORTED TABLE OF acdoca WITH NON-UNIQUE KEY rbukrs gjahr belnr docln rldnr rrcty docnr_ld rmvct vorgn."此处在docln后添加了多个字段作为关键字lt_acd_sort = lt_acd.  GET TIME STAMP FIELD lv_current1.  CLEAR:lv_index.  LOOP AT gt_acd INTO gs_acd.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
"--------------------@斌将军--------------------DATA:lt_acd_sort TYPE SORTED TABLE OF acdoca WITH NON-UNIQUE KEY rbukrs gjahr belnr docln rldnr rrcty docnr_ld rmvct vorgn."此处在docln后添加了多个字段作为关键字lt_acd_sort = lt_acd.  GET TIME STAMP FIELD lv_current1.  CLEAR:lv_index.  LOOP AT gt_acd INTO gs_acd.
/* ... 已截断，完整代码请查看原文 */
ABAP ABAP调用DeepseekAPI
查看代码
DATA: len           TYPE        i,      url           TYPE        string,      http_client   TYPE REF TO if_http_client,      request       TYPE        string,      result        TYPE        string,      authorization TYPE        string.      TYPES:BEGIN OF ty_body,        role    TYPE string,        content TYPE string,      END OF ty_body.      DATA:gw_body TYPE ty_body,     gt_body TYPE TABLE OF ty_body.     TYPES: BEGIN OF ty_cdata,         model    TYPE string,         messages TYPE S
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA: len           TYPE        i,      url           TYPE        string,      http_client   TYPE REF TO if_http_client,      request       TYPE        string,      result        TYPE        string,      authorization TYPE        string.      TYPES:BEGIN OF ty_body,        role    TYPE string,        content TYPE string,      END OF ty_body.      DATA:gw_body TYPE ty_body,     gt_body TYPE TABLE OF ty_body.     TYPES: BEGIN OF ty_cdata,         model    TYPE string,         messages TYPE S
/* ... 已截断，完整代码请查看原文 */
ABAP ABAP调用HTTP上传附件二之中文乱码 
"拼接上传的文件名，并将文件名转码  lv_name = i_filename.  lv_name = cl_http_utility=>escape_url( lv_name ).  lv_value = 'form-data; name="file"; filename="' && lv_name && '";'.
查看完整代码 
"拼接上传的文件名，并将文件名转码  lv_name = i_filename.  lv_name = cl_http_utility=>escape_url( lv_name ).  lv_value = 'form-data; name="file"; filename="' && lv_name && '";'.
ABAP ABAP调用HTTP上传附件二之中文乱码 
此代码  cl_http_utility=>escape_url( lv_name )  的作用是将中文转码：
查看完整代码 
此代码  cl_http_utility=>escape_url( lv_name )  的作用是将中文转码：
ABAP ABAP调用HTTP上传附件二之中文乱码 
lv_name = escape( val = lv_name format = cl_abap_format=>e_url_full ).
查看完整代码 
lv_name = escape( val = lv_name format = cl_abap_format=>e_url_full ).
ABAP ABAP调用HTTP上传附件二之中文乱码 
一、lv_name = '测试文件.txt'.DATA(lv_name1) = escape( val = lv_name format = cl_abap_format=>e_uri_full ).DATA(lv_name2) = escape( val = lv_name format = cl_abap_format=>e_url_full ).DATA(lv_name3) = cl_http_utility=>escape_url( lv_name ).WRITE:/ 'escape e_uri_full:' && lv_name1.WRITE:/ 'escape e_url_full:' && lv_name2.WRITE:/ 'escape_url    小写:' && lv_name3.
查看完整代码 
一、lv_name = '测试文件.txt'.DATA(lv_name1) = escape( val = lv_name format = cl_abap_format=>e_uri_full ).DATA(lv_name2) = escape( val = lv_name format = cl_abap_format=>e_url_full ).DATA(lv_name3) = cl_http_utility=>escape_url( lv_name ).WRITE:/ 'escape e_uri_full:' && lv_name1.WRITE:/ 'escape e_url_full:' && lv_name2.WRITE:/ 'escape_url    小写:' && lv_name3.
ABAP ABAP调用HTTP上传附件二之中文乱码 
二、lv_name = '+'.DATA(lv_name1) = escape( val = lv_name format = cl_abap_format=>e_uri_full ).DATA(lv_name2) = escape( val = lv_name format = cl_abap_format=>e_url_full ).WRITE:/ 'escape e_uri_full:' && lv_name1.WRITE:/ 'escape e_url_full:' && lv_name2.结果：escape e_uri_full:%2Bescape e_url_full:+
查看完整代码 
二、lv_name = '+'.DATA(lv_name1) = escape( val = lv_name format = cl_abap_format=>e_uri_full ).DATA(lv_name2) = escape( val = lv_name format = cl_abap_format=>e_url_full ).WRITE:/ 'escape e_uri_full:' && lv_name1.WRITE:/ 'escape e_url_full:' && lv_name2.结果：escape e_uri_full:%2Bescape e_url_full:+
ABAP ABAP辨析ONINPUTREQUESTCHAININPUTCHAINREQUEST 
MODULE check_matnr INPUT.  SELECT SINGLE    *  FROM marc  INTO @DATA(ls_marc)  WHERE werks = @marc-werks    AND matnr = @makt-matnr.
IF ls_marc IS INITIAL.    MESSAGE '物料在工厂下不存在' TYPE 'E'.  ENDIF.ENDMODULE.
查看完整代码 
MODULE check_matnr INPUT.  SELECT SINGLE    *  FROM marc  INTO @DATA(ls_marc)  WHERE werks = @marc-werks    AND matnr = @makt-matnr.
IF ls_marc IS INITIAL.    MESSAGE '物料在工厂下不存在' TYPE 'E'.  ENDIF.ENDMODULE.
ABAP ABAP辨析标准表排序表哈希表 
DATA:lt_ekpo TYPE STANDARD TABLE OF ty_ekpo.
查看完整代码 
DATA:lt_ekpo TYPE STANDARD TABLE OF ty_ekpo.
ABAP ABAP辨析标准表排序表哈希表 
DATA:lt_ekpo TYPE STANDARD TABLE OF ty_ekpo WITH NON-UNIQUE KEY ebeln ebelp.
查看完整代码 
DATA:lt_ekpo TYPE STANDARD TABLE OF ty_ekpo WITH NON-UNIQUE KEY ebeln ebelp.
ABAP ABAP辨析标准表排序表哈希表 
DATA:lt_sort TYPE SORTED TABLE OF ty_ekpo WITH NON-UNIQUE KEY ebeln ebelp.
查看完整代码 
DATA:lt_sort TYPE SORTED TABLE OF ty_ekpo WITH NON-UNIQUE KEY ebeln ebelp.
ABAP ABAP辨析标准表排序表哈希表 
DATA:lt_hash TYPE HASHED TABLE OF ty_ekpo WITH UNIQUE KEY ebeln ebelp.
查看完整代码 
DATA:lt_hash TYPE HASHED TABLE OF ty_ekpo WITH UNIQUE KEY ebeln ebelp.
ABAP ABAP选择屏幕下拉列表 
FORM  init_drdn_list  .
查看完整代码 
FORM  init_drdn_list  .
ABAP ABAP选择屏幕下拉列表 
ls_drdn_list  \-  key  =  '1'  .
ls_drdn_list  \-  text  =  '  未处理  '  .
APPEND  ls_drdn_list  TO  lt_drdn_list  .
查看完整代码 
ls_drdn_list  \-  key  =  '1'  .
ls_drdn_list  \-  text  =  '  未处理  '  .
APPEND  ls_drdn_list  TO  lt_drdn_list  .
ABAP ABAP选择屏幕下拉列表 
ls_drdn_list  \-  key  =  '2'  .
ls_drdn_list  \-  text  =  '  处理中  '  .
APPEND  ls_drdn_list  TO  lt_drdn_list  .
查看完整代码 
ls_drdn_list  \-  key  =  '2'  .
ls_drdn_list  \-  text  =  '  处理中  '  .
APPEND  ls_drdn_list  TO  lt_drdn_list  .
ABAP ABAP选择屏幕下拉列表 
ls_drdn_list  \-  key  =  '3'  .
ls_drdn_list  \-  text  =  '  已处理  '  .
APPEND  ls_drdn_list  TO  lt_drdn_list  .
查看完整代码 
ls_drdn_list  \-  key  =  '3'  .
ls_drdn_list  \-  text  =  '  已处理  '  .
APPEND  ls_drdn_list  TO  lt_drdn_list  .
ABAP ABAP选择屏幕下拉列表 
CALL FUNCTION  'VRM_SET_VALUES'
查看完整代码 
CALL FUNCTION  'VRM_SET_VALUES'
ABAP ABAP选择屏幕下拉列表 
values  =  lt_drdn_list
查看完整代码 
values  =  lt_drdn_list
ABAP ABAP选择屏幕下拉列表 
IF  sy  \-  subrc <> 0  .
查看完整代码 
IF  sy  \-  subrc <> 0  .
ABAP ABAP选择屏幕下拉列表 
ENDIF  .
ENDFORM  .
查看完整代码 
ENDIF  .
ENDFORM  .
ABAP ABAP选择屏幕展开折叠屏幕元素 
IF  btn1  =  '@K1@'  .
查看完整代码 
IF  btn1  =  '@K1@'  .
ABAP ABAP选择屏幕展开折叠屏幕元素 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAP选择屏幕展开折叠屏幕元素 
IF  btn2  =  '@K1@'  .
查看完整代码 
IF  btn2  =  '@K1@'  .
ABAP ABAP选择屏幕展开折叠屏幕元素 
ENDIF  .
ENDCASE  .
查看完整代码 
ENDIF  .
ENDCASE  .
ABAP ABAP选择屏幕展开折叠屏幕元素 
LOOP AT SCREEN  .
IF  btn1  =  '@K2@'  AND screen  \-  group1  =  'M1'  .
查看完整代码 
LOOP AT SCREEN  .
IF  btn1  =  '@K2@'  AND screen  \-  group1  =  'M1'  .
ABAP ABAP选择屏幕展开折叠屏幕元素 
MODIFY SCREEN  .
ENDIF  .
查看完整代码 
MODIFY SCREEN  .
ENDIF  .
ABAP ABAP选择屏幕展开折叠屏幕元素 
IF  btn2  =  '@K2@'  AND screen  \-  group1  =  'M2'  .
查看完整代码 
IF  btn2  =  '@K2@'  AND screen  \-  group1  =  'M2'  .
ABAP ABAP选择屏幕展开折叠屏幕元素 
MODIFY SCREEN  .
ENDIF  .
ENDLOOP  .
查看完整代码 
MODIFY SCREEN  .
ENDIF  .
ENDLOOP  .
ABAP ABAP选择屏幕搜索帮助 
SELECT  bname  ,  trdat  ,  ltime  ,  gltgv  ,  gltgb  ,  uflag
查看完整代码 
SELECT  bname  ,  trdat  ,  ltime  ,  gltgv  ,  gltgb  ,  uflag
ABAP ABAP选择屏幕搜索帮助 
CALL FUNCTION  'F4IF_INT_TABLE_VALUE_REQUEST'
查看完整代码 
CALL FUNCTION  'F4IF_INT_TABLE_VALUE_REQUEST'
ABAP ABAP选择屏幕搜索帮助 
value_tab  =  lt_usr02  .  "  数据内表
查看完整代码 
value_tab  =  lt_usr02  .  "  数据内表
ABAP ABAP选择屏幕搜索帮助 
SELECT  bname  ,  trdat  ,  ltime  ,  gltgv  ,  gltgb  ,  uflag
查看完整代码 
SELECT  bname  ,  trdat  ,  ltime  ,  gltgv  ,  gltgb  ,  uflag
ABAP ABAP选择屏幕搜索帮助 
CALL FUNCTION  'F4IF_INT_TABLE_VALUE_REQUEST'
查看完整代码 
CALL FUNCTION  'F4IF_INT_TABLE_VALUE_REQUEST'
ABAP ABAP选择屏幕搜索帮助 
value_tab  =  lt_usr02  .  "  数据内表
查看完整代码 
value_tab  =  lt_usr02  .  "  数据内表
ABAP ABAP选择屏幕搜索帮助 
FORM  cb_form  TABLES  record_tab  STRUCTURE  seahlpres
查看完整代码 
FORM  cb_form  TABLES  record_tab  STRUCTURE  seahlpres
ABAP ABAP选择屏幕搜索帮助 
READ TABLE  shlp  \-  interface INTO  ls_interface  INDEX  1  .
ls_interface  \-  shlpfield+4  (  1  ) =  '2'  .
ls_interface  \-  valfield  =  'P_TRDAT'  .
ls_interface  \-  value  =  ''  .
APPEND  ls_interface  TO  shlp  \-  interface  .
查看完整代码 
READ TABLE  shlp  \-  interface INTO  ls_interface  INDEX  1  .
ls_interface  \-  shlpfield+4  (  1  ) =  '2'  .
ls_interface  \-  valfield  =  'P_TRDAT'  .
ls_interface  \-  value  =  ''  .
APPEND  ls_interface  TO  shlp  \-  interface  .
ABAP ABAP选择屏幕搜索帮助 
ls_interface  \-  shlpfield+4  (  1  ) =  '3'  .
ls_interface  \-  valfield  =  'P_LTIME'  .
ls_interface  \-  value  =  ''  .
APPEND  ls_interface  TO  shlp  \-  interface  .
ENDFORM  .
查看完整代码 
ls_interface  \-  shlpfield+4  (  1  ) =  '3'  .
ls_interface  \-  valfield  =  'P_LTIME'  .
ls_interface  \-  value  =  ''  .
APPEND  ls_interface  TO  shlp  \-  interface  .
ENDFORM  .
ABAP ABAP选择屏幕显示隐藏屏幕元素 
LOOP AT SCREEN  .
查看完整代码 
LOOP AT SCREEN  .
ABAP ABAP选择屏幕显示隐藏屏幕元素 
IF screen  \-  group1  =  'M2'  .
查看完整代码 
IF screen  \-  group1  =  'M2'  .
ABAP ABAP选择屏幕显示隐藏屏幕元素 
MODIFY SCREEN  .
ENDIF  .
查看完整代码 
MODIFY SCREEN  .
ENDIF  .
ABAP ABAP选择屏幕显示隐藏屏幕元素 
IF screen  \-  group1  =  'M1'  .
查看完整代码 
IF screen  \-  group1  =  'M1'  .
ABAP ABAP选择屏幕显示隐藏屏幕元素 
MODIFY SCREEN  .
ENDIF  .
查看完整代码 
MODIFY SCREEN  .
ENDIF  .
ABAP ABAP选择屏幕显示隐藏屏幕元素 
ENDCASE  .
ENDLOOP  .
查看完整代码 
ENDCASE  .
ENDLOOP  .
ABAP ABAP选择屏幕添加新按钮 
CALL FUNCTION  'WS_FILENAME_GET'
查看完整代码 
CALL FUNCTION  'WS_FILENAME_GET'
ABAP ABAP选择屏幕选择布局 
SELECT  *  FROM  spfli  INTO TABLE  @DATA  (  lt_spfli  )  UP TO  20  ROWS  .
查看完整代码 
SELECT  *  FROM  spfli  INTO TABLE  @DATA  (  lt_spfli  )  UP TO  20  ROWS  .
ABAP ABAP选择屏幕选择布局 
TRY  .
cl_salv_table  => factory  (
查看完整代码 
TRY  .
cl_salv_table  => factory  (
ABAP ABAP选择屏幕选择布局 
r_salv_table  =  DATA  (  ro_salv  )
查看完整代码 
r_salv_table  =  DATA  (  ro_salv  )
ABAP ABAP选择屏幕选择布局 
t_table  =  lt_spfli  ).
CATCH  cx_salv_msg  INTO DATA  (  lx_msg  ).
ENDTRY  .
DATA  (  lo_layout  ) =  ro_salv  -> get_layout  ( ).
lo_layout  -> set_key  (  VALUE  #  (  report  =  sy  \-  repid  ) ).
lo_layout  -> set_save_restriction  (  if_salv_c_layout  => restrict_none  ).
查看完整代码 
t_table  =  lt_spfli  ).
CATCH  cx_salv_msg  INTO DATA  (  lx_msg  ).
ENDTRY  .
DATA  (  lo_layout  ) =  ro_salv  -> get_layout  ( ).
lo_layout  -> set_key  (  VALUE  #  (  report  =  sy  \-  repid  ) ).
lo_layout  -> set_save_restriction  (  if_salv_c_layout  => restrict_none  ).
ABAP ABAP选择屏幕选择布局 
IF  p_vari  IS NOT INITIAL  .
查看完整代码 
IF  p_vari  IS NOT INITIAL  .
ABAP ABAP选择屏幕选择布局 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAP选择屏幕选择布局 
FORM  f4_for_variant  CHANGING  cv_variant  .
查看完整代码 
FORM  f4_for_variant  CHANGING  cv_variant  .
ABAP ABAP选择屏幕选择布局 
ls_layout_key  \-  report  =  sy  \-  repid  .
ls_layout_info  =  cl_salv_layout_service  => f4_layouts  (  ls_layout_key  ).
cv_variant  =  ls_layout_info  \-  layout  .
ENDFORM  .
查看完整代码 
ls_layout_key  \-  report  =  sy  \-  repid  .
ls_layout_info  =  cl_salv_layout_service  => f4_layouts  (  ls_layout_key  ).
cv_variant  =  ls_layout_info  \-  layout  .
ENDFORM  .
ABAP ABAP选择屏幕选择布局 
FORM  f4_for_variant  CHANGING  cv_variant  .
查看完整代码 
FORM  f4_for_variant  CHANGING  cv_variant  .
ABAP ABAP选择屏幕选择布局 
ls_variant  \-  report  =  sy  \-  repid  .
CALL FUNCTION  'REUSE_ALV_VARIANT_F4'
查看完整代码 
ls_variant  \-  report  =  sy  \-  repid  .
CALL FUNCTION  'REUSE_ALV_VARIANT_F4'
ABAP ABAP选择屏幕选择布局 
is_variant  =  ls_variant
查看完整代码 
is_variant  =  ls_variant
ABAP ABAP选择屏幕选择布局 
e_exit  =  lv_f4_exit
es_variant  =  ls_variant
查看完整代码 
e_exit  =  lv_f4_exit
es_variant  =  ls_variant
ABAP ABAP选择屏幕选择布局 
IF  syst  \-  subrc  EQ  0  AND  lv_f4_exit  IS INITIAL  .
cv_variant  =  ls_variant  \-  variant  .
ENDIF  .
ENDFORM  .
查看完整代码 
IF  syst  \-  subrc  EQ  0  AND  lv_f4_exit  IS INITIAL  .
cv_variant  =  ls_variant  \-  variant  .
ENDIF  .
ENDFORM  .
ABAP ABAP选择屏幕隐藏执行按钮 
APPEND  'ONLI'  TO  lt_exclude  .
CALL FUNCTION  'RS_SET_SELSCREEN_STATUS'
查看完整代码 
APPEND  'ONLI'  TO  lt_exclude  .
CALL FUNCTION  'RS_SET_SELSCREEN_STATUS'
ABAP ABAP选择屏幕隐藏执行按钮 
p_exclude  =  lt_exclude  .
查看完整代码 
p_exclude  =  lt_exclude  .
ABAP ABAP邮件模板及邮件发送封装 
NEW zcl_email(        template_id = 'ZET_DEMO01' "Email template        doctype = 'HTM'        data = ls_data )->send( ).
查看完整代码 
NEW zcl_email(        template_id = 'ZET_DEMO01' "Email template        doctype = 'HTM'        data = ls_data )->send( ).
ABAP ABAP邮件模板及邮件发送封装
查看代码
REPORT zdemo_email01."send email with HTML body using email templateTYPES: BEGIN OF ty_tab,         posnr  TYPE vbap-posnr,         matnr  TYPE vbap-matnr,         arktx  TYPE vbap-arktx,         kwmeng TYPE vbap-kwmeng,         vrkme  TYPE vbap-vrkme,         price  TYPE prcd_elements-kbetr,         total  TYPE prcd_elements-kwert,       END OF ty_tab,       tt_tab TYPE STANDARD TABLE OF ty_tab WITH DEFAULT KEY.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
REPORT zdemo_email01."send email with HTML body using email templateTYPES: BEGIN OF ty_tab,         posnr  TYPE vbap-posnr,         matnr  TYPE vbap-matnr,         arktx  TYPE vbap-arktx,         kwmeng TYPE vbap-kwmeng,         vrkme  TYPE vbap-vrkme,         price  TYPE prcd_elements-kbetr,         total  TYPE prcd_elements-kwert,       END OF ty_tab,       tt_tab TYPE STANDARD TABLE OF ty_tab WITH DEFAULT KEY.
/* ... 已截断，完整代码请查看原文 */
ABAP ABAP邮件模板及邮件发送封装
查看代码
SELECT a~vbeln,a~ernam,b~posnr,b~matnr,b~arktx,b~kwmeng,b~vrkme,c~kbetr AS price, c~kwert AS total      FROM vbak AS a      JOIN vbap AS b ON a~vbeln = b~vbeln      JOIN prcd_elements AS c ON a~knumv = c~knumv AND b~posnr = c~kposn AND c~kschl = 'ZPR1'      WHERE a~vbeln = @lv_vbeln      INTO TABLE @DATA(lt_vbap).    IF sy-subrc = 0.      ls_data-vbeln = lt_vbap[ 1 ]-vbeln.      ls_data-ernam = lt_vbap[ 1 ]-ernam.      ls_data-it_tab[] = CORRESPONDING #( lt_vbap[] ).
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
SELECT a~vbeln,a~ernam,b~posnr,b~matnr,b~arktx,b~kwmeng,b~vrkme,c~kbetr AS price, c~kwert AS total      FROM vbak AS a      JOIN vbap AS b ON a~vbeln = b~vbeln      JOIN prcd_elements AS c ON a~knumv = c~knumv AND b~posnr = c~kposn AND c~kschl = 'ZPR1'      WHERE a~vbeln = @lv_vbeln      INTO TABLE @DATA(lt_vbap).    IF sy-subrc = 0.      ls_data-vbeln = lt_vbap[ 1 ]-vbeln.      ls_data-ernam = lt_vbap[ 1 ]-ernam.      ls_data-it_tab[] = CORRESPONDING #( lt_vbap[] ).
/* ... 已截断，完整代码请查看原文 */
ABAP ABAP随笔4新语法forinforthenuntil
查看代码
"1 将gt_mara 赋值给 gt_maktx*旧语法：DATA gt_matnr1 TYPE ty_t_matnr.DATA gs_matnr1 TYPE ty_matnr.LOOP AT gt_mara INTO gs_mara WHERE mtart = 'ROH'.  .  gs_matnr1 = gs_mara-matnr.  APPEND gs_matnr1 TO gt_matnr1.ENDLOOP.*新语法 ls_mara仅为临时变量，程序会临时定义并赋值，ls_matnr-matnr 和 ty_t_matnr的行类型一定要保持一致"功能是将 gt_mara中的物料号赋值给gt_matnr2DATA(gt_matnr2) = VALUE ty_t_matnr( FOR ls_mara IN gt_mara ( ls_mara-matnr ) ).
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
"1 将gt_mara 赋值给 gt_maktx*旧语法：DATA gt_matnr1 TYPE ty_t_matnr.DATA gs_matnr1 TYPE ty_matnr.LOOP AT gt_mara INTO gs_mara WHERE mtart = 'ROH'.  .  gs_matnr1 = gs_mara-matnr.  APPEND gs_matnr1 TO gt_matnr1.ENDLOOP.*新语法 ls_mara仅为临时变量，程序会临时定义并赋值，ls_matnr-matnr 和 ty_t_matnr的行类型一定要保持一致"功能是将 gt_mara中的物料号赋值给gt_matnr2DATA(gt_matnr2) = VALUE ty_t_matnr( FOR ls_mara IN gt_mara ( ls_mara-matnr ) ).
/* ... 已截断，完整代码请查看原文 */
ABAP ABAP随笔4新语法forinforthenuntil 
*旧语法：TYPES:BEGIN OF ty_line,        a TYPE i,        b TYPE i,        c TYPE i,      END OF ty_line,      ty_t_line TYPE TABLE OF ty_line WITH EMPTY KEY.DATA j TYPE i.DATA gt_lines1 TYPE ty_t_line.FIELD-SYMBOLS <ls_line1> TYPE ty_line.j = 0.
DO.  j = j + 1.  IF j > 10. EXIT. ENDIF.  APPEND INITIAL LINE TO gt_lines1 ASSIGNING <ls_line1>.  <ls_line1>-a = j.  <ls_line1>-b = j + 1.  <ls_line1>-c = j + 2.ENDDO.
查看完整代码 
*旧语法：TYPES:BEGIN OF ty_line,        a TYPE i,        b TYPE i,        c TYPE i,      END OF ty_line,      ty_t_line TYPE TABLE OF ty_line WITH EMPTY KEY.DATA j TYPE i.DATA gt_lines1 TYPE ty_t_line.FIELD-SYMBOLS <ls_line1> TYPE ty_line.j = 0.
DO.  j = j + 1.  IF j > 10. EXIT. ENDIF.  APPEND INITIAL LINE TO gt_lines1 ASSIGNING <ls_line1>.  <ls_line1>-a = j.  <ls_line1>-b = j + 1.  <ls_line1>-c = j + 2.ENDDO.
ABAP ABAP随笔ALV上的下拉框 
FORM  frm_set_fieldcat  .
查看完整代码 
FORM  frm_set_fieldcat  .
ABAP ABAP随笔ALV上的下拉框 
lv_pos  =  lv_pos +  1  .
ls_fieldcat  \-  col_pos  =  lv_pos  .
ls_fieldcat  \-  fieldname  =  &1  .  "  字段名
ls_fieldcat  \-  coltext  =  &2  .  "  文本
* ls_fieldcat-no_zero = &3."  去掉前导零
ls_fieldcat  \-  ref_table  =  &3  .
ls_fieldcat  \-  ref_field  =  &4  .
APPEND  ls_fieldcat  TO  gt_fieldcat  .
查看完整代码 
lv_pos  =  lv_pos +  1  .
ls_fieldcat  \-  col_pos  =  lv_pos  .
ls_fieldcat  \-  fieldname  =  &1  .  "  字段名
ls_fieldcat  \-  coltext  =  &2  .  "  文本
* ls_fieldcat-no_zero = &3."  去掉前导零
ls_fieldcat  \-  ref_table  =  &3  .
ls_fieldcat  \-  ref_field  =  &4  .
APPEND  ls_fieldcat  TO  gt_fieldcat  .
ABAP ABAP随笔ALV上的下拉框 
READ TABLE  gt_fieldcat  ASSIGNING FIELD  \-  SYMBOL  (  <fs1> )  WITH KEY
查看完整代码 
READ TABLE  gt_fieldcat  ASSIGNING FIELD  \-  SYMBOL  (  <fs1> )  WITH KEY
ABAP ABAP随笔ALV上的下拉框 
IF  sy  \-  subrc  EQ  0  .
查看完整代码 
IF  sy  \-  subrc  EQ  0  .
ABAP ABAP随笔ALV上的下拉框 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAP随笔ALV上的下拉框 
ls_drop_down  \-  handle  =  '1'  .  “对应分组标识
ls_drop_down  \-  value  =  sy  \-  index  .
APPEND  ls_drop_down  TO  lt_drop_down  .
ENDDO  .
查看完整代码 
ls_drop_down  \-  handle  =  '1'  .  “对应分组标识
ls_drop_down  \-  value  =  sy  \-  index  .
APPEND  ls_drop_down  TO  lt_drop_down  .
ENDDO  .
ABAP ABAP随笔ALV上的下拉框 
it_drop_down  =  lt_drop_down
查看完整代码 
it_drop_down  =  lt_drop_down
ABAP ABAP随笔ALV上的下拉框 
is_variant  =  ls_disvariant
查看完整代码 
is_variant  =  ls_disvariant
ABAP ABAP随笔ALV上的下拉框 
is_layout  =  ls_layout
it_toolbar_excluding  =  lt_exclude
查看完整代码 
is_layout  =  ls_layout
it_toolbar_excluding  =  lt_exclude
ABAP ABAP随笔EXCEL3批量导入突破标准函数的9999行 
FORM frm_get_excel_2 .
查看完整代码 
FORM frm_get_excel_2 .
ABAP ABAP随笔EXCEL3批量导入突破标准函数的9999行 
lv_filename = p_file.
CALL METHOD zcl_document_jxzhu=>update_excel_ole
查看完整代码 
lv_filename = p_file.
CALL METHOD zcl_document_jxzhu=>update_excel_ole
ABAP ABAP随笔EXCEL3批量导入突破标准函数的9999行 
pi_filename           = lv_filename "excel路径
查看完整代码 
pi_filename           = lv_filename "excel路径
ABAP ABAP随笔EXCEL3批量导入突破标准函数的9999行 
pt_tab                = lt_zmmt001
查看完整代码 
pt_tab                = lt_zmmt001
ABAP ABAP随笔EXCEL3批量导入突破标准函数的9999行 
IF sy-subrc <> 0.
查看完整代码 
IF sy-subrc <> 0.
ABAP ABAP随笔EXCEL3批量导入突破标准函数的9999行 
ENDIF.
查看完整代码 
ENDIF.
ABAP ABAP随笔EXCEL3批量导入突破标准函数的9999行 
cl_demo_output=>display( lt_zmmt001 ).
查看完整代码 
cl_demo_output=>display( lt_zmmt001 ).
ABAP ABAP随笔EXCEL3批量导入突破标准函数的9999行 
ENDFORM.
查看完整代码 
ENDFORM.
ABAP ABAP随笔EXCEL3批量导入突破标准函数的9999行 
METHOD  update_excel_ole  .
查看完整代码 
METHOD  update_excel_ole  .
ABAP ABAP随笔EXCEL3批量导入突破标准函数的9999行 
lv_column_skp  =  pi_skpcl_tbl  .
查看完整代码 
lv_column_skp  =  pi_skpcl_tbl  .
ABAP ABAP随笔EXCEL3批量导入突破标准函数的9999行 
CALL METHOD  zcl_document_jxzhu  => excel_2_inner_table
查看完整代码 
CALL METHOD  zcl_document_jxzhu  => excel_2_inner_table
ABAP ABAP随笔EXCEL3批量导入突破标准函数的9999行 
pt_tab  =  lt_tabc
查看完整代码 
pt_tab  =  lt_tabc
ABAP ABAP随笔EXCEL3批量导入突破标准函数的9999行 
LOOP AT  lt_tabc  INTO  lw_tabc  .
lv_tabix  =  sy  \-  tabix  .
查看完整代码 
LOOP AT  lt_tabc  INTO  lw_tabc  .
lv_tabix  =  sy  \-  tabix  .
ABAP ABAP随笔EXCEL3批量导入突破标准函数的9999行 
CHECK  lv_tabix >= pi_startline  .
查看完整代码 
CHECK  lv_tabix >= pi_startline  .
ABAP ABAP随笔EXCEL3批量导入突破标准函数的9999行 
LOOP AT  lt_cell  INTO  lw_cell  .
lv_cell_tabix  =  sy  \-  tabix  .
查看完整代码 
LOOP AT  lt_cell  INTO  lw_cell  .
lv_cell_tabix  =  sy  \-  tabix  .
ABAP ABAP随笔EXCEL3批量导入突破标准函数的9999行 
lv_column_num  =  lv_cell_tabix  \-  pi_startcolumn +  1  \+ lv_column_skp  .
查看完整代码 
lv_column_num  =  lv_cell_tabix  \-  pi_startcolumn +  1  \+ lv_column_skp  .
ABAP ABAP随笔EXCEL3批量导入突破标准函数的9999行 
TRY  .
<lv_value> =  lw_cell  .
CATCH  cx_root  INTO  lo_cx_root  .
查看完整代码 
TRY  .
<lv_value> =  lw_cell  .
CATCH  cx_root  INTO  lo_cx_root  .
ABAP ABAP随笔EXCEL3批量导入突破标准函数的9999行 
READ TABLE  descr_ref  -> components  INTO DATA  (  ls_name  )  INDEX
查看完整代码 
READ TABLE  descr_ref  -> components  INTO DATA  (  ls_name  )  INDEX
ABAP ABAP随笔EXCEL3批量导入突破标准函数的9999行 
lv_message  =  lv_tabix && 'Lines'  && lv_column_num && 'Name of column is '
查看完整代码 
lv_message  =  lv_tabix && 'Lines'  && lv_column_num && 'Name of column is '
ABAP ABAP随笔EXCEL3批量导入突破标准函数的9999行 
ENDTRY  .
ENDLOOP  .
IF  <lw_tab> IS NOT INITIAL  .
APPEND  <lw_tab> TO  pt_tab  .
查看完整代码 
ENDTRY  .
ENDLOOP  .
IF  <lw_tab> IS NOT INITIAL  .
APPEND  <lw_tab> TO  pt_tab  .
ABAP ABAP随笔EXCEL3批量导入突破标准函数的9999行 
ENDIF  .
ENDLOOP  .
ENDMETHOD  .
查看完整代码 
ENDIF  .
ENDLOOP  .
ENDMETHOD  .
ABAP ABAP随笔EXCEL3批量导入突破标准函数的9999行 
METHOD  EXCEL_2_INNER_TABLE  .
查看完整代码 
METHOD  EXCEL_2_INNER_TABLE  .
ABAP ABAP随笔EXCEL3批量导入突破标准函数的9999行 
IF  SY  \-  SUBRC <> 0  .
查看完整代码 
IF  SY  \-  SUBRC <> 0  .
ABAP ABAP随笔EXCEL3批量导入突破标准函数的9999行 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAP随笔EXCEL3批量导入突破标准函数的9999行 
CALL METHOD OF
查看完整代码 
CALL METHOD OF
ABAP ABAP随笔EXCEL3批量导入突破标准函数的9999行 
IF  SY  \-  SUBRC  =  0  .
CALL METHOD OF
查看完整代码 
IF  SY  \-  SUBRC  =  0  .
CALL METHOD OF
ABAP ABAP随笔EXCEL3批量导入突破标准函数的9999行 
IF  SY  \-  SUBRC  NE  0  .
CALL METHOD OF
查看完整代码 
IF  SY  \-  SUBRC  NE  0  .
CALL METHOD OF
ABAP ABAP随笔EXCEL3批量导入突破标准函数的9999行 
ENDIF  .
ENDIF  .
查看完整代码 
ENDIF  .
ENDIF  .
ABAP ABAP随笔EXCEL3批量导入突破标准函数的9999行 
IF  LV_BEGIN_ROW  IS INITIAL  .
查看完整代码 
IF  LV_BEGIN_ROW  IS INITIAL  .
ABAP ABAP随笔EXCEL3批量导入突破标准函数的9999行 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAP随笔EXCEL3批量导入突破标准函数的9999行 
CALL METHOD OF
查看完整代码 
CALL METHOD OF
ABAP ABAP随笔EXCEL3批量导入突破标准函数的9999行 
CALL METHOD OF
查看完整代码 
CALL METHOD OF
ABAP ABAP随笔EXCEL3批量导入突破标准函数的9999行 
CALL METHOD OF
查看完整代码 
CALL METHOD OF
ABAP ABAP随笔EXCEL3批量导入突破标准函数的9999行 
CALL METHOD OF
查看完整代码 
CALL METHOD OF
ABAP ABAP随笔EXCEL3批量导入突破标准函数的9999行 
IF  SY  \-  SUBRC <> 0  .
查看完整代码 
IF  SY  \-  SUBRC <> 0  .
ABAP ABAP随笔EXCEL3批量导入突破标准函数的9999行 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAP随笔EXCEL3批量导入突破标准函数的9999行 
CALL METHOD OF
查看完整代码 
CALL METHOD OF
ABAP ABAP随笔EXCEL3批量导入突破标准函数的9999行 
CALL METHOD  CL_GUI_FRONTEND_SERVICES  => CLIPBOARD_IMPORT
查看完整代码 
CALL METHOD  CL_GUI_FRONTEND_SERVICES  => CLIPBOARD_IMPORT
ABAP ABAP随笔EXCEL3批量导入突破标准函数的9999行 
IF  SY  \-  SUBRC <> 0  .
CALL METHOD OF
查看完整代码 
IF  SY  \-  SUBRC <> 0  .
CALL METHOD OF
ABAP ABAP随笔EXCEL3批量导入突破标准函数的9999行 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAP随笔EXCEL3批量导入突破标准函数的9999行 
LOOP AT  LT_EXCEL_TAB  INTO  LW_EXCEL_TAB  .
查看完整代码 
LOOP AT  LT_EXCEL_TAB  INTO  LW_EXCEL_TAB  .
ABAP ABAP随笔EXCEL3批量导入突破标准函数的9999行 
IF NOT  (  LW_EXCEL_TAB_TMP  =  SPACE  OR  LW_EXCEL_TAB_TMP  IS INITIAL  ).
APPEND  LW_EXCEL_TAB  TO  PT_TAB  .
查看完整代码 
IF NOT  (  LW_EXCEL_TAB_TMP  =  SPACE  OR  LW_EXCEL_TAB_TMP  IS INITIAL  ).
APPEND  LW_EXCEL_TAB  TO  PT_TAB  .
ABAP ABAP随笔EXCEL3批量导入突破标准函数的9999行 
ENDIF  .
ENDLOOP  .
查看完整代码 
ENDIF  .
ENDLOOP  .
ABAP ABAP随笔EXCEL3批量导入突破标准函数的9999行 
CALL METHOD  CL_GUI_FRONTEND_SERVICES  => CLIPBOARD_EXPORT
查看完整代码 
CALL METHOD  CL_GUI_FRONTEND_SERVICES  => CLIPBOARD_EXPORT
ABAP ABAP随笔EXCEL3批量导入突破标准函数的9999行 
CALL METHOD OF
查看完整代码 
CALL METHOD OF
ABAP ABAP随笔EXCEL3批量导入突破标准函数的9999行 
ENDMETHOD  .
查看完整代码 
ENDMETHOD  .
ABAP ABAP随笔EXCEL操作笔记1Excel模板下载 
CALL METHOD  zcl_document_jxzhu  => download_template_to_frontend
查看完整代码 
CALL METHOD  zcl_document_jxzhu  => download_template_to_frontend
ABAP ABAP随笔EXCEL操作笔记1Excel模板下载 
IF  sy  \-  subrc <> 0  .
查看完整代码 
IF  sy  \-  subrc <> 0  .
ABAP ABAP随笔EXCEL操作笔记1Excel模板下载 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAP随笔EXCEL操作笔记1Excel模板下载 
METHOD  download_template_to_frontend  .
查看完整代码 
METHOD  download_template_to_frontend  .
ABAP ABAP随笔EXCEL操作笔记1Excel模板下载 
IF  iv_relid  IS INITIAL  .
SELECT SINGLE  relid objid srtf2 checkout checknew chname tdate ttime  text
查看完整代码 
IF  iv_relid  IS INITIAL  .
SELECT SINGLE  relid objid srtf2 checkout checknew chname tdate ttime  text
ABAP ABAP随笔EXCEL操作笔记1Excel模板下载 
iv_relid  =  ls_wwwdata  \-  relid  .
查看完整代码 
iv_relid  =  ls_wwwdata  \-  relid  .
ABAP ABAP随笔EXCEL操作笔记1Excel模板下载 
SELECT SINGLE  relid objid srtf2 checkout checknew chname tdate ttime  text
查看完整代码 
SELECT SINGLE  relid objid srtf2 checkout checknew chname tdate ttime  text
ABAP ABAP随笔EXCEL操作笔记1Excel模板下载 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAP随笔EXCEL操作笔记1Excel模板下载 
CALL FUNCTION  'WWWPARAMS_READ'
查看完整代码 
CALL FUNCTION  'WWWPARAMS_READ'
ABAP ABAP随笔EXCEL操作笔记1Excel模板下载 
relid  =  ls_wwwdata  \-  relid
objid  =  ls_wwwdata  \-  objid
查看完整代码 
relid  =  ls_wwwdata  \-  relid
objid  =  ls_wwwdata  \-  objid
ABAP ABAP随笔EXCEL操作笔记1Excel模板下载 
value  =  lv_extension
查看完整代码 
value  =  lv_extension
ABAP ABAP随笔EXCEL操作笔记1Excel模板下载 
IF  sy  \-  subrc <> 0  .
ENDIF  .
查看完整代码 
IF  sy  \-  subrc <> 0  .
ENDIF  .
ABAP ABAP随笔EXCEL操作笔记1Excel模板下载 
iv_default_extension  =  lv_extension  .
查看完整代码 
iv_default_extension  =  lv_extension  .
ABAP ABAP随笔EXCEL操作笔记1Excel模板下载 
DATA  (  iv_file_filter  ) =  '(*'  && iv_default_extension && ')|*'  &&
查看完整代码 
DATA  (  iv_file_filter  ) =  '(*'  && iv_default_extension && ')|*'  &&
ABAP ABAP随笔EXCEL操作笔记1Excel模板下载 
IF  iv_default_file_name  IS INITIAL  .
iv_default_file_name  =  ls_wwwdata  \-  text  .
查看完整代码 
IF  iv_default_file_name  IS INITIAL  .
iv_default_file_name  =  ls_wwwdata  \-  text  .
ABAP ABAP随笔EXCEL操作笔记1Excel模板下载 
lv_offset  =  sy  \-  fdpos  .
lv_length  =  lv_offset  .
lv_offset  =  lv_offset +  1  .
iv_default_file_name  =  iv_default_file_name+0  (  lv_length  )  &&
查看完整代码 
lv_offset  =  sy  \-  fdpos  .
lv_length  =  lv_offset  .
lv_offset  =  lv_offset +  1  .
iv_default_file_name  =  iv_default_file_name+0  (  lv_length  )  &&
ABAP ABAP随笔EXCEL操作笔记1Excel模板下载 
ENDWHILE  .
ENDIF  .
ls_key  \-  relid  =  iv_relid  .
ls_key  \-  objid  =  iv_objid  .
查看完整代码 
ENDWHILE  .
ENDIF  .
ls_key  \-  relid  =  iv_relid  .
ls_key  \-  objid  =  iv_objid  .
ABAP ABAP随笔EXCEL操作笔记1Excel模板下载 
CALL METHOD  cl_gui_frontend_services  => file_save_dialog
查看完整代码 
CALL METHOD  cl_gui_frontend_services  => file_save_dialog
ABAP ABAP随笔EXCEL操作笔记1Excel模板下载 
default_extension  =  iv_default_extension
default_file_name  =  iv_default_file_name
查看完整代码 
default_extension  =  iv_default_extension
default_file_name  =  iv_default_file_name
ABAP ABAP随笔EXCEL操作笔记1Excel模板下载 
filename  =  lv_filename
path  =  lv_path
fullpath  =  lv_fullpath
user_action  =  lv_user_action
查看完整代码 
filename  =  lv_filename
path  =  lv_path
fullpath  =  lv_fullpath
user_action  =  lv_user_action
ABAP ABAP随笔EXCEL操作笔记1Excel模板下载 
IF  sy  \-  subrc <> 0  .
查看完整代码 
IF  sy  \-  subrc <> 0  .
ABAP ABAP随笔EXCEL操作笔记1Excel模板下载 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAP随笔EXCEL操作笔记1Excel模板下载 
IF  lv_user_action <> 0  .
ev_rc  =  lv_user_action  .
ENDIF  .
查看完整代码 
IF  lv_user_action <> 0  .
ev_rc  =  lv_user_action  .
ENDIF  .
ABAP ABAP随笔EXCEL操作笔记1Excel模板下载 
IF  ev_rc <> 0  .
RAISE  download_error  .
ENDIF  .
查看完整代码 
IF  ev_rc <> 0  .
RAISE  download_error  .
ENDIF  .
ABAP ABAP随笔EXCEL操作笔记1Excel模板下载 
rv_filepath  =  lv_fullpath  .
查看完整代码 
rv_filepath  =  lv_fullpath  .
ABAP ABAP随笔EXCEL操作笔记1Excel模板下载 
lv_destination  =  rv_filepath  .
CALL FUNCTION  'DOWNLOAD_WEB_OBJECT'
查看完整代码 
lv_destination  =  rv_filepath  .
CALL FUNCTION  'DOWNLOAD_WEB_OBJECT'
ABAP ABAP随笔EXCEL操作笔记1Excel模板下载 
key  =  ls_key
destination  =  lv_destination
查看完整代码 
key  =  ls_key
destination  =  lv_destination
ABAP ABAP随笔EXCEL操作笔记1Excel模板下载 
temp  =  lv_destination  .
IF  ev_rc <> 0  .
RAISE  download_error  .
ENDIF  .
ENDMETHOD  .
查看完整代码 
temp  =  lv_destination  .
IF  ev_rc <> 0  .
RAISE  download_error  .
ENDIF  .
ENDMETHOD  .
ABAP ABAP随笔EXCEL笔记2批量导入 
TYPES:BEGIN OF ty_zmmt001,
查看完整代码 
TYPES:BEGIN OF ty_zmmt001,
ABAP ABAP随笔EXCEL笔记2批量导入 
CALL METHOD  zcl_document_jxzhu  => set_document_from_frontend
查看完整代码 
CALL METHOD  zcl_document_jxzhu  => set_document_from_frontend
ABAP ABAP随笔EXCEL笔记2批量导入 
IF  iv_window_title  IS INITIAL  .
查看完整代码 
IF  iv_window_title  IS INITIAL  .
ABAP ABAP随笔EXCEL笔记2批量导入 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAP随笔EXCEL笔记2批量导入 
IF  iv_file_filter  IS INITIAL  .
查看完整代码 
IF  iv_file_filter  IS INITIAL  .
ABAP ABAP随笔EXCEL笔记2批量导入 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAP随笔EXCEL笔记2批量导入 
ENDCASE  .
CALL METHOD  cl_gui_frontend_services  => file_open_dialog
查看完整代码 
ENDCASE  .
CALL METHOD  cl_gui_frontend_services  => file_open_dialog
ABAP ABAP随笔EXCEL笔记2批量导入 
default_extension  =  extension
* default_filename =
查看完整代码 
default_extension  =  extension
* default_filename =
ABAP ABAP随笔EXCEL笔记2批量导入 
IF  sy  \-  subrc <> 0  .
查看完整代码 
IF  sy  \-  subrc <> 0  .
ABAP ABAP随笔EXCEL笔记2批量导入 
ENDCASE  .
ENDIF  .
查看完整代码 
ENDCASE  .
ENDIF  .
ABAP ABAP随笔EXCEL笔记2批量导入 
IF  ev_rc < 1  .
查看完整代码 
IF  ev_rc < 1  .
ABAP ABAP随笔EXCEL笔记2批量导入 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAP随笔EXCEL笔记2批量导入 
READ TABLE  et_file_table  ASSIGNING FIELD  \-  SYMBOL  (  <selectedfilename>
查看完整代码 
READ TABLE  et_file_table  ASSIGNING FIELD  \-  SYMBOL  (  <selectedfilename>
ABAP ABAP随笔EXCEL笔记2批量导入 
IF  sy  \-  subrc  =  0  .
DATA  (  lv_len_s  ) =  strlen  (  <selectedfilename> \-  filename  ).
查看完整代码 
IF  sy  \-  subrc  =  0  .
DATA  (  lv_len_s  ) =  strlen  (  <selectedfilename> \-  filename  ).
ABAP ABAP随笔EXCEL笔记2批量导入 
IF  lv_len_s > lv_len_d  .
查看完整代码 
IF  lv_len_s > lv_len_d  .
ABAP ABAP随笔EXCEL笔记2批量导入 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAP随笔EXCEL笔记2批量导入 
ENDIF  .  ENDMETHOD  .
查看完整代码 
ENDIF  .  ENDMETHOD  .
ABAP ABAP随笔EXCEL笔记2批量导入 
CALL FUNCTION  'ALSM_EXCEL_TO_INTERNAL_TABLE'
查看完整代码 
CALL FUNCTION  'ALSM_EXCEL_TO_INTERNAL_TABLE'
ABAP ABAP随笔EXCEL笔记2批量导入 
intern  =  lt_excel[] “excel返回的内表
查看完整代码 
intern  =  lt_excel[] “excel返回的内表
ABAP ABAP随笔EXCEL笔记2批量导入 
LOOP AT  lt_excel  INTO DATA  (  ls_excel  ).
查看完整代码 
LOOP AT  lt_excel  INTO DATA  (  ls_excel  ).
ABAP ABAP随笔EXCEL笔记2批量导入 
APPEND INITIAL LINE TO  lt_zmmt001  ASSIGNING FIELD  \-  SYMBOL  (  <fs> ).
ENDAT  .
查看完整代码 
APPEND INITIAL LINE TO  lt_zmmt001  ASSIGNING FIELD  \-  SYMBOL  (  <fs> ).
ENDAT  .
ABAP ABAP随笔EXCEL笔记2批量导入 
IF  sy  \-  subrc  EQ  0  .
<fs_filed> =  ls_excel  \-  value  .
ENDIF  .
ENDLOOP  .
查看完整代码 
IF  sy  \-  subrc  EQ  0  .
<fs_filed> =  ls_excel  \-  value  .
ENDIF  .
ENDLOOP  .
ABAP ABAP随笔EXCEL笔记2批量导入 
cl_demo_output  => display  (  lt_zmmt001  ).
查看完整代码 
cl_demo_output  => display  (  lt_zmmt001  ).
ABAP ABAP随笔EXCEL笔记5批量导出SAP_CONVERT_TO_XLS_FORMAT 
FORM  frm_export_excel_1  .
查看完整代码 
FORM  frm_export_excel_1  .
ABAP ABAP随笔EXCEL笔记5批量导出SAP_CONVERT_TO_XLS_FORMAT 
ls_filename  =  p_file  .
CALL METHOD  zcl_document_jxzhu  => download_template_to_frontend
查看完整代码 
ls_filename  =  p_file  .
CALL METHOD  zcl_document_jxzhu  => download_template_to_frontend
ABAP ABAP随笔EXCEL笔记5批量导出SAP_CONVERT_TO_XLS_FORMAT 
iv_filepath  =  ls_filename  "  当  IV_FUN = 2  时，保存路径  iv_filepath  必填
查看完整代码 
iv_filepath  =  ls_filename  "  当  IV_FUN = 2  时，保存路径  iv_filepath  必填
ABAP ABAP随笔EXCEL笔记5批量导出SAP_CONVERT_TO_XLS_FORMAT 
rv_filepath  =  ls_filename
查看完整代码 
rv_filepath  =  ls_filename
ABAP ABAP随笔EXCEL笔记5批量导出SAP_CONVERT_TO_XLS_FORMAT 
li_filename  =  ls_filename  .
SELECT  *  INTO  CORRESPONDING  FIELDS OF TABLE  @lt_zmmt001  FROM  zmmt001  .
READ TABLE  lt_zmmt001  into data  (  ls_zmmt001  )  INDEX  1  .
查看完整代码 
li_filename  =  ls_filename  .
SELECT  *  INTO  CORRESPONDING  FIELDS OF TABLE  @lt_zmmt001  FROM  zmmt001  .
READ TABLE  lt_zmmt001  into data  (  ls_zmmt001  )  INDEX  1  .
ABAP ABAP随笔EXCEL笔记5批量导出SAP_CONVERT_TO_XLS_FORMAT 
tablestructure ?= cl_abap_typedescr  => describe_by_data  (  ls_zmmt001  ).
LOOP AT  tablestructure  -> components  INTO DATA  (  ls_comps  ).
查看完整代码 
tablestructure ?= cl_abap_typedescr  => describe_by_data  (  ls_zmmt001  ).
LOOP AT  tablestructure  -> components  INTO DATA  (  ls_comps  ).
ABAP ABAP随笔EXCEL笔记5批量导出SAP_CONVERT_TO_XLS_FORMAT 
IF  sy  \-  subrc  EQ  0  .
<fs2> =  ls_comps  \-  name  .
ENDIF  .
ENDLOOP  .
查看完整代码 
IF  sy  \-  subrc  EQ  0  .
<fs2> =  ls_comps  \-  name  .
ENDIF  .
ENDLOOP  .
ABAP ABAP随笔EXCEL笔记5批量导出SAP_CONVERT_TO_XLS_FORMAT 
CALL FUNCTION  'SAP_CONVERT_TO_XLS_FORMAT'
查看完整代码 
CALL FUNCTION  'SAP_CONVERT_TO_XLS_FORMAT'
ABAP ABAP随笔EXCEL笔记5批量导出SAP_CONVERT_TO_XLS_FORMAT 
i_tab_sap_data  =  lt_zmmt001_excel
查看完整代码 
i_tab_sap_data  =  lt_zmmt001_excel
ABAP ABAP随笔EXCEL笔记6批量导出OLE客制导出 
FORM frm_export_excel_2 .
查看完整代码 
FORM frm_export_excel_2 .
ABAP ABAP随笔EXCEL笔记6批量导出OLE客制导出 
SELECT * FROM zmmt001 INTO CORRESPONDING FIELDS OF TABLE lt_zmmt001 .
READ TABLE lt_zmmt001 INTO DATA(ls_zmmt001) INDEX 1.
查看完整代码 
SELECT * FROM zmmt001 INTO CORRESPONDING FIELDS OF TABLE lt_zmmt001 .
READ TABLE lt_zmmt001 INTO DATA(ls_zmmt001) INDEX 1.
ABAP ABAP随笔EXCEL笔记6批量导出OLE客制导出 
tablestructure ?= cl_abap_typedescr=>describe_by_data( ls_zmmt001 ).
查看完整代码 
tablestructure ?= cl_abap_typedescr=>describe_by_data( ls_zmmt001 ).
ABAP ABAP随笔EXCEL笔记6批量导出OLE客制导出 
ls_filename = p_file.
ls_destination = p_file.
查看完整代码 
ls_filename = p_file.
ls_destination = p_file.
ABAP ABAP随笔EXCEL笔记6批量导出OLE客制导出 
CALL METHOD zcl_document_jxzhu=>download_template_to_frontend
查看完整代码 
CALL METHOD zcl_document_jxzhu=>download_template_to_frontend
ABAP ABAP随笔EXCEL笔记6批量导出OLE客制导出 
iv_filepath      = ls_filename
查看完整代码 
iv_filepath      = ls_filename
ABAP ABAP随笔EXCEL笔记6批量导出OLE客制导出 
rv_filepath      = ls_filename
查看完整代码 
rv_filepath      = ls_filename
ABAP ABAP随笔EXCEL笔记6批量导出OLE客制导出 
CREATE OBJECT excel_obj 'EXCEL.APPLICATION'.
IF sy-subrc NE 0.
查看完整代码 
CREATE OBJECT excel_obj 'EXCEL.APPLICATION'.
IF sy-subrc NE 0.
ABAP ABAP随笔EXCEL笔记6批量导出OLE客制导出 
ENDIF.
查看完整代码 
ENDIF.
ABAP ABAP随笔EXCEL笔记6批量导出OLE客制导出 
CALL METHOD OF
查看完整代码 
CALL METHOD OF
ABAP ABAP随笔EXCEL笔记6批量导出OLE客制导出 
CALL METHOD OF
查看完整代码 
CALL METHOD OF
ABAP ABAP随笔EXCEL笔记6批量导出OLE客制导出 
#1       = ls_destination.
查看完整代码 
#1       = ls_destination.
ABAP ABAP随笔EXCEL笔记6批量导出OLE客制导出 
CALL METHOD OF
查看完整代码 
CALL METHOD OF
ABAP ABAP随笔EXCEL笔记6批量导出OLE客制导出 
CALL METHOD OF
查看完整代码 
CALL METHOD OF
ABAP ABAP随笔EXCEL笔记6批量导出OLE客制导出 
CALL METHOD OF sheet_obj 'ACTIVATE'."激活
查看完整代码 
CALL METHOD OF sheet_obj 'ACTIVATE'."激活
ABAP ABAP随笔EXCEL笔记6批量导出OLE客制导出 
LOOP AT tablestructure->components INTO DATA(ls_comps).
lv_tabix = sy-tabix.
查看完整代码 
LOOP AT tablestructure->components INTO DATA(ls_comps).
lv_tabix = sy-tabix.
ABAP ABAP随笔EXCEL笔记6批量导出OLE客制导出 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP ABAP随笔EXCEL笔记6批量导出OLE客制导出 
DATA(lv_row) = 2.
查看完整代码 
DATA(lv_row) = 2.
ABAP ABAP随笔EXCEL笔记6批量导出OLE客制导出 
LOOP AT lt_zmmt001 INTO ls_zmmt001.
LOOP AT  tablestructure->components INTO ls_comps.
lv_tabix = sy-tabix.
查看完整代码 
LOOP AT lt_zmmt001 INTO ls_zmmt001.
LOOP AT  tablestructure->components INTO ls_comps.
lv_tabix = sy-tabix.
ABAP ABAP随笔EXCEL笔记6批量导出OLE客制导出 
IF sy-subrc EQ 0.
查看完整代码 
IF sy-subrc EQ 0.
ABAP ABAP随笔EXCEL笔记6批量导出OLE客制导出 
ENDIF.
ENDLOOP.
lv_row = lv_row + 1.
ENDLOOP.
查看完整代码 
ENDIF.
ENDLOOP.
lv_row = lv_row + 1.
ENDLOOP.
ABAP ABAP随笔EXCEL笔记6批量导出OLE客制导出 
CALL METHOD OF
查看完整代码 
CALL METHOD OF
ABAP ABAP随笔EXCEL笔记6批量导出OLE客制导出 
CALL METHOD OF
查看完整代码 
CALL METHOD OF
ABAP ABAP随笔EXCEL笔记6批量导出OLE客制导出 
CALL METHOD OF
查看完整代码 
CALL METHOD OF
ABAP ABAP随笔EXCEL笔记6批量导出OLE客制导出 
ENDFORM.
查看完整代码 
ENDFORM.
ABAP ABAP随笔EXCEL笔记6批量导出OLE客制导出 
FORM  fill_cell  USING
查看完整代码 
FORM  fill_cell  USING
ABAP ABAP随笔EXCEL笔记6批量导出OLE客制导出 
CALL METHOD OF
查看完整代码 
CALL METHOD OF
ABAP ABAP随笔EXCEL笔记7批量导出CL_XLSX_DOCUMENT 
SELECT  *  INTO  CORRESPONDING  FIELDS OF TABLE  @lt_zmmt001  FROM  zmmt001  .
IF  sy  \-  subrc  EQ  0  AND  p_file  IS NOT INITIAL  .
lv_filename  =  p_file  .
CALL METHOD  zcl_document_jxzhu  => export_document_to_frontend
查看完整代码 
SELECT  *  INTO  CORRESPONDING  FIELDS OF TABLE  @lt_zmmt001  FROM  zmmt001  .
IF  sy  \-  subrc  EQ  0  AND  p_file  IS NOT INITIAL  .
lv_filename  =  p_file  .
CALL METHOD  zcl_document_jxzhu  => export_document_to_frontend
ABAP ABAP随笔EXCEL笔记7批量导出CL_XLSX_DOCUMENT 
pi_filename  =  lv_filename
查看完整代码 
pi_filename  =  lv_filename
ABAP ABAP随笔EXCEL笔记7批量导出CL_XLSX_DOCUMENT 
pt_tab  =  lt_zmmt001
查看完整代码 
pt_tab  =  lt_zmmt001
ABAP ABAP随笔EXCEL笔记7批量导出CL_XLSX_DOCUMENT 
IF  sy  \-  subrc <> 0  .  _ * Implement suitable error handling here  _
ENDIF  .  ‍
查看完整代码 
IF  sy  \-  subrc <> 0  .  _ * Implement suitable error handling here  _
ENDIF  .  ‍
ABAP ABAP随笔EXCEL笔记7批量导出CL_XLSX_DOCUMENT 
METHOD  export_document_to_frontend  .
IF  pt_tab  IS INITIAL  .
查看完整代码 
METHOD  export_document_to_frontend  .
IF  pt_tab  IS INITIAL  .
ABAP ABAP随笔EXCEL笔记7批量导出CL_XLSX_DOCUMENT 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAP随笔EXCEL笔记7批量导出CL_XLSX_DOCUMENT 
DATA  (  lv_column  ) =  1  .  _ "  设置列  = 1  _
查看完整代码 
DATA  (  lv_column  ) =  1  .  _ "  设置列  = 1  _
ABAP ABAP随笔EXCEL笔记7批量导出CL_XLSX_DOCUMENT 
LOOP AT  tablestructure  -> components  REFERENCE INTO DATA  (  component  ).
查看完整代码 
LOOP AT  tablestructure  -> components  REFERENCE INTO DATA  (  component  ).
ABAP ABAP随笔EXCEL笔记7批量导出CL_XLSX_DOCUMENT 
iv_column  =  lv_column
查看完整代码 
iv_column  =  lv_column
ABAP ABAP随笔EXCEL笔记7批量导出CL_XLSX_DOCUMENT 
lv_column  =  lv_column +  1  .
ENDLOOP  .
查看完整代码 
lv_column  =  lv_column +  1  .
ENDLOOP  .
ABAP ABAP随笔EXCEL笔记7批量导出CL_XLSX_DOCUMENT 
DATA  (  lv_row  ) =  2  .
查看完整代码 
DATA  (  lv_row  ) =  2  .
ABAP ABAP随笔EXCEL笔记7批量导出CL_XLSX_DOCUMENT 
LOOP AT  <tabledata> ASSIGNING FIELD  \-  SYMBOL  (  <currenttabledata> ).
lv_column  =  1  .
LOOP AT  tablestructure  -> components  REFERENCE INTO component  .
查看完整代码 
LOOP AT  <tabledata> ASSIGNING FIELD  \-  SYMBOL  (  <currenttabledata> ).
lv_column  =  1  .
LOOP AT  tablestructure  -> components  REFERENCE INTO component  .
ABAP ABAP随笔EXCEL笔记7批量导出CL_XLSX_DOCUMENT 
first_xlsx_sheet  -> set_cell_content  (  iv_row  =  lv_row
iv_column  =  lv_column
查看完整代码 
first_xlsx_sheet  -> set_cell_content  (  iv_row  =  lv_row
iv_column  =  lv_column
ABAP ABAP随笔EXCEL笔记7批量导出CL_XLSX_DOCUMENT 
lv_column  =  lv_column +  1  .
ENDLOOP  .
lv_row  =  lv_row +  1  .
ENDLOOP  .
查看完整代码 
lv_column  =  lv_column +  1  .
ENDLOOP  .
lv_row  =  lv_row +  1  .
ENDLOOP  .
ABAP ABAP随笔EXCEL笔记7批量导出CL_XLSX_DOCUMENT 
IF  sy  \-  subrc <> 0  .
查看完整代码 
IF  sy  \-  subrc <> 0  .
ABAP ABAP随笔EXCEL笔记7批量导出CL_XLSX_DOCUMENT 
ENDIF  .
ENDMETHOD  .
查看完整代码 
ENDIF  .
ENDMETHOD  .
ABAP ABAP随笔SAP增强点查找小记 
METHOD CL_EXITHANDLER=>GET_CLASS_NAME_BY_INTERFACE  ）打上一个断点。
查看完整代码 
METHOD CL_EXITHANDLER=>GET_CLASS_NAME_BY_INTERFACE  ）打上一个断点。
ABAP ABAP随笔SM30常见增强操作自动带描述等 
LOOP AT EXTRACT WITH CONTROL
查看完整代码 
LOOP AT EXTRACT WITH CONTROL
ABAP ABAP随笔SM30常见增强操作自动带描述等 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP ABAP随笔SM30常见增强操作自动带描述等 
LOOP AT EXTRACT.
查看完整代码 
LOOP AT EXTRACT.
ABAP ABAP随笔SM30常见增强操作自动带描述等 
ENDCHAIN.
ENDLOOP.
查看完整代码 
ENDCHAIN.
ENDLOOP.
ABAP ABAP随笔SM30常见增强操作自动带描述等 
IF zvjxzhu_01-vbeln IS NOT INITIAL.
SELECT SINGLE auart INTO gv_auart
查看完整代码 
IF zvjxzhu_01-vbeln IS NOT INITIAL.
SELECT SINGLE auart INTO gv_auart
ABAP ABAP随笔SM30常见增强操作自动带描述等 
IF sy-subrc EQ 0.
SELECT SINGLE bezei INTO zvjxzhu_01-context
查看完整代码 
IF sy-subrc EQ 0.
SELECT SINGLE bezei INTO zvjxzhu_01-context
ABAP ABAP随笔SM30常见增强操作自动带描述等 
ENDIF.
ENDIF.
查看完整代码 
ENDIF.
ENDIF.
ABAP ABAP随笔SM30常见增强操作自动带描述等 
FORM frm_auto_num.
查看完整代码 
FORM frm_auto_num.
ABAP ABAP随笔SM30常见增强操作自动带描述等 
IF lt_zvjxzhu[] IS NOT INITIAL.
查看完整代码 
IF lt_zvjxzhu[] IS NOT INITIAL.
ABAP ABAP随笔SM30常见增强操作自动带描述等 
READ TABLE lt_zvjxzhu INTO DATA(ls_zvjxzhu) INDEX 1.
IF sy-subrc EQ 0.
zvjxzhu_01-id = ls_zvjxzhu-id + 1.” ID最大值+1
ENDIF.
查看完整代码 
READ TABLE lt_zvjxzhu INTO DATA(ls_zvjxzhu) INDEX 1.
IF sy-subrc EQ 0.
zvjxzhu_01-id = ls_zvjxzhu-id + 1.” ID最大值+1
ENDIF.
ABAP ABAP随笔SM30常见增强操作自动带描述等 
ENDIF.
ENDFORM.
查看完整代码 
ENDIF.
ENDFORM.
ABAP ABAP随笔smartforms打印及PDF转化 
TABLES:mara.
查看完整代码 
TABLES:mara.
ABAP ABAP随笔smartforms打印及PDF转化 
TYPES:BEGIN OF ty_data,
查看完整代码 
TYPES:BEGIN OF ty_data,
ABAP ABAP随笔smartforms打印及PDF转化 
DATA: gt_fieldcat TYPE lvc_t_fcat. "字段操作表
查看完整代码 
DATA: gt_fieldcat TYPE lvc_t_fcat. "字段操作表
ABAP ABAP随笔smartforms打印及PDF转化 
DATA: gs_layout TYPE lvc_s_layo.
查看完整代码 
DATA: gs_layout TYPE lvc_s_layo.
ABAP ABAP随笔smartforms打印及PDF转化 
CALL METHOD gr_alv->standard_oo_alv
查看完整代码 
CALL METHOD gr_alv->standard_oo_alv
ABAP ABAP随笔smartforms打印及PDF转化 
iv_default_ex = 'X'
查看完整代码 
iv_default_ex = 'X'
ABAP ABAP随笔smartforms打印及PDF转化 
create_alv_failed = 1.
查看完整代码 
create_alv_failed = 1.
ABAP ABAP随笔smartforms打印及PDF转化 
FORM frm_set_fieldcat.
查看完整代码 
FORM frm_set_fieldcat.
ABAP ABAP随笔smartforms打印及PDF转化 
lv_pos = lv_pos + 1.
查看完整代码 
lv_pos = lv_pos + 1.
ABAP ABAP随笔smartforms打印及PDF转化 
ls_fieldcat-col_pos = lv_pos.
查看完整代码 
ls_fieldcat-col_pos = lv_pos.
ABAP ABAP随笔smartforms打印及PDF转化 
ls_fieldcat-fieldname = &1."字段名
查看完整代码 
ls_fieldcat-fieldname = &1."字段名
ABAP ABAP随笔smartforms打印及PDF转化 
ls_fieldcat-coltext = &2."文本
查看完整代码 
ls_fieldcat-coltext = &2."文本
ABAP ABAP随笔smartforms打印及PDF转化 
* ls_fieldcat-no_zero = &3."去掉前导零
查看完整代码 
* ls_fieldcat-no_zero = &3."去掉前导零
ABAP ABAP随笔smartforms打印及PDF转化 
ls_fieldcat-ref_table = &3\.
查看完整代码 
ls_fieldcat-ref_table = &3\.
ABAP ABAP随笔smartforms打印及PDF转化 
ls_fieldcat-ref_field = &4\.
查看完整代码 
ls_fieldcat-ref_field = &4\.
ABAP ABAP随笔smartforms打印及PDF转化 
APPEND ls_fieldcat TO gt_fieldcat.
查看完整代码 
APPEND ls_fieldcat TO gt_fieldcat.
ABAP ABAP随笔smartforms打印及PDF转化 
ENDFORM.
查看完整代码 
ENDFORM.
ABAP ABAP随笔smartforms打印及PDF转化 
FORM frm_print_data .
查看完整代码 
FORM frm_print_data .
ABAP ABAP随笔smartforms打印及PDF转化 
TYPES: lty_spopli TYPE TABLE OF spopli WITH EMPTY KEY.
查看完整代码 
TYPES: lty_spopli TYPE TABLE OF spopli WITH EMPTY KEY.
ABAP ABAP随笔smartforms打印及PDF转化 
DATA(lt_spopli) = VALUE lty_spopli(
查看完整代码 
DATA(lt_spopli) = VALUE lty_spopli(
ABAP ABAP随笔smartforms打印及PDF转化 
DATA: antwort TYPE c.
查看完整代码 
DATA: antwort TYPE c.
ABAP ABAP随笔smartforms打印及PDF转化 
CALL FUNCTION 'POPUP_TO_DECIDE_LIST'
查看完整代码 
CALL FUNCTION 'POPUP_TO_DECIDE_LIST'
ABAP ABAP随笔smartforms打印及PDF转化 
t_spopli = lt_spopli
查看完整代码 
t_spopli = lt_spopli
ABAP ABAP随笔smartforms打印及PDF转化 
IF sy-subrc NE 0.
查看完整代码 
IF sy-subrc NE 0.
ABAP ABAP随笔smartforms打印及PDF转化 
ENDIF.
查看完整代码 
ENDIF.
ABAP ABAP随笔smartforms打印及PDF转化 
DATA: fname(30) VALUE 'ZTEST_SMARTFORMS_01'.
查看完整代码 
DATA: fname(30) VALUE 'ZTEST_SMARTFORMS_01'.
ABAP ABAP随笔smartforms打印及PDF转化 
DATA: fm_name TYPE rs38l_fnam.
查看完整代码 
DATA: fm_name TYPE rs38l_fnam.
ABAP ABAP随笔smartforms打印及PDF转化 
DATA: ls_control_param TYPE ssfctrlop ."控制结构
查看完整代码 
DATA: ls_control_param TYPE ssfctrlop ."控制结构
ABAP ABAP随笔smartforms打印及PDF转化 
DATA: ls_composer_param TYPE ssfcompop ."处理输出
查看完整代码 
DATA: ls_composer_param TYPE ssfcompop ."处理输出
ABAP ABAP随笔smartforms打印及PDF转化 
DATA: outopt TYPE ssfcresop.
查看完整代码 
DATA: outopt TYPE ssfcresop.
ABAP ABAP随笔smartforms打印及PDF转化 
DATA: i_job_output_info TYPE ssfcrescl.
查看完整代码 
DATA: i_job_output_info TYPE ssfcrescl.
ABAP ABAP随笔smartforms打印及PDF转化 
ls_control_param-langu = '1'.
查看完整代码 
ls_control_param-langu = '1'.
ABAP ABAP随笔smartforms打印及PDF转化 
ls_control_param-no_open = 'X'."控制smartforms的调用
查看完整代码 
ls_control_param-no_open = 'X'."控制smartforms的调用
ABAP ABAP随笔smartforms打印及PDF转化 
ls_control_param-no_close = 'X'."控制假脱机系统
查看完整代码 
ls_control_param-no_close = 'X'."控制假脱机系统
ABAP ABAP随笔smartforms打印及PDF转化 
ls_control_param-device = 'PRINTER'."
查看完整代码 
ls_control_param-device = 'PRINTER'."
ABAP ABAP随笔smartforms打印及PDF转化 
"最后一张票据需要关闭假脱机 ls_control_param-no_close = space
查看完整代码 
"最后一张票据需要关闭假脱机 ls_control_param-no_close = space
ABAP ABAP随笔smartforms打印及PDF转化 
ls_composer_param-tdnoprint = 'X'."预览界面无打印按钮
查看完整代码 
ls_composer_param-tdnoprint = 'X'."预览界面无打印按钮
ABAP ABAP随笔smartforms打印及PDF转化 
ls_control_param-langu = '1'.
查看完整代码 
ls_control_param-langu = '1'.
ABAP ABAP随笔smartforms打印及PDF转化 
ls_control_param-no_open = 'X'."控制smartforms的调用
查看完整代码 
ls_control_param-no_open = 'X'."控制smartforms的调用
ABAP ABAP随笔smartforms打印及PDF转化 
ls_control_param-no_close = 'X'."控制假脱机系统
查看完整代码 
ls_control_param-no_close = 'X'."控制假脱机系统
ABAP ABAP随笔smartforms打印及PDF转化 
"最后一张票据需要关闭假脱机 ls_control_param-no_close = space
查看完整代码 
"最后一张票据需要关闭假脱机 ls_control_param-no_close = space
ABAP ABAP随笔smartforms打印及PDF转化 
ls_control_param-no_dialog = 'X'."
查看完整代码 
ls_control_param-no_dialog = 'X'."
ABAP ABAP随笔smartforms打印及PDF转化 
ls_control_param-device = 'PRINTER'."
查看完整代码 
ls_control_param-device = 'PRINTER'."
ABAP ABAP随笔smartforms打印及PDF转化 
ls_control_param-preview = 'X'."预览
查看完整代码 
ls_control_param-preview = 'X'."预览
ABAP ABAP随笔smartforms打印及PDF转化 
DATA: lv_fullpath TYPE string.
查看完整代码 
DATA: lv_fullpath TYPE string.
ABAP ABAP随笔smartforms打印及PDF转化 
DATA: l_filename TYPE string.
查看完整代码 
DATA: l_filename TYPE string.
ABAP ABAP随笔smartforms打印及PDF转化 
DATA: l_bin_filesize TYPE i.
查看完整代码 
DATA: l_bin_filesize TYPE i.
ABAP ABAP随笔smartforms打印及PDF转化 
DATA: lt_lines TYPE STANDARD TABLE OF tline.
查看完整代码 
DATA: lt_lines TYPE STANDARD TABLE OF tline.
ABAP ABAP随笔smartforms打印及PDF转化 
CALL METHOD cl_gui_frontend_services=>directory_browse
查看完整代码 
CALL METHOD cl_gui_frontend_services=>directory_browse
ABAP ABAP随笔smartforms打印及PDF转化 
selected_folder = lv_fullpath.
查看完整代码 
selected_folder = lv_fullpath.
ABAP ABAP随笔smartforms打印及PDF转化 
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
查看完整代码 
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
ABAP ABAP随笔smartforms打印及PDF转化 
IF sy-subrc <> 0\.
查看完整代码 
IF sy-subrc <> 0\.
ABAP ABAP随笔smartforms打印及PDF转化 
ENDIF.
查看完整代码 
ENDIF.
ABAP ABAP随笔smartforms打印及PDF转化 
ls_control_param-langu = '1'.
查看完整代码 
ls_control_param-langu = '1'.
ABAP ABAP随笔smartforms打印及PDF转化 
ls_control_param-no_dialog = 'X'."
查看完整代码 
ls_control_param-no_dialog = 'X'."
ABAP ABAP随笔smartforms打印及PDF转化 
ls_control_param-getotf = 'X'."
查看完整代码 
ls_control_param-getotf = 'X'."
ABAP ABAP随笔smartforms打印及PDF转化 
ls_composer_param-tddest = 'LP01'."打印机
查看完整代码 
ls_composer_param-tddest = 'LP01'."打印机
ABAP ABAP随笔smartforms打印及PDF转化 
CALL FUNCTION fm_name
查看完整代码 
CALL FUNCTION fm_name
ABAP ABAP随笔smartforms打印及PDF转化 
control_parameters = ls_control_param
查看完整代码 
control_parameters = ls_control_param
ABAP ABAP随笔smartforms打印及PDF转化 
output_options = ls_composer_param
查看完整代码 
output_options = ls_composer_param
ABAP ABAP随笔smartforms打印及PDF转化 
IF sy-subrc <> 0\.
查看完整代码 
IF sy-subrc <> 0\.
ABAP ABAP随笔smartforms打印及PDF转化 
ENDIF.
查看完整代码 
ENDIF.
ABAP ABAP随笔smartforms打印及PDF转化 
CALL FUNCTION 'CONVERT_OTF'
查看完整代码 
CALL FUNCTION 'CONVERT_OTF'
ABAP ABAP随笔smartforms打印及PDF转化 
lines = lt_lines
查看完整代码 
lines = lt_lines
ABAP ABAP随笔smartforms打印及PDF转化 
CALL FUNCTION 'GUI_DOWNLOAD'
查看完整代码 
CALL FUNCTION 'GUI_DOWNLOAD'
ABAP ABAP随笔smartforms打印及PDF转化 
data_tab = lt_lines
查看完整代码 
data_tab = lt_lines
ABAP ABAP随笔smartforms打印及PDF转化 
ENDFORM.
查看完整代码 
ENDFORM.
ABAP ABAP随笔smartforms打印及PDF转化 
FORM frm_print_smf USING ls_control_param TYPE ssfctrlop
查看完整代码 
FORM frm_print_smf USING ls_control_param TYPE ssfctrlop
ABAP ABAP随笔smartforms打印及PDF转化 
DATA: outopt TYPE ssfcresop,
查看完整代码 
DATA: outopt TYPE ssfcresop,
ABAP ABAP随笔smartforms打印及PDF转化 
CALL FUNCTION 'SSF_OPEN'
查看完整代码 
CALL FUNCTION 'SSF_OPEN'
ABAP ABAP随笔smartforms打印及PDF转化 
control_parameters = ls_control_param
查看完整代码 
control_parameters = ls_control_param
ABAP ABAP随笔smartforms打印及PDF转化 
output_options = ls_composer_param
查看完整代码 
output_options = ls_composer_param
ABAP ABAP随笔smartforms打印及PDF转化 
IF sy-subrc <> 0\.
查看完整代码 
IF sy-subrc <> 0\.
ABAP ABAP随笔smartforms打印及PDF转化 
ENDIF.
查看完整代码 
ENDIF.
ABAP ABAP随笔smartforms打印及PDF转化 
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
查看完整代码 
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
ABAP ABAP随笔smartforms打印及PDF转化 
IF sy-subrc <> 0\.
查看完整代码 
IF sy-subrc <> 0\.
ABAP ABAP随笔入门简单ALV附单元格颜色控制 
SELECT-OPTIONS  :  s_vbeln  FOR  vbak  \-  vbeln MODIF  ID  md1  .
查看完整代码 
SELECT-OPTIONS  :  s_vbeln  FOR  vbak  \-  vbeln MODIF  ID  md1  .
ABAP ABAP随笔入门简单ALV附单元格颜色控制 
LOOP  AT  SCREEN  .
IF  screen  \-  name  =  'P_AUART'  OR  screen  \-  name  =  'P_VKORG'  .
查看完整代码 
LOOP  AT  SCREEN  .
IF  screen  \-  name  =  'P_AUART'  OR  screen  \-  name  =  'P_VKORG'  .
ABAP ABAP随笔入门简单ALV附单元格颜色控制 
MODIFY  SCREEN  .
ENDIF  .
IF  screen  \-  group1  =  'MD1'  .
IF  p_cbox  EQ  'X'  .
查看完整代码 
MODIFY  SCREEN  .
ENDIF  .
IF  screen  \-  group1  =  'MD1'  .
IF  p_cbox  EQ  'X'  .
ABAP ABAP随笔入门简单ALV附单元格颜色控制 
ENDIF  .
MODIFY  SCREEN  .
ENDIF  .
ENDLOOP  .
查看完整代码 
ENDIF  .
MODIFY  SCREEN  .
ENDIF  .
ENDLOOP  .
ABAP ABAP随笔入门简单ALV附单元格颜色控制 
IF  p_auart  IS  INITIAL  OR  p_vkorg  IS  INITIAL  .
查看完整代码 
IF  p_auart  IS  INITIAL  OR  p_vkorg  IS  INITIAL  .
ABAP ABAP随笔入门简单ALV附单元格颜色控制 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAP随笔入门简单ALV附单元格颜色控制 
FORM  frm_get_data  .
查看完整代码 
FORM  frm_get_data  .
ABAP ABAP随笔入门简单ALV附单元格颜色控制 
IF  p_cbox  IS  INITIAL  .
查看完整代码 
IF  p_cbox  IS  INITIAL  .
ABAP ABAP随笔入门简单ALV附单元格颜色控制 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAP随笔入门简单ALV附单元格颜色控制 
SELECT  a  ~  vbeln  ,  b  ~  posnr  ,  a  ~  auart  ,  b  ~  matnr  ,  c  ~
查看完整代码 
SELECT  a  ~  vbeln  ,  b  ~  posnr  ,  a  ~  auart  ,  b  ~  matnr  ,  c  ~
ABAP ABAP随笔入门简单ALV附单元格颜色控制 
IF  sy  \-  subrc  EQ  0  .
查看完整代码 
IF  sy  \-  subrc  EQ  0  .
ABAP ABAP随笔入门简单ALV附单元格颜色控制 
ls_scol  \-  fname  =  'KWMENG'  .
ls_scol  \-  color  \-  col  =  '6'  .  "6:为红色 1:强化 0:颜色为背景
ls_scol  \-  color  \-  int  =  '1'  .  "6:为红色 1:强化 0:颜色为背景
ls_scol  \-  color  \-  inv  =  '0'  .  "6:为红色 1:强化 0:颜色为背景
APPEND  ls_scol  TO  <fs> \-  scol  .
ENDLOOP  .
查看完整代码 
ls_scol  \-  fname  =  'KWMENG'  .
ls_scol  \-  color  \-  col  =  '6'  .  "6:为红色 1:强化 0:颜色为背景
ls_scol  \-  color  \-  int  =  '1'  .  "6:为红色 1:强化 0:颜色为背景
ls_scol  \-  color  \-  inv  =  '0'  .  "6:为红色 1:强化 0:颜色为背景
APPEND  ls_scol  TO  <fs> \-  scol  .
ENDLOOP  .
ABAP ABAP随笔入门简单ALV附单元格颜色控制 
ENDIF  .
ENDFORM  .
查看完整代码 
ENDIF  .
ENDFORM  .
ABAP ABAP随笔入门简单ALV附单元格颜色控制 
FORM  frm_build_cat  .  DATA  lv_pos  TYPE  i  .
查看完整代码 
FORM  frm_build_cat  .  DATA  lv_pos  TYPE  i  .
ABAP ABAP随笔入门简单ALV附单元格颜色控制 
lv_pos  =  lv_pos +  1  .
ls_fieldcat  \-  col_pos  =  lv_pos  .
ls_fieldcat  \-  fieldname  =  &1  .  "字段名
ls_fieldcat  \-  coltext  =  &2  .  "文本
ls_fieldcat  \-  key  =  &3  .  "关键字
ls_fieldcat  \-  ref_table  =  &4  .  "参考的表
ls_fieldcat  \-  ref_field  =  &5  .  "参考的字段
APPEND  ls_fieldcat  TO  gt_fieldcat  .
查看完整代码 
lv_pos  =  lv_pos +  1  .
ls_fieldcat  \-  col_pos  =  lv_pos  .
ls_fieldcat  \-  fieldname  =  &1  .  "字段名
ls_fieldcat  \-  coltext  =  &2  .  "文本
ls_fieldcat  \-  key  =  &3  .  "关键字
ls_fieldcat  \-  ref_table  =  &4  .  "参考的表
ls_fieldcat  \-  ref_field  =  &5  .  "参考的字段
APPEND  ls_fieldcat  TO  gt_fieldcat  .
ABAP ABAP随笔入门简单ALV附单元格颜色控制 
IF  sy  \-  subrc  EQ  0  .
查看完整代码 
IF  sy  \-  subrc  EQ  0  .
ABAP ABAP随笔入门简单ALV附单元格颜色控制 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAP随笔入门简单ALV附单元格颜色控制 
ENDFORM  .
查看完整代码 
ENDFORM  .
ABAP ABAP随笔入门简单ALV附单元格颜色控制 
FORM  frm_display  .
查看完整代码 
FORM  frm_display  .
ABAP ABAP随笔入门简单ALV附单元格颜色控制 
CALL  FUNCTION  'REUSE_ALV_GRID_DISPLAY_LVC'
查看完整代码 
CALL  FUNCTION  'REUSE_ALV_GRID_DISPLAY_LVC'
ABAP ABAP随笔入门简单ALV附单元格颜色控制 
IF  sy  \-  subrc <> 0  .
查看完整代码 
IF  sy  \-  subrc <> 0  .
ABAP ABAP随笔入门简单ALV附单元格颜色控制 
ENDIF  .
ENDFORM  .  "状态
FORM  frm_set_status  USING  p_extab  TYPE  slis_t_extab  .
查看完整代码 
ENDIF  .
ENDFORM  .  "状态
FORM  frm_set_status  USING  p_extab  TYPE  slis_t_extab  .
ABAP ABAP随笔入门简单ALV附单元格颜色控制 
ENDFORM  .  " frm_set_status
查看完整代码 
ENDFORM  .  " frm_set_status
ABAP ABAP随笔入门简单ALV附单元格颜色控制 
FORM  frm_alv_user_command  USING  p_ucomm  TYPE  sy  \-  ucomm
查看完整代码 
FORM  frm_alv_user_command  USING  p_ucomm  TYPE  sy  \-  ucomm
ABAP ABAP随笔入门简单ALV附单元格颜色控制 
IF  sy  \-  subrc  EQ  0  AND  p_rs_selfield  \-  fieldname  =  'VBELN'  .
查看完整代码 
IF  sy  \-  subrc  EQ  0  AND  p_rs_selfield  \-  fieldname  =  'VBELN'  .
ABAP ABAP随笔入门简单ALV附单元格颜色控制 
CALL  TRANSACTION  'VA03'  AND  SKIP  FIRST  SCREEN  .
ENDIF  .
查看完整代码 
CALL  TRANSACTION  'VA03'  AND  SKIP  FIRST  SCREEN  .
ENDIF  .
ABAP ABAP随笔入门简单ALV附单元格颜色控制 
ENDCASE  .
ENDFORM  .
查看完整代码 
ENDCASE  .
ENDFORM  .
ABAP ABAP随笔关于ECC后台server读取Excel方案的想法 
REPORT ztab_zhu_xlsx_02.
查看完整代码 
REPORT ztab_zhu_xlsx_02.
ABAP ABAP随笔关于ECC后台server读取Excel方案的想法 
DATA:BEGIN OF ls_data,
查看完整代码 
DATA:BEGIN OF ls_data,
ABAP ABAP随笔关于ECC后台server读取Excel方案的想法 
END OF ls_data.
查看完整代码 
END OF ls_data.
ABAP ABAP随笔关于ECC后台server读取Excel方案的想法 
DATA: l_lines TYPE i.
DATA: l_xstring TYPE xstring.
DATA: li_e_rcgrepfile_tab TYPE cpt_x255,
查看完整代码 
DATA: l_lines TYPE i.
DATA: l_xstring TYPE xstring.
DATA: li_e_rcgrepfile_tab TYPE cpt_x255,
ABAP ABAP随笔关于ECC后台server读取Excel方案的想法 
DATA: l_file_content TYPE xstring.
查看完整代码 
DATA: l_file_content TYPE xstring.
ABAP ABAP随笔关于ECC后台server读取Excel方案的想法 
DATA:BEGIN OF gt_tab OCCURS 0,
查看完整代码 
DATA:BEGIN OF gt_tab OCCURS 0,
ABAP ABAP随笔关于ECC后台server读取Excel方案的想法 
SELECTION-SCREEN BEGIN OF BLOCK blk WITH FRAME TITLE TEXT-s01.
PARAMETERS:rb_01 RADIOBUTTON GROUP gp1,
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK blk WITH FRAME TITLE TEXT-s01.
PARAMETERS:rb_01 RADIOBUTTON GROUP gp1,
ABAP ABAP随笔关于ECC后台server读取Excel方案的想法 
PARAMETERS:i_file TYPE rlgrap-filename DEFAULT '/usr/sap/S4H/SYS/src/test.xlsx'.
SELECTION-SCREEN END OF BLOCK blk.
查看完整代码 
PARAMETERS:i_file TYPE rlgrap-filename DEFAULT '/usr/sap/S4H/SYS/src/test.xlsx'.
SELECTION-SCREEN END OF BLOCK blk.
ABAP ABAP随笔关于ECC后台server读取Excel方案的想法 
CALL FUNCTION 'AUTHORITY_CHECK_DATASET'
查看完整代码 
CALL FUNCTION 'AUTHORITY_CHECK_DATASET'
ABAP ABAP随笔关于ECC后台server读取Excel方案的想法 
IF sy-subrc <> 0.
RAISE no_permission.
ENDIF.
查看完整代码 
IF sy-subrc <> 0.
RAISE no_permission.
ENDIF.
ABAP ABAP随笔关于ECC后台server读取Excel方案的想法 
IF sy-subrc <> 0 OR
查看完整代码 
IF sy-subrc <> 0 OR
ABAP ABAP随笔关于ECC后台server读取Excel方案的想法 
RAISE open_failed.
ENDIF.
查看完整代码 
RAISE open_failed.
ENDIF.
ABAP ABAP随笔关于ECC后台server读取Excel方案的想法 
IF sy-subrc <> 0.
IF l_len > 0.
查看完整代码 
IF sy-subrc <> 0.
IF l_len > 0.
ABAP ABAP随笔关于ECC后台server读取Excel方案的想法 
APPEND lst_rcgrepfile TO li_e_rcgrepfile_tab.
ENDIF.
查看完整代码 
APPEND lst_rcgrepfile TO li_e_rcgrepfile_tab.
ENDIF.
ABAP ABAP随笔关于ECC后台server读取Excel方案的想法 
ENDIF.
查看完整代码 
ENDIF.
ABAP ABAP随笔关于ECC后台server读取Excel方案的想法 
APPEND lst_rcgrepfile TO li_e_rcgrepfile_tab.
ENDDO.
IF sy-subrc > 10.
RAISE read_error.
ENDIF.
查看完整代码 
APPEND lst_rcgrepfile TO li_e_rcgrepfile_tab.
ENDDO.
IF sy-subrc > 10.
RAISE read_error.
ENDIF.
ABAP ABAP随笔关于ECC后台server读取Excel方案的想法 
IF li_e_rcgrepfile_tab[] IS NOT INITIAL.
查看完整代码 
IF li_e_rcgrepfile_tab[] IS NOT INITIAL.
ABAP ABAP随笔关于ECC后台server读取Excel方案的想法 
ENDIF.
查看完整代码 
ENDIF.
ABAP ABAP随笔关于ECC后台server读取Excel方案的想法 
lv_filename = i_file.
TRY.
l_xstring = cl_openxml_helper=>load_local_file( lv_filename ). "获取excel路径 为 xstring格式
CATCH cx_openxml_not_found INTO DATA(openxml_not_found).
查看完整代码 
lv_filename = i_file.
TRY.
l_xstring = cl_openxml_helper=>load_local_file( lv_filename ). "获取excel路径 为 xstring格式
CATCH cx_openxml_not_found INTO DATA(openxml_not_found).
ABAP ABAP随笔关于ECC后台server读取Excel方案的想法 
CREATE OBJECT lo_tab_excel.
查看完整代码 
CREATE OBJECT lo_tab_excel.
ABAP ABAP随笔关于ECC后台server读取Excel方案的想法 
CALL METHOD lo_tab_excel->load_doc( iv_file_data = l_xstring ).
查看完整代码 
CALL METHOD lo_tab_excel->load_doc( iv_file_data = l_xstring ).
ABAP ABAP随笔关于ECC后台server读取Excel方案的想法 
DATA(lo_sheet) = lo_tab_excel->get_sheet_by_name( 'Sheet1' ).
DATA(ls_sheet_data) = lo_tab_excel->get_sheet_data( lo_sheet ).
查看完整代码 
DATA(lo_sheet) = lo_tab_excel->get_sheet_by_name( 'Sheet1' ).
DATA(ls_sheet_data) = lo_tab_excel->get_sheet_data( lo_sheet ).
ABAP ABAP随笔关于ECC后台server读取Excel方案的想法 
DATA(ls_last_columns) = lo_tab_excel->get_last_column_number_in_row( 1 ).
查看完整代码 
DATA(ls_last_columns) = lo_tab_excel->get_last_column_number_in_row( 1 ).
ABAP ABAP随笔关于ECC后台server读取Excel方案的想法 
DATA(ls_last_rows) = lo_tab_excel->get_last_row_number( ).
查看完整代码 
DATA(ls_last_rows) = lo_tab_excel->get_last_row_number( ).
ABAP ABAP随笔关于ECC后台server读取Excel方案的想法 
WHILE startrow <= ls_last_rows.
查看完整代码 
WHILE startrow <= ls_last_rows.
ABAP ABAP随笔关于ECC后台server读取Excel方案的想法 
DATA(lv_content) = lo_tab_excel->get_cell_content(
查看完整代码 
DATA(lv_content) = lo_tab_excel->get_cell_content(
ABAP ABAP随笔关于ECC后台server读取Excel方案的想法 
IF sy-subrc EQ 0.
<fs_any> = lv_content.
ENDIF.
ENDDO.
APPEND ls_data TO lt_data.
查看完整代码 
IF sy-subrc EQ 0.
<fs_any> = lv_content.
ENDIF.
ENDDO.
APPEND ls_data TO lt_data.
ABAP ABAP随笔关于ECC后台server读取Excel方案的想法 
cl_demo_output=>display( lt_data ).
查看完整代码 
cl_demo_output=>display( lt_data ).
ABAP ABAP随笔新语法Fliiter 
TYPES:BEGIN OF ty_filter,        matkl TYPE ekpo-matkl,        werks TYPE ekpo-werks,      END OF ty_filter,      ty_filter_tab TYPE SORTED TABLE OF ty_filter                      WITH UNIQUE KEY matkl werks.
查看完整代码 
TYPES:BEGIN OF ty_filter,        matkl TYPE ekpo-matkl,        werks TYPE ekpo-werks,      END OF ty_filter,      ty_filter_tab TYPE SORTED TABLE OF ty_filter                      WITH UNIQUE KEY matkl werks.
ABAP ABAP随笔新语法Fliiter
查看代码
"1.直接用where条件去过滤DATA(lt_ekpo_filter_01) = FILTER #( lt_ekpo_sorted WHERE ebeln = '4500000048' )."Output filtered recordscl_demo_output=>display( lt_ekpo_filter_01 ).
"制作过滤条件table，过滤条件一定要有key值DATA(lt_filter) = VALUE ty_filter_tab(( matkl = '01' werks = '1000' )( matkl = '01' werks = '3000' )).
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
"1.直接用where条件去过滤DATA(lt_ekpo_filter_01) = FILTER #( lt_ekpo_sorted WHERE ebeln = '4500000048' )."Output filtered recordscl_demo_output=>display( lt_ekpo_filter_01 ).
"制作过滤条件table，过滤条件一定要有key值DATA(lt_filter) = VALUE ty_filter_tab(( matkl = '01' werks = '1000' )( matkl = '01' werks = '3000' )).
/* ... 已截断，完整代码请查看原文 */
ABAP ABAP随笔新语法corresponding 
TYPES:BEGIN OF ty_data1,
查看完整代码 
TYPES:BEGIN OF ty_data1,
ABAP ABAP随笔新语法corresponding 
DATA(ls_data1) = VALUE ty_data1(
查看完整代码 
DATA(ls_data1) = VALUE ty_data1(
ABAP ABAP随笔新语法corresponding 
DATA(ls_data2) = VALUE ty_data2( field1 = 4 field2 = 5 field3 = 6 ).
查看完整代码 
DATA(ls_data2) = VALUE ty_data2( field1 = 4 field2 = 5 field3 = 6 ).
ABAP ABAP随笔新语法corresponding 
ls_data2 = CORRESPONDING #( ls_data1 ).
查看完整代码 
ls_data2 = CORRESPONDING #( ls_data1 ).
ABAP ABAP随笔新语法corresponding 
WRITE:/ ls_data2-field1,ls_data2-field2,ls_data2-field3.
查看完整代码 
WRITE:/ ls_data2-field1,ls_data2-field2,ls_data2-field3.
ABAP ABAP随笔新语法corresponding 
" 1 2 0 此时 ls_data2-field3 = 0 在赋值过程中被覆盖
查看完整代码 
" 1 2 0 此时 ls_data2-field3 = 0 在赋值过程中被覆盖
ABAP ABAP随笔新语法corresponding 
ls_data2 = VALUE ty_data2( field1 = 4 field2 = 5 field3 = 6 ).
查看完整代码 
ls_data2 = VALUE ty_data2( field1 = 4 field2 = 5 field3 = 6 ).
ABAP ABAP随笔新语法corresponding 
ls_data2 = CORRESPONDING #( BASE ( ls_data2 ) ls_data1 ).
查看完整代码 
ls_data2 = CORRESPONDING #( BASE ( ls_data2 ) ls_data1 ).
ABAP ABAP随笔新语法corresponding 
WRITE:/ ls_data2-field1,ls_data2-field2,ls_data2-field3.
查看完整代码 
WRITE:/ ls_data2-field1,ls_data2-field2,ls_data2-field3.
ABAP ABAP随笔新语法corresponding 
"此时 ls_data2-field = 6 未被覆盖
查看完整代码 
"此时 ls_data2-field = 6 未被覆盖
ABAP ABAP随笔新语法corresponding 
ls_data2 = VALUE ty_data2( field1 = 4 field2 = 5 field3 = 6 ).
查看完整代码 
ls_data2 = VALUE ty_data2( field1 = 4 field2 = 5 field3 = 6 ).
ABAP ABAP随笔新语法corresponding 
DATA(ls_data3) = CORRESPONDING ty_data2( BASE ( ls_data2 ) ls_data1 ).
查看完整代码 
DATA(ls_data3) = CORRESPONDING ty_data2( BASE ( ls_data2 ) ls_data1 ).
ABAP ABAP随笔新语法corresponding 
WRITE:/ ls_data3-field1,ls_data3-field2,ls_data3-field3.
查看完整代码 
WRITE:/ ls_data3-field1,ls_data3-field2,ls_data3-field3.
ABAP ABAP随笔新语法corresponding 
TYPES:BEGIN OF ty_data,
查看完整代码 
TYPES:BEGIN OF ty_data,
ABAP ABAP随笔新语法corresponding 
DATA(lt_data1) = VALUE ty_t_data( FOR i = 1 UNTIL i > 10 ( key = i ) ).
查看完整代码 
DATA(lt_data1) = VALUE ty_t_data( FOR i = 1 UNTIL i > 10 ( key = i ) ).
ABAP ABAP随笔新语法corresponding 
DATA(lt_data2) = VALUE ty_hashed_t_data( ( key = 2 remarks = `ceshi1` )
查看完整代码 
DATA(lt_data2) = VALUE ty_hashed_t_data( ( key = 2 remarks = `ceshi1` )
ABAP ABAP随笔新语法corresponding 
DATA:BEGIN OF ls_test,
查看完整代码 
DATA:BEGIN OF ls_test,
ABAP ABAP随笔新语法corresponding 
END OF ls_test.
查看完整代码 
END OF ls_test.
ABAP ABAP随笔新语法corresponding 
ls_test-aptyp = 'D'.
查看完整代码 
ls_test-aptyp = 'D'.
ABAP ABAP随笔新语法corresponding 
ls_test-status = '0'.
查看完整代码 
ls_test-status = '0'.
ABAP ABAP随笔新语法corresponding 
IF ls_test-aptyp = 'D' AND ls_test-status = '0' AND ls_test-datbi IS INITIAL.
查看完整代码 
IF ls_test-aptyp = 'D' AND ls_test-status = '0' AND ls_test-datbi IS INITIAL.
ABAP ABAP随笔新语法corresponding 
ls_test-datbi = sy-datum+0(6) && '01'."申請迄日
查看完整代码 
ls_test-datbi = sy-datum+0(6) && '01'."申請迄日
ABAP ABAP随笔新语法corresponding 
ENDIF.
查看完整代码 
ENDIF.
ABAP ABAP随笔新语法corresponding 
lt_data1 = CORRESPONDING #( lt_data1 FROM lt_data2 USING key = key ).
查看完整代码 
lt_data1 = CORRESPONDING #( lt_data1 FROM lt_data2 USING key = key ).
ABAP ABAP随笔新语法corresponding 
cl_demo_output=>display( data = lt_data1 ).
查看完整代码 
cl_demo_output=>display( data = lt_data1 ).
ABAP ABAP随笔新语法corresponding 
DATA:BEGIN OF customer_oa,
查看完整代码 
DATA:BEGIN OF customer_oa,
ABAP ABAP随笔新语法corresponding 
WRITE:/ 'sap:' , customer_sap .
查看完整代码 
WRITE:/ 'sap:' , customer_sap .
ABAP ABAP随笔新语法corresponding 
WRITE:/ 'oa:' , customer_oa.
查看完整代码 
WRITE:/ 'oa:' , customer_oa.
ABAP ABAP随笔物料主数据界面增强 
LOOP AT  gt_zmmt001
查看完整代码 
LOOP AT  gt_zmmt001
ABAP ABAP随笔物料主数据界面增强 
ENDLOOP  .
查看完整代码 
ENDLOOP  .
ABAP ABAP随笔物料主数据界面增强 
LOOP AT  G_TC_MM001_ITAB  .
查看完整代码 
LOOP AT  G_TC_MM001_ITAB  .
ABAP ABAP随笔物料主数据界面增强 
ENDCHAIN  .
ENDLOOP  .  _ "  _ _ 当触发子屏幕按钮或者滚轮时，不触发回车按钮及其他按钮  _
查看完整代码 
ENDCHAIN  .
ENDLOOP  .  _ "  _ _ 当触发子屏幕按钮或者滚轮时，不触发回车按钮及其他按钮  _
ABAP ABAP随笔物料主数据界面增强 
IF  (  sy  \-  tcode  =  'MM02'  OR  sy  \-  tcode  =  'MM03'  )  AND
查看完整代码 
IF  (  sy  \-  tcode  =  'MM02'  OR  sy  \-  tcode  =  'MM03'  )  AND
ABAP ABAP随笔物料主数据界面增强 
SELECT  *  FROM  zmmt001
查看完整代码 
SELECT  *  FROM  zmmt001
ABAP ABAP随笔物料主数据界面增强 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAP随笔物料主数据界面增强 
LOOP AT SCREEN  .
IF screen  \-  name  CS  'GS_ZMMT001-F'  .
查看完整代码 
LOOP AT SCREEN  .
IF screen  \-  name  CS  'GS_ZMMT001-F'  .
ABAP ABAP随笔物料主数据界面增强 
ENDCASE  .
ENDIF  .
查看完整代码 
ENDCASE  .
ENDIF  .
ABAP ABAP随笔物料主数据界面增强 
IF screen  \-  name  =  'GS_ZMMT001-MATNR'  OR screen  \-  name  =
查看完整代码 
IF screen  \-  name  =  'GS_ZMMT001-MATNR'  OR screen  \-  name  =
ABAP ABAP随笔物料主数据界面增强 
ENDIF  .
MODIFY SCREEN  .
ENDLOOP  .
ENDMODULE  .
查看完整代码 
ENDIF  .
MODIFY SCREEN  .
ENDLOOP  .
ENDMODULE  .
ABAP ABAP随笔物料主数据界面增强 
IF  sy  \-  ucomm  =  'TC_MM001_INSR'
查看完整代码 
IF  sy  \-  ucomm  =  'TC_MM001_INSR'
ABAP ABAP随笔物料主数据界面增强 
IF  <fs_bildflag> IS ASSIGNED  .
查看完整代码 
IF  <fs_bildflag> IS ASSIGNED  .
ABAP ABAP随笔物料主数据界面增强 
ENDIF  .
ENDIF  .
查看完整代码 
ENDIF  .
ENDIF  .
ABAP ABAP随笔物料主数据界面增强 
LOOP AT  gt_zmmt001  ASSIGNING FIELD  \-  SYMBOL  (  <fs_1> ).
查看完整代码 
LOOP AT  gt_zmmt001  ASSIGNING FIELD  \-  SYMBOL  (  <fs_1> ).
ABAP ABAP随笔物料主数据界面增强 
ENDLOOP  .
查看完整代码 
ENDLOOP  .
ABAP ABAP随笔物料主数据界面增强 
EXPORT  zmmt001  =  lt_zmmt001  TO MEMORY ID  'MERY_ZMMT001'  .
ENDMODULE  .
查看完整代码 
EXPORT  zmmt001  =  lt_zmmt001  TO MEMORY ID  'MERY_ZMMT001'  .
ENDMODULE  .
ABAP ABAP随笔物料主数据界面增强 
IF  sy  \-  ucomm  =  'BU'  OR  sy  \-  ucomm  =  'YES'  .
IMPORT  zmmt001  =  lt_zmmt001  FROM MEMORY ID  'MERY_ZMMT001'  .
查看完整代码 
IF  sy  \-  ucomm  =  'BU'  OR  sy  \-  ucomm  =  'YES'  .
IMPORT  zmmt001  =  lt_zmmt001  FROM MEMORY ID  'MERY_ZMMT001'  .
ABAP ABAP随笔物料主数据界面增强 
MODIFY  zmmt001  FROM TABLE  lt_zmmt001[]  .
查看完整代码 
MODIFY  zmmt001  FROM TABLE  lt_zmmt001[]  .
ABAP ABAP随笔物料主数据界面增强 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAP随笔物料主数据界面增强页签增强 
IF sy-tcode = 'MM02'
查看完整代码 
IF sy-tcode = 'MM02'
ABAP ABAP随笔物料主数据界面增强页签增强 
CALL FUNCTION 'MARA_GET_SUB'
查看完整代码 
CALL FUNCTION 'MARA_GET_SUB'
ABAP ABAP随笔物料主数据界面增强页签增强 
ENDIF.
IF sy-tcode = 'MM03'.
LOOP AT SCREEN.
查看完整代码 
ENDIF.
IF sy-tcode = 'MM03'.
LOOP AT SCREEN.
ABAP ABAP随笔物料主数据界面增强页签增强 
MODIFY SCREEN.
ENDLOOP.
ENDIF.
ENDMODULE.
查看完整代码 
MODIFY SCREEN.
ENDLOOP.
ENDIF.
ENDMODULE.
ABAP ABAP随笔物料主数据界面增强页签增强 
DATA:ls_cust TYPE ztab_mara_01 .
查看完整代码 
DATA:ls_cust TYPE ztab_mara_01 .
ABAP ABAP随笔物料主数据界面增强页签增强 
CALL FUNCTION 'MARA_GET_SUB'
查看完整代码 
CALL FUNCTION 'MARA_GET_SUB'
ABAP ABAP随笔物料主数据界面增强页签增强 
CALL FUNCTION 'MARA_SET_SUB'
查看完整代码 
CALL FUNCTION 'MARA_SET_SUB'
ABAP ABAP随笔物料主数据界面增强页签增强 
IF sy-ucomm = 'BU' OR sy-ucomm = 'YES'.
IF sy-tcode = 'MM01' OR sy-tcode = 'MM02'.
查看完整代码 
IF sy-ucomm = 'BU' OR sy-ucomm = 'YES'.
IF sy-tcode = 'MM01' OR sy-tcode = 'MM02'.
ABAP ABAP随笔物料主数据界面增强页签增强 
SELECT matnr INTO TABLE @DATA(lt_matnr)
查看完整代码 
SELECT matnr INTO TABLE @DATA(lt_matnr)
ABAP ABAP随笔物料主数据界面增强页签增强 
IF sy-subrc EQ 0.
DELETE lt_matnr WHERE matnr = wmara-matnr.
IF lt_matnr[] IS NOT INITIAL.
READ TABLE lt_matnr INDEX 1 INTO DATA(ls_matnr).
查看完整代码 
IF sy-subrc EQ 0.
DELETE lt_matnr WHERE matnr = wmara-matnr.
IF lt_matnr[] IS NOT INITIAL.
READ TABLE lt_matnr INDEX 1 INTO DATA(ls_matnr).
ABAP ABAP随笔物料主数据界面增强页签增强 
ENDIF.
ENDIF.
ENDIF.
ENDIF.
查看完整代码 
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ABAP ABAP随笔程序优化笔记 
SELECT * FROM LIPS INTO TABLE @ITAB  WHERE  ···  |  SELECT VBELN,POSNR,MATNR INTO TABLE @ITAB WHERE  ···
查看完整代码 
SELECT * FROM LIPS INTO TABLE @ITAB  WHERE  ···  |  SELECT VBELN,POSNR,MATNR INTO TABLE @ITAB WHERE  ···
ABAP ABAP随笔程序优化笔记 
SELECT  A  ~  MATNR A  ~  MTART A  ~  BISMT B  ~  MAKTX  INTO TABLE  LT_MA
查看完整代码 
SELECT  A  ~  MATNR A  ~  MTART A  ~  BISMT B  ~  MAKTX  INTO TABLE  LT_MA
ABAP ABAP随笔程序优化笔记 
IF  LV_LINES  LE  3000  .
SELECT  PARTNER NAME_ORG1  FROM  BUT000  INTO TABLE  LT_BUT000
查看完整代码 
IF  LV_LINES  LE  3000  .
SELECT  PARTNER NAME_ORG1  FROM  BUT000  INTO TABLE  LT_BUT000
ABAP ABAP随笔程序优化笔记 
LOOP AT  LT_PARTNER  INTO DATA  (  LS_PARTNER  ).
查看完整代码 
LOOP AT  LT_PARTNER  INTO DATA  (  LS_PARTNER  ).
ABAP ABAP随笔程序优化笔记 
APPEND  LS_PARTNER  TO  LT_PARTNER_TMP  .
IF  LV_TIMES  GE  3000  .
查看完整代码 
APPEND  LS_PARTNER  TO  LT_PARTNER_TMP  .
IF  LV_TIMES  GE  3000  .
ABAP ABAP随笔程序优化笔记 
SELECT  PARTNER NAME_ORG1  FROM  BUT000  APPENDING TABLE  LT_BUT000
查看完整代码 
SELECT  PARTNER NAME_ORG1  FROM  BUT000  APPENDING TABLE  LT_BUT000
ABAP ABAP随笔程序优化笔记 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAP随笔程序优化笔记 
SELECT  PARTNER NAME_ORG1  FROM  BUT000  APPENDING TABLE  LT_BUT000
查看完整代码 
SELECT  PARTNER NAME_ORG1  FROM  BUT000  APPENDING TABLE  LT_BUT000
ABAP ABAP随笔程序优化笔记 
ENDAT  .
ENDLOOP  .
ENDIF  .
查看完整代码 
ENDAT  .
ENDLOOP  .
ENDIF  .
ABAP ABAP随笔程序优化笔记 
IF  SY  \-  SUBRC  EQ  0  .
查看完整代码 
IF  SY  \-  SUBRC  EQ  0  .
ABAP ABAP随笔程序优化笔记 
LOOP AT  LT_DN  INTO  LS_DN  FROM  LV_TABIX  .
IF  LS_DN-V  BELN  =  <FS> \-  VBELN  .
查看完整代码 
LOOP AT  LT_DN  INTO  LS_DN  FROM  LV_TABIX  .
IF  LS_DN-V  BELN  =  <FS> \-  VBELN  .
ABAP ABAP随笔程序优化笔记 
ENDIF  .
ENDLOOP  .
ENDIF  .  ENDLOOP.
查看完整代码 
ENDIF  .
ENDLOOP  .
ENDIF  .  ENDLOOP.
ABAP ABAP随笔程序优化笔记 
LOOP AT  LT_DATA  ASSIGNING FIELD  \-  SYMBOL  (  <FS> ).
READ TABLE  LT_DATA_1  TRANSPORTING NO FIELDS WITH KEY  VBELN_DN  =  <FS> \-
查看完整代码 
LOOP AT  LT_DATA  ASSIGNING FIELD  \-  SYMBOL  (  <FS> ).
READ TABLE  LT_DATA_1  TRANSPORTING NO FIELDS WITH KEY  VBELN_DN  =  <FS> \-
ABAP ABAP随笔程序优化笔记 
IF  SY  \-  SUBRC <> 0  .
查看完整代码 
IF  SY  \-  SUBRC <> 0  .
ABAP ABAP随笔程序优化笔记 
ENDIF  .
ENDLOOP  .  DELETE  LT_DATA  WHERE  DEL_FLG  =  'X'  .
查看完整代码 
ENDIF  .
ENDLOOP  .  DELETE  LT_DATA  WHERE  DEL_FLG  =  'X'  .
ABAP ABAP随笔程序优化笔记 
SELECT  A  ~  VBELN  AS  VBELN_DN  ,  B  ~  ERDAT  ,  A  ~  POSNR  AS
查看完整代码 
SELECT  A  ~  VBELN  AS  VBELN_DN  ,  B  ~  ERDAT  ,  A  ~  POSNR  AS
ABAP ABAP随笔程序优化笔记 
LOOP AT  LT_DATA  ASSIGNING FIELD  \-  SYMBOL  (  <FS> ).
查看完整代码 
LOOP AT  LT_DATA  ASSIGNING FIELD  \-  SYMBOL  (  <FS> ).
ABAP ABAP随笔程序优化笔记 
ENDLOOP  .
查看完整代码 
ENDLOOP  .
ABAP ABAP随笔程序优化笔记 
LOOP AT  LT_DATA  ASSIGNING FIELD  \-  SYMBOL  (  <FS1> )  GROUP BY  (  MATNR
查看完整代码 
LOOP AT  LT_DATA  ASSIGNING FIELD  \-  SYMBOL  (  <FS1> )  GROUP BY  (  MATNR
ABAP ABAP随笔程序优化笔记 
LOOP AT GROUP  <GROUP> ASSIGNING FIELD  \-  SYMBOL  (  <FS2> ).
查看完整代码 
LOOP AT GROUP  <GROUP> ASSIGNING FIELD  \-  SYMBOL  (  <FS2> ).
ABAP ABAP随笔程序优化笔记 
ENDLOOP  .
APPEND  LS_MATNR  TO  LT_MATNR  .
查看完整代码 
ENDLOOP  .
APPEND  LS_MATNR  TO  LT_MATNR  .
ABAP ABAP随笔程序优化笔记 
ENDLOOP  .
查看完整代码 
ENDLOOP  .
ABAP ABAP随笔程序优化笔记 
END OF  LS_MATNR  .
查看完整代码 
END OF  LS_MATNR  .
ABAP ABAP随笔程序优化笔记 
SELECT  MATNR  ,  SUM  (  LFIMG  )  INTO TABLE  @LT_MATNR
查看完整代码 
SELECT  MATNR  ,  SUM  (  LFIMG  )  INTO TABLE  @LT_MATNR
ABAP ABAP随笔简单DEBUG 
输入变量和可用的条件值，当  ls_data-matnr= ‘A001’  的时候，程序会自动触发断点停住
查看完整代码 
输入变量和可用的条件值，当  ls_data-matnr= ‘A001’  的时候，程序会自动触发断点停住
ABAP ABAP随笔获取标准报表数据MB52数据进行客制ALV 
6 cl_salv_bs_runtime_info=>set(
查看完整代码 
6 cl_salv_bs_runtime_info=>set(
ABAP ABAP随笔获取标准报表数据MB52数据进行客制ALV 
35       cl_salv_bs_runtime_info=>get_data_ref(
36         IMPORTING r_data = ls_mb52 ).
查看完整代码 
35       cl_salv_bs_runtime_info=>get_data_ref(
36         IMPORTING r_data = ls_mb52 ).
ABAP ABAP随笔获取标准报表数据MB52数据进行客制ALV 
44   cl_salv_bs_runtime_info=>clear_all( ).
查看完整代码 
44   cl_salv_bs_runtime_info=>clear_all( ).
ABAP ABAP随笔获取标准报表数据MB52数据进行客制ALV 
9      WHERE a~matnr = lt_mawk_tmp-matnr
10        AND m~werks = lt_mawk_tmp-werks .
查看完整代码 
9      WHERE a~matnr = lt_mawk_tmp-matnr
10        AND m~werks = lt_mawk_tmp-werks .
ABAP ABAP随笔通过api获取新冠数据 
METHOD  init  .
查看完整代码 
METHOD  init  .
ABAP ABAP随笔通过api获取新冠数据 
CALL  METHOD  cl_http_client  => create_by_url
查看完整代码 
CALL  METHOD  cl_http_client  => create_by_url
ABAP ABAP随笔通过api获取新冠数据 
CALL  METHOD  http_client  -> send
查看完整代码 
CALL  METHOD  http_client  -> send
ABAP ABAP随笔通过api获取新冠数据 
CALL  METHOD  http_client  -> receive
查看完整代码 
CALL  METHOD  http_client  -> receive
ABAP ABAP随笔通过api获取新冠数据 
IF  <code> NE  200  .  "调用api消息失败，
查看完整代码 
IF  <code> NE  200  .  "调用api消息失败，
ABAP ABAP随笔通过api获取新冠数据 
wa_message  \-  type  =  'E'  .
wa_message  \-  id  =  'ZJXZHU'  .
wa_message  \-  number  =  003  .
wa_message  \-  message_v1  =  <code> .
查看完整代码 
wa_message  \-  type  =  'E'  .
wa_message  \-  id  =  'ZJXZHU'  .
wa_message  \-  number  =  003  .
wa_message  \-  message_v1  =  <code> .
ABAP ABAP随笔通过api获取新冠数据 
wa_message  \-  message_v2  =  <msg> .
CALL  METHOD  server  -> api_message_create
查看完整代码 
wa_message  \-  message_v2  =  <msg> .
CALL  METHOD  server  -> api_message_create
ABAP ABAP随笔通过api获取新冠数据 
message  =  wa_message  .
查看完整代码 
message  =  wa_message  .
ABAP ABAP随笔通过api获取新冠数据 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP ABAP随笔通过api获取新冠数据 
IF  sy  \-  subrc  EQ  0  .
lr_data  =  <list> .
查看完整代码 
IF  sy  \-  subrc  EQ  0  .
lr_data  =  <list> .
ABAP ABAP随笔通过api获取新冠数据 
IF  sy  \-  subrc  EQ  0  .
LOOP  AT  <table> ASSIGNING  FIELD  \-  SYMBOL  (  <table_line> )  .
查看完整代码 
IF  sy  \-  subrc  EQ  0  .
LOOP  AT  <table> ASSIGNING  FIELD  \-  SYMBOL  (  <table_line> )  .
ABAP ABAP随笔通过api获取新冠数据 
APPEND  INITIAL  LINE  TO  gt_data  ASSIGNING  FIELD  \-  SYMBOL  (  <fs_data>
查看完整代码 
APPEND  INITIAL  LINE  TO  gt_data  ASSIGNING  FIELD  \-  SYMBOL  (  <fs_data>
ABAP ABAP随笔通过api获取新冠数据 
lr_struct ?= cl_abap_typedescr  => describe_by_data  (  <data> )  .
lt_comps_wa  =  lr_struct  -> components  .
LOOP  AT  lt_comps_wa  INTO  DATA  (  ls_comps_wa  )  .
查看完整代码 
lr_struct ?= cl_abap_typedescr  => describe_by_data  (  <data> )  .
lt_comps_wa  =  lr_struct  -> components  .
LOOP  AT  lt_comps_wa  INTO  DATA  (  ls_comps_wa  )  .
ABAP ABAP随笔通过api获取新冠数据 
IF  sy  \-  subrc  EQ  0  .
查看完整代码 
IF  sy  \-  subrc  EQ  0  .
ABAP ABAP随笔通过api获取新冠数据 
IF  sy  \-  subrc  EQ  0  .
查看完整代码 
IF  sy  \-  subrc  EQ  0  .
ABAP ABAP随笔通过api获取新冠数据 
IF  sy  \-  subrc  EQ  0  .
查看完整代码 
IF  sy  \-  subrc  EQ  0  .
ABAP ABAP随笔通过api获取新冠数据 
ENDIF  .
ENDIF  .
ENDIF  .
ENDLOOP  .
ENDLOOP  .
ENDIF  .
ENDIF  .
查看完整代码 
ENDIF  .
ENDIF  .
ENDIF  .
ENDLOOP  .
ENDLOOP  .
ENDIF  .
ENDIF  .
ABAP ABAP随笔通过api获取新冠数据 
ENDMETHOD  .
查看完整代码 
ENDMETHOD  .
ABAP ABAP零碎知识1 
READ TABLE itab WITH KEY f1 = 'A' BINARY SEARCH.
查看完整代码 
READ TABLE itab WITH KEY f1 = 'A' BINARY SEARCH.
ABAP ABAP零碎知识2 
IF <fs> IS ASSIGNED.
查看完整代码 
IF <fs> IS ASSIGNED.
ABAP ABAP零碎知识2 
ENDIF.
查看完整代码 
ENDIF.
ABAP ABAP零碎知识2 
IF <fs> IS ASSIGNED.
查看完整代码 
IF <fs> IS ASSIGNED.
ABAP ABAP零碎知识2 
ENDIF.
查看完整代码 
ENDIF.
ABAP ABAP零碎知识2 
CALL FUNCTION 'ZTEST001'.
查看完整代码 
CALL FUNCTION 'ZTEST001'.
ABAP ABAP零碎知识2 
IF frac( menge ) = 0.
查看完整代码 
IF frac( menge ) = 0.
ABAP ABAP零碎知识2 
ENDIF.
查看完整代码 
ENDIF.
ABAP ABAP零碎知识2 
SELECT SINGLE * FOR UPDATE 不能用在IN UPDATE TASK中
查看完整代码 
SELECT SINGLE * FOR UPDATE 不能用在IN UPDATE TASK中
ABAP ABAP零碎知识3 
DATA: itab TYPE TABLE OF matnr WITH HEADER LINE.
查看完整代码 
DATA: itab TYPE TABLE OF matnr WITH HEADER LINE.
ABAP ABAP零碎知识3 
使用：READ TABLE itab WITH KEY table_line = ''.
查看完整代码 
使用：READ TABLE itab WITH KEY table_line = ''.
ABAP ABAP零碎知识3 
IF substring( val = str off = strlen( str ) - 1 len = 1 ) = '*'.
查看完整代码 
IF substring( val = str off = strlen( str ) - 1 len = 1 ) = '*'.
ABAP ABAP零碎知识3 
ENDIF.
查看完整代码 
ENDIF.
ABAP ABAP零碎知识3 
LOOP AT itab WHERE (stt).
查看完整代码 
LOOP AT itab WHERE (stt).
ABAP ABAP零碎知识3 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP ABAP零碎知识3 
IF sy-subrc = 0.
查看完整代码 
IF sy-subrc = 0.
ABAP ABAP零碎知识3 
ENDIF.
查看完整代码 
ENDIF.
ABAP ABAP零碎知识4 
LOOP AT hs_tab.
查看完整代码 
LOOP AT hs_tab.
ABAP ABAP零碎知识4 
MODIFY TABLE hs_tab .
查看完整代码 
MODIFY TABLE hs_tab .
ABAP ABAP零碎知识4 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP ABAP零碎知识4 
SELECT DISTINCT vkorg vtwku INTO TABLE it_tvta FROM tvta
查看完整代码 
SELECT DISTINCT vkorg vtwku INTO TABLE it_tvta FROM tvta
ABAP ABAP零碎知识5 
需要列名的时候：READ TABLE itab WITH KEY table_line = ''.
查看完整代码 
需要列名的时候：READ TABLE itab WITH KEY table_line = ''.
ABAP ABAP零碎知识6 
TYPES: CXTAB_COLUMN type scxtab_column,
查看完整代码 
TYPES: CXTAB_COLUMN type scxtab_column,
ABAP ABAP零碎知识6 
CALL FUNCTION: 'CONTROL_INIT',
查看完整代码 
CALL FUNCTION: 'CONTROL_INIT',
ABAP ABAP零碎知识6 
CALL FUNCTION 'ENQUE_SLEEP'
查看完整代码 
CALL FUNCTION 'ENQUE_SLEEP'
ABAP ABAP零碎知识6 
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
查看完整代码 
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
ABAP ALSM_EXCEL_TO_INTERNAL_TABLE 
when 1. wa_itab-col1 = value
查看完整代码 
when 1. wa_itab-col1 = value
ABAP ALSM_EXCEL_TO_INTERNAL_TABLE 
when 2. wa_itab-col2 = value.
查看完整代码 
when 2. wa_itab-col2 = value.
ABAP ALSM_EXCEL_TO_INTERNAL_TABLE 
APPEND wa_itab to itab.
查看完整代码 
APPEND wa_itab to itab.
ABAP ALSM_EXCEL_TO_INTERNAL_TABLE 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP ALSM_EXCEL_TO_INTERNAL_TABLE 
FUNCTION zxls_into_it_2.
查看完整代码 
FUNCTION zxls_into_it_2.
ABAP ALSM_EXCEL_TO_INTERNAL_TABLE 
DATA:new_line    TYPE REF TO data,
查看完整代码 
DATA:new_line    TYPE REF TO data,
ABAP ALSM_EXCEL_TO_INTERNAL_TABLE 
CALL METHOD cl_alv_table_create=>create_dynamic_table
查看完整代码 
CALL METHOD cl_alv_table_create=>create_dynamic_table
ABAP ALSM_EXCEL_TO_INTERNAL_TABLE 
ENDIF.
查看完整代码 
ENDIF.
ABAP ALSM_EXCEL_TO_INTERNAL_TABLE 
ENDIF.
查看完整代码 
ENDIF.
ABAP ALSM_EXCEL_TO_INTERNAL_TABLE 
LOOP AT t_file INTO wa_file.
查看完整代码 
LOOP AT t_file INTO wa_file.
ABAP ALSM_EXCEL_TO_INTERNAL_TABLE 
*******for every iteration, wa_file-col will have increment till number of columns in Excel file and then reset to 1 when there’s new row i.e row = 1. (Refer example at end of blog)
查看完整代码 
*******for every iteration, wa_file-col will have increment till number of columns in Excel file and then reset to 1 when there’s new row i.e row = 1. (Refer example at end of blog)
ABAP ALSM_EXCEL_TO_INTERNAL_TABLE 
<fs_current_field> = wa_file–value.
查看完整代码 
<fs_current_field> = wa_file–value.
ABAP ALSM_EXCEL_TO_INTERNAL_TABLE 
ENDIF.
查看完整代码 
ENDIF.
ABAP ALSM_EXCEL_TO_INTERNAL_TABLE 
APPEND <wa_temp> TO it_xls_data.
查看完整代码 
APPEND <wa_temp> TO it_xls_data.
ABAP ALSM_EXCEL_TO_INTERNAL_TABLE 
ENDLOOP.
ENDIF.
ENDIF.
ENDFUNCTION.
查看完整代码 
ENDLOOP.
ENDIF.
ENDIF.
ENDFUNCTION.
ABAP ALV drilldown report to ME23N 
REPORT  zalvgrid_drilldown                  .
查看完整代码 
REPORT  zalvgrid_drilldown                  .
ABAP ALV drilldown report to ME23N 
TABLES:     ekko.
查看完整代码 
TABLES:     ekko.
ABAP ALV drilldown report to ME23N 
TYPES: BEGIN OF t_ekko,
查看完整代码 
TYPES: BEGIN OF t_ekko,
ABAP ALV drilldown report to ME23N 
DATA: it_ekko TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,
查看完整代码 
DATA: it_ekko TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,
ABAP ALV drilldown report to ME23N 
DATA: fieldcatalog TYPE slis_t_fieldcat_alv WITH HEADER LINE,
查看完整代码 
DATA: fieldcatalog TYPE slis_t_fieldcat_alv WITH HEADER LINE,
ABAP ALV drilldown report to ME23N 
FORM build_fieldcatalog.
查看完整代码 
FORM build_fieldcatalog.
ABAP ALV drilldown report to ME23N 
APPEND fieldcatalog TO fieldcatalog.
查看完整代码 
APPEND fieldcatalog TO fieldcatalog.
ABAP ALV drilldown report to ME23N 
APPEND fieldcatalog TO fieldcatalog.
查看完整代码 
APPEND fieldcatalog TO fieldcatalog.
ABAP ALV drilldown report to ME23N 
APPEND fieldcatalog TO fieldcatalog.
查看完整代码 
APPEND fieldcatalog TO fieldcatalog.
ABAP ALV drilldown report to ME23N 
APPEND fieldcatalog TO fieldcatalog.
查看完整代码 
APPEND fieldcatalog TO fieldcatalog.
ABAP ALV drilldown report to ME23N 
APPEND fieldcatalog TO fieldcatalog.
查看完整代码 
APPEND fieldcatalog TO fieldcatalog.
ABAP ALV drilldown report to ME23N 
APPEND fieldcatalog TO fieldcatalog.
查看完整代码 
APPEND fieldcatalog TO fieldcatalog.
ABAP ALV drilldown report to ME23N 
APPEND fieldcatalog TO fieldcatalog.
查看完整代码 
APPEND fieldcatalog TO fieldcatalog.
ABAP ALV drilldown report to ME23N 
APPEND fieldcatalog TO fieldcatalog.
查看完整代码 
APPEND fieldcatalog TO fieldcatalog.
ABAP ALV drilldown report to ME23N 
APPEND fieldcatalog TO fieldcatalog.
查看完整代码 
APPEND fieldcatalog TO fieldcatalog.
ABAP ALV drilldown report to ME23N 
ENDFORM.                    " BUILD_FIELDCATALOG
查看完整代码 
ENDFORM.                    " BUILD_FIELDCATALOG
ABAP ALV drilldown report to ME23N 
FORM build_layout.
查看完整代码 
FORM build_layout.
ABAP ALV drilldown report to ME23N 
gd_layout-totals_text       = 'Totals'(201).
查看完整代码 
gd_layout-totals_text       = 'Totals'(201).
ABAP ALV drilldown report to ME23N 
*  gd_layout-totals_only        = 'X'.
查看完整代码 
*  gd_layout-totals_only        = 'X'.
ABAP ALV drilldown report to ME23N 
ENDFORM.                    " BUILD_LAYOUT
查看完整代码 
ENDFORM.                    " BUILD_LAYOUT
ABAP ALV drilldown report to ME23N 
FORM display_alv_report.
查看完整代码 
FORM display_alv_report.
ABAP ALV drilldown report to ME23N 
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
查看完整代码 
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
ABAP ALV drilldown report to ME23N 
IF sy-subrc <> 0.
查看完整代码 
IF sy-subrc <> 0.
ABAP ALV drilldown report to ME23N 
ENDIF.
查看完整代码 
ENDIF.
ABAP ALV drilldown report to ME23N 
ENDFORM.                    " DISPLAY_ALV_REPORT
查看完整代码 
ENDFORM.                    " DISPLAY_ALV_REPORT
ABAP ALV drilldown report to ME23N 
FORM data_retrieval.
查看完整代码 
FORM data_retrieval.
ABAP ALV drilldown report to ME23N 
SELECT ebeln ebelp statu aedat matnr menge meins netpr peinh
查看完整代码 
SELECT ebeln ebelp statu aedat matnr menge meins netpr peinh
ABAP ALV drilldown report to ME23N 
ENDFORM.                    " DATA_RETRIEVAL
查看完整代码 
ENDFORM.                    " DATA_RETRIEVAL
ABAP ALV drilldown report to ME23N 
FORM top-of-page.
查看完整代码 
FORM top-of-page.
ABAP ALV drilldown report to ME23N 
DATA: t_header TYPE slis_t_listheader,
查看完整代码 
DATA: t_header TYPE slis_t_listheader,
ABAP ALV drilldown report to ME23N 
wa_header-typ  = 'H'.
查看完整代码 
wa_header-typ  = 'H'.
ABAP ALV drilldown report to ME23N 
wa_header-info = 'EKKO Table Report'.
查看完整代码 
wa_header-info = 'EKKO Table Report'.
ABAP ALV drilldown report to ME23N 
APPEND wa_header TO t_header.
查看完整代码 
APPEND wa_header TO t_header.
ABAP ALV drilldown report to ME23N 
wa_header-typ  = 'S'.
查看完整代码 
wa_header-typ  = 'S'.
ABAP ALV drilldown report to ME23N 
wa_header-key = 'Date: '.
查看完整代码 
wa_header-key = 'Date: '.
ABAP ALV drilldown report to ME23N 
APPEND wa_header TO t_header.
查看完整代码 
APPEND wa_header TO t_header.
ABAP ALV drilldown report to ME23N 
wa_header-typ  = 'A'.
查看完整代码 
wa_header-typ  = 'A'.
ABAP ALV drilldown report to ME23N 
wa_header-info = t_line.
查看完整代码 
wa_header-info = t_line.
ABAP ALV drilldown report to ME23N 
APPEND wa_header TO t_header.
查看完整代码 
APPEND wa_header TO t_header.
ABAP ALV drilldown report to ME23N 
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
查看完整代码 
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
ABAP ALV drilldown report to ME23N 
ENDFORM.                    "top-of-page
查看完整代码 
ENDFORM.                    "top-of-page
ABAP ALV drilldown report to ME23N 
FORM user_command USING r_ucomm LIKE sy-ucomm
查看完整代码 
FORM user_command USING r_ucomm LIKE sy-ucomm
ABAP ALV drilldown report to ME23N 
IF rs_selfield-fieldname = 'EBELN'.
查看完整代码 
IF rs_selfield-fieldname = 'EBELN'.
ABAP ALV drilldown report to ME23N 
READ TABLE it_ekko INTO wa_ekko INDEX rs_selfield-tabindex.
查看完整代码 
READ TABLE it_ekko INTO wa_ekko INDEX rs_selfield-tabindex.
ABAP ALV drilldown report to ME23N 
ENDIF.
查看完整代码 
ENDIF.
ABAP ALV drilldown report to ME23N 
ENDFORM.                    "user_command
查看完整代码 
ENDFORM.                    "user_command
ABAP ALV drilldown report to ME23N 
FORM build_events.
查看完整代码 
FORM build_events.
ABAP ALV drilldown report to ME23N 
DATA: ls_event TYPE slis_alv_event.
查看完整代码 
DATA: ls_event TYPE slis_alv_event.
ABAP ALV drilldown report to ME23N 
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
查看完整代码 
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
ABAP ALV drilldown report to ME23N 
READ TABLE gt_events WITH KEY name =  slis_ev_end_of_page
查看完整代码 
READ TABLE gt_events WITH KEY name =  slis_ev_end_of_page
ABAP ALV drilldown report to ME23N 
IF sy-subrc = 0.
查看完整代码 
IF sy-subrc = 0.
ABAP ALV drilldown report to ME23N 
APPEND ls_event TO gt_events.
查看完整代码 
APPEND ls_event TO gt_events.
ABAP ALV drilldown report to ME23N 
ENDIF.
查看完整代码 
ENDIF.
ABAP ALV drilldown report to ME23N 
READ TABLE gt_events WITH KEY name =  slis_ev_end_of_list
查看完整代码 
READ TABLE gt_events WITH KEY name =  slis_ev_end_of_list
ABAP ALV drilldown report to ME23N 
IF sy-subrc = 0.
查看完整代码 
IF sy-subrc = 0.
ABAP ALV drilldown report to ME23N 
APPEND ls_event TO gt_events.
查看完整代码 
APPEND ls_event TO gt_events.
ABAP ALV drilldown report to ME23N 
ENDIF.
查看完整代码 
ENDIF.
ABAP ALV drilldown report to ME23N 
ENDFORM.                    " BUILD_EVENTS
查看完整代码 
ENDFORM.                    " BUILD_EVENTS
ABAP ALV drilldown report to ME23N 
FORM build_print_params.
查看完整代码 
FORM build_print_params.
ABAP ALV drilldown report to ME23N 
ENDFORM.                    " BUILD_PRINT_PARAMS
查看完整代码 
ENDFORM.                    " BUILD_PRINT_PARAMS
ABAP ALV 
FORM get_flight_schedule.
查看完整代码 
FORM get_flight_schedule.
ABAP ALV 
SELECT * FROM spfli INTO TABLE flight_schedule UP TO 100 ROWS.
查看完整代码 
SELECT * FROM spfli INTO TABLE flight_schedule UP TO 100 ROWS.
ABAP ALV 
ENDFORM.                    " GET_FLIGHT_SCHEDULE
查看完整代码 
ENDFORM.                    " GET_FLIGHT_SCHEDULE
ABAP ALV 
FORM initialize_alv.
查看完整代码 
FORM initialize_alv.
ABAP ALV 
cl_salv_table=>factory(
查看完整代码 
cl_salv_table=>factory(
ABAP ALV 
r_salv_table = alv
查看完整代码 
r_salv_table = alv
ABAP ALV 
CATCH cx_salv_msg INTO message.
查看完整代码 
CATCH cx_salv_msg INTO message.
ABAP ALV 
ENDFORM.                    " INITIALIZE_ALV
查看完整代码 
ENDFORM.                    " INITIALIZE_ALV
ABAP ALV 
FORM display_alv.
查看完整代码 
FORM display_alv.
ABAP ALV 
ENDFORM.                    " DISPLAY_ALV
查看完整代码 
ENDFORM.                    " DISPLAY_ALV
ABAP ALV 
REPORT zdemo_alv01.
查看完整代码 
REPORT zdemo_alv01.
ABAP ALV复制内容到剪贴板 
FORM  user_command  USING  r_ucomm  LIKE  sy  \-  ucomm
查看完整代码 
FORM  user_command  USING  r_ucomm  LIKE  sy  \-  ucomm
ABAP ALV复制内容到剪贴板 
ENDCASE  .
ENDFORM  .
查看完整代码 
ENDCASE  .
ENDFORM  .
ABAP Activating Generic Object Services Toolbar in SAP Objects 
DATA: LR_GOS_MANAGER TYPE REF TO CL_GOS_MANAGER,
查看完整代码 
DATA: LR_GOS_MANAGER TYPE REF TO CL_GOS_MANAGER,
ABAP Activating Generic Object Services Toolbar in SAP Objects 
DATA: LR_GOS_MANAGER TYPE REF TO CL_GOS_MANAGER,
查看完整代码 
DATA: LR_GOS_MANAGER TYPE REF TO CL_GOS_MANAGER,
ABAP Activating Generic Object Services Toolbar in SAP Objects 
DATA: LR_GOS_MANAGER TYPE REF TO CL_GOS_MANAGER,
查看完整代码 
DATA: LR_GOS_MANAGER TYPE REF TO CL_GOS_MANAGER,
ABAP Add a Selection Screen to a Table Maintenance Dialog 
PARAMETERS: p_param1 TYPE z_mytable–myfield3,
查看完整代码 
PARAMETERS: p_param1 TYPE z_mytable–myfield3,
ABAP Add a Selection Screen to a Table Maintenance Dialog 
ENDIF.
查看完整代码 
ENDIF.
ABAP Add a Selection Screen to a Table Maintenance Dialog 
ENDIF.
查看完整代码 
ENDIF.
ABAP Adding Incompletion log entries to Incompletion Log Internal Table XVBUV 
READ TABLE xvbuv ASSIGNING <ls_xvbuv> WITH KEY vbeln = vbak–vbeln
查看完整代码 
READ TABLE xvbuv ASSIGNING <ls_xvbuv> WITH KEY vbeln = vbak–vbeln
ABAP Adding Incompletion log entries to Incompletion Log Internal Table XVBUV 
ENDIF.
查看完整代码 
ENDIF.
ABAP Adding Incompletion log entries to Incompletion Log Internal Table XVBUV 
ENDIF.
查看完整代码 
ENDIF.
ABAP Adding Incompletion log entries to Incompletion Log Internal Table XVBUV 
ENDIF.
查看完整代码 
ENDIF.
ABAP Adding Incompletion log entries to Incompletion Log Internal Table XVBUV 
ENDIF.
查看完整代码 
ENDIF.
ABAP Adding Incompletion log entries to Incompletion Log Internal Table XVBUV 
DATA: ls_tvuvf TYPE tvuvf.
查看完整代码 
DATA: ls_tvuvf TYPE tvuvf.
ABAP Adding Incompletion log entries to Incompletion Log Internal Table XVBUV 
READ TABLE xvbuv TRANSPORTING NO FIELDS WITH KEY vbeln = vbak–vbeln
查看完整代码 
READ TABLE xvbuv TRANSPORTING NO FIELDS WITH KEY vbeln = vbak–vbeln
ABAP Adding Incompletion log entries to Incompletion Log Internal Table XVBUV 
SELECT SINGLE *
查看完整代码 
SELECT SINGLE *
ABAP Adding Incompletion log entries to Incompletion Log Internal Table XVBUV 
xvbuv–tbnam = ls_tvuvf–tbnam.
xvbuv–fdnam = ls_tvuvf–fdnam.
查看完整代码 
xvbuv–tbnam = ls_tvuvf–tbnam.
xvbuv–fdnam = ls_tvuvf–fdnam.
ABAP Adding Incompletion log entries to Incompletion Log Internal Table XVBUV 
xvbuv–statg = ls_tvuvf–statg.
xvbuv–msgkz = ls_tvuvf–msgkz.
xvbuv–sortf = ls_tvuvf–sortf.
查看完整代码 
xvbuv–statg = ls_tvuvf–statg.
xvbuv–msgkz = ls_tvuvf–msgkz.
xvbuv–sortf = ls_tvuvf–sortf.
ABAP Adding Incompletion log entries to Incompletion Log Internal Table XVBUV 
ENDIF.
查看完整代码 
ENDIF.
ABAP Adding Incompletion log entries to Incompletion Log Internal Table XVBUV 
ENDIF.
查看完整代码 
ENDIF.
ABAP Adding Incompletion log entries to Incompletion Log Internal Table XVBUV 
READ TABLE xvbuv ASSIGNING <ls_xvbuv> WITH KEY vbeln = vbak–vbeln
查看完整代码 
READ TABLE xvbuv ASSIGNING <ls_xvbuv> WITH KEY vbeln = vbak–vbeln
ABAP Adding Incompletion log entries to Incompletion Log Internal Table XVBUV 
ENDIF.
查看完整代码 
ENDIF.
ABAP Adding Incompletion log entries to Incompletion Log Internal Table XVBUV 
ENDIF.
查看完整代码 
ENDIF.
ABAP Adding Incompletion log entries to Incompletion Log Internal Table XVBUV 
ENDIF.
查看完整代码 
ENDIF.
ABAP Adding Incompletion log entries to Incompletion Log Internal Table XVBUV 
ENDIF.
查看完整代码 
ENDIF.
ABAP Adding multiple messages in MIGO transaction via MB_CHECK_LINE_BADI 
DATA:
查看完整代码 
DATA:
ABAP Adding multiple messages in MIGO transaction via MB_CHECK_LINE_BADI 
APPEND VALUE #( type = 'E' id = 'SY' number = 614 ) to lt_message.
查看完整代码 
APPEND VALUE #( type = 'E' id = 'SY' number = 614 ) to lt_message.
ABAP Adding multiple messages in MIGO transaction via MB_CHECK_LINE_BADI 
APPEND VALUE #( type = 'E' id = 'SY' number = 615 ) to lt_message.
查看完整代码 
APPEND VALUE #( type = 'E' id = 'SY' number = 615 ) to lt_message.
ABAP Adding multiple messages in MIGO transaction via MB_CHECK_LINE_BADI 
APPEND VALUE #( type = 'E' id = 'SY' number = 616 ) to lt_message.
查看完整代码 
APPEND VALUE #( type = 'E' id = 'SY' number = 616 ) to lt_message.
ABAP Adding multiple messages in MIGO transaction via MB_CHECK_LINE_BADI 
LOOP AT lt_message ASSIGNING FIELD-SYMBOL(<fs_msg>).
查看完整代码 
LOOP AT lt_message ASSIGNING FIELD-SYMBOL(<fs_msg>).
ABAP Adding multiple messages in MIGO transaction via MB_CHECK_LINE_BADI 
APPEND INITIAL LINE TO lt_emseg ASSIGNING FIELD-SYMBOL(<fs_mseg>).
查看完整代码 
APPEND INITIAL LINE TO lt_emseg ASSIGNING FIELD-SYMBOL(<fs_mseg>).
ABAP Adding multiple messages in MIGO transaction via MB_CHECK_LINE_BADI 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP Adding multiple messages in MIGO transaction via MB_CHECK_LINE_BADI 
IF <ft_emseg> IS ASSIGNED.
查看完整代码 
IF <ft_emseg> IS ASSIGNED.
ABAP Adding multiple messages in MIGO transaction via MB_CHECK_LINE_BADI 
APPEND LINES OF lt_emseg TO <ft_emseg>.
查看完整代码 
APPEND LINES OF lt_emseg TO <ft_emseg>.
ABAP Adding multiple messages in MIGO transaction via MB_CHECK_LINE_BADI 
ENDIF.
查看完整代码 
ENDIF.
ABAP Adding multiple messages in MIGO transaction via MB_CHECK_LINE_BADI 
DATA:    ls_log_filter          TYPE bal_s_lfil,
查看完整代码 
DATA:    ls_log_filter          TYPE bal_s_lfil,
ABAP Adding multiple messages in MIGO transaction via MB_CHECK_LINE_BADI 
APPEND INITIAL LINE TO ls_log_filter-object ASSIGNING FIELD-SYMBOL(<ls_log_search_object>).
查看完整代码 
APPEND INITIAL LINE TO ls_log_filter-object ASSIGNING FIELD-SYMBOL(<ls_log_search_object>).
ABAP Adding multiple messages in MIGO transaction via MB_CHECK_LINE_BADI 
<ls_log_search_object> = VALUE #( sign    = if_slad_select_options=>C_SIGNs-including
查看完整代码 
<ls_log_search_object> = VALUE #( sign    = if_slad_select_options=>C_SIGNs-including
ABAP Adding multiple messages in MIGO transaction via MB_CHECK_LINE_BADI 
CALL FUNCTION 'BAL_GLB_SEARCH_LOG'
查看完整代码 
CALL FUNCTION 'BAL_GLB_SEARCH_LOG'
ABAP Adding multiple messages in MIGO transaction via MB_CHECK_LINE_BADI 
i_s_log_filter = ls_log_filter
查看完整代码 
i_s_log_filter = ls_log_filter
ABAP Adding multiple messages in MIGO transaction via MB_CHECK_LINE_BADI 
e_t_log_handle = lt_log_handle
查看完整代码 
e_t_log_handle = lt_log_handle
ABAP Adding multiple messages in MIGO transaction via MB_CHECK_LINE_BADI 
METHOD if_ex_mb_migo_badi~init.
APPEND gf_class_id TO ct_init.ENDMETHOD.
查看完整代码 
METHOD if_ex_mb_migo_badi~init.
APPEND gf_class_id TO ct_init.ENDMETHOD.
ABAP Adding multiple messages in MIGO transaction via MB_CHECK_LINE_BADI 
METHOD if_ex_mb_migo_badi~pbo_detail.
DATA: wa_extdata  TYPE zst_warrenty.
查看完整代码 
METHOD if_ex_mb_migo_badi~pbo_detail.
DATA: wa_extdata  TYPE zst_warrenty.
ABAP Adding multiple messages in MIGO transaction via MB_CHECK_LINE_BADI 
ENDIF.
查看完整代码 
ENDIF.
ABAP Adding multiple messages in MIGO transaction via MB_CHECK_LINE_BADI 
READ TABLE gt_extdata INTO wa_extdata WITH KEY line_id = g_line_id.
IF sy–subrc = 0 AND wa_extdata–mblnr IS NOT INITIAL AND wa_extdata–mjahr IS NOT INITIAL AND wa_extdata–zeile IS NOT INITIAL.
SELECT SINGLE * FROM ztb_warrenty
查看完整代码 
READ TABLE gt_extdata INTO wa_extdata WITH KEY line_id = g_line_id.
IF sy–subrc = 0 AND wa_extdata–mblnr IS NOT INITIAL AND wa_extdata–mjahr IS NOT INITIAL AND wa_extdata–zeile IS NOT INITIAL.
SELECT SINGLE * FROM ztb_warrenty
ABAP Adding multiple messages in MIGO transaction via MB_CHECK_LINE_BADI 
AND   mblnr = wa_extdata–mblnr
AND   mjahr = wa_extdata–mjahr
AND   zeile = wa_extdata–zeile.
查看完整代码 
AND   mblnr = wa_extdata–mblnr
AND   mjahr = wa_extdata–mjahr
AND   zeile = wa_extdata–zeile.
ABAP Adding multiple messages in MIGO transaction via MB_CHECK_LINE_BADI 
ENDIF.ENDMETHOD.
查看完整代码 
ENDIF.ENDMETHOD.
ABAP Adding multiple messages in MIGO transaction via MB_CHECK_LINE_BADI 
METHOD if_ex_mb_migo_badi~line_modify.
DATA: ls_extdata  TYPE zst_warrenty.
查看完整代码 
METHOD if_ex_mb_migo_badi~line_modify.
DATA: ls_extdata  TYPE zst_warrenty.
ABAP Adding multiple messages in MIGO transaction via MB_CHECK_LINE_BADI 
ls_extdata–line_id  = i_line_id.
ls_extdata–mblnr    = cs_goitem–mblnr.
ls_extdata–mjahr    = cs_goitem–mjahr.
ls_extdata–zeile    = cs_goitem–zeile.
ls_extdata–zzwarnt  = cs_goitem–zzwarnt.
ls_extdata–zzwbegd  = cs_goitem–zzwbegd.
ls_extdata–zzwendd  = cs_goitem–zzwendd.
DELETE gt_extdata WHERE line_id = ls_extdata–line_id.
查看完整代码 
ls_extdata–line_id  = i_line_id.
ls_extdata–mblnr    = cs_goitem–mblnr.
ls_extdata–mjahr    = cs_goitem–mjahr.
ls_extdata–zeile    = cs_goitem–zeile.
ls_extdata–zzwarnt  = cs_goitem–zzwarnt.
ls_extdata–zzwbegd  = cs_goitem–zzwbegd.
ls_extdata–zzwendd  = cs_goitem–zzwendd.
DELETE gt_extdata WHERE line_id = ls_extdata–line_id.
ABAP Adding multiple messages in MIGO transaction via MB_CHECK_LINE_BADI 
ls_extdata–line_id  = i_line_id.
ls_extdata–zzwarnt  = cs_goitem–zzwarnt.
ls_extdata–zzwbegd  = cs_goitem–zzwbegd.
ls_extdata–zzwendd  = cs_goitem–zzwendd.
DELETE gt_extdata WHERE line_id = ls_extdata–line_id.
查看完整代码 
ls_extdata–line_id  = i_line_id.
ls_extdata–zzwarnt  = cs_goitem–zzwarnt.
ls_extdata–zzwbegd  = cs_goitem–zzwbegd.
ls_extdata–zzwendd  = cs_goitem–zzwendd.
DELETE gt_extdata WHERE line_id = ls_extdata–line_id.
ABAP Adding multiple messages in MIGO transaction via MB_CHECK_LINE_BADI 
ENDIF.ENDMETHOD.
查看完整代码 
ENDIF.ENDMETHOD.
ABAP Adding multiple messages in MIGO transaction via MB_CHECK_LINE_BADI 
METHOD if_ex_mb_migo_badi~post_document.
DATA: wa_warrenty TYPE ztb_warrenty,
查看完整代码 
METHOD if_ex_mb_migo_badi~post_document.
DATA: wa_warrenty TYPE ztb_warrenty,
ABAP Alternative to READ_TEXT Function Module (No more FM needed) 
REPORT  ZMA_READ_TEXT.
查看完整代码 
REPORT  ZMA_READ_TEXT.
ABAP Alternative to READ_TEXT Function Module (No more FM needed) 
TYPES: BEGIN OF TY_STXL,
查看完整代码 
TYPES: BEGIN OF TY_STXL,
ABAP Alternative to READ_TEXT Function Module (No more FM needed) 
DATA:  T_STXL TYPE STANDARD TABLE OF TY_STXL.
查看完整代码 
DATA:  T_STXL TYPE STANDARD TABLE OF TY_STXL.
ABAP Alternative to READ_TEXT Function Module (No more FM needed) 
TYPES: BEGIN OF TY_STXL_RAW,
查看完整代码 
TYPES: BEGIN OF TY_STXL_RAW,
ABAP Alternative to READ_TEXT Function Module (No more FM needed) 
DATA:  T_STXL_RAW TYPE STANDARD TABLE OF TY_STXL_RAW.
查看完整代码 
DATA:  T_STXL_RAW TYPE STANDARD TABLE OF TY_STXL_RAW.
ABAP Alternative to READ_TEXT Function Module (No more FM needed) 
DATA:  W_STXL_RAW TYPE TY_STXL_RAW.
查看完整代码 
DATA:  W_STXL_RAW TYPE TY_STXL_RAW.
ABAP Alternative to READ_TEXT Function Module (No more FM needed) 
DATA:  T_TLINE TYPE STANDARD TABLE OF TLINE.
查看完整代码 
DATA:  T_TLINE TYPE STANDARD TABLE OF TLINE.
ABAP Alternative to READ_TEXT Function Module (No more FM needed) 
DATA: T_STXH TYPE STANDARD TABLE OF STXH,
查看完整代码 
DATA: T_STXH TYPE STANDARD TABLE OF STXH,
ABAP Alternative to READ_TEXT Function Module (No more FM needed) 
SELECT TDNAME TDOBJECT TDID
查看完整代码 
SELECT TDNAME TDOBJECT TDID
ABAP Alternative to READ_TEXT Function Module (No more FM needed) 
SELECT TDNAME CLUSTR CLUSTD
查看完整代码 
SELECT TDNAME CLUSTR CLUSTD
ABAP Alternative to READ_TEXT Function Module (No more FM needed) 
LOOP AT T_STXL ASSIGNING <STXL>.
查看完整代码 
LOOP AT T_STXL ASSIGNING <STXL>.
ABAP Alternative to READ_TEXT Function Module (No more FM needed) 
APPEND W_STXL_RAW TO T_STXL_RAW.
查看完整代码 
APPEND W_STXL_RAW TO T_STXL_RAW.
ABAP Alternative to READ_TEXT Function Module (No more FM needed) 
LOOP AT T_TLINE ASSIGNING <TLINE>.
查看完整代码 
LOOP AT T_TLINE ASSIGNING <TLINE>.
ABAP Alternative to READ_TEXT Function Module (No more FM needed) 
WRITE: / <TLINE>-TDLINE.
查看完整代码 
WRITE: / <TLINE>-TDLINE.
ABAP Alternative to READ_TEXT Function Module (No more FM needed) 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP Alternative to READ_TEXT Function Module (No more FM needed) 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP Application Server and GUI Files using CL_RSAN_UT_FILES 
REPORT  ZVK_CL_RSAN_UT_FILES.
查看完整代码 
REPORT  ZVK_CL_RSAN_UT_FILES.
ABAP Application Server and GUI Files using CL_RSAN_UT_FILES 
IF P_F4APPL EQ 'X'.
查看完整代码 
IF P_F4APPL EQ 'X'.
ABAP Application Server and GUI Files using CL_RSAN_UT_FILES 
ENDIF.
查看完整代码 
ENDIF.
ABAP Application Server and GUI Files using CL_RSAN_UT_FILES 
CALL METHOD CL_RSAN_UT_FILES=>F4
查看完整代码 
CALL METHOD CL_RSAN_UT_FILES=>F4
ABAP Application Server and GUI Files using CL_RSAN_UT_FILES 
IF SY-SUBRC <> 0.
查看完整代码 
IF SY-SUBRC <> 0.
ABAP Application Server and GUI Files using CL_RSAN_UT_FILES 
IF LV_CANCELED EQ 'X'.
查看完整代码 
IF LV_CANCELED EQ 'X'.
ABAP Application Server and GUI Files using CL_RSAN_UT_FILES 
IF LV_LOGICAL_FILE EQ 'X'.
查看完整代码 
IF LV_LOGICAL_FILE EQ 'X'.
ABAP Application Server and GUI Files using CL_RSAN_UT_FILES 
ENDIF.
查看完整代码 
ENDIF.
ABAP Application Server and GUI Files using CL_RSAN_UT_FILES 
ENDIF.
查看完整代码 
ENDIF.
ABAP Application Server and GUI Files using CL_RSAN_UT_FILES 
ENDIF.
查看完整代码 
ENDIF.
ABAP Automatic Payment Advice by email 
DATA: lv_email(130) type c.
查看完整代码 
DATA: lv_email(130) type c.
ABAP Automatic Payment Advice by email 
c_finaa-intad = lv_email.
查看完整代码 
c_finaa-intad = lv_email.
ABAP Automatic Payment Advice by email 
DATA: lv_date(10) type c,
查看完整代码 
DATA: lv_date(10) type c,
ABAP Automatic Payment Advice by email 
lv_date = C_ITCPO-TDTITLE+25(10).
查看完整代码 
lv_date = C_ITCPO-TDTITLE+25(10).
ABAP Automatic Payment Advice by email 
C_ITCPO-TDTITLE = lv_Subline.
ENDIF.
查看完整代码 
C_ITCPO-TDTITLE = lv_Subline.
ENDIF.
ABAP BAPI to clear posting 
ENDIF.
查看完整代码 
ENDIF.
ABAP BAPI to clear posting 
FORM USER_OK_TC USING    P_TC_NAME TYPE DYNFNAM
查看完整代码 
FORM USER_OK_TC USING    P_TC_NAME TYPE DYNFNAM
ABAP BAPI to clear posting 
DATA: L_OK              TYPE SY-UCOMM,
查看完整代码 
DATA: L_OK              TYPE SY-UCOMM,
ABAP BAPI_BATCH_CHANGE在更新后不自动更新批次特征 
"--------------------@斌将军--------------------CLEAR:ls_batchattributes,ls_batchattributesx.ls_batchattributes-prod_date = sy-datum."生产日期ls_batchattributesx-prod_date = 'X' ."生产日期"--------------------@斌将军--------------------
查看完整代码 
"--------------------@斌将军--------------------CLEAR:ls_batchattributes,ls_batchattributesx.ls_batchattributes-prod_date = sy-datum."生产日期ls_batchattributesx-prod_date = 'X' ."生产日期"--------------------@斌将军--------------------
ABAP BAPI_BATCH_CHANGE在更新后不自动更新批次特征 
"--------------------@斌将军--------------------CLEAR:ls_classvaluationschar.ls_classvaluationschar-class_type = lv_klart.*ls_classvaluationschar-objectkey = lv_objectkey.ls_classvaluationschar-objectkey_long = lv_objek.ls_classvaluationschar-objecttable = lv_obtab.ls_classvaluationschar-charact = 'ZSC_BATCH_HSDAT'.ls_classvaluationschar-value_char = sy-datum.APPEND ls_classvaluationschar TO lt_classvaluationschar."--------------------@斌将军--------------------
查看完整代码 
"--------------------@斌将军--------------------CLEAR:ls_classvaluationschar.ls_classvaluationschar-class_type = lv_klart.*ls_classvaluationschar-objectkey = lv_objectkey.ls_classvaluationschar-objectkey_long = lv_objek.ls_classvaluationschar-objecttable = lv_obtab.ls_classvaluationschar-charact = 'ZSC_BATCH_HSDAT'.ls_classvaluationschar-value_char = sy-datum.APPEND ls_classvaluationschar TO lt_classvaluationschar."--------------------@斌将军--------------------
ABAP BAPI_BATCH_CHANGE在更新后不自动更新批次特征
查看代码
DATA:lv_material TYPE bapibatchkey-material,     lv_batch    TYPE bapibatchkey-batch,     lv_plant    TYPE bapibatchkey-plant,     lv_matnr    TYPE matnr. "40位
DATA:lv_objek TYPE cuobn,     lv_obtab TYPE tabelle,     lv_klart TYPE klassenart,     lv_class TYPE klasse_d.
DATA:ls_batchattributes     TYPE  bapibatchatt,     ls_batchattributesx    TYPE bapibatchattx,     lt_classallocations    TYPE TABLE OF bapi3060_allocation,     ls_classallocations    TYPE bapi3060_allocation,     lt_c
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA:lv_material TYPE bapibatchkey-material,     lv_batch    TYPE bapibatchkey-batch,     lv_plant    TYPE bapibatchkey-plant,     lv_matnr    TYPE matnr. "40位
DATA:lv_objek TYPE cuobn,     lv_obtab TYPE tabelle,     lv_klart TYPE klassenart,     lv_class TYPE klasse_d.
DATA:ls_batchattributes     TYPE  bapibatchatt,     ls_batchattributesx    TYPE bapibatchattx,     lt_classallocations    TYPE TABLE OF bapi3060_allocation,     ls_classallocations    TYPE bapi3060_allocation,     lt_c
/* ... 已截断，完整代码请查看原文 */
ABAP BAdI MB_MIGO_BADI 
METHOD if_ex_mb_migo_badi~init.
APPEND gf_class_id TO ct_init.ENDMETHOD.
查看完整代码 
METHOD if_ex_mb_migo_badi~init.
APPEND gf_class_id TO ct_init.ENDMETHOD.
ABAP BAdI MB_MIGO_BADI 
METHOD if_ex_mb_migo_badi~pbo_detail.
DATA: wa_extdata  TYPE zst_warrenty.
查看完整代码 
METHOD if_ex_mb_migo_badi~pbo_detail.
DATA: wa_extdata  TYPE zst_warrenty.
ABAP BAdI MB_MIGO_BADI 
ENDIF.
查看完整代码 
ENDIF.
ABAP BAdI MB_MIGO_BADI 
READ TABLE gt_extdata INTO wa_extdata WITH KEY line_id = g_line_id.
IF sy–subrc = 0 AND wa_extdata–mblnr IS NOT INITIAL AND wa_extdata–mjahr IS NOT INITIAL AND wa_extdata–zeile IS NOT INITIAL.
SELECT SINGLE * FROM ztb_warrenty
查看完整代码 
READ TABLE gt_extdata INTO wa_extdata WITH KEY line_id = g_line_id.
IF sy–subrc = 0 AND wa_extdata–mblnr IS NOT INITIAL AND wa_extdata–mjahr IS NOT INITIAL AND wa_extdata–zeile IS NOT INITIAL.
SELECT SINGLE * FROM ztb_warrenty
ABAP BAdI MB_MIGO_BADI 
AND   mblnr = wa_extdata–mblnr
AND   mjahr = wa_extdata–mjahr
AND   zeile = wa_extdata–zeile.
查看完整代码 
AND   mblnr = wa_extdata–mblnr
AND   mjahr = wa_extdata–mjahr
AND   zeile = wa_extdata–zeile.
ABAP BAdI MB_MIGO_BADI 
ENDIF.ENDMETHOD.
查看完整代码 
ENDIF.ENDMETHOD.
ABAP BAdI MB_MIGO_BADI 
METHOD if_ex_mb_migo_badi~line_modify.
DATA: ls_extdata  TYPE zst_warrenty.
查看完整代码 
METHOD if_ex_mb_migo_badi~line_modify.
DATA: ls_extdata  TYPE zst_warrenty.
ABAP BAdI MB_MIGO_BADI 
ls_extdata–line_id  = i_line_id.
ls_extdata–mblnr    = cs_goitem–mblnr.
ls_extdata–mjahr    = cs_goitem–mjahr.
ls_extdata–zeile    = cs_goitem–zeile.
ls_extdata–zzwarnt  = cs_goitem–zzwarnt.
ls_extdata–zzwbegd  = cs_goitem–zzwbegd.
ls_extdata–zzwendd  = cs_goitem–zzwendd.
DELETE gt_extdata WHERE line_id = ls_extdata–line_id.
查看完整代码 
ls_extdata–line_id  = i_line_id.
ls_extdata–mblnr    = cs_goitem–mblnr.
ls_extdata–mjahr    = cs_goitem–mjahr.
ls_extdata–zeile    = cs_goitem–zeile.
ls_extdata–zzwarnt  = cs_goitem–zzwarnt.
ls_extdata–zzwbegd  = cs_goitem–zzwbegd.
ls_extdata–zzwendd  = cs_goitem–zzwendd.
DELETE gt_extdata WHERE line_id = ls_extdata–line_id.
ABAP BAdI MB_MIGO_BADI 
ls_extdata–line_id  = i_line_id.
ls_extdata–zzwarnt  = cs_goitem–zzwarnt.
ls_extdata–zzwbegd  = cs_goitem–zzwbegd.
ls_extdata–zzwendd  = cs_goitem–zzwendd.
DELETE gt_extdata WHERE line_id = ls_extdata–line_id.
查看完整代码 
ls_extdata–line_id  = i_line_id.
ls_extdata–zzwarnt  = cs_goitem–zzwarnt.
ls_extdata–zzwbegd  = cs_goitem–zzwbegd.
ls_extdata–zzwendd  = cs_goitem–zzwendd.
DELETE gt_extdata WHERE line_id = ls_extdata–line_id.
ABAP BAdI MB_MIGO_BADI 
ENDIF.ENDMETHOD.
查看完整代码 
ENDIF.ENDMETHOD.
ABAP BAdI MB_MIGO_BADI 
METHOD if_ex_mb_migo_badi~post_document.
DATA: wa_warrenty TYPE ztb_warrenty,
查看完整代码 
METHOD if_ex_mb_migo_badi~post_document.
DATA: wa_warrenty TYPE ztb_warrenty,
ABAP BAdI MB_MIGO_BADI 
LOOP AT it_mseg INTO wa_mseg.
READ TABLE gt_extdata INTO wa_extdata WITH KEY line_id = wa_mseg–line_id.
查看完整代码 
LOOP AT it_mseg INTO wa_mseg.
READ TABLE gt_extdata INTO wa_extdata WITH KEY line_id = wa_mseg–line_id.
ABAP BAdI MB_MIGO_BADI 
APPEND wa_warrenty TO it_warrenty.
ENDIF.
ENDLOOP.
MODIFY ztb_warrenty FROM TABLE it_warrenty.
ENDMETHOD.
查看完整代码 
APPEND wa_warrenty TO it_warrenty.
ENDIF.
ENDLOOP.
MODIFY ztb_warrenty FROM TABLE it_warrenty.
ENDMETHOD.
ABAP BAdI MB_MIGO_BADI 
METHOD if_ex_mb_migo_badi~check_item.
DATA: wa_extdata  TYPE zst_warrenty,
查看完整代码 
METHOD if_ex_mb_migo_badi~check_item.
DATA: wa_extdata  TYPE zst_warrenty,
ABAP BAdI MB_MIGO_BADI 
READ TABLE gt_extdata INTO wa_extdata WITH TABLE KEY line_id = i_line_id.
查看完整代码 
READ TABLE gt_extdata INTO wa_extdata WITH TABLE KEY line_id = i_line_id.
ABAP BAdI MB_MIGO_BADI 
ls_bapiret–type       = ‘E’.
ls_bapiret–id         = ‘M7’.
ls_bapiret–number     = ‘895’.
ls_bapiret–message_v1 = ‘Enter warranty condition’(002).
APPEND ls_bapiret TO et_bapiret2.
ENDIF.
IF wa_extdata–zzwarnt = ‘YES’ AND ( wa_extdata–zzwbegd IS INITIAL OR wa_extdata–zzwendd IS INITIAL OR ( wa_extdata–zzwbegd GT wa_extdata–zzwendd ) ).
ls_bapiret–type       = ‘E’.
...
查看完整代码
查看代码
ls_bapiret–type       = ‘E’.
ls_bapiret–id         = ‘M7’.
ls_bapiret–number     = ‘895’.
ls_bapiret–message_v1 = ‘Enter warranty condition’(002).
APPEND ls_bapiret TO et_bapiret2.
ENDIF.
IF wa_extdata–zzwarnt = ‘YES’ AND ( wa_extdata–zzwbegd IS INITIAL OR wa_extdata–zzwendd IS INITIAL OR ( wa_extdata–zzwbegd GT wa_extdata–zzwendd ) ).
ls_bapiret–type       = ‘E’.
ls_bapiret–id         = ‘M7’.
ls_bapiret–number     = ‘895’.
/* ... 已截断，完整代码请查看原文 */
ABAP BAdI MB_MIGO_BADI 
ENDIF.
查看完整代码 
ENDIF.
ABAP BAdI MB_MIGO_BADI 
ENDIF.ENDMETHOD.
查看完整代码 
ENDIF.ENDMETHOD.
ABAP BDC XK01 
REPORT zsowja NO STANDARD PAGE HEADING LINE-SIZE 255.
查看完整代码 
REPORT zsowja NO STANDARD PAGE HEADING LINE-SIZE 255.
ABAP BDC XK01 
DATA: bdcdat LIKE bdcdata OCCURS 0 WITH HEADER LINE.
查看完整代码 
DATA: bdcdat LIKE bdcdata OCCURS 0 WITH HEADER LINE.
ABAP BDC XK01 
DATA: BEGIN OF record OCCURS 0,
查看完整代码 
DATA: BEGIN OF record OCCURS 0,
ABAP BDC XK01 
END OF head_itab.
查看完整代码 
END OF head_itab.
ABAP BDC XK01 
END OF item_itab.
查看完整代码 
END OF item_itab.
ABAP BDC XK01 
CALL FUNCTION 'WS_UPLOAD'
查看完整代码 
CALL FUNCTION 'WS_UPLOAD'
ABAP BDC XK01 
IF sy-subrc <> 0.
查看完整代码 
IF sy-subrc <> 0.
ABAP BDC XK01 
ENDIF.
查看完整代码 
ENDIF.
ABAP BDC XK01 
LOOP AT record.
查看完整代码 
LOOP AT record.
ABAP BDC XK01 
head_itab-lifnr = record-lifnr.
查看完整代码 
head_itab-lifnr = record-lifnr.
ABAP BDC XK01 
head_itab-ekorg = record-ekorg.
查看完整代码 
head_itab-ekorg = record-ekorg.
ABAP BDC XK01 
head_itab-ekgrp = record-ekgrp.
查看完整代码 
head_itab-ekgrp = record-ekgrp.
ABAP BDC XK01 
APPEND head_itab.
查看完整代码 
APPEND head_itab.
ABAP BDC XK01 
item_itab-lifnr = record-lifnr.
查看完整代码 
item_itab-lifnr = record-lifnr.
ABAP BDC XK01 
item_itab-ematn = record-ematn.
查看完整代码 
item_itab-ematn = record-ematn.
ABAP BDC XK01 
item_itab-menge = record-menge.
查看完整代码 
item_itab-menge = record-menge.
ABAP BDC XK01 
item_itab-werks = record-werks.
查看完整代码 
item_itab-werks = record-werks.
ABAP BDC XK01 
APPEND item_itab.
查看完整代码 
APPEND item_itab.
ABAP BDC XK01 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP BDC XK01 
LOOP AT head_itab.
查看完整代码 
LOOP AT head_itab.
ABAP BDC XK01 
LOOP AT item_itab WHERE lifnr = head_itab-lifnr.
查看完整代码 
LOOP AT item_itab WHERE lifnr = head_itab-lifnr.
ABAP BDC XK01 
IF linecount = 1.
查看完整代码 
IF linecount = 1.
ABAP BDC XK01 
ENDIF.
查看完整代码 
ENDIF.
ABAP BDC XK01 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP BDC XK01 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP BDC XK01 
FORM bdc_dynpro USING value(a) value(b).
查看完整代码 
FORM bdc_dynpro USING value(a) value(b).
ABAP BDC XK01 
APPEND bdcdat.
查看完整代码 
APPEND bdcdat.
ABAP BDC XK01 
ENDFORM.
查看完整代码 
ENDFORM.
ABAP BDC XK01 
FORM bdc_field USING value(c) value(d).
查看完整代码 
FORM bdc_field USING value(c) value(d).
ABAP BDC XK01 
APPEND bdcdat.
查看完整代码 
APPEND bdcdat.
ABAP BDC XK01 
ENDFORM.
查看完整代码 
ENDFORM.
ABAP BDC XK01 
REPORT Y730_BDC5 .
查看完整代码 
REPORT Y730_BDC5 .
ABAP BDC XK01 
CALL FUNCTION 'WS_UPLOAD'
查看完整代码 
CALL FUNCTION 'WS_UPLOAD'
ABAP BDC XK01 
LOOP AT IT_DUMMY.
查看完整代码 
LOOP AT IT_DUMMY.
ABAP BDC XK01 
IF IT_DUMMY-DUMMY+0(2) = '11'.
查看完整代码 
IF IT_DUMMY-DUMMY+0(2) = '11'.
ABAP BDC XK01 
APPEND IT_XK01.
查看完整代码 
APPEND IT_XK01.
ABAP BDC XK01 
APPEND IT_BANK.
查看完整代码 
APPEND IT_BANK.
ABAP BDC XK01 
ENDIF.
查看完整代码 
ENDIF.
ABAP BDC XK01 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP BDC XK01 
LOOP AT IT_XK01.
查看完整代码 
LOOP AT IT_XK01.
ABAP BDC XK01 
LOOP AT IT_BANK WHERE LIFNR = IT_XK01-LIFNR.
查看完整代码 
LOOP AT IT_BANK WHERE LIFNR = IT_XK01-LIFNR.
ABAP BDC XK01 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP BDC XK01 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP BDC XK01 
FORM BDC_DYNPRO USING PROG SCR.
查看完整代码 
FORM BDC_DYNPRO USING PROG SCR.
ABAP BDC XK01 
APPEND IT_BDCDATA.
查看完整代码 
APPEND IT_BDCDATA.
ABAP BDC XK01 
ENDFORM.
查看完整代码 
ENDFORM.
ABAP BDC XK01 
FORM BDC_FIELD USING FNAM FVAL.
查看完整代码 
FORM BDC_FIELD USING FNAM FVAL.
ABAP BDC XK01 
APPEND IT_BDCDATA.
查看完整代码 
APPEND IT_BDCDATA.
ABAP BDC XK01 
ENDFORM.
查看完整代码 
ENDFORM.
ABAP BP供应商主数据新增页签增强
查看代码
DATA:lt_lfb1  TYPE TABLE OF lfb1,       lv_lifnr TYPE lfb1-lifnr,       lv_bukrs TYPE lfb1-bukrs.
lv_lifnr = cvi_bdt_adapter=>get_current_vendor( ).  lv_bukrs = cvi_bdt_adapter=>get_current_company_code( ).  IF lv_bukrs IS INITIAL.    CLEAR:lfb1.  ELSE.    cvi_bdt_adapter=>data_pbo(    EXPORTING      i_table_name = table_name_lfb1    IMPORTING      e_data_table = lt_lfb1[]  ).
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA:lt_lfb1  TYPE TABLE OF lfb1,       lv_lifnr TYPE lfb1-lifnr,       lv_bukrs TYPE lfb1-bukrs.
lv_lifnr = cvi_bdt_adapter=>get_current_vendor( ).  lv_bukrs = cvi_bdt_adapter=>get_current_company_code( ).  IF lv_bukrs IS INITIAL.    CLEAR:lfb1.  ELSE.    cvi_bdt_adapter=>data_pbo(    EXPORTING      i_table_name = table_name_lfb1    IMPORTING      e_data_table = lt_lfb1[]  ).
/* ... 已截断，完整代码请查看原文 */
ABAP BP供应商主数据新增页签增强 
DATA: lt_lfb1  TYPE TABLE OF lfb1,        lv_lifnr TYPE lfb1-lifnr,        lv_bukrs TYPE lfb1-bukrs.
查看完整代码 
DATA: lt_lfb1  TYPE TABLE OF lfb1,        lv_lifnr TYPE lfb1-lifnr,        lv_bukrs TYPE lfb1-bukrs.
ABAP BP供应商主数据新增页签增强
查看代码
"公司代码  lv_lifnr = cvi_bdt_adapter=>get_current_vendor( ).  lv_bukrs = cvi_bdt_adapter=>get_current_company_code( ).
cvi_bdt_adapter=>get_current_bp_data(    EXPORTING      i_table_name = table_name_lfb1    IMPORTING      e_data_table = lt_lfb1[]  ).  IF lt_lfb1[] IS INITIAL.    IF lfb1 IS NOT INITIAL.      lfb1-lifnr = lv_lifnr.      lfb1-bukrs = lv_bukrs.      IF lfb1-lifnr IS NOT INITIAL AND lfb1-bukrs IS NOT INITIAL.        APPEND lfb1 TO lt_lfb1.      ENDIF.    ENDIF.  EL
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
"公司代码  lv_lifnr = cvi_bdt_adapter=>get_current_vendor( ).  lv_bukrs = cvi_bdt_adapter=>get_current_company_code( ).
cvi_bdt_adapter=>get_current_bp_data(    EXPORTING      i_table_name = table_name_lfb1    IMPORTING      e_data_table = lt_lfb1[]  ).  IF lt_lfb1[] IS INITIAL.    IF lfb1 IS NOT INITIAL.      lfb1-lifnr = lv_lifnr.      lfb1-bukrs = lv_bukrs.      IF lfb1-lifnr IS NOT INITIAL AND lfb1-bukrs IS NOT INITIAL.        APPEND lfb1 TO lt_lfb1.      ENDIF.    ENDIF.  EL
/* ... 已截断，完整代码请查看原文 */
ABAP BP供应商主数据新增页签增强
查看代码
DATA:lt_lfb1      TYPE TABLE OF lfb1,       ls_lfb1      TYPE lfb1,       ls_lfb1_temp TYPE lfb1,       lv_lifnr     TYPE lfb1-lifnr,       lv_bukrs     TYPE lfb1-bukrs.
lv_bukrs = cvi_bdt_adapter=>get_current_company_code( ).  ls_lfb1 = lfb1.  CHECK ls_lfb1 IS NOT INITIAL.
MOVE-CORRESPONDING gs_lfb1 TO ls_lfb1_temp.  ls_lfb1_temp-bukrs = lv_bukrs.  ls_lfb1_temp-zgmp = lfb1-zgmp."  APPEND ls_lfb1_temp TO lt_lfb1.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA:lt_lfb1      TYPE TABLE OF lfb1,       ls_lfb1      TYPE lfb1,       ls_lfb1_temp TYPE lfb1,       lv_lifnr     TYPE lfb1-lifnr,       lv_bukrs     TYPE lfb1-bukrs.
lv_bukrs = cvi_bdt_adapter=>get_current_company_code( ).  ls_lfb1 = lfb1.  CHECK ls_lfb1 IS NOT INITIAL.
MOVE-CORRESPONDING gs_lfb1 TO ls_lfb1_temp.  ls_lfb1_temp-bukrs = lv_bukrs.  ls_lfb1_temp-zgmp = lfb1-zgmp."  APPEND ls_lfb1_temp TO lt_lfb1.
/* ... 已截断，完整代码请查看原文 */
ABAP BP供应商主数据新增页签增强 
CALL FUNCTION 'CVIV_BUPA_LFB1_GET'    IMPORTING      e_lfb1 = gs_lfb1.
查看完整代码 
CALL FUNCTION 'CVIV_BUPA_LFB1_GET'    IMPORTING      e_lfb1 = gs_lfb1.
ABAP BP供应商主数据新增页签增强 
IF gs_lfb1-zgmp <> lfb1-zgmp.    e_xchng = 'X'.  ENDIF.
ENDFUNCTION."--------------------@斌将军--------------------
查看完整代码 
IF gs_lfb1-zgmp <> lfb1-zgmp.    e_xchng = 'X'.  ENDIF.
ENDFUNCTION."--------------------@斌将军--------------------
ABAP BP供应商主数据新增页签增强
查看代码
DATA:lv_bukrs TYPE lfb1-bukrs.  lv_bukrs = cvi_bdt_adapter=>get_current_company_code( ).
LOOP AT SCREEN.    IF screen-name+0(4) = 'LFB1'.      IF lv_bukrs = '3060'."        screen-active = '1'.      ELSE.        screen-active = '0'.      ENDIF.      MODIFY SCREEN.    ENDIF.  ENDLOOP.ENDMODULE.*&--------------------------------------------*&      Module  USER_COMMAND_9001  INPUT*&--------------------------------------------*       
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA:lv_bukrs TYPE lfb1-bukrs.  lv_bukrs = cvi_bdt_adapter=>get_current_company_code( ).
LOOP AT SCREEN.    IF screen-name+0(4) = 'LFB1'.      IF lv_bukrs = '3060'."        screen-active = '1'.      ELSE.        screen-active = '0'.      ENDIF.      MODIFY SCREEN.    ENDIF.  ENDLOOP.ENDMODULE.*&--------------------------------------------*&      Module  USER_COMMAND_9001  INPUT*&--------------------------------------------*       
/* ... 已截断，完整代码请查看原文 */
ABAP BP客户增强保存时增加校验事件DCHCK 
e_data_table  =  lt_knb1[]
查看完整代码 
e_data_table  =  lt_knb1[]
ABAP BP客户增强保存时增加校验事件DCHCK 
READ TABLE  lt_knb1  INTO DATA  (  ls_knb1  )  INDEX  1  .
查看完整代码 
READ TABLE  lt_knb1  INTO DATA  (  ls_knb1  )  INDEX  1  .
ABAP BP客户增强保存时增加校验事件DCHCK 
DATA  (  lv_corporate_type  ) =  ls_knb1  \-  corporate_type  .
查看完整代码 
DATA  (  lv_corporate_type  ) =  ls_knb1  \-  corporate_type  .
ABAP BP客户增强保存时增加校验事件DCHCK 
IF  (  lv_corporate_type  IS INITIAL OR  lv_corporate_type  =  '99'  )  AND
ls_knb1  \-  maintain_corpo  =  abap_on  .
查看完整代码 
IF  (  lv_corporate_type  IS INITIAL OR  lv_corporate_type  =  '99'  )  AND
ls_knb1  \-  maintain_corpo  =  abap_on  .
ABAP BP客户增强保存时增加校验事件DCHCK 
CALL FUNCTION  'BUS_MESSAGE_STORE'
查看完整代码 
CALL FUNCTION  'BUS_MESSAGE_STORE'
ABAP BP客户增强保存时增加校验事件DCHCK 
LOOP AT  gt_ztbp001_info_buf[]  TRANSPORTING NO FIELDS WHERE  corporate_type
查看完整代码 
LOOP AT  gt_ztbp001_info_buf[]  TRANSPORTING NO FIELDS WHERE  corporate_type
ABAP BP客户增强保存时增加校验事件DCHCK 
CALL FUNCTION  'BUS_MESSAGE_STORE'
查看完整代码 
CALL FUNCTION  'BUS_MESSAGE_STORE'
ABAP BP客户增强保存时增加校验事件DCHCK 
ENDLOOP  .
ENDIF  .
查看完整代码 
ENDLOOP  .
ENDIF  .
ABAP BP新增页签增强 
IF gs_kna1-zodrate <> kna1-zodrate.    e_xchng = 'X'.  ENDIF.
ENDFUNCTION."--------------------@斌将军--------------------
查看完整代码 
IF gs_kna1-zodrate <> kna1-zodrate.    e_xchng = 'X'.  ENDIF.
ENDFUNCTION."--------------------@斌将军--------------------
ABAP BP新增页签增强
查看代码
CHECK cvi_bdt_adapter=>is_direct_input_active( ) = false.  cvi_bdt_adapter=>get_current_bp_data(    EXPORTING      i_table_name = table_name_kna1    IMPORTING      e_data_table = lt_kna1[]  ).  IF lt_kna1[] IS INITIAL.    IF gs_kna1 IS NOT INITIAL.      gs_kna1-kunnr = cvi_bdt_adapter=>get_current_customer( ).      APPEND gs_kna1 TO lt_kna1.    ENDIF.  ELSE.    READ TABLE lt_kna1 ASSIGNINGINDEX 1.    -zodrate = gs_kna1-zodrate.  ENDIF.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
CHECK cvi_bdt_adapter=>is_direct_input_active( ) = false.  cvi_bdt_adapter=>get_current_bp_data(    EXPORTING      i_table_name = table_name_kna1    IMPORTING      e_data_table = lt_kna1[]  ).  IF lt_kna1[] IS INITIAL.    IF gs_kna1 IS NOT INITIAL.      gs_kna1-kunnr = cvi_bdt_adapter=>get_current_customer( ).      APPEND gs_kna1 TO lt_kna1.    ENDIF.  ELSE.    READ TABLE lt_kna1 ASSIGNINGINDEX 1.    -zodrate = gs_kna1-zodrate.  ENDIF.
/* ... 已截断，完整代码请查看原文 */
ABAP BP新增页签增强
查看代码
"--------------------@斌将军--------------------FUNCTION ZSD_09_PBO.*"-----------------------------*"*"本地接口：*"-----------------------------DATA:lt_kna1   TYPE TABLE OF kna1.  cvi_bdt_adapter=>data_pbo(    EXPORTING      i_table_name = table_name_kna1    IMPORTING      e_data_table = lt_kna1[]  ).  IF lt_kna1[] IS INITIAL.    CLEAR gs_kna1.  ELSE.    READ TABLE lt_kna1 INTO gs_kna1 INDEX 1.  ENDIF.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
"--------------------@斌将军--------------------FUNCTION ZSD_09_PBO.*"-----------------------------*"*"本地接口：*"-----------------------------DATA:lt_kna1   TYPE TABLE OF kna1.  cvi_bdt_adapter=>data_pbo(    EXPORTING      i_table_name = table_name_kna1    IMPORTING      e_data_table = lt_kna1[]  ).  IF lt_kna1[] IS INITIAL.    CLEAR gs_kna1.  ELSE.    READ TABLE lt_kna1 INTO gs_kna1 INDEX 1.  ENDIF.
/* ... 已截断，完整代码请查看原文 */
ABAP Build Custom Selection Screens for Extended Table Maintenance (2) 
ls_total = total.
查看完整代码 
ls_total = total.
ABAP Build Custom Selection Screens for Extended Table Maintenance (2) 
IF NOT ls_total-bukrs = p_bukrs.
查看完整代码 
IF NOT ls_total-bukrs = p_bukrs.
ABAP Build Custom Selection Screens for Extended Table Maintenance (2) 
ENDIF.
查看完整代码 
ENDIF.
ABAP Build Custom Selection Screens for Extended Table Maintenance (2) 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP Build Custom Selection Screens for Extended Table Maintenance (2) 
ls_total = total.
查看完整代码 
ls_total = total.
ABAP Build Custom Selection Screens for Extended Table Maintenance (2) 
IF NOT ls_total-bukrs = p_bukrs.
查看完整代码 
IF NOT ls_total-bukrs = p_bukrs.
ABAP Build Custom Selection Screens for Extended Table Maintenance (2) 
ENDIF.
查看完整代码 
ENDIF.
ABAP Build Custom Selection Screens for Extended Table Maintenance (2) 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP Build Custom Selection Screens for Extended Table Maintenance (2) 
ENDFORM.
查看完整代码 
ENDFORM.
ABAP Build Custom Selection Screens for Extended Table Maintenance 
ls_total = total.
查看完整代码 
ls_total = total.
ABAP Build Custom Selection Screens for Extended Table Maintenance 
IF ls_total-tab = p_tab AND ls_total-CYCLE = p_CYCLE
AND ls_total-SDATE = p_SDATE.
查看完整代码 
IF ls_total-tab = p_tab AND ls_total-CYCLE = p_CYCLE
AND ls_total-SDATE = p_SDATE.
ABAP Build Custom Selection Screens for Extended Table Maintenance 
ENDIF.
查看完整代码 
ENDIF.
ABAP Build Custom Selection Screens for Extended Table Maintenance 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP Build Custom Selection Screens for Extended Table Maintenance 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP Build Custom Selection Screens for Extended Table Maintenance 
ENDIF.
查看完整代码 
ENDIF.
ABAP Build Custom Selection Screens for Extended Table Maintenance 
ENDFORM.
查看完整代码 
ENDFORM.
ABAP Build Custom Selection Screens for Extended Table Maintenance 
ls_total = total.
查看完整代码 
ls_total = total.
ABAP Build Custom Selection Screens for Extended Table Maintenance 
IF NOT ls_total-bukrs = p_bukrs.
查看完整代码 
IF NOT ls_total-bukrs = p_bukrs.
ABAP Build Custom Selection Screens for Extended Table Maintenance 
ENDIF.
查看完整代码 
ENDIF.
ABAP Build Custom Selection Screens for Extended Table Maintenance 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP Build Custom Selection Screens for Extended Table Maintenance 
ls_total = total.
查看完整代码 
ls_total = total.
ABAP Build Custom Selection Screens for Extended Table Maintenance 
IF NOT ls_total-bukrs = p_bukrs.
查看完整代码 
IF NOT ls_total-bukrs = p_bukrs.
ABAP Build Custom Selection Screens for Extended Table Maintenance 
ENDIF.
查看完整代码 
ENDIF.
ABAP Build Custom Selection Screens for Extended Table Maintenance 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP Build Custom Selection Screens for Extended Table Maintenance 
ENDFORM.
查看完整代码 
ENDFORM.
ABAP Build Custom Selection Screens for Extended Table Maintenance 
PARAMETERS: p_param1 TYPE z_mytable–myfield3,
查看完整代码 
PARAMETERS: p_param1 TYPE z_mytable–myfield3,
ABAP Build Custom Selection Screens for Extended Table Maintenance 
ENDIF.
查看完整代码 
ENDIF.
ABAP Building an SAP Query with ABAP Code 
LOOP AT <gi00> ASSIGNING <gw00>.
查看完整代码 
LOOP AT <gi00> ASSIGNING <gw00>.
ABAP Building an SAP Query with ABAP Code 
IF <fv_any> IS NOT INITIAL.
查看完整代码 
IF <fv_any> IS NOT INITIAL.
ABAP Building an SAP Query with ABAP Code 
SELECT SINGLE shkzg INTO lv_shkzg FROM t156
查看完整代码 
SELECT SINGLE shkzg INTO lv_shkzg FROM t156
ABAP Building an SAP Query with ABAP Code 
IF lv_shkzg = 'H'.
查看完整代码 
IF lv_shkzg = 'H'.
ABAP Building an SAP Query with ABAP Code 
ENDIF.
查看完整代码 
ENDIF.
ABAP Building an SAP Query with ABAP Code 
ENDIF.
查看完整代码 
ENDIF.
ABAP Building an SAP Query with ABAP Code 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP C223生产版本BAPI 
SELECT  matnr,  werks,  veridFROM mkalINTO TABLE @DATA(lt_makl)FOR ALL ENTRIES IN @t_inputWHERE matnr = @t_input-matnr  AND werks = @t_input-werks  AND verid = @t_input-verid.
查看完整代码 
SELECT  matnr,  werks,  veridFROM mkalINTO TABLE @DATA(lt_makl)FOR ALL ENTRIES IN @t_inputWHERE matnr = @t_input-matnr  AND werks = @t_input-werks  AND verid = @t_input-verid.
ABAP C223生产版本BAPI 
SELECT  *FROM mkal_aendINTO TABLE @DATA(lt_aend)FOR ALL ENTRIES IN @t_inputWHERE matnr = @t_input-matnr  AND werks = @t_input-werks  AND verid = @t_input-verid.
查看完整代码 
SELECT  *FROM mkal_aendINTO TABLE @DATA(lt_aend)FOR ALL ENTRIES IN @t_inputWHERE matnr = @t_input-matnr  AND werks = @t_input-werks  AND verid = @t_input-verid.
ABAP C223生产版本BAPI
查看代码
CLEAR:ls_mkal.ls_mkal-matnr = '000000160000000019'."LV_MATNR."物料编号ls_mkal-werks = '1011'."IS_MKAL-WERKS."工厂ls_mkal-verid = 'JS20'."IS_MKAL-VERID."生产版本ls_mkal-text1 = '333333'."IS_MKAL-TEXT1."生产版本的短文本ls_mkal-bdatu = '99991231'."IS_MKAL-BDATU."生产版本的有效期截止日期ls_mkal-adatu = sy-datum."IS_MKAL-ADATU."生产版本的有效期起始日期ls_mkal-stlal = '01'."IS_MKAL-STLAL."可选的 BOMls_mkal-stlan
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
CLEAR:ls_mkal.ls_mkal-matnr = '000000160000000019'."LV_MATNR."物料编号ls_mkal-werks = '1011'."IS_MKAL-WERKS."工厂ls_mkal-verid = 'JS20'."IS_MKAL-VERID."生产版本ls_mkal-text1 = '333333'."IS_MKAL-TEXT1."生产版本的短文本ls_mkal-bdatu = '99991231'."IS_MKAL-BDATU."生产版本的有效期截止日期ls_mkal-adatu = sy-datum."IS_MKAL-ADATU."生产版本的有效期起始日期ls_mkal-stlal = '01'."IS_MKAL-STLAL."可选的 BOMls_mkal-stlan
/* ... 已截断，完整代码请查看原文 */
ABAP C223生产版本BAPI
查看代码
CLEAR:ls_mkal_aend.  ls_mkal_aend-matnr = '000000160000000019'."物料编号  ls_mkal_aend-werks = '1011'."工厂  ls_mkal_aend-verid = 'JS20'."生产版本  ls_mkal_aend-zaehl = 1."计数参数
ls_mkal_aend-datuv = ls_mkal-adatu."有效起始日期  ls_mkal_aend-datub = ls_mkal-bdatu."有效截止日期  ls_mkal_aend-andat = sy-datum."日期记录创建于  ls_mkal_aend-annam = sy-uname."创建记录的用户  ls_mkal_aend-vbkz = 'I'."  APPEND ls_mkal_aend TO lt_mkal_aend.
ENDIF.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
CLEAR:ls_mkal_aend.  ls_mkal_aend-matnr = '000000160000000019'."物料编号  ls_mkal_aend-werks = '1011'."工厂  ls_mkal_aend-verid = 'JS20'."生产版本  ls_mkal_aend-zaehl = 1."计数参数
ls_mkal_aend-datuv = ls_mkal-adatu."有效起始日期  ls_mkal_aend-datub = ls_mkal-bdatu."有效截止日期  ls_mkal_aend-andat = sy-datum."日期记录创建于  ls_mkal_aend-annam = sy-uname."创建记录的用户  ls_mkal_aend-vbkz = 'I'."  APPEND ls_mkal_aend TO lt_mkal_aend.
ENDIF.
/* ... 已截断，完整代码请查看原文 */
ABAP Control Break Statements in SAP ABAP 
LOOP AT LT_MARC INTO WA_MARC.
查看完整代码 
LOOP AT LT_MARC INTO WA_MARC.
ABAP Control Break Statements in SAP ABAP 
APPEND WA_MARC1 TO LT_MARC1.
查看完整代码 
APPEND WA_MARC1 TO LT_MARC1.
ABAP Control Break Statements in SAP ABAP 
ENDLOOP.
ENDIF.
查看完整代码 
ENDLOOP.
ENDIF.
ABAP Control Break Statements in SAP ABAP 
LOOP AT LT_MARC1 INTO WA_MARC1.
查看完整代码 
LOOP AT LT_MARC1 INTO WA_MARC1.
ABAP Control Break Statements in SAP ABAP 
ENDAT.
ENDLOOP.
查看完整代码 
ENDAT.
ENDLOOP.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
DATA:
查看完整代码 
DATA:
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
DATA:
查看完整代码 
DATA:
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
DATA:
查看完整代码 
DATA:
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
DATA: BEGIN OF header OCCURS 1.
查看完整代码 
DATA: BEGIN OF header OCCURS 1.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
DATA: END OF header.
查看完整代码 
DATA: END OF header.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
DATA: BEGIN OF namtab OCCURS 50.
查看完整代码 
DATA: BEGIN OF namtab OCCURS 50.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
DATA: END OF namtab.
查看完整代码 
DATA: END OF namtab.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
DATA: vim_wheretab LIKE vimwheretb OCCURS 10.
查看完整代码 
DATA: vim_wheretab LIKE vimwheretb OCCURS 10.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
DATA: dba_sellist LIKE vimsellist OCCURS 10.
查看完整代码 
DATA: dba_sellist LIKE vimsellist OCCURS 10.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
CLASS lcl_event_handler DEFINITION .
查看完整代码 
CLASS lcl_event_handler DEFINITION .
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
ENDCLASS.                    "lcl_event_handler DEFINITION
查看完整代码 
ENDCLASS.                    "lcl_event_handler DEFINITION
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
CLASS lcl_event_handler IMPLEMENTATION .
查看完整代码 
CLASS lcl_event_handler IMPLEMENTATION .
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
METHOD handle_data_changed .
查看完整代码 
METHOD handle_data_changed .
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
ENDMETHOD.                    "handle_data_changed
查看完整代码 
ENDMETHOD.                    "handle_data_changed
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
ENDCLASS.                    "lcl_event_handler IMPLEMENTATION
查看完整代码 
ENDCLASS.                    "lcl_event_handler IMPLEMENTATION
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
SELECT * FROM (viewname) INTO TABLE <i_itab>.
查看完整代码 
SELECT * FROM (viewname) INTO TABLE <i_itab>.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
查看完整代码 
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
IF sy-subrc <> 0.
查看完整代码 
IF sy-subrc <> 0.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
ENDIF.
查看完整代码 
ENDIF.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
IF sy-ucomm = 'UPD' OR  sy-ucomm = 'CHANGE'.
查看完整代码 
IF sy-ucomm = 'UPD' OR  sy-ucomm = 'CHANGE'.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
LOOP AT li_fieldcat INTO lwa_fieldcat.
查看完整代码 
LOOP AT li_fieldcat INTO lwa_fieldcat.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
IF lwa_fieldcat-key = space.
查看完整代码 
IF lwa_fieldcat-key = space.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
lwa_fieldcat-edit = 'X'.
查看完整代码 
lwa_fieldcat-edit = 'X'.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
MODIFY li_fieldcat FROM lwa_fieldcat.
查看完整代码 
MODIFY li_fieldcat FROM lwa_fieldcat.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
ENDIF.
查看完整代码 
ENDIF.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
ENDIF.
查看完整代码 
ENDIF.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
IF sy-ucomm = 'NEW'.
查看完整代码 
IF sy-ucomm = 'NEW'.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
LOOP AT li_fieldcat INTO lwa_fieldcat.
查看完整代码 
LOOP AT li_fieldcat INTO lwa_fieldcat.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
lwa_fieldcat-edit = 'X'.
查看完整代码 
lwa_fieldcat-edit = 'X'.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
MODIFY li_fieldcat FROM lwa_fieldcat.
查看完整代码 
MODIFY li_fieldcat FROM lwa_fieldcat.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
APPEND <wa_tab> TO <i_itab>.
查看完整代码 
APPEND <wa_tab> TO <i_itab>.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
ENDIF.
查看完整代码 
ENDIF.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
IF g_custom_container IS INITIAL.
查看完整代码 
IF g_custom_container IS INITIAL.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
ENDIF.
查看完整代码 
ENDIF.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
IF sy-ucomm = 'SHOW'.
查看完整代码 
IF sy-ucomm = 'SHOW'.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
LOOP AT li_fieldcat INTO lwa_fieldcat.
查看完整代码 
LOOP AT li_fieldcat INTO lwa_fieldcat.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
lwa_fieldcat-edit = ' '.
查看完整代码 
lwa_fieldcat-edit = ' '.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
MODIFY li_fieldcat FROM lwa_fieldcat.
查看完整代码 
MODIFY li_fieldcat FROM lwa_fieldcat.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
ENDIF.
查看完整代码 
ENDIF.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
IF sy-ucomm = 'SAVE'.
查看完整代码 
IF sy-ucomm = 'SAVE'.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
LOOP AT li_fieldcat INTO lwa_fieldcat.
查看完整代码 
LOOP AT li_fieldcat INTO lwa_fieldcat.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
IF lwa_fieldcat-key NE space.
查看完整代码 
IF lwa_fieldcat-key NE space.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
lwa_fieldcat-edit = space.
查看完整代码 
lwa_fieldcat-edit = space.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
MODIFY li_fieldcat FROM lwa_fieldcat.
查看完整代码 
MODIFY li_fieldcat FROM lwa_fieldcat.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
ENDIF.
查看完整代码 
ENDIF.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
ENDIF.
查看完整代码 
ENDIF.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
CALL METHOD grid1->set_table_for_first_display
查看完整代码 
CALL METHOD grid1->set_table_for_first_display
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
it_outtab            = <i_itab>
查看完整代码 
it_outtab            = <i_itab>
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
IF sy-subrc NE 0.
查看完整代码 
IF sy-subrc NE 0.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
ENDIF.
查看完整代码 
ENDIF.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
CALL FUNCTION 'ENQUEUE_E_TABLE'
查看完整代码 
CALL FUNCTION 'ENQUEUE_E_TABLE'
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
IF sy-subrc <> 0.
查看完整代码 
IF sy-subrc <> 0.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
ENDIF.
查看完整代码 
ENDIF.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
IF NOT grid1 IS INITIAL .
查看完整代码 
IF NOT grid1 IS INITIAL .
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
CALL METHOD grid1->check_changed_data .
查看完整代码 
CALL METHOD grid1->check_changed_data .
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
ENDIF .
查看完整代码 
ENDIF .
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
IF i_mod[] IS NOT INITIAL.
查看完整代码 
IF i_mod[] IS NOT INITIAL.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
LOOP AT i_mod INTO lwa_mod.
查看完整代码 
LOOP AT i_mod INTO lwa_mod.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
READ TABLE <i_itab> INTO <wa_tab> INDEX lwa_mod-row.
查看完整代码 
READ TABLE <i_itab> INTO <wa_tab> INDEX lwa_mod-row.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
IF sy-subrc = 0 .
查看完整代码 
IF sy-subrc = 0 .
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
IF lh_flag NE 'X'.
查看完整代码 
IF lh_flag NE 'X'.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
MODIFY (viewname) FROM <wa_tab>.
查看完整代码 
MODIFY (viewname) FROM <wa_tab>.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
IF sy-subrc NE 0.
查看完整代码 
IF sy-subrc NE 0.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
ENDIF.
查看完整代码 
ENDIF.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
ENDIF.
查看完整代码 
ENDIF.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
ENDIF.
查看完整代码 
ENDIF.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
ENDIF.
查看完整代码 
ENDIF.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
CALL FUNCTION 'DEQUEUE_E_TABLE'
查看完整代码 
CALL FUNCTION 'DEQUEUE_E_TABLE'
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
IF i_del[] IS NOT INITIAL.
查看完整代码 
IF i_del[] IS NOT INITIAL.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
LOOP AT i_del INTO lwa_del.
查看完整代码 
LOOP AT i_del INTO lwa_del.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
READ TABLE <i_itab> INTO <wa_tab> INDEX lwa_del-row.
查看完整代码 
READ TABLE <i_itab> INTO <wa_tab> INDEX lwa_del-row.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
IF sy-subrc = 0.
查看完整代码 
IF sy-subrc = 0.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
ENDIF.
查看完整代码 
ENDIF.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
ENDIF.
查看完整代码 
ENDIF.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
FORM handle_data_changed  USING    p_er_data_changed TYPE REF TO cl_alv_changed_data_protocol.
查看完整代码 
FORM handle_data_changed  USING    p_er_data_changed TYPE REF TO cl_alv_changed_data_protocol.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
LOOP AT p_er_data_changed->mt_good_cells INTO lwa_mod_cell.
查看完整代码 
LOOP AT p_er_data_changed->mt_good_cells INTO lwa_mod_cell.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
lwa_mod-row  = lwa_mod_cell-row_id.
查看完整代码 
lwa_mod-row  = lwa_mod_cell-row_id.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
APPEND lwa_mod TO i_mod.
查看完整代码 
APPEND lwa_mod TO i_mod.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
ENDFORM.                    " handle_data_changed
查看完整代码 
ENDFORM.                    " handle_data_changed
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
FORM exclude_tb_functions CHANGING pt_exclude TYPE ui_functions .
查看完整代码 
FORM exclude_tb_functions CHANGING pt_exclude TYPE ui_functions .
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
DATA:
查看完整代码 
DATA:
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
lwa_exclude = cl_gui_alv_grid=>mc_fc_loc_append_row.
查看完整代码 
lwa_exclude = cl_gui_alv_grid=>mc_fc_loc_append_row.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
APPEND lwa_exclude TO pt_exclude.
查看完整代码 
APPEND lwa_exclude TO pt_exclude.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
lwa_exclude = cl_gui_alv_grid=>mc_fc_loc_copy.
查看完整代码 
lwa_exclude = cl_gui_alv_grid=>mc_fc_loc_copy.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
APPEND lwa_exclude TO pt_exclude.
查看完整代码 
APPEND lwa_exclude TO pt_exclude.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
lwa_exclude = cl_gui_alv_grid=>mc_fc_loc_copy_row.
查看完整代码 
lwa_exclude = cl_gui_alv_grid=>mc_fc_loc_copy_row.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
APPEND lwa_exclude TO pt_exclude.
查看完整代码 
APPEND lwa_exclude TO pt_exclude.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
lwa_exclude = cl_gui_alv_grid=>mc_fc_loc_cut.
查看完整代码 
lwa_exclude = cl_gui_alv_grid=>mc_fc_loc_cut.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
APPEND lwa_exclude TO pt_exclude.
查看完整代码 
APPEND lwa_exclude TO pt_exclude.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
lwa_exclude = cl_gui_alv_grid=>mc_fc_loc_delete_row.
查看完整代码 
lwa_exclude = cl_gui_alv_grid=>mc_fc_loc_delete_row.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
APPEND lwa_exclude TO pt_exclude.
查看完整代码 
APPEND lwa_exclude TO pt_exclude.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
lwa_exclude = cl_gui_alv_grid=>mc_fc_loc_insert_row.
查看完整代码 
lwa_exclude = cl_gui_alv_grid=>mc_fc_loc_insert_row.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
APPEND lwa_exclude TO pt_exclude.
查看完整代码 
APPEND lwa_exclude TO pt_exclude.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
lwa_exclude = cl_gui_alv_grid=>mc_fc_loc_move_row.
查看完整代码 
lwa_exclude = cl_gui_alv_grid=>mc_fc_loc_move_row.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
APPEND lwa_exclude TO pt_exclude.
查看完整代码 
APPEND lwa_exclude TO pt_exclude.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
lwa_exclude = cl_gui_alv_grid=>mc_fc_loc_paste.
查看完整代码 
lwa_exclude = cl_gui_alv_grid=>mc_fc_loc_paste.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
APPEND lwa_exclude TO pt_exclude.
查看完整代码 
APPEND lwa_exclude TO pt_exclude.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
lwa_exclude = cl_gui_alv_grid=>mc_fc_loc_paste_new_row.
查看完整代码 
lwa_exclude = cl_gui_alv_grid=>mc_fc_loc_paste_new_row.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
APPEND lwa_exclude TO pt_exclude.
查看完整代码 
APPEND lwa_exclude TO pt_exclude.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
ENDFORM.                    "exclude_tb_functions
查看完整代码 
ENDFORM.                    "exclude_tb_functions
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
FORM handle_user_command  USING  p_ucomm TYPE syucomm.
查看完整代码 
FORM handle_user_command  USING  p_ucomm TYPE syucomm.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
CALL METHOD grid1->get_selected_rows
查看完整代码 
CALL METHOD grid1->get_selected_rows
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
LOOP AT i_selected_rows INTO lwa_selected_row.
查看完整代码 
LOOP AT i_selected_rows INTO lwa_selected_row.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
lwa_del-row = lwa_selected_row-row_id.
查看完整代码 
lwa_del-row = lwa_selected_row-row_id.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
APPEND lwa_del TO i_del.
查看完整代码 
APPEND lwa_del TO i_del.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
ENDFORM.                    " handle_user_command
查看完整代码 
ENDFORM.                    " handle_user_command
ABAP Create Table Maintenance via ALV Grid 
CLASS LCL_EVENT_RECEIVER DEFINITION DEFERRED.
查看完整代码 
CLASS LCL_EVENT_RECEIVER DEFINITION DEFERRED.
ABAP Create Table Maintenance via ALV Grid 
DATA:  L_VALID  TYPE C,
查看完整代码 
DATA:  L_VALID  TYPE C,
ABAP Create Table Maintenance via ALV Grid 
CLASS LCL_EVENT_RECEIVER DEFINITION.
查看完整代码 
CLASS LCL_EVENT_RECEIVER DEFINITION.
ABAP Create Table Maintenance via ALV Grid 
ENDCLASS. "lcl_event_receiver DEFINITION
查看完整代码 
ENDCLASS. "lcl_event_receiver DEFINITION
ABAP Create Table Maintenance via ALV Grid 
CLASS LCL_EVENT_RECEIVER IMPLEMENTATION.
查看完整代码 
CLASS LCL_EVENT_RECEIVER IMPLEMENTATION.
ABAP Create Table Maintenance via ALV Grid 
METHOD HANDLE_DATA_CHANGED.
查看完整代码 
METHOD HANDLE_DATA_CHANGED.
ABAP Create Table Maintenance via ALV Grid 
ENDMETHOD.                    "handle_data_changed
查看完整代码 
ENDMETHOD.                    "handle_data_changed
ABAP Create Table Maintenance via ALV Grid 
METHOD HANDLE_DATA_CHANGED_FINISHED.
查看完整代码 
METHOD HANDLE_DATA_CHANGED_FINISHED.
ABAP Create Table Maintenance via ALV Grid 
ENDMETHOD.                    "handle_data_changed_finished
查看完整代码 
ENDMETHOD.                    "handle_data_changed_finished
ABAP Create Table Maintenance via ALV Grid 
METHOD HANDLE_ON_F4.
查看完整代码 
METHOD HANDLE_ON_F4.
ABAP Create Table Maintenance via ALV Grid 
ENDMETHOD.                    "handle_on_f4
查看完整代码 
ENDMETHOD.                    "handle_on_f4
ABAP Create Table Maintenance via ALV Grid 
METHOD HANDLE_CONTEXT_MENU.
查看完整代码 
METHOD HANDLE_CONTEXT_MENU.
ABAP Create Table Maintenance via ALV Grid 
CALL METHOD E_OBJECT->CLEAR.
查看完整代码 
CALL METHOD E_OBJECT->CLEAR.
ABAP Create Table Maintenance via ALV Grid 
ENDMETHOD.                    "handle_context_menu
查看完整代码 
ENDMETHOD.                    "handle_context_menu
ABAP Create Table Maintenance via ALV Grid 
METHOD HANDLE_USER_COMMAND.
查看完整代码 
METHOD HANDLE_USER_COMMAND.
ABAP Create Table Maintenance via ALV Grid 
ENDMETHOD.                    "handle_user_command
查看完整代码 
ENDMETHOD.                    "handle_user_command
ABAP Create Table Maintenance via ALV Grid 
METHOD HANDLE_TOOLBAR.
查看完整代码 
METHOD HANDLE_TOOLBAR.
ABAP Create Table Maintenance via ALV Grid 
ENDMETHOD.                    "handle_toolbar
查看完整代码 
ENDMETHOD.                    "handle_toolbar
ABAP Create Table Maintenance via ALV Grid 
ENDCLASS. "lcl_event_receiver IMPLEMENTATION
查看完整代码 
ENDCLASS. "lcl_event_receiver IMPLEMENTATION
ABAP Create Table Maintenance via ALV Grid 
DATA: GT_EXMU TYPE TABLE OF SY-UCOMM.
查看完整代码 
DATA: GT_EXMU TYPE TABLE OF SY-UCOMM.
ABAP Create Table Maintenance via ALV Grid 
IF G_CHANGE NE GC_TRUE.
查看完整代码 
IF G_CHANGE NE GC_TRUE.
ABAP Create Table Maintenance via ALV Grid 
APPEND GC_SAVE TO GT_EXMU.
查看完整代码 
APPEND GC_SAVE TO GT_EXMU.
ABAP Create Table Maintenance via ALV Grid 
ENDIF.
查看完整代码 
ENDIF.
ABAP Create Table Maintenance via ALV Grid 
FORM PRO_GET_DATA .
查看完整代码 
FORM PRO_GET_DATA .
ABAP Create Table Maintenance via ALV Grid 
SELECT * FROM YVCNPMMT
查看完整代码 
SELECT * FROM YVCNPMMT
ABAP Create Table Maintenance via ALV Grid 
LOOP AT GT_XLIST INTO GS_XLIST.
查看完整代码 
LOOP AT GT_XLIST INTO GS_XLIST.
ABAP Create Table Maintenance via ALV Grid 
SELECT SINGLE MAKTX INTO GS_XLIST-MAKTX FROM MAKT
查看完整代码 
SELECT SINGLE MAKTX INTO GS_XLIST-MAKTX FROM MAKT
ABAP Create Table Maintenance via ALV Grid 
IF SY-SUBRC NE 0.
查看完整代码 
IF SY-SUBRC NE 0.
ABAP Create Table Maintenance via ALV Grid 
SELECT SINGLE MAKTX INTO GS_XLIST-MAKTX FROM MAKT
查看完整代码 
SELECT SINGLE MAKTX INTO GS_XLIST-MAKTX FROM MAKT
ABAP Create Table Maintenance via ALV Grid 
ENDIF.
查看完整代码 
ENDIF.
ABAP Create Table Maintenance via ALV Grid 
MODIFY GT_XLIST FROM GS_XLIST.
查看完整代码 
MODIFY GT_XLIST FROM GS_XLIST.
ABAP Create Table Maintenance via ALV Grid 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP Create Table Maintenance via ALV Grid 
APPEND GS_XLIST TO GT_XLIST.
查看完整代码 
APPEND GS_XLIST TO GT_XLIST.
ABAP Create Table Maintenance via ALV Grid 
ENDFORM. " pro_select_data
查看完整代码 
ENDFORM. " pro_select_data
ABAP Create Table Maintenance via ALV Grid 
FORM PRO_INIT_OBJECT .
查看完整代码 
FORM PRO_INIT_OBJECT .
ABAP Create Table Maintenance via ALV Grid 
ENDFORM. " pro_init_object
查看完整代码 
ENDFORM. " pro_init_object
ABAP Create Table Maintenance via ALV Grid 
FORM PRO_CREATE_OBJECT .
查看完整代码 
FORM PRO_CREATE_OBJECT .
ABAP Create Table Maintenance via ALV Grid 
CALL METHOD GK_CON_SP->SET_BORDER
查看完整代码 
CALL METHOD GK_CON_SP->SET_BORDER
ABAP Create Table Maintenance via ALV Grid 
CALL METHOD GK_CON_SP->GET_CONTAINER
查看完整代码 
CALL METHOD GK_CON_SP->GET_CONTAINER
ABAP Create Table Maintenance via ALV Grid 
CALL METHOD GK_CON_SP->GET_CONTAINER
查看完整代码 
CALL METHOD GK_CON_SP->GET_CONTAINER
ABAP Create Table Maintenance via ALV Grid 
ENDFORM. " pro_create_object
查看完整代码 
ENDFORM. " pro_create_object
ABAP Create Table Maintenance via ALV Grid 
FORM PRO_SET_LAYOUT.
查看完整代码 
FORM PRO_SET_LAYOUT.
ABAP Create Table Maintenance via ALV Grid 
ENDFORM. " pro_set_layout
查看完整代码 
ENDFORM. " pro_set_layout
ABAP Create Table Maintenance via ALV Grid 
FORM PRO_GET_FIELDCAT .
查看完整代码 
FORM PRO_GET_FIELDCAT .
ABAP Creation of IDoc extension for Basic type INVOIC01 – Step by step and real Business Scenario 
DATA: lv_nr_fapiao   TYPE zznr_fapiao,
查看完整代码 
DATA: lv_nr_fapiao   TYPE zznr_fapiao,
ABAP Creation of IDoc extension for Basic type INVOIC01 – Step by step and real Business Scenario 
DATA: ls_edidd TYPE edidd,
查看完整代码 
DATA: ls_edidd TYPE edidd,
ABAP Creation of IDoc extension for Basic type INVOIC01 – Step by step and real Business Scenario 
IF int_edidd-segnam = 'E1EDK02'.
查看完整代码 
IF int_edidd-segnam = 'E1EDK02'.
ABAP Creation of IDoc extension for Basic type INVOIC01 – Step by step and real Business Scenario 
IF e1edk02-qualf = '087'.
查看完整代码 
IF e1edk02-qualf = '087'.
ABAP Creation of IDoc extension for Basic type INVOIC01 – Step by step and real Business Scenario 
ls_edidd-segnam = 'Z1EDK02'.
查看完整代码 
ls_edidd-segnam = 'Z1EDK02'.
ABAP Creation of IDoc extension for Basic type INVOIC01 – Step by step and real Business Scenario 
SELECT SINGLE zznr_fapiao zzdt_fapiao
查看完整代码 
SELECT SINGLE zznr_fapiao zzdt_fapiao
ABAP Creation of IDoc extension for Basic type INVOIC01 – Step by step and real Business Scenario 
IF lv_nr_fapiao IS NOT INITIAL AND lv_dt_fapiao IS NOT INITIAL.
查看完整代码 
IF lv_nr_fapiao IS NOT INITIAL AND lv_dt_fapiao IS NOT INITIAL.
ABAP Creation of IDoc extension for Basic type INVOIC01 – Step by step and real Business Scenario 
ls_z1edk03-belnr = lv_nr_fapiao.
查看完整代码 
ls_z1edk03-belnr = lv_nr_fapiao.
ABAP Creation of IDoc extension for Basic type INVOIC01 – Step by step and real Business Scenario 
ls_z1edk03-bldat = lv_dt_fapiao.
查看完整代码 
ls_z1edk03-bldat = lv_dt_fapiao.
ABAP Creation of IDoc extension for Basic type INVOIC01 – Step by step and real Business Scenario 
APPEND ls_edidd TO int_edidd[]. "Addition of a new segment under 'E1EDK02'
查看完整代码 
APPEND ls_edidd TO int_edidd[]. "Addition of a new segment under 'E1EDK02'
ABAP Creation of IDoc extension for Basic type INVOIC01 – Step by step and real Business Scenario 
SELECT SINGLE * FROM bkpf
查看完整代码 
SELECT SINGLE * FROM bkpf
ABAP Creation of IDoc extension for Basic type INVOIC01 – Step by step and real Business Scenario 
IF sy-subrc = 0.
查看完整代码 
IF sy-subrc = 0.
ABAP Creation of IDoc extension for Basic type INVOIC01 – Step by step and real Business Scenario 
ls_z1edk03-belnr = bkpf-belnr.
查看完整代码 
ls_z1edk03-belnr = bkpf-belnr.
ABAP Creation of IDoc extension for Basic type INVOIC01 – Step by step and real Business Scenario 
ls_z1edk03-bldat = bkpf-bldat.
查看完整代码 
ls_z1edk03-bldat = bkpf-bldat.
ABAP Creation of IDoc extension for Basic type INVOIC01 – Step by step and real Business Scenario 
APPEND ls_edidd TO int_edidd[]. "Addition of a new segment under 'E1EDK02'
查看完整代码 
APPEND ls_edidd TO int_edidd[]. "Addition of a new segment under 'E1EDK02'
ABAP Creation of IDoc extension for Basic type INVOIC01 – Step by step and real Business Scenario 
ENDIF.
查看完整代码 
ENDIF.
ABAP Creation of IDoc extension for Basic type INVOIC01 – Step by step and real Business Scenario 
ENDIF.
查看完整代码 
ENDIF.
ABAP Creation of IDoc extension for Basic type INVOIC01 – Step by step and real Business Scenario 
ENDIF.
查看完整代码 
ENDIF.
ABAP Creation of IDoc extension for Basic type INVOIC01 – Step by step and real Business Scenario 
ENDIF.
查看完整代码 
ENDIF.
ABAP Dynamic Programming in ABAP – Introduction to Field Symbols 
DATA: var TYPE i VALUE 2.
查看完整代码 
DATA: var TYPE i VALUE 2.
ABAP Dynamic Programming in ABAP – Introduction to Field Symbols 
WRITE: / <fs_num>.
查看完整代码 
WRITE: / <fs_num>.
ABAP Dynamic Programming in ABAP – Introduction to Field Symbols 
WRITE: / var.
查看完整代码 
WRITE: / var.
ABAP Dynamic Programming in ABAP – Introduction to Field Symbols 
DATA: lt_mara TYPE STANDARD TABLE OF mara.
查看完整代码 
DATA: lt_mara TYPE STANDARD TABLE OF mara.
ABAP Dynamic Programming in ABAP – Introduction to Field Symbols 
SELECT * FROM mara INTO TABLE lt_mara UP TO 10 ROWS.
查看完整代码 
SELECT * FROM mara INTO TABLE lt_mara UP TO 10 ROWS.
ABAP Dynamic Programming in ABAP – Introduction to Field Symbols 
LOOP AT lt_mara ASSIGNING <fs_mara>.
查看完整代码 
LOOP AT lt_mara ASSIGNING <fs_mara>.
ABAP Dynamic Programming in ABAP – Introduction to Field Symbols 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP Dynamic Programming in ABAP – Introduction to Field Symbols 
DATA: lt_mara TYPE STANDARD TABLE OF mara.
查看完整代码 
DATA: lt_mara TYPE STANDARD TABLE OF mara.
ABAP Dynamic Programming in ABAP – Introduction to Field Symbols 
APPEND INITIAL LINE TO lt_mara ASSIGNING <fs_mara>.
查看完整代码 
APPEND INITIAL LINE TO lt_mara ASSIGNING <fs_mara>.
ABAP Dynamic Programming in ABAP – Introduction to Field Symbols 
IF <fs_mara> IS ASSIGNED.
查看完整代码 
IF <fs_mara> IS ASSIGNED.
ABAP Dynamic Programming in ABAP – Introduction to Field Symbols 
ENDIF.
查看完整代码 
ENDIF.
ABAP Dynamic Programming in ABAP – Introduction to Field Symbols 
APPEND INITIAL LINE TO lt_mara ASSIGNING <fs_mara>.
查看完整代码 
APPEND INITIAL LINE TO lt_mara ASSIGNING <fs_mara>.
ABAP Dynamic Programming in ABAP – Introduction to Field Symbols 
IF <fs_mara> IS ASSIGNED.
查看完整代码 
IF <fs_mara> IS ASSIGNED.
ABAP Dynamic Programming in ABAP – Introduction to Field Symbols 
ENDIF.
查看完整代码 
ENDIF.
ABAP Dynamic Programming in ABAP – Introduction to Field Symbols 
READ TABLE lt_mara ASSIGNING <fs_mara> WITH KEY matnr = 'MAT1'.
查看完整代码 
READ TABLE lt_mara ASSIGNING <fs_mara> WITH KEY matnr = 'MAT1'.
ABAP Dynamic Programming in ABAP – Introduction to Field Symbols 
DATA: lw_mara TYPE mara.
查看完整代码 
DATA: lw_mara TYPE mara.
ABAP Dynamic Programming in ABAP – Introduction to Field Symbols 
IF <fs_str> IS ASSIGNED.
查看完整代码 
IF <fs_str> IS ASSIGNED.
ABAP Dynamic Programming in ABAP – Introduction to Field Symbols 
IF <fs_data> IS ASSIGNED.
查看完整代码 
IF <fs_data> IS ASSIGNED.
ABAP Dynamic Programming in ABAP – Introduction to Field Symbols 
ENDIF.
查看完整代码 
ENDIF.
ABAP Dynamic Programming in ABAP – Introduction to Field Symbols 
ENDIF.
查看完整代码 
ENDIF.
ABAP Dynamic Programming in ABAP – Introduction to Field Symbols 
DATA: lt_mara TYPE STANDARD TABLE OF mara.
查看完整代码 
DATA: lt_mara TYPE STANDARD TABLE OF mara.
ABAP Dynamic Programming in ABAP – Introduction to Field Symbols 
DATA: lw_mara TYPE mara.
查看完整代码 
DATA: lw_mara TYPE mara.
ABAP Dynamic Programming in ABAP – Introduction to Field Symbols 
SELECT * FROM mara INTO TABLE lt_mara UP TO 10 ROWS.
查看完整代码 
SELECT * FROM mara INTO TABLE lt_mara UP TO 10 ROWS.
ABAP Dynamic Programming in ABAP – Introduction to Field Symbols 
LOOP AT <fs_tab> ASSIGNING <fs_str>.
查看完整代码 
LOOP AT <fs_tab> ASSIGNING <fs_str>.
ABAP Dynamic Programming in ABAP – Introduction to Field Symbols 
IF <fs_str> IS ASSIGNED.
查看完整代码 
IF <fs_str> IS ASSIGNED.
ABAP Dynamic Programming in ABAP – Introduction to Field Symbols 
IF <fs_data> IS ASSIGNED.
查看完整代码 
IF <fs_data> IS ASSIGNED.
ABAP Dynamic Programming in ABAP – Introduction to Field Symbols 
IF <fs_data> EQ '01'.
查看完整代码 
IF <fs_data> EQ '01'.
ABAP Dynamic Programming in ABAP – Introduction to Field Symbols 
ENDIF.
查看完整代码 
ENDIF.
ABAP Dynamic Programming in ABAP – Introduction to Field Symbols 
ENDIF.
查看完整代码 
ENDIF.
ABAP Dynamic Programming in ABAP – Introduction to Field Symbols 
ENDIF.
查看完整代码 
ENDIF.
ABAP Dynamic Programming in ABAP – Introduction to Field Symbols 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP Dynamic Programming in ABAP – Introduction to Field Symbols 
DATA: lt_mara TYPE STANDARD TABLE OF mara.
查看完整代码 
DATA: lt_mara TYPE STANDARD TABLE OF mara.
ABAP Dynamic Programming in ABAP – Introduction to Field Symbols 
SELECT * FROM mara INTO TABLE lt_mara UP TO 10 ROWS.
查看完整代码 
SELECT * FROM mara INTO TABLE lt_mara UP TO 10 ROWS.
ABAP Dynamic Programming in ABAP – Introduction to Field Symbols 
READ TABLE <fs_tab> ASSIGNING <fs_str> WITH KEY ('MATNR') = 'MAT001'.
查看完整代码 
READ TABLE <fs_tab> ASSIGNING <fs_str> WITH KEY ('MATNR') = 'MAT001'.
ABAP EBS如何实现自定义密码规则 
SELECT   dbms_java.longname(object_name), status
查看完整代码 
SELECT   dbms_java.longname(object_name), status
ABAP ECC的福音用自定义表提高BSEG取数性能
查看代码
FUNCTION zbte_zbseg_save.*"----------------------------------------------------------------------*"*"更新函数模块：*"*"*"局部接口：*"  IMPORTING*"     VALUE(UPDKZ) TYPE  UPDKZ_D OPTIONAL*"     VALUE(I_XBKPF) TYPE  BKPF OPTIONAL*"     VALUE(I_YBKPF) TYPE  BKPF OPTIONAL*"  TABLES*"      T_BKPF STRUCTURE  BKPF OPTIONAL*"      T_BSEG STRUCTURE  BSEG OPTIONAL*"      XBSEG STRUCTURE  FBSEG OPTIONAL*"----------------------------------
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
FUNCTION zbte_zbseg_save.*"----------------------------------------------------------------------*"*"更新函数模块：*"*"*"局部接口：*"  IMPORTING*"     VALUE(UPDKZ) TYPE  UPDKZ_D OPTIONAL*"     VALUE(I_XBKPF) TYPE  BKPF OPTIONAL*"     VALUE(I_YBKPF) TYPE  BKPF OPTIONAL*"  TABLES*"      T_BKPF STRUCTURE  BKPF OPTIONAL*"      T_BSEG STRUCTURE  BSEG OPTIONAL*"      XBSEG STRUCTURE  FBSEG OPTIONAL*"----------------------------------
/* ... 已截断，完整代码请查看原文 */
ABAP ECC的福音用自定义表提高BSEG取数性能 
MODIFY zbseg FROM TABLE lt_save.  LOOP AT t_bkpf WHERE stblg IS NOT INITIAL. "凭证冲销    UPDATE zbseg SET stblg = t_bkpf-belnr                     stjah = t_bkpf-gjahr      WHERE bukrs = t_bkpf-bukrs AND            belnr = t_bkpf-stblg AND            gjahr = t_bkpf-stjah.  ENDLOOP.ENDFUNCTION.
查看完整代码 
MODIFY zbseg FROM TABLE lt_save.  LOOP AT t_bkpf WHERE stblg IS NOT INITIAL. "凭证冲销    UPDATE zbseg SET stblg = t_bkpf-belnr                     stjah = t_bkpf-gjahr      WHERE bukrs = t_bkpf-bukrs AND            belnr = t_bkpf-stblg AND            gjahr = t_bkpf-stjah.  ENDLOOP.ENDFUNCTION.
ABAP ECC的福音用自定义表提高BSEG取数性能 
DATA: gt_bseg TYPE TABLE OF zbseg WITH HEADER LINE.DATA: gt_bkpf TYPE HASHED TABLE OF bkpf WITH HEADER LINE        WITH UNIQUE KEY mandt bukrs belnr gjahr.DATA: gv_cursor TYPE cursor,      gv_dbcntr TYPE i,      gv_dbcntw TYPE i.
SELECT-OPTIONS: s_bukrs FOR gt_bseg-bukrs,                s_gjahr FOR gt_bseg-gjahr.PARAMETERS p_trunc AS CHECKBOX.
查看完整代码 
DATA: gt_bseg TYPE TABLE OF zbseg WITH HEADER LINE.DATA: gt_bkpf TYPE HASHED TABLE OF bkpf WITH HEADER LINE        WITH UNIQUE KEY mandt bukrs belnr gjahr.DATA: gv_cursor TYPE cursor,      gv_dbcntr TYPE i,      gv_dbcntw TYPE i.
SELECT-OPTIONS: s_bukrs FOR gt_bseg-bukrs,                s_gjahr FOR gt_bseg-gjahr.PARAMETERS p_trunc AS CHECKBOX.
ABAP ECC的福音用自定义表提高BSEG取数性能
查看代码
DATA: gt_bseg1 TYPE TABLE OF zbseg WITH HEADER LINE,      gt_zbseg TYPE HASHED TABLE OF zbseg        WITH UNIQUE KEY bukrs belnr gjahr buzei WITH HEADER LINE.DATA: gt_bkpf TYPE HASHED TABLE OF bkpf WITH HEADER LINE        WITH UNIQUE KEY mandt bukrs belnr gjahr.DATA: gv_cursor TYPE cursor,      gv_dbcntr TYPE i,      gv_dbcntw TYPE i,      gv_errcnt TYPE i,      gv_rtmsg  TYPE bapi_msg.DATA: go_sdescr TYPE REF TO cl_abap_structdescr,      gt_comp   TYPE cl_abap_structdescr=>component_ta
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA: gt_bseg1 TYPE TABLE OF zbseg WITH HEADER LINE,      gt_zbseg TYPE HASHED TABLE OF zbseg        WITH UNIQUE KEY bukrs belnr gjahr buzei WITH HEADER LINE.DATA: gt_bkpf TYPE HASHED TABLE OF bkpf WITH HEADER LINE        WITH UNIQUE KEY mandt bukrs belnr gjahr.DATA: gv_cursor TYPE cursor,      gv_dbcntr TYPE i,      gv_dbcntw TYPE i,      gv_errcnt TYPE i,      gv_rtmsg  TYPE bapi_msg.DATA: go_sdescr TYPE REF TO cl_abap_structdescr,      gt_comp   TYPE cl_abap_structdescr=>component_ta
/* ... 已截断，完整代码请查看原文 */
ABAP EKPOEKBE和LIPS做JOIN的问题 
SELECT ... FROM EBAN WHERE EBELN =...
查看完整代码 
SELECT ... FROM EBAN WHERE EBELN =...
ABAP EKPOEKBE和LIPS做JOIN的问题 
SELECT ... FROM EKET WHERE EBELN =...
查看完整代码 
SELECT ... FROM EKET WHERE EBELN =...
ABAP EKPOEKBE和LIPS做JOIN的问题 
SELECT ... FROM EBAN WHERE BANFN = EKET-BANFN...
查看完整代码 
SELECT ... FROM EBAN WHERE BANFN = EKET-BANFN...
ABAP EKPOEKBE和LIPS做JOIN的问题 
SELECT ... FROM VBAK WHERE KUNNR = ...
查看完整代码 
SELECT ... FROM VBAK WHERE KUNNR = ...
ABAP EKPOEKBE和LIPS做JOIN的问题 
SELECT ... FROM VBAKPA WHERE KUNDE = ...
查看完整代码 
SELECT ... FROM VBAKPA WHERE KUNDE = ...
ABAP EKPOEKBE和LIPS做JOIN的问题 
SELECT ... FROM VBAK WHERE VBELN = VBKPA-VBELN...
查看完整代码 
SELECT ... FROM VBAK WHERE VBELN = VBKPA-VBELN...
ABAP EKPOEKBE和LIPS做JOIN的问题 
SELECT ... FROM AFKO WHERE RSNUM = ...
查看完整代码 
SELECT ... FROM AFKO WHERE RSNUM = ...
ABAP EKPOEKBE和LIPS做JOIN的问题 
SELECT ... FROM RESB WHERE RSNUM = ...
查看完整代码 
SELECT ... FROM RESB WHERE RSNUM = ...
ABAP EKPOEKBE和LIPS做JOIN的问题 
SELECT ... FROM AFKO WHERE AUFRN = RESB-AUFNR...
查看完整代码 
SELECT ... FROM AFKO WHERE AUFRN = RESB-AUFNR...
ABAP Easy ways to create and populate range tables in ABAP 7.4 onwards 
lr_bukrs_02 = VALUE #( FOR ls_bukrs IN lr_bukrs_01
查看完整代码 
lr_bukrs_02 = VALUE #( FOR ls_bukrs IN lr_bukrs_01
ABAP Easy ways to create and populate range tables in ABAP 7.4 onwards 
( low = ls_bukrs-low )
查看完整代码 
( low = ls_bukrs-low )
ABAP Easy ways to create and populate range tables in ABAP 7.4 onwards 
SELECT 'I' AS sign, 'EQ' AS option, bukrs AS low, @space AS high
查看完整代码 
SELECT 'I' AS sign, 'EQ' AS option, bukrs AS low, @space AS high
ABAP Easy ways to create and populate range tables in ABAP 7.4 onwards 
SELECT 'I' AS SIGN, 'EQ' AS OPTION, BUKRS AS LOW, CAST( @SPACE AS CHAR( 4 ) ) AS HIGH
查看完整代码 
SELECT 'I' AS SIGN, 'EQ' AS OPTION, BUKRS AS LOW, CAST( @SPACE AS CHAR( 4 ) ) AS HIGH
ABAP Easy ways to create and populate range tables in ABAP 7.4 onwards 
SELECT DISTINCT
查看完整代码 
SELECT DISTINCT
ABAP Easy ways to create and populate range tables in ABAP 7.4 onwards 
SELECT 'I' AS SIGN, 'EQ' AS OPTION, BUKRS AS LOW, CAST( @SPACE AS CHAR( 4 ) ) AS HIGH
查看完整代码 
SELECT 'I' AS SIGN, 'EQ' AS OPTION, BUKRS AS LOW, CAST( @SPACE AS CHAR( 4 ) ) AS HIGH
ABAP Enhancing SAP standard transactions FBL3NFBL1NFBL5N with extra fields in the output list via BTE 
SELECT SINGLE lifnr kunnr
查看完整代码 
SELECT SINGLE lifnr kunnr
ABAP Enhancing SAP standard transactions FBL3NFBL1NFBL5N with extra fields in the output list via BTE 
IF i_postab-shkzg = ‘S’.
查看完整代码 
IF i_postab-shkzg = ‘S’.
ABAP Enhancing SAP standard transactions FBL3NFBL1NFBL5N with extra fields in the output list via BTE 
ENDIF.
查看完整代码 
ENDIF.
ABAP Enhancing SAP standard transactions FBL3NFBL1NFBL5N with extra fields 
SELECT SINGLE lifnr kunnr
查看完整代码 
SELECT SINGLE lifnr kunnr
ABAP Enhancing SAP standard transactions FBL3NFBL1NFBL5N with extra fields 
IF i_postab-shkzg = ‘S’.
查看完整代码 
IF i_postab-shkzg = ‘S’.
ABAP Enhancing SAP standard transactions FBL3NFBL1NFBL5N with extra fields 
ENDIF.
查看完整代码 
ENDIF.
ABAP Excel高效输出工具XLSXWorkbench 
FORM  frm_down_excel  USING  uv_filename  TYPE  string  .
查看完整代码 
FORM  frm_down_excel  USING  uv_filename  TYPE  string  .
ABAP Excel高效输出工具XLSXWorkbench 
ls_header  \-  flight_info  =  'Tab Flight'  .
ls_header  \-  currency  =  'CNY'  .
查看完整代码 
ls_header  \-  flight_info  =  'Tab Flight'  .
ls_header  \-  currency  =  'CNY'  .
ABAP Excel高效输出工具XLSXWorkbench输出多个Sheet 
FORM  frm_down_excel  USING  uv_filename  TYPE  string  .
查看完整代码 
FORM  frm_down_excel  USING  uv_filename  TYPE  string  .
ABAP Excel高效输出工具XLSXWorkbench输出多个Sheet 
ls_header  \-  flight_info  =  'Tab Flight'  .
ls_header  \-  currency  =  'CNY'  .
查看完整代码 
ls_header  \-  flight_info  =  'Tab Flight'  .
ls_header  \-  currency  =  'CNY'  .
ABAP Excel高效输出工具XLSXWorkbench输出多个Sheet 
LOOP AT  sflight  INTO DATA  (  ls_sflight  ).
查看完整代码 
LOOP AT  sflight  INTO DATA  (  ls_sflight  ).
ABAP Excel高效输出工具XLSXWorkbench输出多个Sheet 
ls_header  \-  total_price  =  ls_header  \-  total_price + ls_item  \-  price
查看完整代码 
ls_header  \-  total_price  =  ls_header  \-  total_price + ls_item  \-  price
ABAP Excel高效输出工具XLSXWorkbench输出多个Sheet 
APPEND  ls_item  TO  lt_item  .
查看完整代码 
APPEND  ls_item  TO  lt_item  .
ABAP Excel高效输出工具XLSXWorkbench输出多个Sheet 
ENDLOOP  .
APPEND LINES OF  lt_item  TO  ls_header  \-  item  .
查看完整代码 
ENDLOOP  .
APPEND LINES OF  lt_item  TO  ls_header  \-  item  .
ABAP Excel高效输出工具XLSXWorkbench输出多个Sheet 
lt_comps_tab  =  lcl_tab_struc  -> components  .  _ "获取字段组件属性  _
LOOP AT  lt_comps_tab  INTO DATA  (  ls_comps_tab  ).  _ "根据字段组件内容
查看完整代码 
lt_comps_tab  =  lcl_tab_struc  -> components  .  _ "获取字段组件属性  _
LOOP AT  lt_comps_tab  INTO DATA  (  ls_comps_tab  ).  _ "根据字段组件内容
ABAP Excel高效输出工具XLSXWorkbench输出多个Sheet 
APPEND  ls_comps_tab  \-  name  TO  ls_header  \-  sheet02  \-  header_t[]  .
ENDLOOP  .
查看完整代码 
APPEND  ls_comps_tab  \-  name  TO  ls_header  \-  sheet02  \-  header_t[]  .
ENDLOOP  .
ABAP Excel高效输出工具XLSXWorkbench输出多个Sheet 
LOOP AT  scarr  INTO DATA  (  ls_scarr  ).  _ "将航班数据按照字段结构放到SHEET02-ITEM_T[]中
查看完整代码 
LOOP AT  scarr  INTO DATA  (  ls_scarr  ).  _ "将航班数据按照字段结构放到SHEET02-ITEM_T[]中
ABAP Excel高效输出工具XLSXWorkbench输出多个Sheet 
LOOP AT  lt_comps_tab  INTO  ls_comps_tab  .
查看完整代码 
LOOP AT  lt_comps_tab  INTO  ls_comps_tab  .
ABAP Excel高效输出工具XLSXWorkbench输出多个Sheet 
IF  sy  \-  subrc  EQ  0  .
APPEND  <fs_line_value> TO  l_t_item  .
ENDIF  .
ENDLOOP  .
查看完整代码 
IF  sy  \-  subrc  EQ  0  .
APPEND  <fs_line_value> TO  l_t_item  .
ENDIF  .
ENDLOOP  .
ABAP Excel高效输出工具XLSXWorkbench输出多个Sheet 
APPEND  l_s_item_lines  TO  ls_header  \-  sheet02  \-  item_t[]  .
ENDLOOP  .
查看完整代码 
APPEND  l_s_item_lines  TO  ls_header  \-  sheet02  \-  item_t[]  .
ENDLOOP  .
ABAP Excel高效输出工具XLSXWorkbench输出多个Sheet 
lt_comps_tab  =  lcl_tab_struc  -> components  .  _ "获取字段组件属性  _
查看完整代码 
lt_comps_tab  =  lcl_tab_struc  -> components  .  _ "获取字段组件属性  _
ABAP Excel高效输出工具XLSXWorkbench输出多个Sheet 
LOOP AT  lt_comps_tab  I
查看完整代码 
LOOP AT  lt_comps_tab  I
ABAP Export SAP tables to tab-delimited UTF-8 text file with header row 
wa_Header-header = lvDD03L-FIELDNAME.
查看完整代码 
wa_Header-header = lvDD03L-FIELDNAME.
ABAP Export SAP tables to tab-delimited UTF-8 text file with header row 
CALL FUNCTION 'GUI_DOWNLOAD'
查看完整代码 
CALL FUNCTION 'GUI_DOWNLOAD'
ABAP Export SAP tables to tab-delimited UTF-8 text file with header row 
FILENAME                        = lv_Filename
查看完整代码 
FILENAME                        = lv_Filename
ABAP Export SAP tables to tab-delimited UTF-8 text file with header row 
APPEND                          = lv_Append
查看完整代码 
APPEND                          = lv_Append
ABAP F4搜索帮助动态列VALUE_ORG39C39
查看代码
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'      EXPORTING*       DDIC_STRUCTURE   = ' '        retfield         = 'MATNR'            "这个参数为帮助表中返回到ALV的字段的参数*       PVALKEY          = ' '        dynpprog         = sy-repid           "当前程序，不写会有问题        dynpnr           = sy-dynnr           "当前屏幕，不写会有问题        value_org        = 'S'                "默认为C但是此处不用S不行        callback_program = sy-repid      TABLES        value_
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'      EXPORTING*       DDIC_STRUCTURE   = ' '        retfield         = 'MATNR'            "这个参数为帮助表中返回到ALV的字段的参数*       PVALKEY          = ' '        dynpprog         = sy-repid           "当前程序，不写会有问题        dynpnr           = sy-dynnr           "当前屏幕，不写会有问题        value_org        = 'S'                "默认为C但是此处不用S不行        callback_program = sy-repid      TABLES        value_
/* ... 已截断，完整代码请查看原文 */
ABAP F4搜索帮助动态列VALUE_ORG39C39 
根据选中的行的品类，获取所有尺码,然后创建  lvc_t_fcat  内表，用来存储ALV列，然后调用  cl_alv_table_create  =>
查看完整代码 
根据选中的行的品类，获取所有尺码,然后创建  lvc_t_fcat  内表，用来存储ALV列，然后调用  cl_alv_table_create  =>
ABAP F4搜索帮助动态列VALUE_ORG39C39
查看代码
REPORT ztest.TYPE-POOLS: slis.*---------------------------------------------------------------------** CLASS lcl_event_receiver DEFINITION*---------------------------------------------------------------------*CLASS lcl_event_receiver DEFINITION.  PUBLIC SECTION.    CLASS-METHODS:      on_f4 FOR EVENT onf4 OF cl_gui_alv_grid        IMPORTING sender                  e_fieldname                  e_fieldvalue                  es_row_no                  er_event_data                  et_bad_cel
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
REPORT ztest.TYPE-POOLS: slis.*---------------------------------------------------------------------** CLASS lcl_event_receiver DEFINITION*---------------------------------------------------------------------*CLASS lcl_event_receiver DEFINITION.  PUBLIC SECTION.    CLASS-METHODS:      on_f4 FOR EVENT onf4 OF cl_gui_alv_grid        IMPORTING sender                  e_fieldname                  e_fieldvalue                  es_row_no                  er_event_data                  et_bad_cel
/* ... 已截断，完整代码请查看原文 */
ABAP F4搜索帮助动态列VALUE_ORG39C39
查看代码
ENDCLASS. "lcl_event_receiver DEFINITION
TYPES: BEGIN OF ty_size,         size TYPE char10,         qty  TYPE i,       END OF ty_size.TYPES: tty_size TYPE STANDARD TABLE OF ty_size WITH EMPTY KEY.TYPES: BEGIN OF ty_data,         category TYPE char10, "品类         package  TYPE i, "套餐         size     TYPE tty_size, "尺码数量       END OF ty_data.TYPES: BEGIN OF ty_alv,         id       TYPE i,         category TYPE char10, "品类         package  TYPE i, "套餐       END
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
ENDCLASS. "lcl_event_receiver DEFINITION
TYPES: BEGIN OF ty_size,         size TYPE char10,         qty  TYPE i,       END OF ty_size.TYPES: tty_size TYPE STANDARD TABLE OF ty_size WITH EMPTY KEY.TYPES: BEGIN OF ty_data,         category TYPE char10, "品类         package  TYPE i, "套餐         size     TYPE tty_size, "尺码数量       END OF ty_data.TYPES: BEGIN OF ty_alv,         id       TYPE i,         category TYPE char10, "品类         package  TYPE i, "套餐       END
/* ... 已截断，完整代码请查看原文 */
ABAP F4搜索帮助动态列VALUE_ORG39C39
查看代码
FORM frm_set_data.  APPEND VALUE #( category = '上衣' package = 1                  size = VALUE #( ( size = 'XS' qty = 1 )                                  ( size = 'S'  qty = 3 ) )  ) TO gt_size.  APPEND VALUE #( category = '上衣' package = 2                  size = VALUE #( ( size = 'M'  qty = 2 )                                  ( size = 'L'  qty = 2 ) )  ) TO gt_size.  APPEND VALUE #( category = '上衣' package = 3         
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
FORM frm_set_data.  APPEND VALUE #( category = '上衣' package = 1                  size = VALUE #( ( size = 'XS' qty = 1 )                                  ( size = 'S'  qty = 3 ) )  ) TO gt_size.  APPEND VALUE #( category = '上衣' package = 2                  size = VALUE #( ( size = 'M'  qty = 2 )                                  ( size = 'L'  qty = 2 ) )  ) TO gt_size.  APPEND VALUE #( category = '上衣' package = 3         
/* ... 已截断，完整代码请查看原文 */
ABAP F4搜索帮助动态列VALUE_ORG39C39 
METHOD on_f4_s.    DEFINE add_fieldcat.      READ TABLE lt_fieldcat TRANSPORTING NO FIELDS WIT
查看完整代码 
METHOD on_f4_s.    DEFINE add_fieldcat.      READ TABLE lt_fieldcat TRANSPORTING NO FIELDS WIT
ABAP FAGLL03H增加自定义字段一
查看代码
METHOD add_text_field.
DATA: ls_sec_field   LIKE LINE OF ct_secondary_fields.    DATA: ls_key         LIKE LINE OF ls_sec_field-key_fields.    DATA: ld_db_name     TYPE         pivb_field_dbname.    DATA: ld_ddobjname   TYPE ddobjname.    DATA: ld_fieldname   TYPE dfies-lfieldname.    DATA: ls_dfies       TYPE dfies.    DATA: lt_dd08v TYPE STANDARD TABLE OF dd08v.    DATA: ls_dd08v LIKE LINE OF lt_dd08v.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
METHOD add_text_field.
DATA: ls_sec_field   LIKE LINE OF ct_secondary_fields.    DATA: ls_key         LIKE LINE OF ls_sec_field-key_fields.    DATA: ld_db_name     TYPE         pivb_field_dbname.    DATA: ld_ddobjname   TYPE ddobjname.    DATA: ld_fieldname   TYPE dfies-lfieldname.    DATA: ls_dfies       TYPE dfies.    DATA: lt_dd08v TYPE STANDARD TABLE OF dd08v.    DATA: ls_dd08v LIKE LINE OF lt_dd08v.
/* ... 已截断，完整代码请查看原文 */
ABAP FAGLL03H增加自定义字段一
查看代码
**  Determination of text fields via DD08L/DD03L    IF id_tabname IS NOT INITIAL AND id_db_name IS INITIAL.      ls_sec_field-tabname = id_tabname.
ld_ddobjname = id_tabname.      CALL FUNCTION 'DDIF_TABL_GET'        EXPORTING          name      = ld_ddobjname        TABLES          dd08v_tab = lt_dd08v.
READ TABLE lt_dd08v WITH KEY frkart = 'TEXT' INTO ls_dd08v.
ld_db_name = ls_dd08v-fieldname.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
**  Determination of text fields via DD08L/DD03L    IF id_tabname IS NOT INITIAL AND id_db_name IS INITIAL.      ls_sec_field-tabname = id_tabname.
ld_ddobjname = id_tabname.      CALL FUNCTION 'DDIF_TABL_GET'        EXPORTING          name      = ld_ddobjname        TABLES          dd08v_tab = lt_dd08v.
READ TABLE lt_dd08v WITH KEY frkart = 'TEXT' INTO ls_dd08v.
ld_db_name = ls_dd08v-fieldname.
/* ... 已截断，完整代码请查看原文 */
ABAP FAGLL03H增加自定义字段一
查看代码
CALL FUNCTION 'DDIF_FIELDINFO_GET'        EXPORTING          tabname        = ld_ddobjname          lfieldname     = ld_fieldname          langu          = sy-langu        IMPORTING          dfies_wa       = ls_dfies        EXCEPTIONS          not_found      = 1          internal_error = 2          OTHERS         = 3.      IF sy-subrc <> 0.* Implement suitable error handling here      ENDIF.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
CALL FUNCTION 'DDIF_FIELDINFO_GET'        EXPORTING          tabname        = ld_ddobjname          lfieldname     = ld_fieldname          langu          = sy-langu        IMPORTING          dfies_wa       = ls_dfies        EXCEPTIONS          not_found      = 1          internal_error = 2          OTHERS         = 3.      IF sy-subrc <> 0.* Implement suitable error handling here      ENDIF.
/* ... 已截断，完整代码请查看原文 */
ABAP FAGLL03H增加自定义字段一 
ENDMETHOD.
查看完整代码 
ENDMETHOD.
ABAP FAGLL03H增加自定义字段一 
METHOD if_fagl_lib~add_secondary_fields.
查看完整代码 
METHOD if_fagl_lib~add_secondary_fields.
ABAP FAGLL03H增加自定义字段一
查看代码
CALL METHOD me->add_text_field        EXPORTING          id_tabname          = 'CEPCT'          id_primary_field    = 'ZZ01'*         id_domname          = 'PRCTR'          id_fieldname        = 'PRCTR'          id_db_name          = 'MCTXT'          id_language_key     = 'X'     "set this if the table has a          id_language_field   = 'SPRAS' "language dependent key field        CHANGING          ct_seco
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
CALL METHOD me->add_text_field        EXPORTING          id_tabname          = 'CEPCT'          id_primary_field    = 'ZZ01'*         id_domname          = 'PRCTR'          id_fieldname        = 'PRCTR'          id_db_name          = 'MCTXT'          id_language_key     = 'X'     "set this if the table has a          id_language_field   = 'SPRAS' "language dependent key field        CHANGING          ct_seco
/* ... 已截断，完整代码请查看原文 */
ABAP FAGLL03H增加自定义字段二
查看代码
METHOD if_fagl_lib~select_data.    FIELD-SYMBOLS: <fs> TYPE any.    FIELD-SYMBOLS <ls_data>                 TYPE any.    FIELD-SYMBOLS <ld_data>                 TYPE any.
TYPES: BEGIN OF lty_matnr,             matnr         TYPE matnr,             zmat_cate_txt TYPE ztmd001c-zmat_cate_txt,           END OF lty_matnr.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
METHOD if_fagl_lib~select_data.    FIELD-SYMBOLS: <fs> TYPE any.    FIELD-SYMBOLS <ls_data>                 TYPE any.    FIELD-SYMBOLS <ld_data>                 TYPE any.
TYPES: BEGIN OF lty_matnr,             matnr         TYPE matnr,             zmat_cate_txt TYPE ztmd001c-zmat_cate_txt,           END OF lty_matnr.
/* ... 已截断，完整代码请查看原文 */
ABAP FAGLL03H增加自定义字段二
查看代码
* Get structure description of data table    CALL METHOD cl_abap_structdescr=>describe_by_data      EXPORTING        p_data      = <ls_data>      RECEIVING        p_descr_ref = lo_descr.
lo_str_descr_in ?= lo_descr.    READ TABLE lo_str_descr_in->components TRANSPORTING NO FIELDS WITH KEY name = 'MATNR'.    CHECK sy-subrc = 0.    LOOP AT ct_data ASSIGNING <ls_data>.      ASSIGN COMPONENT 'MATNR' OF STRUCTURE <ls_data> TO <ld_data>.      CHE
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
* Get structure description of data table    CALL METHOD cl_abap_structdescr=>describe_by_data      EXPORTING        p_data      = <ls_data>      RECEIVING        p_descr_ref = lo_descr.
lo_str_descr_in ?= lo_descr.    READ TABLE lo_str_descr_in->components TRANSPORTING NO FIELDS WITH KEY name = 'MATNR'.    CHECK sy-subrc = 0.    LOOP AT ct_data ASSIGNING <ls_data>.      ASSIGN COMPONENT 'MATNR' OF STRUCTURE <ls_data> TO <ld_data>.      CHE
/* ... 已截断，完整代码请查看原文 */
ABAP FB05 through FM, POSTING_INTERFACE_CLEARING 
ENDIF.
查看完整代码 
ENDIF.
ABAP FORALLENTRIESIN与INNERJOIN内表 
"--------------------@斌将军--------------------  IF gt_acd IS NOT INITIAL.  SELECT    acdoca~rldnr,"总账会计中的分类账    acdoca~rbukrs,"公司代码    acdoca~gjahr,"会计年度    acdoca~belnr,"会计凭证号码    acdoca~docln"分类账 6 字符过账项目  FROM acdoca  FOR ALL ENTRIES IN @gt_acd  WHERE acdoca~gjahr = @gt_acd-gjahr AND acdoca~docln = @gt_acd-docln  INTO TABLE @DATA(lt_data2).ENDIF."--------------------@斌将军--------------------
查看完整代码 
"--------------------@斌将军--------------------  IF gt_acd IS NOT INITIAL.  SELECT    acdoca~rldnr,"总账会计中的分类账    acdoca~rbukrs,"公司代码    acdoca~gjahr,"会计年度    acdoca~belnr,"会计凭证号码    acdoca~docln"分类账 6 字符过账项目  FROM acdoca  FOR ALL ENTRIES IN @gt_acd  WHERE acdoca~gjahr = @gt_acd-gjahr AND acdoca~docln = @gt_acd-docln  INTO TABLE @DATA(lt_data2).ENDIF."--------------------@斌将军--------------------
ABAP FORALLENTRIESIN与INNERJOIN内表 
"--------------------@斌将军--------------------  SELECT    acdoca~rldnr,"总账会计中的分类账    acdoca~rbukrs,"公司代码    acdoca~gjahr,"会计年度    acdoca~belnr,"会计凭证号码    acdoca~docln"分类账 6 字符过账项目  FROM acdoca  INNER JOIN @gt_acd AS acd ON acdoca~gjahr = acd~gjahr AND acdoca~docln = acd~docln  INTO TABLE @DATA(lt_data)."赋值放在最后一行"--------------------@斌将军--------------------
查看完整代码 
"--------------------@斌将军--------------------  SELECT    acdoca~rldnr,"总账会计中的分类账    acdoca~rbukrs,"公司代码    acdoca~gjahr,"会计年度    acdoca~belnr,"会计凭证号码    acdoca~docln"分类账 6 字符过账项目  FROM acdoca  INNER JOIN @gt_acd AS acd ON acdoca~gjahr = acd~gjahr AND acdoca~docln = acd~docln  INTO TABLE @DATA(lt_data)."赋值放在最后一行"--------------------@斌将军--------------------
ABAP FORALLENTRIESIN与INNERJOIN内表 
"--------------------@斌将军--------------------ls_marc-matnr = '000000000000001000'.APPEND ls_marc TO lt_marc.ls_marc-matnr = '000000000000001000'.APPEND ls_marc TO lt_marc."--------------------@斌将军--------------------
查看完整代码 
"--------------------@斌将军--------------------ls_marc-matnr = '000000000000001000'.APPEND ls_marc TO lt_marc.ls_marc-matnr = '000000000000001000'.APPEND ls_marc TO lt_marc."--------------------@斌将军--------------------
ABAP FORALLENTRIESIN与INNERJOIN内表 
DATA:lt_acd_sort TYPE SORTED TABLE OF ty_acd WITH UNIQUE KEY gjahr docln.
查看完整代码 
DATA:lt_acd_sort TYPE SORTED TABLE OF ty_acd WITH UNIQUE KEY gjahr docln.
ABAP FORALLENTRIESIN与INNERJOIN内表 
GET TIME STAMP FIELD lv_current1.  MOVE-CORRESPONDING gt_acd TO lt_acd_sort.  SELECT    acdoca~rldnr,"总账会计中的分类账    acdoca~rbukrs,"公司代码    acdoca~gjahr,"会计年度    acdoca~belnr,"会计凭证号码    acdoca~docln"分类账 6 字符过账项目  FROM acdoca  INNER JOIN @lt_acd_sort AS acd ON acdoca~gjahr = acd~gjahr AND acdoca~docln = acd~docln  INTO TABLE @DATA(lt_data4).  GET TIME STAMP FIELD lv_current2."--------------------@斌将军--------------------
查看完整代码 
GET TIME STAMP FIELD lv_current1.  MOVE-CORRESPONDING gt_acd TO lt_acd_sort.  SELECT    acdoca~rldnr,"总账会计中的分类账    acdoca~rbukrs,"公司代码    acdoca~gjahr,"会计年度    acdoca~belnr,"会计凭证号码    acdoca~docln"分类账 6 字符过账项目  FROM acdoca  INNER JOIN @lt_acd_sort AS acd ON acdoca~gjahr = acd~gjahr AND acdoca~docln = acd~docln  INTO TABLE @DATA(lt_data4).  GET TIME STAMP FIELD lv_current2."--------------------@斌将军--------------------
ABAP Fiorielements简介 
CLASS lhc_booking DEFINITION INHERITING FROM cl_abap_behavior_handler.
查看完整代码 
CLASS lhc_booking DEFINITION INHERITING FROM cl_abap_behavior_handler.
ABAP Fiorielements简介 
CLASS-DATA:      mt_book TYPE STANDARD TABLE OF sbook WITH NON-UNIQUE DEFAULT KEY.
查看完整代码 
CLASS-DATA:      mt_book TYPE STANDARD TABLE OF sbook WITH NON-UNIQUE DEFAULT KEY.
ABAP Fiorielements简介 
TYPES:      ty_action(2)     TYPE c,      tt_message       TYPE TABLE OF symsg,      tt_book_failed   TYPE TABLE FOR FAILED zibook,      tt_book_reported TYPE TABLE FOR REPORTED zibook.
CONSTANTS:      BEGIN OF cs_action,        create TYPE ty_action VALUE '01',        update TYPE ty_action VALUE '02',        delete TYPE ty_action VALUE '03',      END OF cs_action.
查看完整代码 
TYPES:      ty_action(2)     TYPE c,      tt_message       TYPE TABLE OF symsg,      tt_book_failed   TYPE TABLE FOR FAILED zibook,      tt_book_reported TYPE TABLE FOR REPORTED zibook.
CONSTANTS:      BEGIN OF cs_action,        create TYPE ty_action VALUE '01',        update TYPE ty_action VALUE '02',        delete TYPE ty_action VALUE '03',      END OF cs_action.
ABAP Fiorielements简介
查看代码
METHODS create FOR MODIFY      IMPORTING entities FOR CREATE booking.
METHODS delete FOR MODIFY      IMPORTING keys FOR DELETE booking.
METHODS update FOR MODIFY      IMPORTING entities FOR UPDATE booking.
METHODS lock FOR BEHAVIOR      IMPORTING keys FOR LOCK booking.
METHODS read FOR BEHAVIOR      IMPORTING keys FOR READ booking RESULT result.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
METHODS create FOR MODIFY      IMPORTING entities FOR CREATE booking.
METHODS delete FOR MODIFY      IMPORTING keys FOR DELETE booking.
METHODS update FOR MODIFY      IMPORTING entities FOR UPDATE booking.
METHODS lock FOR BEHAVIOR      IMPORTING keys FOR LOCK booking.
METHODS read FOR BEHAVIOR      IMPORTING keys FOR READ booking RESULT result.
/* ... 已截断，完整代码请查看原文 */
ABAP Fiorielements简介 
METHODS set_reserved FOR MODIFY      IMPORTING keys FOR ACTION booking~reservation RESULT result.
METHODS get_features   FOR FEATURES      IMPORTING keys REQUEST  requested_features FOR booking RESULT result.
ENDCLASS.
CLASS lhc_booking IMPLEMENTATION.
METHOD create.
DATA: lt_sbook TYPE TABLE OF sbook,          ls_sbook TYPE sbook.
LOOP AT entities INTO DATA(ls_entity).
DATA(lv_message) = validate( iv_action = cs_action-create is_book = CORRESPONDING sbook( ls_entity ) ).
...
查看完整代码
查看代码
METHODS set_reserved FOR MODIFY      IMPORTING keys FOR ACTION booking~reservation RESULT result.
METHODS get_features   FOR FEATURES      IMPORTING keys REQUEST  requested_features FOR booking RESULT result.
ENDCLASS.
CLASS lhc_booking IMPLEMENTATION.
METHOD create.
DATA: lt_sbook TYPE TABLE OF sbook,          ls_sbook TYPE sbook.
LOOP AT entities INTO DATA(ls_entity).
DATA(lv_message) = validate( iv_action = cs_action-create is_book = CORRESPONDING sbook( ls_entity ) ).
/* ... 已截断，完整代码请查看原文 */
ABAP GOS会计凭证上传附件 
REPORT zgos.
查看完整代码 
REPORT zgos.
ABAP GOS会计凭证上传附件 
PARAMETERS:p_file  TYPE rlgrap-filename MEMORY ID p, "上载模版路径
查看完整代码 
PARAMETERS:p_file  TYPE rlgrap-filename MEMORY ID p, "上载模版路径
ABAP GOS会计凭证上传附件 
FORM frm_choose_file.
查看完整代码 
FORM frm_choose_file.
ABAP GOS会计凭证上传附件 
CALL FUNCTION 'F4_FILENAME'
查看完整代码 
CALL FUNCTION 'F4_FILENAME'
ABAP GOS会计凭证上传附件 
IF sy-subrc <> 0.
查看完整代码 
IF sy-subrc <> 0.
ABAP GOS会计凭证上传附件 
ENDIF.
查看完整代码 
ENDIF.
ABAP GOS会计凭证上传附件 
ENDFORM. "FRM_CHOOSE_FILE
查看完整代码 
ENDFORM. "FRM_CHOOSE_FILE
ABAP GOS会计凭证上传附件 
FORM frm_upload_file.
查看完整代码 
FORM frm_upload_file.
ABAP GOS会计凭证上传附件 
DATA:lt_swcont        TYPE TABLE OF swcont WITH HEADER LINE,
查看完整代码 
DATA:lt_swcont        TYPE TABLE OF swcont WITH HEADER LINE,
ABAP GOS会计凭证上传附件 
DATA:lv_filename       TYPE string,
查看完整代码 
DATA:lv_filename       TYPE string,
ABAP GOS会计凭证上传附件 
lv_filename = p_file.
查看完整代码 
lv_filename = p_file.
ABAP GOS会计凭证上传附件 
CALL FUNCTION 'GUI_UPLOAD'
查看完整代码 
CALL FUNCTION 'GUI_UPLOAD'
ABAP GOS会计凭证上传附件 
filename                = lv_filename
查看完整代码 
filename                = lv_filename
ABAP GOS会计凭证上传附件 
filelength              = ls_attsize
查看完整代码 
filelength              = ls_attsize
ABAP GOS会计凭证上传附件 
data_tab                = lt_bin
查看完整代码 
data_tab                = lt_bin
ABAP GOS会计凭证上传附件 
IF sy-subrc <> 0.
查看完整代码 
IF sy-subrc <> 0.
ABAP GOS会计凭证上传附件 
lv_long_filename = lv_filename.
查看完整代码 
lv_long_filename = lv_filename.
ABAP GOS会计凭证上传附件 
CALL FUNCTION 'SPLIT_FILENAME'
查看完整代码 
CALL FUNCTION 'SPLIT_FILENAME'
ABAP GOS会计凭证上传附件 
long_filename  = lv_long_filename
查看完整代码 
long_filename  = lv_long_filename
ABAP GOS会计凭证上传附件 
pure_filename  = lv_pure_filename
查看完整代码 
pure_filename  = lv_pure_filename
ABAP GOS会计凭证上传附件 
pure_extension = lv_pure_extension.
查看完整代码 
pure_extension = lv_pure_extension.
ABAP GOS会计凭证上传附件 
ls_roleb-objtype = 'MESSAGE'.   "
查看完整代码 
ls_roleb-objtype = 'MESSAGE'.   "
ABAP GOS会计凭证上传附件 
ls_obja-objtype = 'BKPF'.      "
查看完整代码 
ls_obja-objtype = 'BKPF'.      "
ABAP GOS会计凭证上传附件 
ls_obja-objkey = p_bukrs && p_belnr && p_gjahr."拼接会计公司、会计凭证、会计年度
查看完整代码 
ls_obja-objkey = p_bukrs && p_belnr && p_gjahr."拼接会计公司、会计凭证、会计年度
ABAP GOS会计凭证上传附件 
CALL FUNCTION 'BINARY_RELATION_CREATE_COMMIT'
查看完整代码 
CALL FUNCTION 'BINARY_RELATION_CREATE_COMMIT'
ABAP GOS会计凭证上传附件 
obj_rolea      = ls_obja
查看完整代码 
obj_rolea      = ls_obja
ABAP GOS会计凭证上传附件 
obj_roleb      = ls_roleb
查看完整代码 
obj_roleb      = ls_roleb
ABAP GOS会计凭证上传附件 
binrel         = ls_binrel
查看完整代码 
binrel         = ls_binrel
ABAP GOS会计凭证上传附件 
binrel_attrib  = lt_binrel_attrib
查看完整代码 
binrel_attrib  = lt_binrel_attrib
ABAP GOS会计凭证上传附件 
IF sy-subrc EQ 0.
查看完整代码 
IF sy-subrc EQ 0.
ABAP GOS会计凭证上传附件 
ENDIF.
查看完整代码 
ENDIF.
ABAP GOS会计凭证上传附件 
ENDIF.
查看完整代码 
ENDIF.
ABAP GOS会计凭证上传附件 
ENDFORM.
查看完整代码 
ENDFORM.
ABAP GOS会计凭证上传附件 
IF sy-subrc <> 0.  ENDIF.ENDFORM. "FRM_CHOOSE_FILE
查看完整代码 
IF sy-subrc <> 0.  ENDIF.ENDFORM. "FRM_CHOOSE_FILE
ABAP GOS会计凭证上传附件
查看代码
DATA:lt_swcont        TYPE TABLE OF swcont WITH HEADER LINE,       lt_binrel_attrib TYPE TABLE OF brelattr,       lt_bin           TYPE TABLE OF solix.
DATA:lv_filename       TYPE string,       lv_long_filename  TYPE dbmsgora-filename,       lv_pure_filename  TYPE sdbah-actid,       lv_pure_extension TYPE sdbad-funct,       ls_obja           TYPE borident,       ls_roleb          TYPE borident,       ls_binrel         TYPE gbinrel,       ls_attsize        TYPE int4,       lo_swc_obj       
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA:lt_swcont        TYPE TABLE OF swcont WITH HEADER LINE,       lt_binrel_attrib TYPE TABLE OF brelattr,       lt_bin           TYPE TABLE OF solix.
DATA:lv_filename       TYPE string,       lv_long_filename  TYPE dbmsgora-filename,       lv_pure_filename  TYPE sdbah-actid,       lv_pure_extension TYPE sdbad-funct,       ls_obja           TYPE borident,       ls_roleb          TYPE borident,       ls_binrel         TYPE gbinrel,       ls_attsize        TYPE int4,       lo_swc_obj       
/* ... 已截断，完整代码请查看原文 */
ABAP GOS会计凭证上传附件
查看代码
ls_roleb-objtype = 'MESSAGE'.   "    ls_obja-objtype = 'BKPF'.      "    ls_obja-objkey = p_bukrs && p_belnr && p_gjahr."拼接会计公司、会计凭证、会计年度
"上传附件    CALL FUNCTION 'BINARY_RELATION_CREATE_COMMIT'      EXPORTING        obj_rolea      = ls_obja        obj_roleb      = ls_roleb        relationtype   = 'ATTA'      IMPORTING        binrel         = ls_binrel      TABLES        binrel_attrib  = lt_binrel_attrib      EXCEPTI
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
ls_roleb-objtype = 'MESSAGE'.   "    ls_obja-objtype = 'BKPF'.      "    ls_obja-objkey = p_bukrs && p_belnr && p_gjahr."拼接会计公司、会计凭证、会计年度
"上传附件    CALL FUNCTION 'BINARY_RELATION_CREATE_COMMIT'      EXPORTING        obj_rolea      = ls_obja        obj_roleb      = ls_roleb        relationtype   = 'ATTA'      IMPORTING        binrel         = ls_binrel      TABLES        binrel_attrib  = lt_binrel_attrib      EXCEPTI
/* ... 已截断，完整代码请查看原文 */
ABAP HOW TO XSLT_TOOL simple transformation 
call transformation ztest source xml string result data = lt_params.
查看完整代码 
call transformation ztest source xml string result data = lt_params.
ABAP HOW TO XSLT_TOOL simple transformation 
DELETE lt_params WHERE paramname = 'bus'.
查看完整代码 
DELETE lt_params WHERE paramname = 'bus'.
ABAP Hana系统下更新凭证文本字段acdoca-sgtxt 
LOOP AT ct_acdoc_clearing ASSIGNING  <fs_acdoc_clearing>.
IF sy-tcode = 'FB08' OR
查看完整代码 
LOOP AT ct_acdoc_clearing ASSIGNING  <fs_acdoc_clearing>.
IF sy-tcode = 'FB08' OR
ABAP Hana系统下更新凭证文本字段acdoca-sgtxt 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP How to Read an Uploaded Excel File in SAP ABAP 
rc          = lv_return
查看完整代码 
rc          = lv_return
ABAP How to Read an Uploaded Excel File in SAP ABAP 
user_action = lv_user_action
查看完整代码 
user_action = lv_user_action
ABAP How to Read an Uploaded Excel File in SAP ABAP 
IF lv_user_action EQ cl_gui_frontend_services=>action_ok.
查看完整代码 
IF lv_user_action EQ cl_gui_frontend_services=>action_ok.
ABAP How to Read an Uploaded Excel File in SAP ABAP 
IF lines( it_filetable ) > 0.
查看完整代码 
IF lines( it_filetable ) > 0.
ABAP How to Read an Uploaded Excel File in SAP ABAP 
ENDIF.
查看完整代码 
ENDIF.
ABAP How to Read an Uploaded Excel File in SAP ABAP 
ENDIF.
查看完整代码 
ENDIF.
ABAP How to Read an Uploaded Excel File in SAP ABAP 
DATA(lo_excel_reader) = CAST zif_excel_reader( NEW zcl_excel_reader_2007( ) ).
查看完整代码 
DATA(lo_excel_reader) = CAST zif_excel_reader( NEW zcl_excel_reader_2007( ) ).
ABAP How to Read an Uploaded Excel File in SAP ABAP 
DATA(lo_excel_file) = lo_excel_reader->load_file( pa_funcname ).
查看完整代码 
DATA(lo_excel_file) = lo_excel_reader->load_file( pa_funcname ).
ABAP How to Read an Uploaded Excel File in SAP ABAP 
DATA(lo_active_sheet) = lo_excel_file->get_active_worksheet( ).
查看完整代码 
DATA(lo_active_sheet) = lo_excel_file->get_active_worksheet( ).
ABAP How to Read an Uploaded Excel File in SAP ABAP 
LOOP AT lo_active_sheet->sheet_content ASSIGNING FIELD-SYMBOL(<cell>) GROUP BY <cell>-cell_row ASSIGNING FIELD-SYMBOL(<row>).
查看完整代码 
LOOP AT lo_active_sheet->sheet_content ASSIGNING FIELD-SYMBOL(<cell>) GROUP BY <cell>-cell_row ASSIGNING FIELD-SYMBOL(<row>).
ABAP How to Read an Uploaded Excel File in SAP ABAP 
LOOP AT GROUP <row> ASSIGNING FIELD-SYMBOL(<cell_data>).
查看完整代码 
LOOP AT GROUP <row> ASSIGNING FIELD-SYMBOL(<cell_data>).
ABAP How to Read an Uploaded Excel File in SAP ABAP 
WRITE: / <cell_data>-cell_coords,
查看完整代码 
WRITE: / <cell_data>-cell_coords,
ABAP How to Read an Uploaded Excel File in SAP ABAP 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP How to Read an Uploaded Excel File in SAP ABAP 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP How to Read an Uploaded Excel File in SAP ABAP 
WRITE: / e_error_message->get_text( ).
查看完整代码 
WRITE: / e_error_message->get_text( ).
ABAP How to add a GOS Attachment 
DATA: lo_attachment TYPE REF TO zcl_attachment,
查看完整代码 
DATA: lo_attachment TYPE REF TO zcl_attachment,
ABAP How to add a GOS Attachment 
CALL METHOD zcl_gos_attachment=>get_attachments_for_bo(
查看完整代码 
CALL METHOD zcl_gos_attachment=>get_attachments_for_bo(
ABAP How to add a GOS Attachment 
attachments = lt_attachments ).
查看完整代码 
attachments = lt_attachments ).
ABAP How to add a GOS Attachment 
READ TABLE lt_attachments INTO lo_attachment INDEX 1.
查看完整代码 
READ TABLE lt_attachments INTO lo_attachment INDEX 1.
ABAP How to add a GOS Attachment 
lv_xml = lo_attachment->get_ascii_content( ).
查看完整代码 
lv_xml = lo_attachment->get_ascii_content( ).
ABAP How to add a GOS Attachment 
DATA: lo_attachment TYPE REF TO zcl_attachment,
查看完整代码 
DATA: lo_attachment TYPE REF TO zcl_attachment,
ABAP How to add a GOS Attachment 
lv_binary_string = ‘’.
查看完整代码 
lv_binary_string = ‘’.
ABAP How to add a GOS Attachment 
CALL METHOD zcl_gos_attachment=>upload_binary_file
查看完整代码 
CALL METHOD zcl_gos_attachment=>upload_binary_file
ABAP How to add a GOS Attachment 
binary_string = lv_binary_string
查看完整代码 
binary_string = lv_binary_string
ABAP How to add a GOS Attachment 
attachment    = lo_attachment.
查看完整代码 
attachment    = lo_attachment.
ABAP How to add a GOS Attachment 
METHOD get_ascii_content.
查看完整代码 
METHOD get_ascii_content.
ABAP How to add a GOS Attachment 
DATA:
查看完整代码 
DATA:
ABAP How to add a GOS Attachment 
lv_logical_key-objtype = me->key-objtypelo.
lv_logical_key-class = me->key-classlo.
lv_logical_key-objid = me->key-objidlo.
查看完整代码 
lv_logical_key-objtype = me->key-objtypelo.
lv_logical_key-class = me->key-classlo.
lv_logical_key-objid = me->key-objidlo.
ABAP How to add a GOS Attachment 
CALL METHOD cl_crm_documents=>get_with_table
查看完整代码 
CALL METHOD cl_crm_documents=>get_with_table
ABAP How to add a GOS Attachment 
loio               = lv_logical_key
查看完整代码 
loio               = lv_logical_key
ABAP How to add a GOS Attachment 
error              = ls_error
file_content_ascii = lt_content.
查看完整代码 
error              = ls_error
file_content_ascii = lt_content.
ABAP How to add a GOS Attachment 
IF ls_error IS NOT INITIAL.
查看完整代码 
IF ls_error IS NOT INITIAL.
ABAP How to add a GOS Attachment 
RAISE EXCEPTION TYPE zcx_gos_attachment_exception.
ENDIF.
查看完整代码 
RAISE EXCEPTION TYPE zcx_gos_attachment_exception.
ENDIF.
ABAP How to add a GOS Attachment 
LOOP AT lt_content ASSIGNING <line>.
查看完整代码 
LOOP AT lt_content ASSIGNING <line>.
ABAP How to add a GOS Attachment 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP How to add a GOS Attachment 
ENDMETHOD.
查看完整代码 
ENDMETHOD.
ABAP How to attach documents to any custom program using Generic Object Services 
DATA:
查看完整代码 
DATA:
ABAP How to attach documents to any custom program using Generic Object Services 
APPEND LS_BORIDENT to BUSIDENTIFS.
查看完整代码 
APPEND LS_BORIDENT to BUSIDENTIFS.
ABAP How to attach documents to any custom program using Generic Object Services 
REPORT ZGOS_1.
CONSTANTS: OBJTYPE TYPE BORIDENT-OBJTYPE VALUE 'ZGOS'.
DATA: MANAGER TYPE REF TO CL_GOS_MANAGER,
查看完整代码 
REPORT ZGOS_1.
CONSTANTS: OBJTYPE TYPE BORIDENT-OBJTYPE VALUE 'ZGOS'.
DATA: MANAGER TYPE REF TO CL_GOS_MANAGER,
ABAP How to attach documents to any custom program using Generic Object Services 
PARAMETERS: MATNR TYPE MARA-MATNR.
查看完整代码 
PARAMETERS: MATNR TYPE MARA-MATNR.
ABAP How to attach documents to any custom program using Generic Object Services 
SELECT SINGLE NAME
查看完整代码 
SELECT SINGLE NAME
ABAP How to attach documents to any custom program using Generic Object Services 
CONSTANTS: OBJTYPE TYPE BORIDENT-OBJTYPE VALUE 'ZGOS'.
DATA: MANAGER TYPE REF TO CL_GOS_MANAGER,
查看完整代码 
CONSTANTS: OBJTYPE TYPE BORIDENT-OBJTYPE VALUE 'ZGOS'.
DATA: MANAGER TYPE REF TO CL_GOS_MANAGER,
ABAP How to attach documents to any custom program using Generic Object Services 
PARAMETERS: MATNR TYPE MARA-MATNR.
查看完整代码 
PARAMETERS: MATNR TYPE MARA-MATNR.
ABAP How to attach documents to any custom program using Generic Object Services 
SELECT SINGLE NAME
查看完整代码 
SELECT SINGLE NAME
ABAP How to attach documents to any custom program using Generic Object Services 
WRITE: 'WRITE SOMETHING'.
查看完整代码 
WRITE: 'WRITE SOMETHING'.
ABAP How to attach documents to any custom program using Generic Object Services 
REPORT ZGOS_3.
CONSTANTS: OBJTYPE TYPE BORIDENT-OBJTYPE VALUE 'ZGOS'.
TYPES: BEGIN OF EXCLUDE_TYPE,
查看完整代码 
REPORT ZGOS_3.
CONSTANTS: OBJTYPE TYPE BORIDENT-OBJTYPE VALUE 'ZGOS'.
TYPES: BEGIN OF EXCLUDE_TYPE,
ABAP How to attach documents to any custom program using Generic Object Services 
END OF EXCLUDE_TYPE.
DATA: MANAGER TYPE REF TO CL_GOS_MANAGER,
查看完整代码 
END OF EXCLUDE_TYPE.
DATA: MANAGER TYPE REF TO CL_GOS_MANAGER,
ABAP How to attach documents to any custom program using Generic Object Services 
PARAMETERS: TOOLBAR RADIOBUTTON GROUP GR1 DEFAULT 'X',
查看完整代码 
PARAMETERS: TOOLBAR RADIOBUTTON GROUP GR1 DEFAULT 'X',
ABAP How to attach documents to any custom program using Generic Object Services 
IF MANAGER IS INITIAL.
查看完整代码 
IF MANAGER IS INITIAL.
ABAP How to attach documents to any custom program using Generic Object Services 
SELECT SINGLE NAME
查看完整代码 
SELECT SINGLE NAME
ABAP How to attach documents to any custom program using Generic Object Services 
IF TOOLBAR = 'X'.
查看完整代码 
IF TOOLBAR = 'X'.
ABAP How to attach documents to any custom program using Generic Object Services 
APPEND EXCLUDE_WA TO EXCLUDE_TAB.
查看完整代码 
APPEND EXCLUDE_WA TO EXCLUDE_TAB.
ABAP How to attach documents to any custom program using Generic Object Services 
APPEND EXCLUDE_WA TO EXCLUDE_TAB.
查看完整代码 
APPEND EXCLUDE_WA TO EXCLUDE_TAB.
ABAP How to attach documents to any custom program using Generic Object Services 
ENDIF.
ENDIF.
ENDMODULE. " init OUTPUT
查看完整代码 
ENDIF.
ENDIF.
ENDMODULE. " init OUTPUT
ABAP How to attach documents to any custom program using Generic Object Services 
CALL METHOD MANAGER->START_SERVICE_DIRECT
查看完整代码 
CALL METHOD MANAGER->START_SERVICE_DIRECT
ABAP How to attach documents to any custom program using Generic Object Services 
CALL METHOD MANAGER->START_SERVICE_DIRECT
查看完整代码 
CALL METHOD MANAGER->START_SERVICE_DIRECT
ABAP How to check set 
CONSTANTS: c_cls_0106 TYPE rgsbs-class VALUE '0106'.
查看完整代码 
CONSTANTS: c_cls_0106 TYPE rgsbs-class VALUE '0106'.
ABAP How to check set 
DATA: l_wa_set_lines_basic TYPE rgsbv,
查看完整代码 
DATA: l_wa_set_lines_basic TYPE rgsbv,
ABAP How to check set 
DATA: l_v_setnr TYPE char50.
查看完整代码 
DATA: l_v_setnr TYPE char50.
ABAP How to check set 
PARAMETERS: p_pcgrp TYPE pcgrp,      " Profit Centre Group
查看完整代码 
PARAMETERS: p_pcgrp TYPE pcgrp,      " Profit Centre Group
ABAP How to check set 
CALL FUNCTION 'G_SET_FETCH'
查看完整代码 
CALL FUNCTION 'G_SET_FETCH'
ABAP How to check set 
class            = c_cls_0106
查看完整代码 
class            = c_cls_0106
ABAP How to check set 
set_header       = l_wa_hdr
查看完整代码 
set_header       = l_wa_hdr
ABAP How to check set 
LOOP AT l_i_set_lines_basic INTO l_wa_set_lines_basic.
查看完整代码 
LOOP AT l_i_set_lines_basic INTO l_wa_set_lines_basic.
ABAP How to check set 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP How to implement GOS for standard transaction VA01VA02VA03 
DATA:   lr_gos_manager TYPE REF TO cl_gos_manager,
查看完整代码 
DATA:   lr_gos_manager TYPE REF TO cl_gos_manager,
ABAP How to implement GOS for standard transaction VA01VA02VA03 
IF sy-tcode = ‘VA01’ AND lv_flag <> ‘X’.
查看完整代码 
IF sy-tcode = ‘VA01’ AND lv_flag <> ‘X’.
ABAP How to implement GOS for standard transaction VA01VA02VA03 
ls_borident-objtype = ‘BUS2094’.
查看完整代码 
ls_borident-objtype = ‘BUS2094’.
ABAP How to implement GOS for standard transaction VA01VA02VA03 
ls_borident-objtype = ‘BUS2096’.
查看完整代码 
ls_borident-objtype = ‘BUS2096’.
ABAP How to implement GOS for standard transaction VA01VA02VA03 
ls_borident-objtype = ‘BUS2032’.
查看完整代码 
ls_borident-objtype = ‘BUS2032’.
ABAP How to implement GOS for standard transaction VA01VA02VA03 
is_object        = ls_borident
查看完整代码 
is_object        = ls_borident
ABAP How to implement GOS for standard transaction VA01VA02VA03 
lv_flag = ‘X’.
ENDIF.
查看完整代码 
lv_flag = ‘X’.
ENDIF.
ABAP How to implement GOS for standard transaction VA01VA02VA03 
ENDIF.
查看完整代码 
ENDIF.
ABAP How to implement GOS for standard transaction VA01VA02VA03 
DATA: lt_services    TYPE tgos_sels,    “Services table type
查看完整代码 
DATA: lt_services    TYPE tgos_sels,    “Services table type
ABAP How to implement GOS for standard transaction VA01VA02VA03 
ls_source-typeid = ‘BUS2094’.
ls_target-typeid = ‘BUS2094’.
查看完整代码 
ls_source-typeid = ‘BUS2094’.
ls_target-typeid = ‘BUS2094’.
ABAP How to implement GOS for standard transaction VA01VA02VA03 
ls_source-typeid = ‘BUS2096’.
ls_target-typeid = ‘BUS2096’.
查看完整代码 
ls_source-typeid = ‘BUS2096’.
ls_target-typeid = ‘BUS2096’.
ABAP How to implement GOS for standard transaction VA01VA02VA03 
ls_source-typeid = ‘BUS2032’.
ls_target-typeid = ‘BUS2032’.
查看完整代码 
ls_source-typeid = ‘BUS2032’.
ls_target-typeid = ‘BUS2032’.
ABAP How to implement GOS for standard transaction VA01VA02VA03 
lv_temp_object = ls_borident-objkey.
查看完整代码 
lv_temp_object = ls_borident-objkey.
ABAP How to implement GOS for standard transaction VA01VA02VA03 
ls_source-instid =  lv_temp_object.
ls_source-catid  = ‘BO’.
查看完整代码 
ls_source-instid =  lv_temp_object.
ls_source-catid  = ‘BO’.
ABAP How to implement GOS for standard transaction VA01VA02VA03 
ls_target-instid = vbak-vbeln.
ls_target-catid  = ‘BO’.
查看完整代码 
ls_target-instid = vbak-vbeln.
ls_target-catid  = ‘BO’.
ABAP How to implement GOS for standard transaction VA01VA02VA03 
is_source             = ls_source
is_target             = ls_target
it_service_selection  = lt_services
查看完整代码 
is_source             = ls_source
is_target             = ls_target
it_service_selection  = lt_services
ABAP How to implement GOS for standard transaction VA01VA02VA03 
ENDIF.
查看完整代码 
ENDIF.
ABAP How to payment request 
ls_note-type   = 1.
查看完整代码 
ls_note-type   = 1.
ABAP How to payment request 
ls_note-line   = 1.
查看完整代码 
ls_note-line   = 1.
ABAP How to payment request 
ls_note-text   = lc_inv.
查看完整代码 
ls_note-text   = lc_inv.
ABAP How to payment request 
ls_note-length = strlen( ls_note-text ).
查看完整代码 
ls_note-length = strlen( ls_note-text ).
ABAP How to payment request 
lv_note = <doc>-xblnr.
查看完整代码 
lv_note = <doc>-xblnr.
ABAP How to payment request 
ls_note-length = strlen( lv_note ).
查看完整代码 
ls_note-length = strlen( lv_note ).
ABAP How to payment request 
ls_note-text   = lv_note.
查看完整代码 
ls_note-text   = lv_note.
ABAP How to place an SE78 image on an Adobe Form 
CALL METHOD cl_ssf_xsf_utilities=>get_bds_graphic_as_bmp
查看完整代码 
CALL METHOD cl_ssf_xsf_utilities=>get_bds_graphic_as_bmp
ABAP How to split a string into 4 strings of equal length in ABAP 
CALL FUNCTION 'SWA_STRING_SPLIT'
查看完整代码 
CALL FUNCTION 'SWA_STRING_SPLIT'
ABAP How to split a string into 4 strings of equal length in ABAP 
input_string         = lv_longtext     "string to be split
查看完整代码 
input_string         = lv_longtext     "string to be split
ABAP How to split a string into 4 strings of equal length in ABAP 
string_components    = lt_string_comp
查看完整代码 
string_components    = lt_string_comp
ABAP How to split a string into 4 strings of equal length in ABAP 
DATA(lv3) = substring( val = lv_longtext off = 100 len = 50 ).
查看完整代码 
DATA(lv3) = substring( val = lv_longtext off = 100 len = 50 ).
ABAP How to split a string into 4 strings of equal length in ABAP 
DATA: lv_longtext TYPE char200.
查看完整代码 
DATA: lv_longtext TYPE char200.
ABAP How to split a string into 4 strings of equal length in ABAP 
lv_longtext = lx_cof->get_longtext( ).
查看完整代码 
lv_longtext = lx_cof->get_longtext( ).
ABAP How to split a string into 4 strings of equal length in ABAP 
DATA(lv1) = substring( val = lv_longtext off = 0 len = 50 ).
查看完整代码 
DATA(lv1) = substring( val = lv_longtext off = 0 len = 50 ).
ABAP How to split a string into 4 strings of equal length in ABAP 
DATA(lv2) = substring( val = lv_longtext off = 50 len = 50 ).
查看完整代码 
DATA(lv2) = substring( val = lv_longtext off = 50 len = 50 ).
ABAP How to split a string into 4 strings of equal length in ABAP 
DATA(lv3) = substring( val = lv_longtext off = 100 len = 50 ).
查看完整代码 
DATA(lv3) = substring( val = lv_longtext off = 100 len = 50 ).
ABAP How to split a string into 4 strings of equal length in ABAP 
DATA(lv4) = substring( val = lv_longtext off = 150 len = 50 ).
查看完整代码 
DATA(lv4) = substring( val = lv_longtext off = 150 len = 50 ).
ABAP How to split a string into 4 strings of equal length in ABAP 
DATA(lv5) = lv_longtext(50).
查看完整代码 
DATA(lv5) = lv_longtext(50).
ABAP How to split a string into 4 strings of equal length in ABAP 
DATA(lv6) = lv_longtext+50(50).
查看完整代码 
DATA(lv6) = lv_longtext+50(50).
ABAP How to split a string into 4 strings of equal length in ABAP 
DATA(lv7) = lv_longtext+100(50).
查看完整代码 
DATA(lv7) = lv_longtext+100(50).
ABAP How to split a string into 4 strings of equal length in ABAP 
DATA(lv8) = lv_longtext+150(50).
查看完整代码 
DATA(lv8) = lv_longtext+150(50).
ABAP How to split a string into 4 strings of equal length in ABAP 
TYPES: BEGIN OF ty_longtext,
查看完整代码 
TYPES: BEGIN OF ty_longtext,
ABAP How to split a string into 4 strings of equal length in ABAP 
DATA: ls_longtext      TYPE ty_longtext.
查看完整代码 
DATA: ls_longtext      TYPE ty_longtext.
ABAP How to split a string into 4 strings of equal length in ABAP 
ls_longtext = lx_cof->get_longtext( ).
查看完整代码 
ls_longtext = lx_cof->get_longtext( ).
ABAP How to split a string into 4 strings of equal length in ABAP 
iv_msgv1      = CONV #( ls_longtext-msgv1 )
查看完整代码 
iv_msgv1      = CONV #( ls_longtext-msgv1 )
ABAP How to split a string into 4 strings of equal length in ABAP 
iv_msgv2      = CONV #( ls_longtext-msgv2 )
查看完整代码 
iv_msgv2      = CONV #( ls_longtext-msgv2 )
ABAP How to split a string into 4 strings of equal length in ABAP 
iv_msgv3      = CONV #( ls_longtext-msgv3 )
查看完整代码 
iv_msgv3      = CONV #( ls_longtext-msgv3 )
ABAP How to split a string into 4 strings of equal length in ABAP 
iv_msgv4      = CONV #( ls_longtext-msgv4 )
查看完整代码 
iv_msgv4      = CONV #( ls_longtext-msgv4 )
ABAP How to split a string into 4 strings of equal length in ABAP 
REPORT z_split_string.
查看完整代码 
REPORT z_split_string.
ABAP How to split a string into 4 strings of equal length in ABAP 
DATA: lv_teststring TYPE string.
查看完整代码 
DATA: lv_teststring TYPE string.
ABAP How to split a string into 4 strings of equal length in ABAP 
DATA: lv_longtext TYPE char200.
查看完整代码 
DATA: lv_longtext TYPE char200.
ABAP How to split a string into 4 strings of equal length in ABAP 
TYPES: BEGIN OF ty_longtext,
查看完整代码 
TYPES: BEGIN OF ty_longtext,
ABAP How to split a string into 4 strings of equal length in ABAP 
DATA: ls_longtext TYPE ty_longtext.
查看完整代码 
DATA: ls_longtext TYPE ty_longtext.
ABAP How to split a string into 4 strings of equal length in ABAP 
lv_teststring = '0123456789'. "10 characters
查看完整代码 
lv_teststring = '0123456789'. "10 characters
ABAP How to split a string into 4 strings of equal length in ABAP 
lv_teststring = lv_teststring && lv_teststring. "20 characters
查看完整代码 
lv_teststring = lv_teststring && lv_teststring. "20 characters
ABAP How to split a string into 4 strings of equal length in ABAP 
lv_teststring = lv_teststring && lv_teststring. "40 characters
查看完整代码 
lv_teststring = lv_teststring && lv_teststring. "40 characters
ABAP How to split a string into 4 strings of equal length in ABAP 
lv_teststring = lv_teststring && lv_teststring. "80 characters
查看完整代码 
lv_teststring = lv_teststring && lv_teststring. "80 characters
ABAP How to split a string into 4 strings of equal length in ABAP 
lv_teststring = lv_teststring && '0123456789' && '012345678901' . "102 characters
查看完整代码 
lv_teststring = lv_teststring && '0123456789' && '012345678901' . "102 characters
ABAP How to split a string into 4 strings of equal length in ABAP 
DATA(length) = strlen( lv_teststring ).
查看完整代码 
DATA(length) = strlen( lv_teststring ).
ABAP How to split a string into 4 strings of equal length in ABAP 
lv_longtext = lv_teststring.
查看完整代码 
lv_longtext = lv_teststring.
ABAP How to split a string into 4 strings of equal length in ABAP 
ls_longtext = lv_teststring.
查看完整代码 
ls_longtext = lv_teststring.
ABAP How to split a string into 4 strings of equal length in ABAP 
DATA(lv1) = substring( val = lv_longtext off = 0 len = 50 ).
查看完整代码 
DATA(lv1) = substring( val = lv_longtext off = 0 len = 50 ).
ABAP How to split a string into 4 strings of equal length in ABAP 
DATA(lv2) = substring( val = lv_longtext off = 50 len = 50 ).
查看完整代码 
DATA(lv2) = substring( val = lv_longtext off = 50 len = 50 ).
ABAP How to split a string into 4 strings of equal length in ABAP 
DATA(lv3) = substring( val = lv_longtext off = 100 len = 50 ).
查看完整代码 
DATA(lv3) = substring( val = lv_longtext off = 100 len = 50 ).
ABAP How to split a string into 4 strings of equal length in ABAP 
DATA(lv4) = substring( val = lv_longtext off = 150 len = 50 ).
查看完整代码 
DATA(lv4) = substring( val = lv_longtext off = 150 len = 50 ).
ABAP How to split a string into 4 strings of equal length in ABAP 
data(lv_error_lx_too_long) = lx_too_long->get_text( ).
查看完整代码 
data(lv_error_lx_too_long) = lx_too_long->get_text( ).
ABAP How to split a string into 4 strings of equal length in ABAP 
DATA(lv5) = lv_longtext(50).
查看完整代码 
DATA(lv5) = lv_longtext(50).
ABAP How to split a string into 4 strings of equal length in ABAP 
DATA(lv6) = lv_longtext+50(50).
查看完整代码 
DATA(lv6) = lv_longtext+50(50).
ABAP How to split a string into 4 strings of equal length in ABAP 
DATA(lv7) = lv_longtext+100(50).
查看完整代码 
DATA(lv7) = lv_longtext+100(50).
ABAP How to split a string into 4 strings of equal length in ABAP 
DATA(lv8) = lv_longtext+150(50).
查看完整代码 
DATA(lv8) = lv_longtext+150(50).
ABAP How to split a string into 4 strings of equal length in ABAP 
cl_message_helper=>set_msg_vars_for_clike( lv_longtext ).
查看完整代码 
cl_message_helper=>set_msg_vars_for_clike( lv_longtext ).
ABAP How to split a string into 4 strings of equal length in ABAP 
out->write( : data = lv_error_lx_too_long ),
查看完整代码 
out->write( : data = lv_error_lx_too_long ),
ABAP How to split a string into 4 strings of equal length in ABAP 
data = ls_longtext-msgv1 ),
查看完整代码 
data = ls_longtext-msgv1 ),
ABAP How to split a string into 4 strings of equal length in ABAP 
data = ls_longtext-msgv2 ),
查看完整代码 
data = ls_longtext-msgv2 ),
ABAP How to split a string into 4 strings of equal length in ABAP 
data = ls_longtext-msgv3 ),
查看完整代码 
data = ls_longtext-msgv3 ),
ABAP How to split a string into 4 strings of equal length in ABAP 
data = ls_longtext-msgv4 ),
查看完整代码 
data = ls_longtext-msgv4 ),
ABAP IDOC配置文档 
DATA:lt_mat          TYPE zcl_bc_longtext_util=>tt_mat,               lt_mat_longetxt TYPE zcl_bc_longtext_util=>tt_mat_longtext.
查看完整代码 
DATA:lt_mat          TYPE zcl_bc_longtext_util=>tt_mat,               lt_mat_longetxt TYPE zcl_bc_longtext_util=>tt_mat_longtext.
ABAP IDOC配置文档 
CASE message_type.            WHEN 'MATMAS'.              LOOP AT idoc_data INTO ls_idoc_data.                lv_tabix = sy-tabix.
查看完整代码 
CASE message_type.            WHEN 'MATMAS'.              LOOP AT idoc_data INTO ls_idoc_data.                lv_tabix = sy-tabix.
ABAP IDOC配置文档
查看代码
WHEN 'E1MARA1'.                    CLEAR ls_e1mara1.                    MOVE ls_idoc_data-sdata TO ls_e1mara1.                    CLEAR ls_e1mara1.                    MOVE ls_idoc_data-sdata TO ls_e1mara1.                    CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'                      EXPORTING                        input        = ls_e1mara1-matnr_external                      IMPORTING                        output       = ls_e1mara1-matnr_external                
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
WHEN 'E1MARA1'.                    CLEAR ls_e1mara1.                    MOVE ls_idoc_data-sdata TO ls_e1mara1.                    CLEAR ls_e1mara1.                    MOVE ls_idoc_data-sdata TO ls_e1mara1.                    CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'                      EXPORTING                        input        = ls_e1mara1-matnr_external                      IMPORTING                        output       = ls_e1mara1-matnr_external                
/* ... 已截断，完整代码请查看原文 */
ABAP IDOC配置文档 
READ TABLE idoc_data WITH KEY segnam = lc_segnam TRANSPORTING NO FIELDS.                    IF sy-subrc = 0.                      CONTINUE.                    ENDIF.
查看完整代码 
READ TABLE idoc_data WITH KEY segnam = lc_segnam TRANSPORTING NO FIELDS.                    IF sy-subrc = 0.                      CONTINUE.                    ENDIF.
ABAP IDOC配置文档 
CLEAR ls_zmatmas.                    SELECT SINGLE *                      INTO CORRESPONDING FIELDS OF ls_zmatmas                      FROM zmm_v_matcha                      WHERE objek = ls_e1mara1-matnr_external.
查看完整代码 
CLEAR ls_zmatmas.                    SELECT SINGLE *                      INTO CORRESPONDING FIELDS OF ls_zmatmas                      FROM zmm_v_matcha                      WHERE objek = ls_e1mara1-matnr_external.
ABAP IDOC配置文档 
SELECT SINGLE ZZTSHXP ZZLBYP ZZCASID                      INTO  (ls_zmatmas-ZZTSHXP,ls_zmatmas-ZZLBYP,ls_zmatmas-ZZCASID)                      FROM mara                      WHERE matnr = ls_e1mara1-matnr_external.
查看完整代码 
SELECT SINGLE ZZTSHXP ZZLBYP ZZCASID                      INTO  (ls_zmatmas-ZZTSHXP,ls_zmatmas-ZZLBYP,ls_zmatmas-ZZCASID)                      FROM mara                      WHERE matnr = ls_e1mara1-matnr_external.
ABAP IDOC配置文档
查看代码
REFRESH:lt_mat,lt_mat_longetxt.                    APPEND ls_e1mara1-matnr_external TO lt_mat.                    zcl_bc_longtext_util=>get_mat_longtext( EXPORTING it_mat = lt_mat IMPORTING et_mat_longetxt = lt_mat_longetxt ).                    READ TABLE lt_mat_longetxt INTO DATA(ls_mat_longetxt) INDEX 1.                    IF ls_mat_longetxt-longtext IS NOT INITIAL.                      ls_zmatmas-zzltx = ls_mat_longetxt-longtext.                    ELSE.                      SELECT 
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
REFRESH:lt_mat,lt_mat_longetxt.                    APPEND ls_e1mara1-matnr_external TO lt_mat.                    zcl_bc_longtext_util=>get_mat_longtext( EXPORTING it_mat = lt_mat IMPORTING et_mat_longetxt = lt_mat_longetxt ).                    READ TABLE lt_mat_longetxt INTO DATA(ls_mat_longetxt) INDEX 1.                    IF ls_mat_longetxt-longtext IS NOT INITIAL.                      ls_zmatmas-zzltx = ls_mat_longetxt-longtext.                    ELSE.                      SELECT 
/* ... 已截断，完整代码请查看原文 */
ABAP Implementing Search Help Exits 
DATA: ls_fielddescr TYPE dfies, "loc str for shlp-fielddescr
查看完整代码 
DATA: ls_fielddescr TYPE dfies, "loc str for shlp-fielddescr
ABAP Implementing Search Help Exits 
DATA: BEGIN OF ls_record.
INCLUDE STRUCTURE seahlpres.
DATA: END OF ls_record.
DATA: ls_name1 TYPE name1_gp,
查看完整代码 
DATA: BEGIN OF ls_record.
INCLUDE STRUCTURE seahlpres.
DATA: END OF ls_record.
DATA: ls_name1 TYPE name1_gp,
ABAP Implementing Search Help Exits 
DATA: BEGIN OF gt_kna1 OCCURS 0,
查看完整代码 
DATA: BEGIN OF gt_kna1 OCCURS 0,
ABAP Implementing Search Help Exits 
LOOP AT shlp-fielddescr INTO ls_fielddescr.
查看完整代码 
LOOP AT shlp-fielddescr INTO ls_fielddescr.
ABAP Implementing Search Help Exits 
ls_fielddescr-intlen = ls_fielddescr-outputlen = 45.
MODIFY shlp-fielddescr FROM ls_fielddescr INDEX sy-tabix.
查看完整代码 
ls_fielddescr-intlen = ls_fielddescr-outputlen = 45.
MODIFY shlp-fielddescr FROM ls_fielddescr INDEX sy-tabix.
ABAP Implementing Search Help Exits 
ls_fielddescr-offset = 63.
MODIFY shlp-fielddescr FROM ls_fielddescr INDEX sy-tabix.
查看完整代码 
ls_fielddescr-offset = 63.
MODIFY shlp-fielddescr FROM ls_fielddescr INDEX sy-tabix.
ABAP Implementing Search Help Exits 
ls_fielddescr-offset = 75.
MODIFY shlp-fielddescr FROM ls_fielddescr INDEX sy-tabix.
查看完整代码 
ls_fielddescr-offset = 75.
MODIFY shlp-fielddescr FROM ls_fielddescr INDEX sy-tabix.
ABAP Implementing Search Help Exits 
ls_fielddescr-offset = 83.
MODIFY shlp-fielddescr FROM ls_fielddescr INDEX sy-tabix.
ENDCASE.
ENDLOOP.
查看完整代码 
ls_fielddescr-offset = 83.
MODIFY shlp-fielddescr FROM ls_fielddescr INDEX sy-tabix.
ENDCASE.
ENDLOOP.
ABAP Implementing Search Help Exits 
LOOP AT shlp-selopt INTO ls_selopt WHERE shlpfield = 'KUNNR'.
lr_kunnr-sign = ls_selopt-sign.
lr_kunnr-option = ls_selopt-option.
lr_kunnr-low = ls_selopt-low.
lr_kunnr-high = ls_selopt-high.
APPEND lr_kunnr.
查看完整代码 
LOOP AT shlp-selopt INTO ls_selopt WHERE shlpfield = 'KUNNR'.
lr_kunnr-sign = ls_selopt-sign.
lr_kunnr-option = ls_selopt-option.
lr_kunnr-low = ls_selopt-low.
lr_kunnr-high = ls_selopt-high.
APPEND lr_kunnr.
ABAP Implementing Search Help Exits 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP Implementing Search Help Exits 
SELECT kunnr name1
查看完整代码 
SELECT kunnr name1
ABAP Implementing Search Help Exits 
LOOP AT record_tab INTO ls_record.
v_kunnr = ls_record-string+18(10).
READ TABLE gt_kna1 WITH KEY kunnr = v_kunnr.
IF sy-subrc = 0.
ls_start = ls_record-string+0(28).
ls_end = ls_record-string+28( * ).
查看完整代码 
LOOP AT record_tab INTO ls_record.
v_kunnr = ls_record-string+18(10).
READ TABLE gt_kna1 WITH KEY kunnr = v_kunnr.
IF sy-subrc = 0.
ls_start = ls_record-string+0(28).
ls_end = ls_record-string+28( * ).
ABAP Implementing Search Help Exits 
ls_record-string+0(28) = ls_start.
ls_record-string+29(1) = '-'.
ls_record-string+30(36) = gt_kna1-name1.
ls_record-string+66( * ) = ls_end.
MODIFY record_tab FROM ls_record.
查看完整代码 
ls_record-string+0(28) = ls_start.
ls_record-string+29(1) = '-'.
ls_record-string+30(36) = gt_kna1-name1.
ls_record-string+66( * ) = ls_end.
MODIFY record_tab FROM ls_record.
ABAP Implementing Search Help Exits 
ENDIF.
ENDLOOP.
ENDFUNCTION.
查看完整代码 
ENDIF.
ENDLOOP.
ENDFUNCTION.
ABAP J3RFLVMOBVEDH俄罗斯报表自定义字段增强
查看代码
IF totals[] IS NOT INITIAL.  SELECT a~matnr,         zbrand,         zseries,         zmat_cate,         zsm_cate,         zyear,         zseason,         zchannel  FROM mara AS a  JOIN @totals AS b ON a~matnr = b~matnr  INTO TABLE @DATA(lt_mara).  SORT lt_mara BY matnr.* 码表:渠道/季节/年份  SELECT fieldname,         ddkey,         ddtext    INTO TABLE @DATA(lt_ztmm015a)    FROM ztmm015a    WHERE ( fieldname = 'ZCHANNEL' OR fieldname = 'ZSEASON' OR fieldname = 'ZYEAR'
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
IF totals[] IS NOT INITIAL.  SELECT a~matnr,         zbrand,         zseries,         zmat_cate,         zsm_cate,         zyear,         zseason,         zchannel  FROM mara AS a  JOIN @totals AS b ON a~matnr = b~matnr  INTO TABLE @DATA(lt_mara).  SORT lt_mara BY matnr.* 码表:渠道/季节/年份  SELECT fieldname,         ddkey,         ddtext    INTO TABLE @DATA(lt_ztmm015a)    FROM ztmm015a    WHERE ( fieldname = 'ZCHANNEL' OR fieldname = 'ZSEASON' OR fieldname = 'ZYEAR'
/* ... 已截断，完整代码请查看原文 */
ABAP KE24N增加自定义字段
查看代码
METHOD add_text_field.
DATA: ls_sec_field   LIKE LINE OF ct_secondary_fields.    DATA: ls_key         LIKE LINE OF ls_sec_field-key_fields.    DATA: ld_db_name     TYPE         pivb_field_dbname.    DATA: ld_ddobjname   TYPE ddobjname.    DATA: ld_fieldname   TYPE dfies-lfieldname.    DATA: ls_dfies       TYPE dfies.    DATA: lt_dd08v TYPE STANDARD TABLE OF dd08v.    DATA: ls_dd08v LIKE LINE OF lt_dd08v.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
METHOD add_text_field.
DATA: ls_sec_field   LIKE LINE OF ct_secondary_fields.    DATA: ls_key         LIKE LINE OF ls_sec_field-key_fields.    DATA: ld_db_name     TYPE         pivb_field_dbname.    DATA: ld_ddobjname   TYPE ddobjname.    DATA: ld_fieldname   TYPE dfies-lfieldname.    DATA: ls_dfies       TYPE dfies.    DATA: lt_dd08v TYPE STANDARD TABLE OF dd08v.    DATA: ls_dd08v LIKE LINE OF lt_dd08v.
/* ... 已截断，完整代码请查看原文 */
ABAP KE24N增加自定义字段
查看代码
**  Determination of text fields via DD08L/DD03L    IF id_tabname IS NOT INITIAL AND id_db_name IS INITIAL.      ls_sec_field-tabname = id_tabname.
ld_ddobjname = id_tabname.      CALL FUNCTION 'DDIF_TABL_GET'        EXPORTING          name      = ld_ddobjname        TABLES          dd08v_tab = lt_dd08v.
READ TABLE lt_dd08v WITH KEY frkart = 'TEXT' INTO ls_dd08v.
ld_db_name = ls_dd08v-fieldname.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
**  Determination of text fields via DD08L/DD03L    IF id_tabname IS NOT INITIAL AND id_db_name IS INITIAL.      ls_sec_field-tabname = id_tabname.
ld_ddobjname = id_tabname.      CALL FUNCTION 'DDIF_TABL_GET'        EXPORTING          name      = ld_ddobjname        TABLES          dd08v_tab = lt_dd08v.
READ TABLE lt_dd08v WITH KEY frkart = 'TEXT' INTO ls_dd08v.
ld_db_name = ls_dd08v-fieldname.
/* ... 已截断，完整代码请查看原文 */
ABAP KE24N增加自定义字段
查看代码
CALL FUNCTION 'DDIF_FIELDINFO_GET'        EXPORTING          tabname        = ld_ddobjname          lfieldname     = ld_fieldname          langu          = sy-langu        IMPORTING          dfies_wa       = ls_dfies        EXCEPTIONS          not_found      = 1          internal_error = 2          OTHERS         = 3.      IF sy-subrc <> 0.* Implement suitable error handling here      ENDIF.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
CALL FUNCTION 'DDIF_FIELDINFO_GET'        EXPORTING          tabname        = ld_ddobjname          lfieldname     = ld_fieldname          langu          = sy-langu        IMPORTING          dfies_wa       = ls_dfies        EXCEPTIONS          not_found      = 1          internal_error = 2          OTHERS         = 3.      IF sy-subrc <> 0.* Implement suitable error handling here      ENDIF.
/* ... 已截断，完整代码请查看原文 */
ABAP KE24N增加自定义字段 
ENDMETHOD.
查看完整代码 
ENDMETHOD.
ABAP KE24N增加自定义字段 
METHOD if_fagl_lib~add_secondary_fields.
查看完整代码 
METHOD if_fagl_lib~add_secondary_fields.
ABAP KE24N增加自定义字段 
*   Add text fields for master data  IF mo_badi_lib IS NOT INITIAL.    REFRESH: lt_sec_fields.    CALL BADI mo_badi_lib->add_secondary_fields      CHANGING        ct_secondary_fields = lt_sec_fields.
APPEND LINES OF lt_sec_fields TO ct_set_text_fields.  ENDIF.ENDENHANCEMENT.*$*$-End:   (1)---------------------------------------------------------------------------------$*$*
查看完整代码 
*   Add text fields for master data  IF mo_badi_lib IS NOT INITIAL.    REFRESH: lt_sec_fields.    CALL BADI mo_badi_lib->add_secondary_fields      CHANGING        ct_secondary_fields = lt_sec_fields.
APPEND LINES OF lt_sec_fields TO ct_set_text_fields.  ENDIF.ENDENHANCEMENT.*$*$-End:   (1)---------------------------------------------------------------------------------$*$*
ABAP LOOPGROUP用法
查看代码
TYPES:BEGIN OF ty_alv,        matnr    TYPE marc-matnr, "物料        werks    TYPE marc-werks, "工厂        bdmng    TYPE resb-bdmng, "数量        zj       TYPE  resb-bdmng, "汇总        checkbox TYPE char1, "选择框      END OF ty_alv.DATA: gt_alv TYPE TABLE OF ty_alv, "      gs_alv TYPE ty_alv.gt_alv = VALUE #( ( matnr = 'AAA' werks = '1000' bdmng = '10.1' checkbox = 'X')                  ( matnr = 'BBB' werks = '20
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
TYPES:BEGIN OF ty_alv,        matnr    TYPE marc-matnr, "物料        werks    TYPE marc-werks, "工厂        bdmng    TYPE resb-bdmng, "数量        zj       TYPE  resb-bdmng, "汇总        checkbox TYPE char1, "选择框      END OF ty_alv.DATA: gt_alv TYPE TABLE OF ty_alv, "      gs_alv TYPE ty_alv.gt_alv = VALUE #( ( matnr = 'AAA' werks = '1000' bdmng = '10.1' checkbox = 'X')                  ( matnr = 'BBB' werks = '20
/* ... 已截断，完整代码请查看原文 */
ABAP LOOPGROUP用法
查看代码
DATA:lv_count TYPE i, "行计数器     lv_bdmng TYPE resb-bdmng. "数量LOOP AT gt_alv INTO gs_alv GROUP BY ( matnr = gs_alv-matnr                                       werks = gs_alv-werks                                      size = GROUP SIZE )                                      INTO DATA(ls_key).  CLEAR:lv_bdmng,lv_count.  LOOP AT GROUP ls_key ASSIGNING FIELD-SYMBOL().    lv_count = lv_count + 1."计数器    lv_bdmng = lv_bdmng + -bdmng."数量累加    IF ls_key-size = lv_count."最后一
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA:lv_count TYPE i, "行计数器     lv_bdmng TYPE resb-bdmng. "数量LOOP AT gt_alv INTO gs_alv GROUP BY ( matnr = gs_alv-matnr                                       werks = gs_alv-werks                                      size = GROUP SIZE )                                      INTO DATA(ls_key).  CLEAR:lv_bdmng,lv_count.  LOOP AT GROUP ls_key ASSIGNING FIELD-SYMBOL().    lv_count = lv_count + 1."计数器    lv_bdmng = lv_bdmng + -bdmng."数量累加    IF ls_key-size = lv_count."最后一
/* ... 已截断，完整代码请查看原文 */
ABAP LOOPGROUP用法
查看代码
TYPES:BEGIN OF ty_alv,        matnr TYPE marc-matnr, "物料        werks TYPE marc-werks, "工厂        bdmng TYPE resb-bdmng, "数量        zftsl TYPE resb-bdmng, "分摊数量      END OF ty_alv.DATA: gt_alv TYPE TABLE OF ty_alv, "      gs_alv TYPE ty_alv.DATA:lv_count  TYPE i, "行计数器     lv_ftzs   TYPE resb-bdmng, "分摊总数     lv_syftsl TYPE resb-bdmng, "剩余分摊数量     lv_bdmng  TYPE resb-bdmng. "数量"只用同一维度的数据来简单举例gt_alv = VALUE #( ( matnr = 'AAA' werks
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
TYPES:BEGIN OF ty_alv,        matnr TYPE marc-matnr, "物料        werks TYPE marc-werks, "工厂        bdmng TYPE resb-bdmng, "数量        zftsl TYPE resb-bdmng, "分摊数量      END OF ty_alv.DATA: gt_alv TYPE TABLE OF ty_alv, "      gs_alv TYPE ty_alv.DATA:lv_count  TYPE i, "行计数器     lv_ftzs   TYPE resb-bdmng, "分摊总数     lv_syftsl TYPE resb-bdmng, "剩余分摊数量     lv_bdmng  TYPE resb-bdmng. "数量"只用同一维度的数据来简单举例gt_alv = VALUE #( ( matnr = 'AAA' werks
/* ... 已截断，完整代码请查看原文 */
ABAP LT01创建转储单
查看代码
DATA: lv_lgnum TYPE ltak-lgnum,      lv_bwlvs TYPE ltak-bwlvs,      lv_tanum TYPE ltak-tanum,      lv_vltyp TYPE ltap-vltyp, " 源仓储类型      lv_vlber TYPE ltap-vlber, " 源发地仓储区      lv_vlpla TYPE ltap-vlpla, " 源发地仓储位      lv_nltyp TYPE ltap-nltyp, " 目的地仓储类型      lv_nlber TYPE ltap-nlber, " 目的地仓储区      lv_nlpla TYPE ltap-nlpla. " 目的地仓位
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA: lv_lgnum TYPE ltak-lgnum,      lv_bwlvs TYPE ltak-bwlvs,      lv_tanum TYPE ltak-tanum,      lv_vltyp TYPE ltap-vltyp, " 源仓储类型      lv_vlber TYPE ltap-vlber, " 源发地仓储区      lv_vlpla TYPE ltap-vlpla, " 源发地仓储位      lv_nltyp TYPE ltap-nltyp, " 目的地仓储类型      lv_nlber TYPE ltap-nlber, " 目的地仓储区      lv_nlpla TYPE ltap-nlpla. " 目的地仓位
/* ... 已截断，完整代码请查看原文 */
ABAP LT01创建转储单
查看代码
lv_bwlvs = '999'.               " 移动类型LOOP AT gt_item INTO ls_item.  PERFORM matnr_input CHANGING ls_item-matnr.  CLEAR ls_ltap_creat.  ls_ltap_creat-matnr = ls_item-matnr.   " 物料编号  ls_ltap_creat-werks = ls_item-werks.   " 工厂  ls_ltap_creat-lgort = ls_item-lgort.   " 存储地点  ls_ltap_creat-charg = ls_item-charg.   " 批次编号  ls_ltap_creat-anfme = ls_item-menge.   " 数量  ls_ltap_creat-altme = ls_item-meins.   " 基本计量单位
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
lv_bwlvs = '999'.               " 移动类型LOOP AT gt_item INTO ls_item.  PERFORM matnr_input CHANGING ls_item-matnr.  CLEAR ls_ltap_creat.  ls_ltap_creat-matnr = ls_item-matnr.   " 物料编号  ls_ltap_creat-werks = ls_item-werks.   " 工厂  ls_ltap_creat-lgort = ls_item-lgort.   " 存储地点  ls_ltap_creat-charg = ls_item-charg.   " 批次编号  ls_ltap_creat-anfme = ls_item-menge.   " 数量  ls_ltap_creat-altme = ls_item-meins.   " 基本计量单位
/* ... 已截断，完整代码请查看原文 */
ABAP MB21MB22操作预留
查看代码
*ls_header-plant = '1000'."工厂ls_header-res_date = '20220316'."预订基准日期ls_header-move_type = '311'."移动类型ls_header-vendor_no = '0000100000'."供应商ls_header-move_plant = '1000'."收货工厂/发货工厂ls_header-move_stloc = '1029'."收货/发货库存地点*ls_header-costcenter = '1000'."成本中心*ls_header-orderid = '1000'."订单号*ls_header-wbs_elem = '1000'."WBS 要素
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
*ls_header-plant = '1000'."工厂ls_header-res_date = '20220316'."预订基准日期ls_header-move_type = '311'."移动类型ls_header-vendor_no = '0000100000'."供应商ls_header-move_plant = '1000'."收货工厂/发货工厂ls_header-move_stloc = '1029'."收货/发货库存地点*ls_header-costcenter = '1000'."成本中心*ls_header-orderid = '1000'."订单号*ls_header-wbs_elem = '1000'."WBS 要素
/* ... 已截断，完整代码请查看原文 */
ABAP MB21MB22操作预留 
LOOP AT it_extension_in INTO ls_extension.        IF ls_extension-structure = 'ZWMS_RESB_APPEND'.          ls_resb_append = ls_extension-valuepart1.          READ TABLE resb ASSIGNING FIELD-SYMBOL(<fs_resb>) INDEX ls_resb_append-rspos.          IF sy-subrc EQ 0.            <fs_resb>-sobkz = ls_resb_append-sobkz."特殊标识          ENDIF.        ENDIF.      ENDLOOP.  ENDMETHOD."-----------------------@斌将军--------------------------
查看完整代码 
LOOP AT it_extension_in INTO ls_extension.        IF ls_extension-structure = 'ZWMS_RESB_APPEND'.          ls_resb_append = ls_extension-valuepart1.          READ TABLE resb ASSIGNING FIELD-SYMBOL(<fs_resb>) INDEX ls_resb_append-rspos.          IF sy-subrc EQ 0.            <fs_resb>-sobkz = ls_resb_append-sobkz."特殊标识          ENDIF.        ENDIF.      ENDLOOP.  ENDMETHOD."-----------------------@斌将军--------------------------
ABAP MB21MB22操作预留
查看代码
DATA:lv_check   TYPE char1,     lv_message TYPE char200.
lv_reservation = 2989.
CLEAR:ls_reservationitems_changed.ls_reservationitems_changed-res_item = 1."预留 / 相关需求的项目编号ls_reservationitems_changed-withdrawn = 'X'."该预定的最后发货KZEARAPPEND ls_reservationitems_changed TO lt_reservationitems_changed.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA:lv_check   TYPE char1,     lv_message TYPE char200.
lv_reservation = 2989.
CLEAR:ls_reservationitems_changed.ls_reservationitems_changed-res_item = 1."预留 / 相关需求的项目编号ls_reservationitems_changed-withdrawn = 'X'."该预定的最后发货KZEARAPPEND ls_reservationitems_changed TO lt_reservationitems_changed.
/* ... 已截断，完整代码请查看原文 */
ABAP MB51自定义字段增强
查看代码
""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""&q
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""&q
/* ... 已截断，完整代码请查看原文 */
ABAP MB51自定义字段增强
查看代码
""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""&q
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""&q
/* ... 已截断，完整代码请查看原文 */
ABAP MB51选择屏幕与报表增强
查看代码
"--------------------@斌将军--------------------IF sy-tcode = 'MB51'.  IF znum[] IS NOT INITIAL."当选择屏幕筛选字段有值    SELECT      mblnr,      mjahr,      zeile,      znum      FROM ZTPP001      INTO TABLE @DATA(lt_ztpp001)      WHERE znum IN @znum.    "将物料凭证、年度、行项目赋值到对应的筛选字段中    LOOP AT lt_ztpp001 INTO DATA(ls_ztpp001).      mblnr-low = ls_ztpp001-mblnr.      mblnr-sign = 'I'.      mblnr-option = 'EQ'.      APPEND mblnr.      CLEAR mblnr.      mjahr-low 
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
"--------------------@斌将军--------------------IF sy-tcode = 'MB51'.  IF znum[] IS NOT INITIAL."当选择屏幕筛选字段有值    SELECT      mblnr,      mjahr,      zeile,      znum      FROM ZTPP001      INTO TABLE @DATA(lt_ztpp001)      WHERE znum IN @znum.    "将物料凭证、年度、行项目赋值到对应的筛选字段中    LOOP AT lt_ztpp001 INTO DATA(ls_ztpp001).      mblnr-low = ls_ztpp001-mblnr.      mblnr-sign = 'I'.      mblnr-option = 'EQ'.      APPEND mblnr.      CLEAR mblnr.      mjahr-low 
/* ... 已截断，完整代码请查看原文 */
ABAP MB51选择屏幕与报表增强 
FORM DATA_SELECTION
查看完整代码 
FORM DATA_SELECTION
ABAP MB51选择屏幕与报表增强 
FORM DATA_SELECTION_VIA_MATNR
查看完整代码 
FORM DATA_SELECTION_VIA_MATNR
ABAP MB51选择屏幕与报表增强 
FORM DATA_SELECTION_VIA_BUDAT
查看完整代码 
FORM DATA_SELECTION_VIA_BUDAT
ABAP MB51选择屏幕与报表增强 
"--------------------@斌将军--------------------ENHANCEMENT 5  ZEMM_MB51_APPEND.    "active versionIF list[] IS NOT INITIAL.  DATA(lt_list) = list[].
SELECT    ztpp001~mblnr,    ztpp001~mjahr,    ztpp001~zeile,    ztpp001~ZNUM  FROM ZTPP001  INNER JOIN @lt_list AS LIST ON ztpp001~mblnr = LIST~MBLNR                          AND ztpp001~mjahr = LIST~mjahr                          AND ztpp001~zeile = LIST~zeile  INTO TABLE @DATA(LT_ZPP001).
查看完整代码 
"--------------------@斌将军--------------------ENHANCEMENT 5  ZEMM_MB51_APPEND.    "active versionIF list[] IS NOT INITIAL.  DATA(lt_list) = list[].
SELECT    ztpp001~mblnr,    ztpp001~mjahr,    ztpp001~zeile,    ztpp001~ZNUM  FROM ZTPP001  INNER JOIN @lt_list AS LIST ON ztpp001~mblnr = LIST~MBLNR                          AND ztpp001~mjahr = LIST~mjahr                          AND ztpp001~zeile = LIST~zeile  INTO TABLE @DATA(LT_ZPP001).
ABAP MB51选择屏幕与报表增强 
LOOP AT list ASSIGNING FIELD-SYMBOL(<fs_list>).    READ TABLE LT_ZPP001 INTO DATA(LS_ZPP001) WITH KEY mblnr = <fs_list>-MBLNR                                                        mjahr = <fs_list>-mjahr                                                        zeile = <fs_list>-zeile BINARY SEARCH.    IF SY-SUBRC EQ 0.      <fs_list>-ZNUM = LS_ZPP001-ZNUM.    ENDIF.  ENDLOOP.
ENDIF.ENDENHANCEMENT."--------------------@斌将军--------------------
查看完整代码 
LOOP AT list ASSIGNING FIELD-SYMBOL(<fs_list>).    READ TABLE LT_ZPP001 INTO DATA(LS_ZPP001) WITH KEY mblnr = <fs_list>-MBLNR                                                        mjahr = <fs_list>-mjahr                                                        zeile = <fs_list>-zeile BINARY SEARCH.    IF SY-SUBRC EQ 0.      <fs_list>-ZNUM = LS_ZPP001-ZNUM.    ENDIF.  ENDLOOP.
ENDIF.ENDENHANCEMENT."--------------------@斌将军--------------------
ABAP MB51选择屏幕增强
查看代码
""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""&q
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""&q
/* ... 已截断，完整代码请查看原文 */
ABAP MB51选择屏幕增强
查看代码
""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""&q
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""&q
/* ... 已截断，完整代码请查看原文 */
ABAP MB52增强
查看代码
SELECT      PRPS~PSPNR,      PRPS~POST1,"WBS名称      PRPS~PSPHI,"项目号      PROJ~POST1 AS ZXMMC"项目名称    FROM PRPS    INNER JOIN PROJ ON PRPS~PSPHI = PROJ~PSPNR    INTO TABLE @DATA(LT_PRPS)    FOR ALL ENTRIES IN @bestand    WHERE PRPS~PSPNR = @bestand-PSPNR.  ENDIF.
LOOP AT bestand  .    l_index = sy-tabix.        "客户名称    READ TABLE lt_kna1 INTO DATA(ls_kna1) WITH KEY kunnr = bestand-kunnr.    IF sy-subrc EQ 0.      bestand-zkhmc = ls_kna1-name1.    ENDIF.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
SELECT      PRPS~PSPNR,      PRPS~POST1,"WBS名称      PRPS~PSPHI,"项目号      PROJ~POST1 AS ZXMMC"项目名称    FROM PRPS    INNER JOIN PROJ ON PRPS~PSPHI = PROJ~PSPNR    INTO TABLE @DATA(LT_PRPS)    FOR ALL ENTRIES IN @bestand    WHERE PRPS~PSPNR = @bestand-PSPNR.  ENDIF.
LOOP AT bestand  .    l_index = sy-tabix.        "客户名称    READ TABLE lt_kna1 INTO DATA(ls_kna1) WITH KEY kunnr = bestand-kunnr.    IF sy-subrc EQ 0.      bestand-zkhmc = ls_kna1-name1.    ENDIF.
/* ... 已截断，完整代码请查看原文 */
ABAP MB52自定义字段增强
查看代码
""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""&q
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""&q
/* ... 已截断，完整代码请查看原文 */
ABAP MB5B自定义字段增强 
TYPES:  zbrand_txt    TYPE zsmara_txt-zbrand_txt,  zseries_txt   TYPE zsmara_txt-zseries_txt,  zmat_cate_txt TYPE zsmara_txt-zmat_cate_txt,  zsm_cate_txt  TYPE zsmara_txt-zsm_cate_txt,  zyear_txt     TYPE zsmara_txt-zyear_txt,  zseason_txt   TYPE zsmara_txt-zseason_txt,  zchannel_txt  TYPE zsmara_txt-zchannel_txt.ENDENHANCEMENT.*$*$-End:   (3)---------------------------------------------------------------------------------$*$*
查看完整代码 
TYPES:  zbrand_txt    TYPE zsmara_txt-zbrand_txt,  zseries_txt   TYPE zsmara_txt-zseries_txt,  zmat_cate_txt TYPE zsmara_txt-zmat_cate_txt,  zsm_cate_txt  TYPE zsmara_txt-zsm_cate_txt,  zyear_txt     TYPE zsmara_txt-zyear_txt,  zseason_txt   TYPE zsmara_txt-zseason_txt,  zchannel_txt  TYPE zsmara_txt-zchannel_txt.ENDENHANCEMENT.*$*$-End:   (3)---------------------------------------------------------------------------------$*$*
ABAP MB5B自定义字段增强
查看代码
""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""&q
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""&q
/* ... 已截断，完整代码请查看原文 */
ABAP MB5B自定义字段增强
查看代码
DATA: BEGIN OF lt_mara OCCURS 0,        matnr     TYPE mara-matnr,        zbrand    TYPE mara-zbrand,        zseries   TYPE mara-zseries,        zmat_cate TYPE mara-zmat_cate,        zsm_cate  TYPE mara-zsm_cate,        zyear     TYPE mara-zyear,        zseason   TYPE mara-zseason,        zchannel  TYPE mara-zchannel,      END OF lt_mara.DATA: BEGIN OF lt_ztmm015a OCCURS 0,        fieldname TYPE ztmm015a-fieldname,        ddkey     TYPE ztmm015a-ddkey,        ddtext    TYPE ztmm015a-ddtext
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA: BEGIN OF lt_mara OCCURS 0,        matnr     TYPE mara-matnr,        zbrand    TYPE mara-zbrand,        zseries   TYPE mara-zseries,        zmat_cate TYPE mara-zmat_cate,        zsm_cate  TYPE mara-zsm_cate,        zyear     TYPE mara-zyear,        zseason   TYPE mara-zseason,        zchannel  TYPE mara-zchannel,      END OF lt_mara.DATA: BEGIN OF lt_ztmm015a OCCURS 0,        fieldname TYPE ztmm015a-fieldname,        ddkey     TYPE ztmm015a-ddkey,        ddtext    TYPE ztmm015a-ddtext
/* ... 已截断，完整代码请查看原文 */
ABAP MBLB自定义字段增强
查看代码
""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""&q
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""&q
/* ... 已截断，完整代码请查看原文 */
ABAP MBLB自定义字段增强
查看代码
""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""&q
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""&q
/* ... 已截断，完整代码请查看原文 */
ABAP MDG使用API创建变更请求 
TRY  .
lo_gov_api  =  cl_usmd_gov_api  => get_instance  (  iv_model_name  =  'ZC'  ).
CATCH  cx_usmd_gov_api  .
查看完整代码 
TRY  .
lo_gov_api  =  cl_usmd_gov_api  => get_instance  (  iv_model_name  =  'ZC'  ).
CATCH  cx_usmd_gov_api  .
ABAP MDG使用API创建变更请求 
iv_struct  =  lo_gov_api  -> gc_struct_key
IMPORTING  er_structure  =  lr_zc01_key_str
er_table  =  lr_zc01_key_tab  ).
查看完整代码 
iv_struct  =  lo_gov_api  -> gc_struct_key
IMPORTING  er_structure  =  lr_zc01_key_str
er_table  =  lr_zc01_key_tab  ).
ABAP MDG使用API创建变更请求 
iv_struct  =  lo_gov_api  -> gc_struct_key_attr
IMPORTING  er_structure  =  lr_zc01_data_str
er_table  =  lr_zc01_data_tab  ).
查看完整代码 
iv_struct  =  lo_gov_api  -> gc_struct_key_attr
IMPORTING  er_structure  =  lr_zc01_data_str
er_table  =  lr_zc01_data_tab  ).
ABAP MDG使用API创建变更请求 
IF  sy  \-  subrc  =  0  .
查看完整代码 
IF  sy  \-  subrc  =  0  .
ABAP MDG使用API创建变更请求 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP MDG使用API创建变更请求 
lv_description  =  '  资产测试变更请求  '  && sy  \-  datum && sy  \-  uzeit  .
TRY  .
lv_crequest_id  =  lo_gov_api  -> create_crequest  (
查看完整代码 
lv_description  =  '  资产测试变更请求  '  && sy  \-  datum && sy  \-  uzeit  .
TRY  .
lv_crequest_id  =  lo_gov_api  -> create_crequest  (
ABAP MDG使用API创建变更请求 
iv_description  =  lv_description  ).
查看完整代码 
iv_description  =  lv_description  ).
ABAP MDG使用API创建变更请求 
TRY  .
lo_gov_api  -> enqueue_entity  (  EXPORTING  iv_crequest_id  =  lv_crequest_id
查看完整代码 
TRY  .
lo_gov_api  -> enqueue_entity  (  EXPORTING  iv_crequest_id  =  lv_crequest_id
ABAP MDG使用API创建变更请求 
it_data  =  <lt_zc01_key> ).
CATCH  cx_usmd_gov_api_entity_lock cx_usmd_gov_api  .
查看完整代码 
it_data  =  <lt_zc01_key> ).
CATCH  cx_usmd_gov_api_entity_lock cx_usmd_gov_api  .
ABAP MDG使用API创建变更请求 
TRY  .
lo_gov_api  -> write_entity  (  EXPORTING  iv_crequest_id  =  lv_crequest_id
查看完整代码 
TRY  .
lo_gov_api  -> write_entity  (  EXPORTING  iv_crequest_id  =  lv_crequest_id
ABAP MDG使用API创建变更请求 
it_data  =  <lt_zc01_data> ).
CATCH  cx_usmd_gov_api_entity_write  .
查看完整代码 
it_data  =  <lt_zc01_data> ).
CATCH  cx_usmd_gov_api_entity_write  .
ABAP MDG使用API创建变更请求 
TRY  .
lo_gov_api  -> read_entity  (  EXPORTING  iv_crequest_id  =  lv_crequest_id
查看完整代码 
TRY  .
lo_gov_api  -> read_entity  (  EXPORTING  iv_crequest_id  =  lv_crequest_id
ABAP MDG使用API创建变更请求 
it_key  =  <lt_zc01_key>
IMPORTING  et_data  =  <lt_zc01_data> ).
CATCH  cx_usmd_gov_api_core_error cx_usmd_gov_api  .
查看完整代码 
it_key  =  <lt_zc01_key>
IMPORTING  et_data  =  <lt_zc01_data> ).
CATCH  cx_usmd_gov_api_core_error cx_usmd_gov_api  .
ABAP MDG使用API创建变更请求 
TRY  .
lo_gov_api  -> check_crequest_data  (  iv_crequest_id  =  lv_crequest_id  ).
查看完整代码 
TRY  .
lo_gov_api  -> check_crequest_data  (  iv_crequest_id  =  lv_crequest_id  ).
ABAP MDG使用API创建变更请求 
ls_entity  \-  entity  =  'ZC01'  .
ls_entity  \-  tabl  =  lr_zc01_key_tab  .
查看完整代码 
ls_entity  \-  entity  =  'ZC01'  .
ls_entity  \-  tabl  =  lr_zc01_key_tab  .
ABAP MDG使用API创建变更请求 
EXPORTING  iv_crequest_id  =  lv_crequest_id
it_key  =  lt_entity  ).
查看完整代码 
EXPORTING  iv_crequest_id  =  lv_crequest_id
it_key  =  lt_entity  ).
ABAP MDG使用API创建变更请求 
TRY  .
lo_gov_api  -> dequeue_entity  (  EXPORTING  iv_crequest_id  =  lv_crequest_id
查看完整代码 
TRY  .
lo_gov_api  -> dequeue_entity  (  EXPORTING  iv_crequest_id  =  lv_crequest_id
ABAP MDG使用API创建变更请求 
it_data  =  <lt_zc01_key> ).
查看完整代码 
it_data  =  <lt_zc01_key> ).
ABAP MDG使用API创建变更请求 
EXPORTING  iv_crequest_id  =  lv_crequest_id  ).
CATCH  cx_usmd_gov_api  .
ENDTRY  .
查看完整代码 
EXPORTING  iv_crequest_id  =  lv_crequest_id  ).
CATCH  cx_usmd_gov_api  .
ENDTRY  .
ABAP MDG使用API创建变更请求 
TRY  .
lo_gov_api  -> start_workflow  (  iv_crequest_id  =  lv_crequest_id  ).
CATCH  cx_usmd_gov_api_core_error  .
查看完整代码 
TRY  .
lo_gov_api  -> start_workflow  (  iv_crequest_id  =  lv_crequest_id  ).
CATCH  cx_usmd_gov_api_core_error  .
ABAP MDG使用API创建变更请求 
lt_messages  =  lo_gov_api  -> get_messages  ( ).
查看完整代码 
lt_messages  =  lo_gov_api  -> get_messages  ( ).
ABAP ME01创建货源清单
查看代码
CALL FUNCTION 'ME_INITIALIZE_SOURCE_LIST'."源清单维护初始化
CALL FUNCTION 'ME_DIRECT_INPUT_SOURCE_LIST'  EXPORTING    I_MATNR          = LV_MATNR    I_WERKS          = LV_WERKS*   I_MT06E          =*   I_NO_MATERIAL_READ       =*   ACTIVITY         = 'V'*   I_VORGA          =*   I_LOGSY          =  TABLES    T_EORD           = LT_EORD  EXCEPTIONS    PLANT_MISSING    = 1    MATERIAL_MISSING = 2    error_message    = 99    OTHERS          = 3.IF SY-SUBRC <> 0
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
CALL FUNCTION 'ME_INITIALIZE_SOURCE_LIST'."源清单维护初始化
CALL FUNCTION 'ME_DIRECT_INPUT_SOURCE_LIST'  EXPORTING    I_MATNR          = LV_MATNR    I_WERKS          = LV_WERKS*   I_MT06E          =*   I_NO_MATERIAL_READ       =*   ACTIVITY         = 'V'*   I_VORGA          =*   I_LOGSY          =  TABLES    T_EORD           = LT_EORD  EXCEPTIONS    PLANT_MISSING    = 1    MATERIAL_MISSING = 2    error_message    = 99    OTHERS          = 3.IF SY-SUBRC <> 0
/* ... 已截断，完整代码请查看原文 */
ABAP ME21N采购订单批导 
DATA: lv_ebeln   LIKE bapimepoheader-po_number,        lv_check   TYPE char2,        lv_message TYPE char100,        lv_count   TYPE char5, "计数器        lv_posnr   TYPE char5. "行项目
查看完整代码 
DATA: lv_ebeln   LIKE bapimepoheader-po_number,        lv_check   TYPE char2,        lv_message TYPE char100,        lv_count   TYPE char5, "计数器        lv_posnr   TYPE char5. "行项目
ABAP ME21N采购订单批导
查看代码
ls_poheader-doc_type    = i_bsart."采购凭证类型  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'    EXPORTING      input  = i_lifnr "供应商帐户号    IMPORTING      output = ls_poheader-vendor. "lifnr供应商帐户号  ls_poheader-purch_org  = i_ekorg."t_item-ekorg.采购组织  ls_poheader-pur_group  = i_ekgrp."t_item-ekgrp.采购组*  ls_poheader-comp_code = '1000'."t_item-bukrs.公司代码* ls_POHEADER-REF_1          = ''."您的参考  ls_poheader-doc_date   = sy-datum."t_
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
ls_poheader-doc_type    = i_bsart."采购凭证类型  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'    EXPORTING      input  = i_lifnr "供应商帐户号    IMPORTING      output = ls_poheader-vendor. "lifnr供应商帐户号  ls_poheader-purch_org  = i_ekorg."t_item-ekorg.采购组织  ls_poheader-pur_group  = i_ekgrp."t_item-ekgrp.采购组*  ls_poheader-comp_code = '1000'."t_item-bukrs.公司代码* ls_POHEADER-REF_1          = ''."您的参考  ls_poheader-doc_date   = sy-datum."t_
/* ... 已截断，完整代码请查看原文 */
ABAP ME21N采购订单批导
查看代码
lt_poitemx-po_item =  lv_posnr.    lt_poitemx-ematerial = abap_true.    lt_poitemx-short_text = abap_true.    lt_poitemx-quantity = abap_true.    lt_poitemx-po_unit = abap_true .    lt_poitemx-net_price = abap_true.    IF i_bsart = 'YG05'."成本中心      lt_poitemx-matl_group = abap_true.    ENDIF.    lt_poitemx-plant = abap_true.    lt_poitemx-acctasscat = abap_true.*   lt_POITEMX-TRACKINGNO =  ABAP_TRUE.*   lt_POITEMX-PREQ_NAME = ABAP_TRUE.    lt_poitemx-tax_code = abap_true.* 
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
lt_poitemx-po_item =  lv_posnr.    lt_poitemx-ematerial = abap_true.    lt_poitemx-short_text = abap_true.    lt_poitemx-quantity = abap_true.    lt_poitemx-po_unit = abap_true .    lt_poitemx-net_price = abap_true.    IF i_bsart = 'YG05'."成本中心      lt_poitemx-matl_group = abap_true.    ENDIF.    lt_poitemx-plant = abap_true.    lt_poitemx-acctasscat = abap_true.*   lt_POITEMX-TRACKINGNO =  ABAP_TRUE.*   lt_POITEMX-PREQ_NAME = ABAP_TRUE.    lt_poitemx-tax_code = abap_true.* 
/* ... 已截断，完整代码请查看原文 */
ABAP ME21N采购订单新增页签增强
查看代码
LOOP AT ch_mapping ASSIGNING <mapping>.    CASE <mapping>-fieldname.    WHEN 'ZEJFL'. <mapping>-metafield = mmmfd_cust_01.  "抬头*    WHEN 'ZHEAD02'. <mapping>-metafield = mmmfd_cust_02.*    WHEN 'ZZ001'.   <mapping>-metafield = mmmfd_cust_03.  "明细*    WHEN 'ZZ005'.   <mapping>-metafield = mmmfd_cust_04.*      "自定义字段*    WHEN 'ZFIELD3'.<mapping>-metafield = mmmfd_cust_05.    ENDCASE.  E
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
LOOP AT ch_mapping ASSIGNING <mapping>.    CASE <mapping>-fieldname.    WHEN 'ZEJFL'. <mapping>-metafield = mmmfd_cust_01.  "抬头*    WHEN 'ZHEAD02'. <mapping>-metafield = mmmfd_cust_02.*    WHEN 'ZZ001'.   <mapping>-metafield = mmmfd_cust_03.  "明细*    WHEN 'ZZ005'.   <mapping>-metafield = mmmfd_cust_04.*      "自定义字段*    WHEN 'ZFIELD3'.<mapping>-metafield = mmmfd_cust_05.    ENDCASE.  E
/* ... 已截断，完整代码请查看原文 */
ABAP ME21N采购订单新增页签增强
查看代码
"--------------------@斌将军--------------------method IF_EX_ME_GUI_PO_CUST~TRANSPORT_FROM_MODEL.  DATA: ls_header     TYPE REF TO if_purchase_order_mm,        ls_mepoheader TYPE mepoheader,        ls_item       TYPE REF TO if_purchase_order_item_mm,        ls_mepoitem   TYPE mepoitem.*1 抬头  IF im_name = subscreen_h.    mmpur_dynamic_cast ls_header im_model.    IF ls_header IS NOT INITIAL.      ls_mepoheader = ls_header->get_data( ).      MOVE-CORRESPONDING ls_mepoheader TO dynp_data_
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
"--------------------@斌将军--------------------method IF_EX_ME_GUI_PO_CUST~TRANSPORT_FROM_MODEL.  DATA: ls_header     TYPE REF TO if_purchase_order_mm,        ls_mepoheader TYPE mepoheader,        ls_item       TYPE REF TO if_purchase_order_item_mm,        ls_mepoitem   TYPE mepoitem.*1 抬头  IF im_name = subscreen_h.    mmpur_dynamic_cast ls_header im_model.    IF ls_header IS NOT INITIAL.      ls_mepoheader = ls_header->get_data( ).      MOVE-CORRESPONDING ls_mepoheader TO dynp_data_
/* ... 已截断，完整代码请查看原文 */
ABAP ME21N采购订单新增页签增强
查看代码
CASE im_name.*1 抬头  WHEN subscreen_h.    mmpur_dynamic_cast ls_header im_model.    IF ls_header IS NOT INITIAL.      ls_mepoheader = ls_header->get_data( ).      IF  dynp_data_pbo_h-ZEJFL <> dynp_data_pai_h-ZEJFL.*      OR dynp_data_pbo_h-zhead02 <> dynp_data_pai_h-zhead02.        ls_mepoheader-ZEJFL = dynp_data_pai_h-ZEJFL.*        ls_mepoheader-zhead02 = dynp_data_pai_h-zhead02.        CALL METHOD ls_header->set_data        EXPORTING          im_data = ls_mepoheader.   
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
CASE im_name.*1 抬头  WHEN subscreen_h.    mmpur_dynamic_cast ls_header im_model.    IF ls_header IS NOT INITIAL.      ls_mepoheader = ls_header->get_data( ).      IF  dynp_data_pbo_h-ZEJFL <> dynp_data_pai_h-ZEJFL.*      OR dynp_data_pbo_h-zhead02 <> dynp_data_pai_h-zhead02.        ls_mepoheader-ZEJFL = dynp_data_pai_h-ZEJFL.*        ls_mepoheader-zhead02 = dynp_data_pai_h-zhead02.        CALL METHOD ls_header->set_data        EXPORTING          im_data = ls_mepoheader.   
/* ... 已截断，完整代码请查看原文 */
ABAP ME21N采购订单新增页签增强 
DEFINE SET_INPUT.    READ TABLE ch_fieldselection ASSIGNING <fs> WITH TABLE KEY metafield = &1.    IF sy-subrc = 0.      IF im_header->is_changeable( ) = mmpur_yes.        <fs>-fieldstatus = '+'."'-'代表hidden, '+'或'.'表示editable, '*'代表display      ELSE.        <fs>-fieldstatus = '*'.      ENDIF.    ENDIF.  END-OF-DEFINITION.
查看完整代码 
DEFINE SET_INPUT.    READ TABLE ch_fieldselection ASSIGNING <fs> WITH TABLE KEY metafield = &1.    IF sy-subrc = 0.      IF im_header->is_changeable( ) = mmpur_yes.        <fs>-fieldstatus = '+'."'-'代表hidden, '+'或'.'表示editable, '*'代表display      ELSE.        <fs>-fieldstatus = '*'.      ENDIF.    ENDIF.  END-OF-DEFINITION.
ABAP ME31K创建框架协议 
DATA:LV_MESSAGE TYPE CHAR200,     LV_CHECK   TYPE CHAR1.
查看完整代码 
DATA:LV_MESSAGE TYPE CHAR200,     LV_CHECK   TYPE CHAR1.
ABAP ME31K创建框架协议
查看代码
CALL FUNCTION 'BAPI_CONTRACT_CREATE'  EXPORTING    HEADER             = GS_HEADER    HEADERX            = GS_HEADERX*   VENDOR_ADDRESS     =*   TESTRUN            =*   TECHNICAL_DATA     =  IMPORTING    PURCHASINGDOCUMENT = GV_NUMBER    EXP_HEADER         = GS_EXP_HEADER  TABLES    RETURN             = GT_RETURN    ITEM               = GT_ITEM    ITEMX              = GT_ITEMX*   ACCOUNT            =*   ACCOUNTPROFITSEGMENT        =*   ACCOUNTX           =*   DELIVERY_ADDRESS   =*
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
CALL FUNCTION 'BAPI_CONTRACT_CREATE'  EXPORTING    HEADER             = GS_HEADER    HEADERX            = GS_HEADERX*   VENDOR_ADDRESS     =*   TESTRUN            =*   TECHNICAL_DATA     =  IMPORTING    PURCHASINGDOCUMENT = GV_NUMBER    EXP_HEADER         = GS_EXP_HEADER  TABLES    RETURN             = GT_RETURN    ITEM               = GT_ITEM    ITEMX              = GT_ITEMX*   ACCOUNT            =*   ACCOUNTPROFITSEGMENT        =*   ACCOUNTX           =*   DELIVERY_ADDRESS   =*
/* ... 已截断，完整代码请查看原文 */
ABAP ME31K创建框架协议 
IF LV_CHECK = 'S'.  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'    EXPORTING      WAIT = 'X'.  WRITE:GV_NUMBER.ELSE.  CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.ENDIF."-----------------------------@斌将军-----------------------------
查看完整代码 
IF LV_CHECK = 'S'.  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'    EXPORTING      WAIT = 'X'.  WRITE:GV_NUMBER.ELSE.  CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.ENDIF."-----------------------------@斌将军-----------------------------
ABAP ME51N创建采购申请 
DATA:LV_MESSAGE TYPE CHAR200,     LV_CHECK   TYPE CHAR1.
查看完整代码 
DATA:LV_MESSAGE TYPE CHAR200,     LV_CHECK   TYPE CHAR1.
ABAP ME51N创建采购申请 
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_INPUT'  EXPORTING    INPUT    = GS_ITEM-UNIT"计量单位    LANGUAGE = SY-LANGU  IMPORTING    OUTPUT   = GS_ITEM-UNIT.APPEND GS_ITEM TO GT_ITEM.
查看完整代码 
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_INPUT'  EXPORTING    INPUT    = GS_ITEM-UNIT"计量单位    LANGUAGE = SY-LANGU  IMPORTING    OUTPUT   = GS_ITEM-UNIT.APPEND GS_ITEM TO GT_ITEM.
ABAP ME51N创建采购申请 
IF LV_CHECK = 'S'.  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'    EXPORTING      WAIT = 'X'.  WRITE:LV_NUMBER.ELSE.  CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.ENDIF.
查看完整代码 
IF LV_CHECK = 'S'.  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'    EXPORTING      WAIT = 'X'.  WRITE:LV_NUMBER.ELSE.  CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.ENDIF.
ABAP ME51N创建采购申请
查看代码
DATA:GT_ITEM           TYPE TABLE OF BAPIEBANC,     GS_ITEM           TYPE BAPIEBANC,     GT_SER            TYPE TABLE OF BAPIESLLC,     GS_SER            TYPE BAPIESLLC,     GT_SER_VALUES     TYPE TABLE OF BAPIESKLC,     GS_SER_VALUES     TYPE BAPIESKLC,     GT_WBS            TYPE TABLE OF BAPIEBKN,     GS_WBS            TYPE  BAPIEBKN,     GT_RETURN         TYPE TABLE OF BAPIRETURN,     L_NO1             TYPE BAPIMEREQHEADER-PREQ_NO,     LV_MESSAGE        TYPE CHAR200,     "软件包编号   
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA:GT_ITEM           TYPE TABLE OF BAPIEBANC,     GS_ITEM           TYPE BAPIEBANC,     GT_SER            TYPE TABLE OF BAPIESLLC,     GS_SER            TYPE BAPIESLLC,     GT_SER_VALUES     TYPE TABLE OF BAPIESKLC,     GS_SER_VALUES     TYPE BAPIESKLC,     GT_WBS            TYPE TABLE OF BAPIEBKN,     GS_WBS            TYPE  BAPIEBKN,     GT_RETURN         TYPE TABLE OF BAPIRETURN,     L_NO1             TYPE BAPIMEREQHEADER-PREQ_NO,     LV_MESSAGE        TYPE CHAR200,     "软件包编号   
/* ... 已截断，完整代码请查看原文 */
ABAP ME51N创建采购申请
查看代码
CALL FUNCTION 'BAPI_REQUISITION_CREATE'  EXPORTING*   SKIP_ITEMS_WITH_ERROR          = gt_item    AUTOMATIC_SOURCE               = ' '  IMPORTING    NUMBER                         = L_NO1  TABLES    REQUISITION_ITEMS              = GT_ITEM    REQUISITION_ACCOUNT_ASSIGNMENT = GT_WBS*   REQUISITION_ITEM_TEXT          =*   REQUISITION_LIMITS             =*   REQUISITION_CONTRACT_LIMITS    =    REQUISITION_SERVICES           = GT_SER    REQUISITION_SRV_ACCASS_VALUES  = GT_S
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
CALL FUNCTION 'BAPI_REQUISITION_CREATE'  EXPORTING*   SKIP_ITEMS_WITH_ERROR          = gt_item    AUTOMATIC_SOURCE               = ' '  IMPORTING    NUMBER                         = L_NO1  TABLES    REQUISITION_ITEMS              = GT_ITEM    REQUISITION_ACCOUNT_ASSIGNMENT = GT_WBS*   REQUISITION_ITEM_TEXT          =*   REQUISITION_LIMITS             =*   REQUISITION_CONTRACT_LIMITS    =    REQUISITION_SERVICES           = GT_SER    REQUISITION_SRV_ACCASS_VALUES  = GT_S
/* ... 已截断，完整代码请查看原文 */
ABAP MIGO创建及增强 
DATA:    c_lenstruc          TYPE i VALUE 30,    wa_bapi_mb_header   TYPE bapi_te_xmkpf,    wa_bapi_mb_item     TYPE bapi_te_xmseg,    wa_extension_in     TYPE bapiparex.
查看完整代码 
DATA:    c_lenstruc          TYPE i VALUE 30,    wa_bapi_mb_header   TYPE bapi_te_xmkpf,    wa_bapi_mb_item     TYPE bapi_te_xmseg,    wa_extension_in     TYPE bapiparex.
ABAP MIGO创建及增强
查看代码
LOOP AT extension_in INTO wa_extension_in.    CASE wa_extension_in-structure.* extension of MKPF      WHEN 'BAPI_TE_XMKPF'.        MOVE wa_extension_in+c_lenstruc TO wa_bapi_mb_header.        MOVE-CORRESPONDING wa_bapi_mb_header TO cs_imkpf.* extension of MSEG      WHEN 'BAPI_TE_XMSEG'.        MOVE wa_extension_in+c_lenstruc TO wa_bapi_mb_item.        READ TABLE ct_imseg          WITH KEY line_id = wa_bapi_mb_item-matdoc_itm          ASSIGNING <fs_imseg>.        I
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
LOOP AT extension_in INTO wa_extension_in.    CASE wa_extension_in-structure.* extension of MKPF      WHEN 'BAPI_TE_XMKPF'.        MOVE wa_extension_in+c_lenstruc TO wa_bapi_mb_header.        MOVE-CORRESPONDING wa_bapi_mb_header TO cs_imkpf.* extension of MSEG      WHEN 'BAPI_TE_XMSEG'.        MOVE wa_extension_in+c_lenstruc TO wa_bapi_mb_item.        READ TABLE ct_imseg          WITH KEY line_id = wa_bapi_mb_item-matdoc_itm          ASSIGNING <fs_imseg>.        I
/* ... 已截断，完整代码请查看原文 */
ABAP MIGO创建及增强
查看代码
DATA:lv_message TYPE char200,     lv_check   TYPE char1.*    01：采购订单的收货*    02：生产订单的收货*    03：发货*    04：转移发布*    05：其他收货*    06：货物移动的逆转*    07：关于转包订单的后续调整
ls_header-pr_uname = sy-uname.  "用户名ls_header-doc_date = '20220315'."gs_template1-bldat."LV_DATE.  "凭证日期ls_header-pstng_date = '20220315'."gs_template1-budat."LV_DATE.  "过账日期ls_header-header_txt = ''."gs_template1-id."LV_DATE.  "抬头文本
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA:lv_message TYPE char200,     lv_check   TYPE char1.*    01：采购订单的收货*    02：生产订单的收货*    03：发货*    04：转移发布*    05：其他收货*    06：货物移动的逆转*    07：关于转包订单的后续调整
ls_header-pr_uname = sy-uname.  "用户名ls_header-doc_date = '20220315'."gs_template1-bldat."LV_DATE.  "凭证日期ls_header-pstng_date = '20220315'."gs_template1-budat."LV_DATE.  "过账日期ls_header-header_txt = ''."gs_template1-id."LV_DATE.  "抬头文本
/* ... 已截断，完整代码请查看原文 */
ABAP MIGO创建及增强 
LOOP AT lt_return WHERE type CA 'EAX'.  lv_check = 'E'.  CONCATENATE lv_message lt_return-message INTO lv_message.  CLEAR lt_return.ENDLOOP."BAPI调用成功IF lv_check = 'E'.  CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.ELSE.  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'    EXPORTING      wait = 'X'.ENDIF.
查看完整代码 
LOOP AT lt_return WHERE type CA 'EAX'.  lv_check = 'E'.  CONCATENATE lv_message lt_return-message INTO lv_message.  CLEAR lt_return.ENDLOOP."BAPI调用成功IF lv_check = 'E'.  CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.ELSE.  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'    EXPORTING      wait = 'X'.ENDIF.
ABAP MIGO创建及增强 
DATA: ls_mseg TYPE mseg.    DATA: lv_object             TYPE bapi1003_key-object.    DATA:gv_objek          TYPE cuobn,         gs_objek          TYPE bapi1003_key-object,         gv_obtab          TYPE tabelle,         gv_klart          TYPE klassenart,         gv_class          TYPE klasse_d,
查看完整代码 
DATA: ls_mseg TYPE mseg.    DATA: lv_object             TYPE bapi1003_key-object.    DATA:gv_objek          TYPE cuobn,         gs_objek          TYPE bapi1003_key-object,         gv_obtab          TYPE tabelle,         gv_klart          TYPE klassenart,         gv_class          TYPE klasse_d,
ABAP MIGO创建及增强
查看代码
DATA:return_message TYPE char200, "返回消息         lv_value       TYPE char70,         lv_check       TYPE char2.
IF it_mseg[] IS NOT INITIAL.      SELECT        aufnr,        zgh,        zxz      FROM aufk      INTO TABLE @DATA(lt_aufk)      FOR ALL ENTRIES IN @it_mseg      WHERE aufnr = @it_mseg-aufnr.    ENDIF.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA:return_message TYPE char200, "返回消息         lv_value       TYPE char70,         lv_check       TYPE char2.
IF it_mseg[] IS NOT INITIAL.      SELECT        aufnr,        zgh,        zxz      FROM aufk      INTO TABLE @DATA(lt_aufk)      FOR ALL ENTRIES IN @it_mseg      WHERE aufnr = @it_mseg-aufnr.    ENDIF.
/* ... 已截断，完整代码请查看原文 */
ABAP MIGO创建及增强 
LOOP AT gt_return INTO gs_return WHERE type CA 'EAX'.          return_message = '批次维护失败：未查询到分类密钥'.          MESSAGE e001(00) WITH return_message.        ENDLOOP.
查看完整代码 
LOOP AT gt_return INTO gs_return WHERE type CA 'EAX'.          return_message = '批次维护失败：未查询到分类密钥'.          MESSAGE e001(00) WITH return_message.        ENDLOOP.
ABAP MIGO各业务场景代码示例一
查看代码
DATA:lv_message TYPE char200,　　　l_line_id TYPE mseg-line_id VALUE '000000'     lv_check   TYPE char1.*    01：采购订单的收货*    02：生产订单的收货*    03：发货*    04：转移发布*    05：其他收货*    06：货物移动的逆转*    07：关于转包订单的后续调整
ls_header-pr_uname = sy-uname.  "用户名ls_header-doc_date = '20220315'."gs_template1-bldat."LV_DATE.  "凭证日期ls_header-pstng_date = '20220315'."gs_template1-budat."LV_DATE.  "过账日期ls_header-header_txt = ''."gs_template1-
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA:lv_message TYPE char200,　　　l_line_id TYPE mseg-line_id VALUE '000000'     lv_check   TYPE char1.*    01：采购订单的收货*    02：生产订单的收货*    03：发货*    04：转移发布*    05：其他收货*    06：货物移动的逆转*    07：关于转包订单的后续调整
ls_header-pr_uname = sy-uname.  "用户名ls_header-doc_date = '20220315'."gs_template1-bldat."LV_DATE.  "凭证日期ls_header-pstng_date = '20220315'."gs_template1-budat."LV_DATE.  "过账日期ls_header-header_txt = ''."gs_template1-
/* ... 已截断，完整代码请查看原文 */
ABAP MIGO各业务场景代码示例一 
LOOP AT lt_return WHERE type CA 'EAX'.  lv_check = 'E'.  CONCATENATE lv_message lt_return-message INTO lv_message.  CLEAR lt_return.ENDLOOP."BAPI调用成功IF lv_check = 'E'.  CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.ELSE.  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'    EXPORTING      wait = 'X'.ENDIF.
查看完整代码 
LOOP AT lt_return WHERE type CA 'EAX'.  lv_check = 'E'.  CONCATENATE lv_message lt_return-message INTO lv_message.  CLEAR lt_return.ENDLOOP."BAPI调用成功IF lv_check = 'E'.  CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.ELSE.  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'    EXPORTING      wait = 'X'.ENDIF.
ABAP MIGO各业务场景代码示例一
查看代码
"--------------------@斌将军--------------------ls_mode-gm_code = '01'.
CLEAR:ls_goodsmvt_item.ls_goodsmvt_item-po_number = '4100001418'."采购订单ls_goodsmvt_item-po_item = '00010'."采购订单行项目ls_goodsmvt_item-move_type = '101'."移动类型ls_goodsmvt_item-mvt_ind = 'B'.   "移动标识ls_goodsmvt_item-material = '000000010000000002'."物料ls_goodsmvt_item-plant = '1011'."工厂ls_goodsmvt_item-stge_loc = '1001&#x
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
"--------------------@斌将军--------------------ls_mode-gm_code = '01'.
CLEAR:ls_goodsmvt_item.ls_goodsmvt_item-po_number = '4100001418'."采购订单ls_goodsmvt_item-po_item = '00010'."采购订单行项目ls_goodsmvt_item-move_type = '101'."移动类型ls_goodsmvt_item-mvt_ind = 'B'.   "移动标识ls_goodsmvt_item-material = '000000010000000002'."物料ls_goodsmvt_item-plant = '1011'."工厂ls_goodsmvt_item-stge_loc = '1001&#x
/* ... 已截断，完整代码请查看原文 */
ABAP MIGO各业务场景代码示例一
查看代码
"--------------------@斌将军--------------------ls_mode-gm_code = '01'.
lv_line_id = lv_line_id + 1.
CLEAR:ls_goodsmvt_item.ls_goodsmvt_item-line_id = lv_line_id."凭证行的唯一标识 0001ls_goodsmvt_item-move_type = '101'."移动类型ls_goodsmvt_item-mvt_ind = 'B'.   "移动标识ls_goodsmvt_item-po_number = '4600000020'."采购订单ls_goodsmvt_item-po_item = '00010'."采购订单行项目ls_goodsmvt_item-material = '000000010000000002'."物料ls_go
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
"--------------------@斌将军--------------------ls_mode-gm_code = '01'.
lv_line_id = lv_line_id + 1.
CLEAR:ls_goodsmvt_item.ls_goodsmvt_item-line_id = lv_line_id."凭证行的唯一标识 0001ls_goodsmvt_item-move_type = '101'."移动类型ls_goodsmvt_item-mvt_ind = 'B'.   "移动标识ls_goodsmvt_item-po_number = '4600000020'."采购订单ls_goodsmvt_item-po_item = '00010'."采购订单行项目ls_goodsmvt_item-material = '000000010000000002'."物料ls_go
/* ... 已截断，完整代码请查看原文 */
ABAP MIGO各业务场景代码示例一
查看代码
"--------------------@斌将军--------------------ls_goodsmvt_code-gm_code = '04'.
IF p_wa_upload-bwart = '413' AND p_wa_upload-sobkz = 'E'."销售订单到销售订单    ls_goodsmvt_item-val_sales_ord  = p_wa_upload-vbeln."从销售订单    ls_goodsmvt_item-val_s_ord_item = p_wa_upload-posnr.    ls_goodsmvt_item-sales_ord  = p_wa_upload-d_vbeln."到销售订单    ls_goodsmvt_item-s_ord_item = p_wa_upload-d_posnr.ELSEIF p_wa_upload-bwart = '415' AND p_wa_upload-sobkz = 
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
"--------------------@斌将军--------------------ls_goodsmvt_code-gm_code = '04'.
IF p_wa_upload-bwart = '413' AND p_wa_upload-sobkz = 'E'."销售订单到销售订单    ls_goodsmvt_item-val_sales_ord  = p_wa_upload-vbeln."从销售订单    ls_goodsmvt_item-val_s_ord_item = p_wa_upload-posnr.    ls_goodsmvt_item-sales_ord  = p_wa_upload-d_vbeln."到销售订单    ls_goodsmvt_item-s_ord_item = p_wa_upload-d_posnr.ELSEIF p_wa_upload-bwart = '415' AND p_wa_upload-sobkz = 
/* ... 已截断，完整代码请查看原文 */
ABAP MIGO新增页签增强
查看代码
"--------------------@斌将军--------------------METHOD if_ex_mb_migo_badi~pbo_detail.  IF gf_class_id =  i_class_id.    DATA: wa_item TYPE zspp001.    CHECK i_line_id IS NOT INITIAL.    e_cprog = 'SAPLZEMIGO'."函数组    e_dynnr = '9001'."展示的页签屏幕    e_heading = '客户数据'."页签标题
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
"--------------------@斌将军--------------------METHOD if_ex_mb_migo_badi~pbo_detail.  IF gf_class_id =  i_class_id.    DATA: wa_item TYPE zspp001.    CHECK i_line_id IS NOT INITIAL.    e_cprog = 'SAPLZEMIGO'."函数组    e_dynnr = '9001'."展示的页签屏幕    e_heading = '客户数据'."页签标题
/* ... 已截断，完整代码请查看原文 */
ABAP MIGO新增页签增强 
CALL FUNCTION 'ZEMIGO_GET_DATA'    IMPORTING      e_out = wa_item_new.
MODIFY  it_item FROM wa_item_new  TRANSPORTING znum WHERE  line_id = i_line_id.  READ TABLE it_item INTO wa_item_old WITH  KEY line_id = i_line_id.
IF wa_item_new-line_id <> i_line_id.    e_force_change = 'X'.  ENDIF.
ENDMETHOD."--------------------@斌将军--------------------
查看完整代码 
CALL FUNCTION 'ZEMIGO_GET_DATA'    IMPORTING      e_out = wa_item_new.
MODIFY  it_item FROM wa_item_new  TRANSPORTING znum WHERE  line_id = i_line_id.  READ TABLE it_item INTO wa_item_old WITH  KEY line_id = i_line_id.
IF wa_item_new-line_id <> i_line_id.    e_force_change = 'X'.  ENDIF.
ENDMETHOD."--------------------@斌将军--------------------
ABAP MIGO新增页签增强
查看代码
READ TABLE it_item INTO wa_item_old WITH KEY line_id = i_line_id.  l_subrc = sy-subrc.  IF sy-subrc <> 0.    IF cs_goitem-mblnr IS NOT INITIAL      AND cs_goitem-mjahr IS NOT INITIAL      AND cs_goitem-zeile IS NOT INITIAL.
SELECT SINGLE * FROM ztpp001      INTO wa_ztmm_i_migo01      WHERE mblnr = cs_goitem-mblnr        AND mjahr = cs_goitem-mjahr        AND zeile = cs_goitem-zeile.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
READ TABLE it_item INTO wa_item_old WITH KEY line_id = i_line_id.  l_subrc = sy-subrc.  IF sy-subrc <> 0.    IF cs_goitem-mblnr IS NOT INITIAL      AND cs_goitem-mjahr IS NOT INITIAL      AND cs_goitem-zeile IS NOT INITIAL.
SELECT SINGLE * FROM ztpp001      INTO wa_ztmm_i_migo01      WHERE mblnr = cs_goitem-mblnr        AND mjahr = cs_goitem-mjahr        AND zeile = cs_goitem-zeile.
/* ... 已截断，完整代码请查看原文 */
ABAP MIGO新增页签增强 
ENDMETHOD. "--------------------@斌将军--------------------
查看完整代码 
ENDMETHOD. "--------------------@斌将军--------------------
ABAP MIGO新增页签增强
查看代码
DATA: wa_ztmm_i_migo01 TYPE ztpp001,        lt_ztmm_i_migo01 TYPE TABLE OF ztpp001,        wa_item          TYPE zspp001,        wa_mseg          TYPE mseg.
IF it_item IS NOT INITIAL.    LOOP AT it_item INTO wa_item.      IF g_cancel IS INITIAL.        READ TABLE it_mseg INTO wa_mseg          WITH KEY line_id = wa_item-line_id.      ELSE.        READ TABLE it_mseg INTO wa_mseg          WITH KEY smbln = wa_item-mblnr                   smblp = wa_item-zeile                   sjahr = wa_item-
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA: wa_ztmm_i_migo01 TYPE ztpp001,        lt_ztmm_i_migo01 TYPE TABLE OF ztpp001,        wa_item          TYPE zspp001,        wa_mseg          TYPE mseg.
IF it_item IS NOT INITIAL.    LOOP AT it_item INTO wa_item.      IF g_cancel IS INITIAL.        READ TABLE it_mseg INTO wa_mseg          WITH KEY line_id = wa_item-line_id.      ELSE.        READ TABLE it_mseg INTO wa_mseg          WITH KEY smbln = wa_item-mblnr                   smblp = wa_item-zeile                   sjahr = wa_item-
/* ... 已截断，完整代码请查看原文 */
ABAP MIGO配置过账后自动打印
查看代码
TABLES: nast.
FORM entry_wa01 USING ent_retco ent_screen.
DATA:fm_name               TYPE rs38l_fnam,       ls_output_options     TYPE ssfcompop,       ls_control_parameters TYPE ssfctrlop,       ls_output_info        TYPE ssfcrescl,       ls_option             TYPE ssfcresop.  DATA:l_control_parameters  TYPE ssfctrlop.  DATA:lv_formname TYPE tdsfname VALUE 'ZSAPM07DR_SF'."smartforms名称  DATA:lt_head TYPE TABLE OF zmm043_fhdy_head,       ls_head TYPE zmm043_fhdy_head,       l
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
TABLES: nast.
FORM entry_wa01 USING ent_retco ent_screen.
DATA:fm_name               TYPE rs38l_fnam,       ls_output_options     TYPE ssfcompop,       ls_control_parameters TYPE ssfctrlop,       ls_output_info        TYPE ssfcrescl,       ls_option             TYPE ssfcresop.  DATA:l_control_parameters  TYPE ssfctrlop.  DATA:lv_formname TYPE tdsfname VALUE 'ZSAPM07DR_SF'."smartforms名称  DATA:lt_head TYPE TABLE OF zmm043_fhdy_head,       ls_head TYPE zmm043_fhdy_head,       l
/* ... 已截断，完整代码请查看原文 */
ABAP MIGO配置过账后自动打印 
CALL FUNCTION PV_FNAME    EXPORTING      CONTROL_PARAMETERS = LS_SSFCTRLOP    EXCEPTIONS      FORMATTING_ERROR   = 1      INTERNAL_ERROR     = 2      SEND_ERROR         = 3      USER_CANCELED      = 4      OTHERS             = 5.  IF SY-SUBRC <> 0.    MESSAGE ID SY-MSGID TYPE 'E' NUMBER SY-MSGNO    WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.  ENDIF.ENDFORM."--------------------@斌将军--------------------
查看完整代码 
CALL FUNCTION PV_FNAME    EXPORTING      CONTROL_PARAMETERS = LS_SSFCTRLOP    EXCEPTIONS      FORMATTING_ERROR   = 1      INTERNAL_ERROR     = 2      SEND_ERROR         = 3      USER_CANCELED      = 4      OTHERS             = 5.  IF SY-SUBRC <> 0.    MESSAGE ID SY-MSGID TYPE 'E' NUMBER SY-MSGNO    WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.  ENDIF.ENDFORM."--------------------@斌将军--------------------
ABAP MIR7创建预制发票BAPI
查看代码
DATA:lv_item    TYPE bapi_incinv_create_item-invoice_doc_item,     lv_check   TYPE char1,     lv_message TYPE char200.
CLEAR:ls_headerdata.ls_headerdata-invoice_ind = 'X'. "标识: 记帐发票ls_headerdata-doc_type = 'RE'."凭证类型ls_headerdata-doc_date = sy-datum."凭证中的凭证日期ls_headerdata-pstng_date = sy-datum."凭证中的过账日期ls_headerdata-comp_code = '1010'."公司代码ls_headerdata-currency = 'CNY'."货币码ls_headerdata-bline_date = sy-datum."用于到期日
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA:lv_item    TYPE bapi_incinv_create_item-invoice_doc_item,     lv_check   TYPE char1,     lv_message TYPE char200.
CLEAR:ls_headerdata.ls_headerdata-invoice_ind = 'X'. "标识: 记帐发票ls_headerdata-doc_type = 'RE'."凭证类型ls_headerdata-doc_date = sy-datum."凭证中的凭证日期ls_headerdata-pstng_date = sy-datum."凭证中的过账日期ls_headerdata-comp_code = '1010'."公司代码ls_headerdata-currency = 'CNY'."货币码ls_headerdata-bline_date = sy-datum."用于到期日
/* ... 已截断，完整代码请查看原文 */
ABAP MMSC扩充物料库存地点
查看代码
lt_head-function     = '009'.lt_head-material     = 'HYM01'.lt_head-storage_view = 'X'.APPEND lt_head.CLEAR lt_head.
lt_mard-function     = '009'.lt_mard-material     =  'HYM01'.lt_mard-plant        =  '1000'.lt_mard-stge_loc     =  '1002'.APPEND lt_mard.CLEAR lt_mard.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
lt_head-function     = '009'.lt_head-material     = 'HYM01'.lt_head-storage_view = 'X'.APPEND lt_head.CLEAR lt_head.
lt_mard-function     = '009'.lt_mard-material     =  'HYM01'.lt_mard-plant        =  '1000'.lt_mard-stge_loc     =  '1002'.APPEND lt_mard.CLEAR lt_mard.
/* ... 已截断，完整代码请查看原文 */
ABAP MMSC扩充物料库存地点
查看代码
ls_head-material     = '000000000001100023'. " 物料编号ls_head-storage_view = 'X'.          " 存储视图"ls_stld-plant    = 'P060'. " 工厂ls_stld-stge_loc = '9201'. " 存储地点
ls_stldx-plant    = 'P060'. " 工厂ls_stldx-stge_loc = '9201'. " 存储地点
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
ls_head-material     = '000000000001100023'. " 物料编号ls_head-storage_view = 'X'.          " 存储视图"ls_stld-plant    = 'P060'. " 工厂ls_stld-stge_loc = '9201'. " 存储地点
ls_stldx-plant    = 'P060'. " 工厂ls_stldx-stge_loc = '9201'. " 存储地点
/* ... 已截断，完整代码请查看原文 */
ABAP MODIFYITABFROMWAWHERE11 
REPORT ztest.TYPES: BEGIN OF ty_item,         id  TYPE i,         sel TYPE abap_bool,       END OF ty_item.DATA: lt_data TYPE STANDARD TABLE OF ty_item,      ls_data TYPE ty_item.
DO 10 TIMES.  INSERT VALUE #( id = sy-index ) INTO lt_data INDEX sy-index.ENDDO.ls_data-sel = abap_true.MODIFY lt_data FROM ls_data TRANSPORTING sel WHERE id IS NOT INITIAL.cl_demo_output=>display( lt_data ).
查看完整代码 
REPORT ztest.TYPES: BEGIN OF ty_item,         id  TYPE i,         sel TYPE abap_bool,       END OF ty_item.DATA: lt_data TYPE STANDARD TABLE OF ty_item,      ls_data TYPE ty_item.
DO 10 TIMES.  INSERT VALUE #( id = sy-index ) INTO lt_data INDEX sy-index.ENDDO.ls_data-sel = abap_true.MODIFY lt_data FROM ls_data TRANSPORTING sel WHERE id IS NOT INITIAL.cl_demo_output=>display( lt_data ).
ABAP MODIFYITABFROMWAWHERE11 
REPORT ztest.TYPES: BEGIN OF ty_item,         id  TYPE i,         sel TYPE abap_bool,       END OF ty_item.DATA: lt_data TYPE STANDARD TABLE OF ty_item,      ls_data TYPE ty_item.
DO 10 TIMES.  INSERT VALUE #( id = sy-index ) INTO lt_data INDEX sy-index.ENDDO.ls_data-sel = abap_true.MODIFY lt_data FROM ls_data TRANSPORTING sel WHERE ('').cl_demo_output=>display( lt_data ).
查看完整代码 
REPORT ztest.TYPES: BEGIN OF ty_item,         id  TYPE i,         sel TYPE abap_bool,       END OF ty_item.DATA: lt_data TYPE STANDARD TABLE OF ty_item,      ls_data TYPE ty_item.
DO 10 TIMES.  INSERT VALUE #( id = sy-index ) INTO lt_data INDEX sy-index.ENDDO.ls_data-sel = abap_true.MODIFY lt_data FROM ls_data TRANSPORTING sel WHERE ('').cl_demo_output=>display( lt_data ).
ABAP MOVECORRESPONDING内表 
IF  clr_befor_add  =  'X'  .
查看完整代码 
IF  clr_befor_add  =  'X'  .
ABAP MOVECORRESPONDING内表 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP MOVECORRESPONDING内表 
LOOP AT  intab  ASSIGNING  <fs_in> WHERE  (  wherestr  ).
查看完整代码 
LOOP AT  intab  ASSIGNING  <fs_in> WHERE  (  wherestr  ).
ABAP MOVECORRESPONDING内表 
APPEND  <fs_out> TO  outtab  .
ENDLOOP  .
查看完整代码 
APPEND  <fs_out> TO  outtab  .
ENDLOOP  .
ABAP MOVECORRESPONDING内表 
REPORT  z_barry_test  NO STANDARD PAGE  HEADING  .
查看完整代码 
REPORT  z_barry_test  NO STANDARD PAGE  HEADING  .
ABAP MOVECORRESPONDING内表 
SELECT  matnr maktx  INTO TABLE  it_in
查看完整代码 
SELECT  matnr maktx  INTO TABLE  it_in
ABAP MOVECORRESPONDING内表 
CALL FUNCTION  'ZMOVE_CORRESPONDING_TABLE'
查看完整代码 
CALL FUNCTION  'ZMOVE_CORRESPONDING_TABLE'
ABAP MOVECORRESPONDING内表 
LOOP AT  it_out  .
查看完整代码 
LOOP AT  it_out  .
ABAP MOVECORRESPONDING内表 
ENDLOOP  .
查看完整代码 
ENDLOOP  .
ABAP Note to payee functionality in SAP 
ls_note-type   = 1.
查看完整代码 
ls_note-type   = 1.
ABAP Note to payee functionality in SAP 
ls_note-line   = 1.
查看完整代码 
ls_note-line   = 1.
ABAP Note to payee functionality in SAP 
ls_note-text   = lc_inv.
查看完整代码 
ls_note-text   = lc_inv.
ABAP Note to payee functionality in SAP 
ls_note-length = strlen( ls_note-text ).
查看完整代码 
ls_note-length = strlen( ls_note-text ).
ABAP Note to payee functionality in SAP 
lv_note = <doc>-xblnr.
查看完整代码 
lv_note = <doc>-xblnr.
ABAP Note to payee functionality in SAP 
ls_note-length = strlen( lv_note ).
查看完整代码 
ls_note-length = strlen( lv_note ).
ABAP Note to payee functionality in SAP 
ls_note-text   = lv_note.
查看完整代码 
ls_note-text   = lv_note.
ABAP OBJECT ORIENTED ALV Guide - CUSTOM CONTAINER 
DATA:
查看完整代码 
DATA:
ABAP OBJECT ORIENTED ALV Guide - CUSTOM CONTAINER 
DATA:
查看完整代码 
DATA:
ABAP OBJECT ORIENTED ALV Guide - CUSTOM CONTAINER 
SELECT * FROM SFLIGHT INTO TABLE T_SFLIGHT.
查看完整代码 
SELECT * FROM SFLIGHT INTO TABLE T_SFLIGHT.
ABAP OBJECT ORIENTED ALV Guide - CUSTOM CONTAINER 
CALL METHOD R_GRID->SET_TABLE_FOR_FIRST_DISPLAY
查看完整代码 
CALL METHOD R_GRID->SET_TABLE_FOR_FIRST_DISPLAY
ABAP ODataSAPS4OP中使用SAPAPIHub的API
查看代码
DATA lt_purchaseorder TYPE zcl_ztab_api_po_proces_mpc=>tt_a_purchaseorderitemtype.  DATA ls_purchaseorder LIKE LINE OF lt_purchaseorder.
SELECT a~ebeln,b~ebelp,b~werks,b~matnr,b~menge,b~meins    FROM ekko AS a    INNER JOIN ekpo AS b ON b~ebeln = a~ebeln    INTO TABLE @DATA(lt_ekpo)    UP TO 5 ROWS.  IF sy-subrc EQ 0.    LOOP AT lt_ekpo INTO DATA(ls_ekpo).      ls_purchaseorder-purchaseorder = ls_ekpo-ebeln.      ls_purchaseorder-purchaseorderitem = ls_ekpo-ebelp.      ls_purchaseorder-
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA lt_purchaseorder TYPE zcl_ztab_api_po_proces_mpc=>tt_a_purchaseorderitemtype.  DATA ls_purchaseorder LIKE LINE OF lt_purchaseorder.
SELECT a~ebeln,b~ebelp,b~werks,b~matnr,b~menge,b~meins    FROM ekko AS a    INNER JOIN ekpo AS b ON b~ebeln = a~ebeln    INTO TABLE @DATA(lt_ekpo)    UP TO 5 ROWS.  IF sy-subrc EQ 0.    LOOP AT lt_ekpo INTO DATA(ls_ekpo).      ls_purchaseorder-purchaseorder = ls_ekpo-ebeln.      ls_purchaseorder-purchaseorderitem = ls_ekpo-ebelp.      ls_purchaseorder-
/* ... 已截断，完整代码请查看原文 */
ABAP ODataSAPS4OP中使用SAPAPIHub的API 
et_entityset = lt_purchaseorder.
查看完整代码 
et_entityset = lt_purchaseorder.
ABAP OData使用方法简介一 
METHOD companyset_get_entity.    DATA: ls_filter LIKE LINE OF it_key_tab.    READ TABLE it_key_tab WITH KEY name = 'Bukrs' INTO ls_filter.    IF sy-subrc IS INITIAL.      SELECT SINGLE bukrs butxt INTO er_entity FROM t001 WHERE bukrs = ls_filter-value.    ENDIF.  ENDMETHOD.
查看完整代码 
METHOD companyset_get_entity.    DATA: ls_filter LIKE LINE OF it_key_tab.    READ TABLE it_key_tab WITH KEY name = 'Bukrs' INTO ls_filter.    IF sy-subrc IS INITIAL.      SELECT SINGLE bukrs butxt INTO er_entity FROM t001 WHERE bukrs = ls_filter-value.    ENDIF.  ENDMETHOD.
ABAP OData使用方法简介一 
METHOD companyset_get_entityset.    SELECT bukrs butxt INTO TABLE et_entityset FROM t001.  ENDMETHOD.
查看完整代码 
METHOD companyset_get_entityset.    SELECT bukrs butxt INTO TABLE et_entityset FROM t001.  ENDMETHOD.
ABAP OData使用方法简介一 
METHOD plantset_get_entity.    DATA: ls_filter LIKE LINE OF it_key_tab.    READ TABLE it_key_tab WITH KEY name = 'Bukrs' INTO ls_filter.    IF sy-subrc IS INITIAL.      SELECT SINGLE werks name1 INTO er_entity FROM t001w WHERE werks = ls_filter-value.    ENDIF.  ENDMETHOD.
查看完整代码 
METHOD plantset_get_entity.    DATA: ls_filter LIKE LINE OF it_key_tab.    READ TABLE it_key_tab WITH KEY name = 'Bukrs' INTO ls_filter.    IF sy-subrc IS INITIAL.      SELECT SINGLE werks name1 INTO er_entity FROM t001w WHERE werks = ls_filter-value.    ENDIF.  ENDMETHOD.
ABAP OData使用方法简介一 
METHOD plantset_get_entityset.    SELECT werks name1 INTO TABLE et_entityset FROM t001w.  ENDMETHOD.
查看完整代码 
METHOD plantset_get_entityset.    SELECT werks name1 INTO TABLE et_entityset FROM t001w.  ENDMETHOD.
ABAP OData使用方法简介一 
METHOD companyset_get_entityset.    DATA(lv_where) =  io_tech_request_context->get_osql_where_clause_convert( ).    SELECT bukrs butxt INTO TABLE et_entityset FROM t001 WHERE (lv_where).  ENDMETHOD.
查看完整代码 
METHOD companyset_get_entityset.    DATA(lv_where) =  io_tech_request_context->get_osql_where_clause_convert( ).    SELECT bukrs butxt INTO TABLE et_entityset FROM t001 WHERE (lv_where).  ENDMETHOD.
ABAP OData使用方法简介一 
METHOD plantset_get_entityset.    DATA(lv_where) =  io_tech_request_context->get_osql_where_clause_convert( ).    SELECT werks name1 INTO TABLE et_entityset FROM t001w WHERE (lv_where).ENDMETHOD.
查看完整代码 
METHOD plantset_get_entityset.    DATA(lv_where) =  io_tech_request_context->get_osql_where_clause_convert( ).    SELECT werks name1 INTO TABLE et_entityset FROM t001w WHERE (lv_where).ENDMETHOD.
ABAP OData使用方法简介一 
METHOD companyset_get_entityset.    DATA(lv_where) =  io_tech_request_context->get_osql_where_clause_convert( ).    SELECT bukrs,butxt FROM t001 WHERE (lv_where) ORDER BY bukrs INTO TABLE @et_entityset UP TO @is_paging-top ROWS OFFSET @is_paging-skip .  ENDMETHOD.
查看完整代码 
METHOD companyset_get_entityset.    DATA(lv_where) =  io_tech_request_context->get_osql_where_clause_convert( ).    SELECT bukrs,butxt FROM t001 WHERE (lv_where) ORDER BY bukrs INTO TABLE @et_entityset UP TO @is_paging-top ROWS OFFSET @is_paging-skip .  ENDMETHOD.
ABAP OData使用方法简介一 
METHOD plantset_get_entityset.    DATA(lv_where) =  io_tech_request_context->get_osql_where_clause_convert( ).    SELECT werks,name1 FROM t001w WHERE (lv_where) ORDER BY werks INTO TABLE @et_entityset UP TO @is_paging-top ROWS OFFSET @is_paging-skip.ENDMETHOD.
查看完整代码 
METHOD plantset_get_entityset.    DATA(lv_where) =  io_tech_request_context->get_osql_where_clause_convert( ).    SELECT werks,name1 FROM t001w WHERE (lv_where) ORDER BY werks INTO TABLE @et_entityset UP TO @is_paging-top ROWS OFFSET @is_paging-skip.ENDMETHOD.
ABAP OData使用方法简介二关联和导航
查看代码
METHOD plantset_get_entity.    DATA: ls_filter LIKE LINE OF it_key_tab.    DATA: lv_bukrs TYPE bukrs,          lv_werks TYPE werks_d.    IF it_navigation_path[] IS NOT INITIAL.      READ TABLE it_navigation_path[ 1 ]-key_tab WITH KEY name = 'Bukrs' INTO ls_filter.      IF sy-subrc IS INITIAL.        lv_bukrs = ls_filter-value.      ENDIF.      READ TABLE it_navigation_path[ 1 ]-key_tab WITH KEY name = 'Werks' INTO ls_filter.      IF sy-subrc IS INITIAL.        lv_werks 
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
METHOD plantset_get_entity.    DATA: ls_filter LIKE LINE OF it_key_tab.    DATA: lv_bukrs TYPE bukrs,          lv_werks TYPE werks_d.    IF it_navigation_path[] IS NOT INITIAL.      READ TABLE it_navigation_path[ 1 ]-key_tab WITH KEY name = 'Bukrs' INTO ls_filter.      IF sy-subrc IS INITIAL.        lv_bukrs = ls_filter-value.      ENDIF.      READ TABLE it_navigation_path[ 1 ]-key_tab WITH KEY name = 'Werks' INTO ls_filter.      IF sy-subrc IS INITIAL.        lv_werks 
/* ... 已截断，完整代码请查看原文 */
ABAP OData使用方法简介二关联和导航
查看代码
METHOD plantset_get_entityset.    DATA: ls_key_tab TYPE /iwbep/s_mgw_name_value_pair,          lv_bukrs   TYPE bukrs.    DATA(lv_where) =  io_tech_request_context->get_osql_where_clause_convert( ).    READ TABLE it_key_tab WITH KEY name = 'Bukrs' INTO ls_key_tab.    IF sy-subrc = 0.      lv_bukrs =  ls_key_tab-value.    ENDIF.    IF lv_bukrs IS NOT INITIAL.      SELECT bukrs,werks,name1       FROM t001w       JOIN t001k ON t001k~bwkey = t001w~bwkey       WHERE bukrs = @lv_bukr
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
METHOD plantset_get_entityset.    DATA: ls_key_tab TYPE /iwbep/s_mgw_name_value_pair,          lv_bukrs   TYPE bukrs.    DATA(lv_where) =  io_tech_request_context->get_osql_where_clause_convert( ).    READ TABLE it_key_tab WITH KEY name = 'Bukrs' INTO ls_key_tab.    IF sy-subrc = 0.      lv_bukrs =  ls_key_tab-value.    ENDIF.    IF lv_bukrs IS NOT INITIAL.      SELECT bukrs,werks,name1       FROM t001w       JOIN t001k ON t001k~bwkey = t001w~bwkey       WHERE bukrs = @lv_bukr
/* ... 已截断，完整代码请查看原文 */
ABAP OData使用方法简介四POST方法使用
查看代码
METHOD userset_create_entity.    DATA ls_data TYPE zcl_ztest_odata_02_mpc=>ts_user.    DATA ls_user TYPE ztest_odata.    er_entity-msgty = 'E'.    io_data_provider->read_entry_data( IMPORTING es_data = ls_data ).    SELECT SINGLE * INTO ls_user FROM ztest_odata WHERE name = ls_data-name AND phone = ls_data-phone.    IF sy-subrc <> 0.      ls_user = CORRESPONDING #( ls_data ).      ls_user-ernam = sy-uname.      ls_user-erdat = sy-datum.      ls_user-erzet = sy-uzeit. 
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
METHOD userset_create_entity.    DATA ls_data TYPE zcl_ztest_odata_02_mpc=>ts_user.    DATA ls_user TYPE ztest_odata.    er_entity-msgty = 'E'.    io_data_provider->read_entry_data( IMPORTING es_data = ls_data ).    SELECT SINGLE * INTO ls_user FROM ztest_odata WHERE name = ls_data-name AND phone = ls_data-phone.    IF sy-subrc <> 0.      ls_user = CORRESPONDING #( ls_data ).      ls_user-ernam = sy-uname.      ls_user-erdat = sy-datum.      ls_user-erzet = sy-uzeit. 
/* ... 已截断，完整代码请查看原文 */
ABAP OOALV分割屏幕 
TYPES:BEGIN OF TY_MARC,        MATNR  TYPE MARC-MATNR,    "物料号        WERKS  TYPE MARC-WERKS,    "工厂        BWTTY  TYPE MARC-BWTTY,    "评估类别
查看完整代码 
TYPES:BEGIN OF TY_MARC,        MATNR  TYPE MARC-MATNR,    "物料号        WERKS  TYPE MARC-WERKS,    "工厂        BWTTY  TYPE MARC-BWTTY,    "评估类别
ABAP OOALV分割屏幕 
TYPES:BEGIN OF TY_MAKT,        MATNR  TYPE MAKT-MATNR,    "物料号        SPRAS  TYPE MAKT-SPRAS,    "语言代码        MAKTX  TYPE MAKT-MAKTX,    "物料描述
查看完整代码 
TYPES:BEGIN OF TY_MAKT,        MATNR  TYPE MAKT-MATNR,    "物料号        SPRAS  TYPE MAKT-SPRAS,    "语言代码        MAKTX  TYPE MAKT-MAKTX,    "物料描述
ABAP OOALV分割屏幕 
DATA:GV_9000   TYPE SCRFNAME VALUE 'Z9000', "GV_TABLE 是屏幕中定义的控件     R_UCOMM   LIKE SY-UCOMM,     OK_CODE   TYPE SY-UCOMM,     SAVE_CODE TYPE SY-UCOMM.
查看完整代码 
DATA:GV_9000   TYPE SCRFNAME VALUE 'Z9000', "GV_TABLE 是屏幕中定义的控件     R_UCOMM   LIKE SY-UCOMM,     OK_CODE   TYPE SY-UCOMM,     SAVE_CODE TYPE SY-UCOMM.
ABAP PO Item Conditions Non Editable 
CLASS : ZCL_IM_ME_PROCESS_PO_CUST
查看完整代码 
CLASS : ZCL_IM_ME_PROCESS_PO_CUST
ABAP PO Item Conditions Non Editable 
IF ls_mepoitem-werks = ‘YYYY’ AND
查看完整代码 
IF ls_mepoitem-werks = ‘YYYY’ AND
ABAP PO Item Conditions Non Editable 
ex_conditions = lt_komv.
查看完整代码 
ex_conditions = lt_komv.
ABAP PO Item Conditions Non Editable 
ENDIF.
ENDIF.
ENDIF.
查看完整代码 
ENDIF.
ENDIF.
ENDIF.
ABAP PO系列之过期消息的删除 
SELECT TOP 1000 "SCHEMA_NAME", "TABLE_NAME", "DISK_SIZE"
查看完整代码 
SELECT TOP 1000 "SCHEMA_NAME", "TABLE_NAME", "DISK_SIZE"
ABAP PSCJ37CJ38CJ34增加返回转借预算
查看代码
"--------------------@斌将军--------------------    SELECT      pspnr,      posid,      objnr    FROM prps    INTO TABLE @DATA(lt_prps)    FOR ALL ENTRIES IN @lt_ysbc    WHERE posid = @lt_ysbc-posid. //WBS
IF lt_prps IS NOT INITIAL.      SORT lt_prps BY posid.      "参数 I_BUDGET_ACTIVITY 是业务交易，支持以下这些业务交易。      "原始预算      "– KBUD 预算修改（TCODE:CJ30/CJ32）      "– KBN0 预算补充（TCODE:CJ37）      "– KBR0 预算返回（TCODE:CJ38）      "      "总体规划      "– KSTP 总收入（TCODE
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
"--------------------@斌将军--------------------    SELECT      pspnr,      posid,      objnr    FROM prps    INTO TABLE @DATA(lt_prps)    FOR ALL ENTRIES IN @lt_ysbc    WHERE posid = @lt_ysbc-posid. //WBS
IF lt_prps IS NOT INITIAL.      SORT lt_prps BY posid.      "参数 I_BUDGET_ACTIVITY 是业务交易，支持以下这些业务交易。      "原始预算      "– KBUD 预算修改（TCODE:CJ30/CJ32）      "– KBN0 预算补充（TCODE:CJ37）      "– KBR0 预算返回（TCODE:CJ38）      "      "总体规划      "– KSTP 总收入（TCODE
/* ... 已截断，完整代码请查看原文 */
ABAP PSCJ37CJ38CJ34增加返回转借预算
查看代码
CALL FUNCTION 'KBPP_EXTERN_UPDATE_CO'        EXPORTING          i_budget_activity      = 'KBN0'          i_budget_activ_sup_ret = ' '          i_delta_amounts        = 'X'          i_rollup_data          = 'X'          i_check_plan_data      = 'X'          i_commit_all           = 'Y'        IMPORTING          e_errors_found         = lv_oax        TABLES          it_bpak                = lt_bpak          it_return      
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
CALL FUNCTION 'KBPP_EXTERN_UPDATE_CO'        EXPORTING          i_budget_activity      = 'KBN0'          i_budget_activ_sup_ret = ' '          i_delta_amounts        = 'X'          i_rollup_data          = 'X'          i_check_plan_data      = 'X'          i_commit_all           = 'Y'        IMPORTING          e_errors_found         = lv_oax        TABLES          it_bpak                = lt_bpak          it_return      
/* ... 已截断，完整代码请查看原文 */
ABAP PSCJ37CJ38CJ34增加返回转借预算
查看代码
"--------------------@斌将军--------------------CALL FUNCTION 'KBPP_EXTERN_UPDATE_CO'        EXPORTING          i_budget_activity      = 'KBR0'          i_budget_activ_sup_ret = ' '          i_delta_amounts        = 'X'          i_rollup_data          = 'X'          i_check_plan_data      = 'X'          i_commit_all           = 'Y'        IMPORTING          e_errors_found         = lv_oax        TABLES          it_bpak
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
"--------------------@斌将军--------------------CALL FUNCTION 'KBPP_EXTERN_UPDATE_CO'        EXPORTING          i_budget_activity      = 'KBR0'          i_budget_activ_sup_ret = ' '          i_delta_amounts        = 'X'          i_rollup_data          = 'X'          i_check_plan_data      = 'X'          i_commit_all           = 'Y'        IMPORTING          e_errors_found         = lv_oax        TABLES          it_bpak
/* ... 已截断，完整代码请查看原文 */
ABAP PSCJ37CJ38CJ34增加返回转借预算
查看代码
"--------------------@斌将军--------------------    SELECT      pspnr,      posid,      objnr    FROM prps    INTO TABLE @DATA(lt_prps)    FOR ALL ENTRIES IN @lt_yszj    WHERE posid = @lt_yszj-outwbs      OR posid = @lt_yszj-inwbs.
IF lt_prps IS NOT INITIAL.      SORT lt_prps BY posid.      LOOP AT lt_yszj INTO ls_yszj.        CLEAR:ls_bpak.        READ TABLE lt_prps INTO DATA(ls_prps) WITH KEY         posid = ls_yszj-outwbs BINARY SEARCH.        IF sy-subrc EQ 0.          ls_bpak-s_objn
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
"--------------------@斌将军--------------------    SELECT      pspnr,      posid,      objnr    FROM prps    INTO TABLE @DATA(lt_prps)    FOR ALL ENTRIES IN @lt_yszj    WHERE posid = @lt_yszj-outwbs      OR posid = @lt_yszj-inwbs.
IF lt_prps IS NOT INITIAL.      SORT lt_prps BY posid.      LOOP AT lt_yszj INTO ls_yszj.        CLEAR:ls_bpak.        READ TABLE lt_prps INTO DATA(ls_prps) WITH KEY         posid = ls_yszj-outwbs BINARY SEARCH.        IF sy-subrc EQ 0.          ls_bpak-s_objn
/* ... 已截断，完整代码请查看原文 */
ABAP PSCJ37CJ38CJ34增加返回转借预算
查看代码
READ TABLE lt_prps INTO ls_prps WITH KEY posid                           = ls_yszj-inwbs BINARY SEARCH.        IF sy-subrc EQ 0.          ls_bpak-e_objnr = ls_prps-objnr."借入        ENDIF.        "ls_bpak-s_vorga = 'KBUS'.        "ls_bpak-e_vorga = 'KBUE'.        ls_bpak-bldat = ls_yszj-bldat."凭证日期        ls_bpak-s_ges = 'X'."总价值        ls_bpak-e_ges = 'X'."总价值        ls_bpak-s_profil = '800001'."预算参数文件    
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
READ TABLE lt_prps INTO ls_prps WITH KEY posid                           = ls_yszj-inwbs BINARY SEARCH.        IF sy-subrc EQ 0.          ls_bpak-e_objnr = ls_prps-objnr."借入        ENDIF.        "ls_bpak-s_vorga = 'KBUS'.        "ls_bpak-e_vorga = 'KBUE'.        ls_bpak-bldat = ls_yszj-bldat."凭证日期        ls_bpak-s_ges = 'X'."总价值        ls_bpak-e_ges = 'X'."总价值        ls_bpak-s_profil = '800001'."预算参数文件    
/* ... 已截断，完整代码请查看原文 */
ABAP PSCJ37CJ38CJ34增加返回转借预算
查看代码
CALL FUNCTION 'KBPP_EXTERN_UPDATE'        EXPORTING*         IMP_CARRY_OVER              = ' '*         IMP_CHECK  = ' '          imp_commit = 'X'          imp_fcode  = ' '*         IMP_SUPRESS_AVA_CHECK       = ' '          imp_tcode  = 'CJ34'*         IMP_UNAME  = ' '        TABLES          imp_bpak   = lt_bpak*         imp_bpak_per = lt_bpak_per          return     = lt_return.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
CALL FUNCTION 'KBPP_EXTERN_UPDATE'        EXPORTING*         IMP_CARRY_OVER              = ' '*         IMP_CHECK  = ' '          imp_commit = 'X'          imp_fcode  = ' '*         IMP_SUPRESS_AVA_CHECK       = ' '          imp_tcode  = 'CJ34'*         IMP_UNAME  = ' '        TABLES          imp_bpak   = lt_bpak*         imp_bpak_per = lt_bpak_per          return     = lt_return.
/* ... 已截断，完整代码请查看原文 */
ABAP PS项目报工与取消
查看代码
DATA:lv_message TYPE char200,     lv_check   TYPE char1.
lv_number = '50000077'.CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'  EXPORTING    input  = lv_number  IMPORTING    output = lv_number.
ls_confirmations-activity = '0010'."作业ls_confirmations-plant = '1011'."工厂ls_confirmations-work_cntr = 'ZPS00003'."工作中心ls_confirmations-fin_conf = ''."最终确认ls_confirmations-act_work = '7'."实际工时ls_confirmations-
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA:lv_message TYPE char200,     lv_check   TYPE char1.
lv_number = '50000077'.CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'  EXPORTING    input  = lv_number  IMPORTING    output = lv_number.
ls_confirmations-activity = '0010'."作业ls_confirmations-plant = '1011'."工厂ls_confirmations-work_cntr = 'ZPS00003'."工作中心ls_confirmations-fin_conf = ''."最终确认ls_confirmations-act_work = '7'."实际工时ls_confirmations-
/* ... 已截断，完整代码请查看原文 */
ABAP PS项目报工与取消
查看代码
CALL FUNCTION 'BAPI_PS_INITIALIZATION'.
CALL FUNCTION 'BAPI_NETWORK_CONF_ADD'  EXPORTING    number          = lv_number*   POST_WRONG_ENTRIES       = 0*   TESTRUN         =  IMPORTING    return          = ls_return  TABLES    i_confirmations = lt_confirmations    e_message_table = lt_message_table.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
CALL FUNCTION 'BAPI_PS_INITIALIZATION'.
CALL FUNCTION 'BAPI_NETWORK_CONF_ADD'  EXPORTING    number          = lv_number*   POST_WRONG_ENTRIES       = 0*   TESTRUN         =  IMPORTING    return          = ls_return  TABLES    i_confirmations = lt_confirmations    e_message_table = lt_message_table.
/* ... 已截断，完整代码请查看原文 */
ABAP PS项目报工与取消
查看代码
DATA:lv_message TYPE char200,     lv_check   TYPE char1.
lv_number = '50000077'.CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'  EXPORTING    input  = lv_number  IMPORTING    output = lv_number.
ls_conf_cancel-activity = '0010'."作业ls_conf_cancel-conf_cnt = '3'."确认计数器
ls_additional_infos-postg_date = '20220826'."过账日期ls_additional_infos-conf_cancel_text = '111'."取消原因
CALL FUNCTION 'BAPI_PS_INITIALIZATION'.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA:lv_message TYPE char200,     lv_check   TYPE char1.
lv_number = '50000077'.CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'  EXPORTING    input  = lv_number  IMPORTING    output = lv_number.
ls_conf_cancel-activity = '0010'."作业ls_conf_cancel-conf_cnt = '3'."确认计数器
ls_additional_infos-postg_date = '20220826'."过账日期ls_additional_infos-conf_cancel_text = '111'."取消原因
CALL FUNCTION 'BAPI_PS_INITIALIZATION'.
/* ... 已截断，完整代码请查看原文 */
ABAP Profitability segment WIKI 
The processing of the log of incomplete items in the program FV45PFAP_VBAP_PRUEFEN_VOLLST contains a special logic for the profitability segment VBAP-PAOBJNR (more precisely it is the profitability segment number). This is processed internally through the incompleteness procedure FEHGR = 'MP', which is defined system-internally, and cannot be changed through the transaction OVA2.
查看完整代码 
The processing of the log of incomplete items in the program FV45PFAP_VBAP_PRUEFEN_VOLLST contains a special logic for the profitability segment VBAP-PAOBJNR (more precisely it is the profitability segment number). This is processed internally through the incompleteness procedure FEHGR = 'MP', which is defined system-internally, and cannot be changed through the transaction OVA2.
ABAP QA32增强 
DATA:LS_TAB LIKE LINE OF OBJECT_TAB.DATA:TMP_NAME TYPE THEAD-TDNAME.DATA:LT_LINE TYPE STANDARD TABLE OF TLINE,     LS_LINE TYPE TLINE.LOOP AT P_OBJECT_TAB INTO LS_TAB.      IF SY-TCODE = 'QA32' OR SY-TCODE = 'QA33'.        SELECT SINGLE          MARA~MATKL
查看完整代码 
DATA:LS_TAB LIKE LINE OF OBJECT_TAB.DATA:TMP_NAME TYPE THEAD-TDNAME.DATA:LT_LINE TYPE STANDARD TABLE OF TLINE,     LS_LINE TYPE TLINE.LOOP AT P_OBJECT_TAB INTO LS_TAB.      IF SY-TCODE = 'QA32' OR SY-TCODE = 'QA33'.        SELECT SINGLE          MARA~MATKL
ABAP QA32增强 
SELECT SINGLE          NAME1        FROM LFA1        INTO CORRESPONDING FIELDS OF LS_TAB        WHERE LIFNR = LS_TAB-LIFNR.      ENDIF.    MODIFY P_OBJECT_TAB FROM LS_TAB." TRANSPORTING EBELN_TEXT ZJGH ZLPH ZZBSH ZCLPH ZCJH ZVENDOR ZSCCJ ZGDH.    CLEAR LS_TAB.ENDLOOP.ENDENHANCEMENT."-----------------------------------------@斌将军--------------------------------------------
查看完整代码 
SELECT SINGLE          NAME1        FROM LFA1        INTO CORRESPONDING FIELDS OF LS_TAB        WHERE LIFNR = LS_TAB-LIFNR.      ENDIF.    MODIFY P_OBJECT_TAB FROM LS_TAB." TRANSPORTING EBELN_TEXT ZJGH ZLPH ZZBSH ZCLPH ZCJH ZVENDOR ZSCCJ ZGDH.    CLEAR LS_TAB.ENDLOOP.ENDENHANCEMENT."-----------------------------------------@斌将军--------------------------------------------
ABAP QA32增强 
DATA:LS_TAB LIKE LINE OF OBJECT_TAB.DATA:TMP_NAME TYPE THEAD-TDNAME.DATA:LT_LINE TYPE STANDARD TABLE OF TLINE,     LS_LINE TYPE TLINE.LOOP AT object_tab INTO LS_TAB.      IF SY-TCODE = 'QA32' OR SY-TCODE = 'QA33'.        SELECT SINGLE          MARA~MATKL
查看完整代码 
DATA:LS_TAB LIKE LINE OF OBJECT_TAB.DATA:TMP_NAME TYPE THEAD-TDNAME.DATA:LT_LINE TYPE STANDARD TABLE OF TLINE,     LS_LINE TYPE TLINE.LOOP AT object_tab INTO LS_TAB.      IF SY-TCODE = 'QA32' OR SY-TCODE = 'QA33'.        SELECT SINGLE          MARA~MATKL
ABAP QA32增强 
SELECT SINGLE          NAME1        FROM LFA1        INTO CORRESPONDING FIELDS OF LS_TAB        WHERE LIFNR = LS_TAB-LIFNR.      ENDIF.    MODIFY object_tab FROM LS_TAB." TRANSPORTING EBELN_TEXT ZJGH ZLPH ZZBSH ZCLPH ZCJH ZVENDOR ZSCCJ ZGDH.    CLEAR LS_TAB.ENDLOOP.ENDENHANCEMENT."-----------------------------------------@斌将军--------------------------------------------
查看完整代码 
SELECT SINGLE          NAME1        FROM LFA1        INTO CORRESPONDING FIELDS OF LS_TAB        WHERE LIFNR = LS_TAB-LIFNR.      ENDIF.    MODIFY object_tab FROM LS_TAB." TRANSPORTING EBELN_TEXT ZJGH ZLPH ZZBSH ZCLPH ZCJH ZVENDOR ZSCCJ ZGDH.    CLEAR LS_TAB.ENDLOOP.ENDENHANCEMENT."-----------------------------------------@斌将军--------------------------------------------
ABAP QE01QA11QA02屏幕增强
查看代码
DATA:lv_input TYPE char1,       lv_req   TYPE char1.
"可编辑设置  IF sy-tcode = 'QE01' OR sy-tcode = 'QE02'.    lv_input = '1'.    lv_req = '1'.  ELSEIF sy-tcode = 'QA11' OR sy-tcode = 'QA12'.    lv_input = '1'.    lv_req = '0'.  ELSE.    lv_input = '0'.  ENDIF.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA:lv_input TYPE char1,       lv_req   TYPE char1.
"可编辑设置  IF sy-tcode = 'QE01' OR sy-tcode = 'QE02'.    lv_input = '1'.    lv_req = '1'.  ELSEIF sy-tcode = 'QA11' OR sy-tcode = 'QA12'.    lv_input = '1'.    lv_req = '0'.  ELSE.    lv_input = '0'.  ENDIF.
/* ... 已截断，完整代码请查看原文 */
ABAP Reading price conditions dynamically from condition tables (2) 
SELECT SINGLE * FROM t685
查看完整代码 
SELECT SINGLE * FROM t685
ABAP Reading price conditions dynamically from condition tables (2) 
IF sy-subrc EQ 0.
查看完整代码 
IF sy-subrc EQ 0.
ABAP Reading price conditions dynamically from condition tables (2) 
lv_kozgf = gs_t685-kozgf.
查看完整代码 
lv_kozgf = gs_t685-kozgf.
ABAP Reading price conditions dynamically from condition tables (2) 
ENDIF.
查看完整代码 
ENDIF.
ABAP Reading price conditions dynamically from condition tables (2) 
DATA: lt_t682ia TYPE TABLE OF t682ia.
查看完整代码 
DATA: lt_t682ia TYPE TABLE OF t682ia.
ABAP Reading price conditions dynamically from condition tables (2) 
CALL FUNCTION 'COND_READ_ACCESSES'
查看完整代码 
CALL FUNCTION 'COND_READ_ACCESSES'
ABAP Reading price conditions dynamically from condition tables (2) 
i_kozgf    = lv_kozgf
查看完整代码 
i_kozgf    = lv_kozgf
ABAP Reading price conditions dynamically from condition tables (2) 
t682ia_tab = lt_t682ia
查看完整代码 
t682ia_tab = lt_t682ia
ABAP Reading price conditions dynamically from condition tables (2) 
SELECT * FROM t681
查看完整代码 
SELECT * FROM t681
ABAP Reading price conditions dynamically from condition tables (2) 
LOOP AT gt_t681 INTO DATA(ls_t681).
查看完整代码 
LOOP AT gt_t681 INTO DATA(ls_t681).
ABAP Reading price conditions dynamically from condition tables (2) 
get_data_from_condition_table( is_t681  = ls_t681
查看完整代码 
get_data_from_condition_table( is_t681  = ls_t681
ABAP Reading price conditions dynamically from condition tables (2) 
IF gt_data IS NOT INITIAL.
查看完整代码 
IF gt_data IS NOT INITIAL.
ABAP Reading price conditions dynamically from condition tables (2) 
ENDIF.
查看完整代码 
ENDIF.
ABAP Reading price conditions dynamically from condition tables (2) 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP Reading price conditions dynamically from condition tables (2) 
METHOD GET_DATA_FROM_CONDITION_TABLE.
查看完整代码 
METHOD GET_DATA_FROM_CONDITION_TABLE.
ABAP Reading price conditions dynamically from condition tables (2) 
DATA: lt_t682z TYPE wcb_t682z_tab.
查看完整代码 
DATA: lt_t682z TYPE wcb_t682z_tab.
ABAP Reading price conditions dynamically from condition tables (2) 
DATA: lv_datum TYPE datum,
查看完整代码 
DATA: lv_datum TYPE datum,
ABAP Reading price conditions dynamically from condition tables (2) 
DATA: ls_data TYPE ty_data.
查看完整代码 
DATA: ls_data TYPE ty_data.
ABAP Reading price conditions dynamically from condition tables (2) 
DATA: ob_rec TYPE REF TO data.
查看完整代码 
DATA: ob_rec TYPE REF TO data.
ABAP Reading price conditions dynamically from condition tables (2) 
CALL FUNCTION 'WCB_GET_CONDITION_TABLE_KEYS'
查看完整代码 
CALL FUNCTION 'WCB_GET_CONDITION_TABLE_KEYS'
ABAP Reading price conditions dynamically from condition tables (2) 
et_t682z         = lt_t682z
查看完整代码 
et_t682z         = lt_t682z
ABAP Reading price conditions dynamically from condition tables (2) 
IF sy-subrc NE 0.
查看完整代码 
IF sy-subrc NE 0.
ABAP Reading price conditions dynamically from condition tables (2) 
ENDIF.
查看完整代码 
ENDIF.
ABAP Reading price conditions dynamically from condition tables (2) 
LOOP AT lt_t682z INTO DATA(ls_t682z).
查看完整代码 
LOOP AT lt_t682z INTO DATA(ls_t682z).
ABAP Reading price conditions dynamically from condition tables (2) 
IF sy-subrc EQ 0.
查看完整代码 
IF sy-subrc EQ 0.
ABAP Reading price conditions dynamically from condition tables (2) 
IF ls_where IS INITIAL.
查看完整代码 
IF ls_where IS INITIAL.
ABAP Reading price conditions dynamically from condition tables (2) 
ls_where = |{ ls_t682z-zifna } EQ '{ <lv_field> }'|.
查看完整代码 
ls_where = |{ ls_t682z-zifna } EQ '{ <lv_field> }'|.
ABAP Reading price conditions dynamically from condition tables (2) 
ls_where = ls_where && | AND { ls_t682z-zifna } EQ '{ <lv_field> }'|.
查看完整代码 
ls_where = ls_where && | AND { ls_t682z-zifna } EQ '{ <lv_field> }'|.
ABAP Reading price conditions dynamically from condition tables (2) 
ENDIF.
查看完整代码 
ENDIF.
ABAP Reading price conditions dynamically from condition tables (2) 
ENDIF.
查看完整代码 
ENDIF.
ABAP Reading price conditions dynamically from condition tables (2) 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP Reading price conditions dynamically from condition tables (2) 
IF is_t681-ksdat IS INITIAL.
查看完整代码 
IF is_t681-ksdat IS INITIAL.
ABAP Reading price conditions dynamically from condition tables (2) 
SELECT * INTO TABLE <lt_rec>
查看完整代码 
SELECT * INTO TABLE <lt_rec>
ABAP Reading price conditions dynamically from condition tables (2) 
IF iv_prsdt IS INITIAL.
查看完整代码 
IF iv_prsdt IS INITIAL.
ABAP Reading price conditions dynamically from condition tables (2) 
lv_datum = sy-datum.
查看完整代码 
lv_datum = sy-datum.
ABAP Reading price conditions dynamically from condition tables (2) 
lv_datum = iv_prsdt.
查看完整代码 
lv_datum = iv_prsdt.
ABAP Reading price conditions dynamically from condition tables (2) 
ENDIF.
查看完整代码 
ENDIF.
ABAP Reading price conditions dynamically from condition tables (2) 
SELECT * INTO TABLE <lt_rec>
查看完整代码 
SELECT * INTO TABLE <lt_rec>
ABAP Reading price conditions dynamically from condition tables (2) 
ENDIF.
查看完整代码 
ENDIF.
ABAP Reading price conditions dynamically from condition tables (2) 
LOOP AT <lt_rec> ASSIGNING FIELD-SYMBOL(<ls_line>).
查看完整代码 
LOOP AT <lt_rec> ASSIGNING FIELD-SYMBOL(<ls_line>).
ABAP Reading price conditions dynamically from condition tables (2) 
SELECT konp~knumh
查看完整代码 
SELECT konp~knumh
ABAP Reading price conditions dynamically from condition tables (2) 
IF ls_data-konwa CA '%'.
查看完整代码 
IF ls_data-konwa CA '%'.
ABAP Reading price conditions dynamically from condition tables (2) 
ls_data-kbetr_1 = ls_data-kbetr_1 / 10 .
查看完整代码 
ls_data-kbetr_1 = ls_data-kbetr_1 / 10 .
ABAP Reading price conditions dynamically from condition tables (2) 
ls_data-kbetr_2 = ls_data-kbetr_2 / 10 .              "BGO01
查看完整代码 
ls_data-kbetr_2 = ls_data-kbetr_2 / 10 .              "BGO01
ABAP Reading price conditions dynamically from condition tables (2) 
ENDIF.
查看完整代码 
ENDIF.
ABAP Reading price conditions dynamically from condition tables (2) 
APPEND ls_data TO gt_data.
查看完整代码 
APPEND ls_data TO gt_data.
ABAP Reading price conditions dynamically from condition tables (2) 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP Reading price conditions dynamically from condition tables (2) 
ENDMETHOD.
查看完整代码 
ENDMETHOD.
ABAP Reading price conditions dynamically from condition tables (2) 
CALL FUNCTION 'RV_INVOICE_PRICING_PREPARE'
查看完整代码 
CALL FUNCTION 'RV_INVOICE_PRICING_PREPARE'
ABAP Reading price conditions dynamically from condition tables (2) 
vbrk_i = ls_vbrk
查看完整代码 
vbrk_i = ls_vbrk
ABAP Reading price conditions dynamically from condition tables (2) 
vbrp_i = ls_vbrp
查看完整代码 
vbrp_i = ls_vbrp
ABAP Reading price conditions dynamically from condition tables (2) 
komk_e = ls_komk
查看完整代码 
komk_e = ls_komk
ABAP Reading price conditions dynamically from condition tables (2) 
komp_e = ls_komp
查看完整代码 
komp_e = ls_komp
ABAP Reading price conditions dynamically from condition tables (2) 
xkomfk = lt_komfk
查看完整代码 
xkomfk = lt_komfk
ABAP Reading price conditions dynamically from condition tables (2) 
xvbfs  = lt_vbfs
查看完整代码 
xvbfs  = lt_vbfs
ABAP Reading price conditions dynamically from condition tables (2) 
xvbpa  = lt_xvbpa
查看完整代码 
xvbpa  = lt_xvbpa
ABAP Reading price conditions dynamically from condition tables (2) 
xvbrk  = lt_xvbrk
查看完整代码 
xvbrk  = lt_xvbrk
ABAP Reading price conditions dynamically from condition tables (2) 
xvbrp  = lt_xvbrp
查看完整代码 
xvbrp  = lt_xvbrp
ABAP Reading price conditions dynamically from condition tables 
SELECT SINGLE * FROM t685
查看完整代码 
SELECT SINGLE * FROM t685
ABAP Reading price conditions dynamically from condition tables 
IF sy-subrc EQ 0.
查看完整代码 
IF sy-subrc EQ 0.
ABAP Reading price conditions dynamically from condition tables 
lv_kozgf = gs_t685-kozgf.
查看完整代码 
lv_kozgf = gs_t685-kozgf.
ABAP Reading price conditions dynamically from condition tables 
ENDIF.
查看完整代码 
ENDIF.
ABAP Reading price conditions dynamically from condition tables 
DATA: lt_t682ia TYPE TABLE OF t682ia.
查看完整代码 
DATA: lt_t682ia TYPE TABLE OF t682ia.
ABAP Reading price conditions dynamically from condition tables 
CALL FUNCTION 'COND_READ_ACCESSES'
查看完整代码 
CALL FUNCTION 'COND_READ_ACCESSES'
ABAP Reading price conditions dynamically from condition tables 
i_kozgf    = lv_kozgf
查看完整代码 
i_kozgf    = lv_kozgf
ABAP Reading price conditions dynamically from condition tables 
t682ia_tab = lt_t682ia
查看完整代码 
t682ia_tab = lt_t682ia
ABAP Reading price conditions dynamically from condition tables 
SELECT * FROM t681
查看完整代码 
SELECT * FROM t681
ABAP Reading price conditions dynamically from condition tables 
LOOP AT gt_t681 INTO DATA(ls_t681).
查看完整代码 
LOOP AT gt_t681 INTO DATA(ls_t681).
ABAP Reading price conditions dynamically from condition tables 
get_data_from_condition_table( is_t681  = ls_t681
查看完整代码 
get_data_from_condition_table( is_t681  = ls_t681
ABAP Reading price conditions dynamically from condition tables 
IF gt_data IS NOT INITIAL.
查看完整代码 
IF gt_data IS NOT INITIAL.
ABAP Reading price conditions dynamically from condition tables 
ENDIF.
查看完整代码 
ENDIF.
ABAP Reading price conditions dynamically from condition tables 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP Reading price conditions dynamically from condition tables 
METHOD GET_DATA_FROM_CONDITION_TABLE.
查看完整代码 
METHOD GET_DATA_FROM_CONDITION_TABLE.
ABAP Reading price conditions dynamically from condition tables 
DATA: lt_t682z TYPE wcb_t682z_tab.
查看完整代码 
DATA: lt_t682z TYPE wcb_t682z_tab.
ABAP Reading price conditions dynamically from condition tables 
DATA: lv_datum TYPE datum,
查看完整代码 
DATA: lv_datum TYPE datum,
ABAP Reading price conditions dynamically from condition tables 
DATA: ls_data TYPE ty_data.
查看完整代码 
DATA: ls_data TYPE ty_data.
ABAP Reading price conditions dynamically from condition tables 
DATA: ob_rec TYPE REF TO data.
查看完整代码 
DATA: ob_rec TYPE REF TO data.
ABAP Reading price conditions dynamically from condition tables 
CALL FUNCTION 'WCB_GET_CONDITION_TABLE_KEYS'
查看完整代码 
CALL FUNCTION 'WCB_GET_CONDITION_TABLE_KEYS'
ABAP Reading price conditions dynamically from condition tables 
et_t682z         = lt_t682z
查看完整代码 
et_t682z         = lt_t682z
ABAP Reading price conditions dynamically from condition tables 
IF sy-subrc NE 0.
查看完整代码 
IF sy-subrc NE 0.
ABAP Reading price conditions dynamically from condition tables 
ENDIF.
查看完整代码 
ENDIF.
ABAP Reading price conditions dynamically from condition tables 
LOOP AT lt_t682z INTO DATA(ls_t682z).
查看完整代码 
LOOP AT lt_t682z INTO DATA(ls_t682z).
ABAP Reading price conditions dynamically from condition tables 
IF sy-subrc EQ 0.
查看完整代码 
IF sy-subrc EQ 0.
ABAP Reading price conditions dynamically from condition tables 
IF ls_where IS INITIAL.
查看完整代码 
IF ls_where IS INITIAL.
ABAP Reading price conditions dynamically from condition tables 
ls_where = |{ ls_t682z-zifna } EQ '{ <lv_field> }'|.
查看完整代码 
ls_where = |{ ls_t682z-zifna } EQ '{ <lv_field> }'|.
ABAP Reading price conditions dynamically from condition tables 
ls_where = ls_where && | AND { ls_t682z-zifna } EQ '{ <lv_field> }'|.
查看完整代码 
ls_where = ls_where && | AND { ls_t682z-zifna } EQ '{ <lv_field> }'|.
ABAP Reading price conditions dynamically from condition tables 
ENDIF.
查看完整代码 
ENDIF.
ABAP Reading price conditions dynamically from condition tables 
ENDIF.
查看完整代码 
ENDIF.
ABAP Reading price conditions dynamically from condition tables 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP Reading price conditions dynamically from condition tables 
IF is_t681-ksdat IS INITIAL.
查看完整代码 
IF is_t681-ksdat IS INITIAL.
ABAP Reading price conditions dynamically from condition tables 
SELECT * INTO TABLE <lt_rec>
查看完整代码 
SELECT * INTO TABLE <lt_rec>
ABAP Reading price conditions dynamically from condition tables 
IF iv_prsdt IS INITIAL.
查看完整代码 
IF iv_prsdt IS INITIAL.
ABAP Reading price conditions dynamically from condition tables 
lv_datum = sy-datum.
查看完整代码 
lv_datum = sy-datum.
ABAP Reading price conditions dynamically from condition tables 
lv_datum = iv_prsdt.
查看完整代码 
lv_datum = iv_prsdt.
ABAP Reading price conditions dynamically from condition tables 
ENDIF.
查看完整代码 
ENDIF.
ABAP Reading price conditions dynamically from condition tables 
SELECT * INTO TABLE <lt_rec>
查看完整代码 
SELECT * INTO TABLE <lt_rec>
ABAP Reading price conditions dynamically from condition tables 
ENDIF.
查看完整代码 
ENDIF.
ABAP Reading price conditions dynamically from condition tables 
LOOP AT <lt_rec> ASSIGNING FIELD-SYMBOL(<ls_line>).
查看完整代码 
LOOP AT <lt_rec> ASSIGNING FIELD-SYMBOL(<ls_line>).
ABAP Reading price conditions dynamically from condition tables 
SELECT konp~knumh
查看完整代码 
SELECT konp~knumh
ABAP Reading price conditions dynamically from condition tables 
IF ls_data-konwa CA '%'.
查看完整代码 
IF ls_data-konwa CA '%'.
ABAP Reading price conditions dynamically from condition tables 
ls_data-kbetr_1 = ls_data-kbetr_1 / 10 .
查看完整代码 
ls_data-kbetr_1 = ls_data-kbetr_1 / 10 .
ABAP Reading price conditions dynamically from condition tables 
ls_data-kbetr_2 = ls_data-kbetr_2 / 10 .              "BGO01
查看完整代码 
ls_data-kbetr_2 = ls_data-kbetr_2 / 10 .              "BGO01
ABAP Reading price conditions dynamically from condition tables 
ENDIF.
查看完整代码 
ENDIF.
ABAP Reading price conditions dynamically from condition tables 
APPEND ls_data TO gt_data.
查看完整代码 
APPEND ls_data TO gt_data.
ABAP Reading price conditions dynamically from condition tables 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP Reading price conditions dynamically from condition tables 
ENDMETHOD.
查看完整代码 
ENDMETHOD.
ABAP Reading price conditions dynamically from condition tables 
CALL FUNCTION 'RV_INVOICE_PRICING_PREPARE'
查看完整代码 
CALL FUNCTION 'RV_INVOICE_PRICING_PREPARE'
ABAP Reading price conditions dynamically from condition tables 
vbrk_i = ls_vbrk
查看完整代码 
vbrk_i = ls_vbrk
ABAP Reading price conditions dynamically from condition tables 
vbrp_i = ls_vbrp
查看完整代码 
vbrp_i = ls_vbrp
ABAP Reading price conditions dynamically from condition tables 
komk_e = ls_komk
查看完整代码 
komk_e = ls_komk
ABAP Reading price conditions dynamically from condition tables 
komp_e = ls_komp
查看完整代码 
komp_e = ls_komp
ABAP Reading price conditions dynamically from condition tables 
xkomfk = lt_komfk
查看完整代码 
xkomfk = lt_komfk
ABAP Reading price conditions dynamically from condition tables 
xvbfs  = lt_vbfs
查看完整代码 
xvbfs  = lt_vbfs
ABAP Reading price conditions dynamically from condition tables 
xvbpa  = lt_xvbpa
查看完整代码 
xvbpa  = lt_xvbpa
ABAP Reading price conditions dynamically from condition tables 
xvbrk  = lt_xvbrk
查看完整代码 
xvbrk  = lt_xvbrk
ABAP Reading price conditions dynamically from condition tables 
xvbrp  = lt_xvbrp
查看完整代码 
xvbrp  = lt_xvbrp
ABAP Reading price conditions dynamically from condition tables 
CALL FUNCTION 'COND_READ_ACCESSES'
查看完整代码 
CALL FUNCTION 'COND_READ_ACCESSES'
ABAP Reading price conditions dynamically from condition tables 
i_kozgf    = lv_kozgf
查看完整代码 
i_kozgf    = lv_kozgf
ABAP Reading price conditions dynamically from condition tables 
t682ia_tab = lt_t682ia
查看完整代码 
t682ia_tab = lt_t682ia
ABAP Reading price conditions dynamically from condition tables 
IF lt_t682ia IS NOT INITIAL.
查看完整代码 
IF lt_t682ia IS NOT INITIAL.
ABAP Reading price conditions dynamically from condition tables 
SELECT * FROM t681
查看完整代码 
SELECT * FROM t681
ABAP Reading price conditions dynamically from condition tables 
ENDIF.
查看完整代码 
ENDIF.
ABAP SAP ABAP 教程：如何限制 BW Query 中的 F4 输入帮助值 
DATA: lv_year TYPE n LENGTH 4,
查看完整代码 
DATA: lv_year TYPE n LENGTH 4,
ABAP SAP ABAP 教程：如何限制 BW Query 中的 F4 输入帮助值 
IF i_vnam EQ ‘ZP_TestFPVar'.
READ TABLE i_t_compid WITH TABLE KEY table_line = 'ZTest_Query'
查看完整代码 
IF i_vnam EQ ‘ZP_TestFPVar'.
READ TABLE i_t_compid WITH TABLE KEY table_line = 'ZTest_Query'
ABAP SAP ABAP 教程：如何限制 BW Query 中的 F4 输入帮助值 
IF sy-subrc = 0.
lv_year1 = sy-datum+0(4) - 1.
查看完整代码 
IF sy-subrc = 0.
lv_year1 = sy-datum+0(4) - 1.
ABAP SAP ABAP 教程：如何限制 BW Query 中的 F4 输入帮助值 
l_s_range-low = lv_fiscalperiodlow.
l_s_range-high = lv_fiscalperiodhigh.
APPEND l_s_range TO c_t_range.
ENDIF.
查看完整代码 
l_s_range-low = lv_fiscalperiodlow.
l_s_range-high = lv_fiscalperiodhigh.
APPEND l_s_range TO c_t_range.
ENDIF.
ABAP SALV使用方法介绍 
REPORT zyxs_salv01.DATA gt_sflight TYPE STANDARD TABLE OF sflight.DATA go_salv TYPE REF TO cl_salv_table.
SELECT * UP TO 100 ROWS INTO TABLE @gt_sflight FROM sflight.
*Create alv object.TRY.    CALL METHOD cl_salv_table=>factory      IMPORTING        r_salv_table = go_salv      CHANGING        t_table      = gt_sflight.  CATCH cx_salv_msg.ENDTRY.
查看完整代码 
REPORT zyxs_salv01.DATA gt_sflight TYPE STANDARD TABLE OF sflight.DATA go_salv TYPE REF TO cl_salv_table.
SELECT * UP TO 100 ROWS INTO TABLE @gt_sflight FROM sflight.
*Create alv object.TRY.    CALL METHOD cl_salv_table=>factory      IMPORTING        r_salv_table = go_salv      CHANGING        t_table      = gt_sflight.  CATCH cx_salv_msg.ENDTRY.
ABAP SALV使用方法介绍 
怎么样？是不是很简单，只需要调用  cl_salv_table=>factory  方法，传入需要显示的数据内表，返回一个  cl_salv_table
查看完整代码 
怎么样？是不是很简单，只需要调用  cl_salv_table=>factory  方法，传入需要显示的数据内表，返回一个  cl_salv_table
ABAP SALV使用方法介绍
查看代码
REPORT zyxs_salv02.TYPES: BEGIN OF gty_sflight.         INCLUDE STRUCTURE sflight.TYPES:   t_color TYPE lvc_t_scol,       END OF gty_sflight.
DATA: gt_sflight TYPE STANDARD TABLE OF gty_sflight.DATA go_salv TYPE REF TO cl_salv_table.
SELECT * UP TO 100 ROWS INTO CORRESPONDING FIELDS OF TABLE @gt_sflight FROM sflight.
DATA: lt_s_color TYPE lvc_t_scol,      ls_s_color TYPE lvc_s_scol.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
REPORT zyxs_salv02.TYPES: BEGIN OF gty_sflight.         INCLUDE STRUCTURE sflight.TYPES:   t_color TYPE lvc_t_scol,       END OF gty_sflight.
DATA: gt_sflight TYPE STANDARD TABLE OF gty_sflight.DATA go_salv TYPE REF TO cl_salv_table.
SELECT * UP TO 100 ROWS INTO CORRESPONDING FIELDS OF TABLE @gt_sflight FROM sflight.
DATA: lt_s_color TYPE lvc_t_scol,      ls_s_color TYPE lvc_s_scol.
/* ... 已截断，完整代码请查看原文 */
ABAP SALV使用方法介绍
查看代码
* 显示SALV所有标准功能.DATA(lo_functions) = go_salv->get_functions( ).lo_functions->set_all( abap_true ).
* 获取所有列DATA(lo_columns) = go_salv->get_columns( ).* 设置列宽自适应lo_columns->set_optimize( abap_true ).*设置斑马线DATA(lo_dspset) = go_salv->get_display_settings( ).lo_dspset->set_striped_pattern( abap_true ).
DATA lo_column    TYPE REF TO cl_salv_column.*隐藏列TRY.    lo_column ?= lo_columns->get_column( columnname = 'MANDT' ).    lo_column->set_technical( abap_true ).
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
* 显示SALV所有标准功能.DATA(lo_functions) = go_salv->get_functions( ).lo_functions->set_all( abap_true ).
* 获取所有列DATA(lo_columns) = go_salv->get_columns( ).* 设置列宽自适应lo_columns->set_optimize( abap_true ).*设置斑马线DATA(lo_dspset) = go_salv->get_display_settings( ).lo_dspset->set_striped_pattern( abap_true ).
DATA lo_column    TYPE REF TO cl_salv_column.*隐藏列TRY.    lo_column ?= lo_columns->get_column( columnname = 'MANDT' ).    lo_column->set_technical( abap_true ).
/* ... 已截断，完整代码请查看原文 */
ABAP SALV使用方法介绍 
DATA: ls_key TYPE salv_s_layout_key.DATA(lo_layout) = go_salv->get_layout( ).ls_key-report = sy-repid.ls_key-handle = '1000'.* 设置默认布局lo_layout->set_key( ls_key ).lo_layout->set_default( abap_true ).* 允许保存布局lo_layout->set_save_restriction( if_salv_c_layout=>restrict_none ).
查看完整代码 
DATA: ls_key TYPE salv_s_layout_key.DATA(lo_layout) = go_salv->get_layout( ).ls_key-report = sy-repid.ls_key-handle = '1000'.* 设置默认布局lo_layout->set_key( ls_key ).lo_layout->set_default( abap_true ).* 允许保存布局lo_layout->set_save_restriction( if_salv_c_layout=>restrict_none ).
ABAP SALV使用方法介绍 
REPORT zyxs_salv03.
查看完整代码 
REPORT zyxs_salv03.
ABAP SALV使用方法介绍 
METHOD on_double_click.    PERFORM show_cell_info USING row column '双击'.  ENDMETHOD.                    "on_double_click
METHOD on_link_click.    PERFORM show_cell_info USING row column '单击'.  ENDMETHOD.                    "on_single_clickENDCLASS.                    "lcl_handle_events IMPLEMENTATION
查看完整代码 
METHOD on_double_click.    PERFORM show_cell_info USING row column '双击'.  ENDMETHOD.                    "on_double_click
METHOD on_link_click.    PERFORM show_cell_info USING row column '单击'.  ENDMETHOD.                    "on_single_clickENDCLASS.                    "lcl_handle_events IMPLEMENTATION
ABAP SALV使用方法介绍
查看代码
*&---------------------------------------------------------------------**&      Form  display*&---------------------------------------------------------------------**       text*----------------------------------------------------------------------*FORM display.*Create alv object.  TRY.      CALL METHOD cl_salv_table=>factory        IMPORTING          r_salv_table = go_salv        CHANGING          t_table      = gt_sflight.    CATCH cx_salv_msg.  ENDTRY.* 可以以行、列的方式进行选择  DAT
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
*&---------------------------------------------------------------------**&      Form  display*&---------------------------------------------------------------------**       text*----------------------------------------------------------------------*FORM display.*Create alv object.  TRY.      CALL METHOD cl_salv_table=>factory        IMPORTING          r_salv_table = go_salv        CHANGING          t_table      = gt_sflight.    CATCH cx_salv_msg.  ENDTRY.* 可以以行、列的方式进行选择  DAT
/* ... 已截断，完整代码请查看原文 */
ABAP SALV使用方法介绍
查看代码
* 显示SALV所有标准功能.  DATA(lo_functions) = go_salv->get_functions( ).  lo_functions->set_all( abap_true ).
* 获取所有列  DATA(lo_columns) = go_salv->get_columns( ).* 设置列宽自适应  lo_columns->set_optimize( abap_true ).*设置斑马线  DATA(lo_dspset) = go_salv->get_display_settings( ).  lo_dspset->set_striped_pattern( abap_true ).
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
* 显示SALV所有标准功能.  DATA(lo_functions) = go_salv->get_functions( ).  lo_functions->set_all( abap_true ).
* 获取所有列  DATA(lo_columns) = go_salv->get_columns( ).* 设置列宽自适应  lo_columns->set_optimize( abap_true ).*设置斑马线  DATA(lo_dspset) = go_salv->get_display_settings( ).  lo_dspset->set_striped_pattern( abap_true ).
/* ... 已截断，完整代码请查看原文 */
ABAP SALV使用方法介绍 
ENDFORM.
查看完整代码 
ENDFORM.
ABAP SALV封装 
DATA: lt_sflight TYPE STANDARD TABLE OF sflight.
查看完整代码 
DATA: lt_sflight TYPE STANDARD TABLE OF sflight.
ABAP SALV封装 
SELECT * UP TO 100 ROWS  INTO CORRESPONDING FIELDS OF TABLE @lt_sflight  FROM sflight.
NEW zcl_salv(    im_table = REF #( lt_sflight )    im_t_hide = VALUE #( ( fieldname = 'MANDT' ) )    im_t_text = VALUE #( ( fieldname = 'SEATSMAX_B' text = 'CHANGE TEXT' ) )    )->display( ).
查看完整代码 
SELECT * UP TO 100 ROWS  INTO CORRESPONDING FIELDS OF TABLE @lt_sflight  FROM sflight.
NEW zcl_salv(    im_table = REF #( lt_sflight )    im_t_hide = VALUE #( ( fieldname = 'MANDT' ) )    im_t_text = VALUE #( ( fieldname = 'SEATSMAX_B' text = 'CHANGE TEXT' ) )    )->display( ).
ABAP SALV封装 
DATA: gt_sflight TYPE STANDARD TABLE OF sflight.
查看完整代码 
DATA: gt_sflight TYPE STANDARD TABLE OF sflight.
ABAP SALV封装 
SELECT * UP TO 100 ROWS  INTO CORRESPONDING FIELDS OF TABLE @gt_sflight  FROM sflight.
查看完整代码 
SELECT * UP TO 100 ROWS  INTO CORRESPONDING FIELDS OF TABLE @gt_sflight  FROM sflight.
ABAP SALV封装 
FORM frm_link_click USING sender TYPE REF TO cl_salv_events_table                             row    TYPE salv_de_row                             column TYPE salv_de_column.  READ TABLE gt_sflight INTO DATA(ls_sflight) INDEX row.  CHECK sy-subrc = 0.  CASE column .    WHEN 'CARRID' .      MESSAGE |{ ls_sflight-carrid } { ls_sflight-connid } { ls_sflight-fldate }| TYPE 'I'.  ENDCASE.ENDFORM.
查看完整代码 
FORM frm_link_click USING sender TYPE REF TO cl_salv_events_table                             row    TYPE salv_de_row                             column TYPE salv_de_column.  READ TABLE gt_sflight INTO DATA(ls_sflight) INDEX row.  CHECK sy-subrc = 0.  CASE column .    WHEN 'CARRID' .      MESSAGE |{ ls_sflight-carrid } { ls_sflight-connid } { ls_sflight-fldate }| TYPE 'I'.  ENDCASE.ENDFORM.
ABAP SALV封装 
DATA: gt_sflight TYPE STANDARD TABLE OF sflight.DATA: go_salv TYPE REF TO zcl_salv.
查看完整代码 
DATA: gt_sflight TYPE STANDARD TABLE OF sflight.DATA: go_salv TYPE REF TO zcl_salv.
ABAP SALV封装 
SELECT * UP TO 100 ROWS  INTO CORRESPONDING FIELDS OF TABLE @gt_sflight  FROM sflight.
查看完整代码 
SELECT * UP TO 100 ROWS  INTO CORRESPONDING FIELDS OF TABLE @gt_sflight  FROM sflight.
ABAP SALV封装 
FORM frm_link_click USING sender TYPE REF TO cl_salv_events_table                             row    TYPE salv_de_row                             column TYPE salv_de_column.  READ TABLE gt_sflight INTO DATA(ls_sflight) INDEX row.  CHECK sy-subrc = 0.  CASE column .    WHEN 'CARRID' .      MESSAGE |{ ls_sflight-carrid } { ls_sflight-connid } { ls_sflight-fldate }| TYPE 'I'.  ENDCASE.ENDFORM.
查看完整代码 
FORM frm_link_click USING sender TYPE REF TO cl_salv_events_table                             row    TYPE salv_de_row                             column TYPE salv_de_column.  READ TABLE gt_sflight INTO DATA(ls_sflight) INDEX row.  CHECK sy-subrc = 0.  CASE column .    WHEN 'CARRID' .      MESSAGE |{ ls_sflight-carrid } { ls_sflight-connid } { ls_sflight-fldate }| TYPE 'I'.  ENDCASE.ENDFORM.
ABAP SALV封装 
ENDFORM.
查看完整代码 
ENDFORM.
ABAP SALV封装
查看代码
DATA: lt_item LIKE gt_sflight.  DATA: lv_msgty TYPE bapi_mtype,        lv_msgtx TYPE bapi_msg.
DATA: wl_answer TYPE c.*  CALL FUNCTION 'POPUP_TO_CONFIRM'*    EXPORTING*      text_question         = TEXT-003 "是否调整库存？*      icon_button_1         = TEXT-004 "是*      icon_button_2         = TEXT-005 "否*      default_button        = '2'*      display_cancel_button = ''*      start_column          = 25*      start_row             = 6*    IMPORTING*   
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA: lt_item LIKE gt_sflight.  DATA: lv_msgty TYPE bapi_mtype,        lv_msgtx TYPE bapi_msg.
DATA: wl_answer TYPE c.*  CALL FUNCTION 'POPUP_TO_CONFIRM'*    EXPORTING*      text_question         = TEXT-003 "是否调整库存？*      icon_button_1         = TEXT-004 "是*      icon_button_2         = TEXT-005 "否*      default_button        = '2'*      display_cancel_button = ''*      start_column          = 25*      start_row             = 6*    IMPORTING*   
/* ... 已截断，完整代码请查看原文 */
ABAP SALV封装 
TYPES: BEGIN OF gty_sflight,         row_no TYPE lineid.         INCLUDE STRUCTURE sflight.TYPES: END OF gty_sflight.
DATA: gt_sflight TYPE STANDARD TABLE OF gty_sflight.
查看完整代码 
TYPES: BEGIN OF gty_sflight,         row_no TYPE lineid.         INCLUDE STRUCTURE sflight.TYPES: END OF gty_sflight.
DATA: gt_sflight TYPE STANDARD TABLE OF gty_sflight.
ABAP SALV封装 
SELECT * UP TO 100 ROWS  INTO CORRESPONDING FIELDS OF TABLE @gt_sflight  FROM sflight.
查看完整代码 
SELECT * UP TO 100 ROWS  INTO CORRESPONDING FIELDS OF TABLE @gt_sflight  FROM sflight.
ABAP SALV封装 
TYPES: BEGIN OF gty_sflight,         row_no  TYPE lineid.         INCLUDE STRUCTURE sflight.TYPES:   t_color TYPE lvc_t_scol,       END OF gty_sflight.
DATA: gt_sflight TYPE STANDARD TABLE OF gty_sflight.
DATA: lt_s_color TYPE lvc_t_scol,      ls_s_color TYPE lvc_s_scol.
查看完整代码 
TYPES: BEGIN OF gty_sflight,         row_no  TYPE lineid.         INCLUDE STRUCTURE sflight.TYPES:   t_color TYPE lvc_t_scol,       END OF gty_sflight.
DATA: gt_sflight TYPE STANDARD TABLE OF gty_sflight.
DATA: lt_s_color TYPE lvc_t_scol,      ls_s_color TYPE lvc_s_scol.
ABAP SALV封装 
SELECT * UP TO 100 ROWS  INTO CORRESPONDING FIELDS OF TABLE @gt_sflight  FROM sflight.
查看完整代码 
SELECT * UP TO 100 ROWS  INTO CORRESPONDING FIELDS OF TABLE @gt_sflight  FROM sflight.
ABAP SALV封装 
LOOP AT gt_sflight ASSIGNING FIELD-SYMBOL(<fs_sflight>).    REFRESH: lt_s_color.    IF sy-tabix MOD 3 = 0.* set row color      ls_s_color-color-col = 5.      ls_s_color-color-int = 0.      ls_s_color-color-inv = 0.      APPEND ls_s_color TO lt_s_color.      CLEAR  ls_s_color.    ENDIF.    IF sy-tabix MOD 2 = 0.* set cell color      ls_s_color-f
查看完整代码 
LOOP AT gt_sflight ASSIGNING FIELD-SYMBOL(<fs_sflight>).    REFRESH: lt_s_color.    IF sy-tabix MOD 3 = 0.* set row color      ls_s_color-color-col = 5.      ls_s_color-color-int = 0.      ls_s_color-color-inv = 0.      APPEND ls_s_color TO lt_s_color.      CLEAR  ls_s_color.    ENDIF.    IF sy-tabix MOD 2 = 0.* set cell color      ls_s_color-f
ABAP SALV状态栏quotABC分析quot按钮消失问题处理 
lr_model_base->set_screen_status( pfstatus = 'SALV_TABLE_STANDARD'                                 report = 'SAPLSALV_FUNCTIONS_STATUS' ).
查看完整代码 
lr_model_base->set_screen_status( pfstatus = 'SALV_TABLE_STANDARD'                                 report = 'SAPLSALV_FUNCTIONS_STATUS' ).
ABAP SALV状态栏quotABC分析quot按钮消失问题处理 
TRY.    CALL METHOD cl_salv_table=>factory      IMPORTING        r_salv_table = go_salv      CHANGING        t_table      = gt_sflight.  CATCH cx_salv_msg.ENDTRY.go_salv->set_screen_status( pfstatus = 'STANDARD_FULLSCREEN'                            report   = 'SAPLSLVC_FULLSCREEN'                            ).
查看完整代码 
TRY.    CALL METHOD cl_salv_table=>factory      IMPORTING        r_salv_table = go_salv      CHANGING        t_table      = gt_sflight.  CATCH cx_salv_msg.ENDTRY.go_salv->set_screen_status( pfstatus = 'STANDARD_FULLSCREEN'                            report   = 'SAPLSLVC_FULLSCREEN'                            ).
ABAP SALV状态栏quotABC分析quot点击报错问题处理
查看代码
DATA: lo_column  TYPE REF TO cl_salv_column_table.
*Create alv object.  TRY.      CALL METHOD cl_salv_table=>factory        IMPORTING          r_salv_table = go_salv        CHANGING          t_table      = gt_data.
CATCH cx_salv_msg.  ENDTRY.* Enabling the ABC Analysis  go_salv->set_screen_status( pfstatus = 'STANDARD_FULLSCREEN'                              report   = 'SAPLSLVC_FULLSCREEN'                              ).
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA: lo_column  TYPE REF TO cl_salv_column_table.
*Create alv object.  TRY.      CALL METHOD cl_salv_table=>factory        IMPORTING          r_salv_table = go_salv        CHANGING          t_table      = gt_data.
CATCH cx_salv_msg.  ENDTRY.* Enabling the ABC Analysis  go_salv->set_screen_status( pfstatus = 'STANDARD_FULLSCREEN'                              report   = 'SAPLSLVC_FULLSCREEN'                              ).
/* ... 已截断，完整代码请查看原文 */
ABAP SALV状态栏quotABC分析quot点击报错问题处理 
DATA: lr_layout TYPE REF TO cl_salv_layout,        ls_key    TYPE salv_s_layout_key.
lr_layout = go_salv->get_layout( ).  ls_key-report = sy-repid.  ls_key-handle = '1000'.  lr_layout->set_key( ls_key ).  lr_layout->set_default( abap_true ).  lr_layout->set_save_restriction( if_salv_c_layout=>restrict_none ).
查看完整代码 
DATA: lr_layout TYPE REF TO cl_salv_layout,        ls_key    TYPE salv_s_layout_key.
lr_layout = go_salv->get_layout( ).  ls_key-report = sy-repid.  ls_key-handle = '1000'.  lr_layout->set_key( ls_key ).  lr_layout->set_default( abap_true ).  lr_layout->set_save_restriction( if_salv_c_layout=>restrict_none ).
ABAP SALV状态栏quotABC分析quot点击报错问题处理 
ENDFORM.
查看完整代码 
ENDFORM.
ABAP SALV状态栏quotABC分析quot点击报错问题处理 
TYPES: BEGIN OF ty_data,         lifnr TYPE ekko-lifnr,         bedat TYPE ekko-bedat,         ebeln TYPE ekko-ebeln,         netwr TYPE ekpo-netwr,         name1 TYPE lfa1-name1,       END OF ty_data.
查看完整代码 
TYPES: BEGIN OF ty_data,         lifnr TYPE ekko-lifnr,         bedat TYPE ekko-bedat,         ebeln TYPE ekko-ebeln,         netwr TYPE ekpo-netwr,         name1 TYPE lfa1-name1,       END OF ty_data.
ABAP SALV状态栏quotABC分析quot点击报错问题处理
查看代码
DATA: lo_column_list TYPE REF TO cl_salv_column_list.  TRY.      lo_column_list ?= lo_columns->get_column( 'LIFNR' ).      lo_column_list->set_ddic_reference( value = VALUE #( table = 'EKKO' field = 'LIFNR' ) ).      lo_column_list ?= lo_columns->get_column( 'EBELN' ).      lo_column_list->set_ddic_reference( value = VALUE #( table = 'EKKO' field = 'EBELN' ) ).      lo_column_list ?= lo_columns->get_column( 'BE
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA: lo_column_list TYPE REF TO cl_salv_column_list.  TRY.      lo_column_list ?= lo_columns->get_column( 'LIFNR' ).      lo_column_list->set_ddic_reference( value = VALUE #( table = 'EKKO' field = 'LIFNR' ) ).      lo_column_list ?= lo_columns->get_column( 'EBELN' ).      lo_column_list->set_ddic_reference( value = VALUE #( table = 'EKKO' field = 'EBELN' ) ).      lo_column_list ?= lo_columns->get_column( 'BE
/* ... 已截断，完整代码请查看原文 */
ABAP SALV状态栏按钮隐藏增强 
data lr_model type ref to CL_SALV_GUI_OM_TABLE_INFO.lr_model ?= me->r_controller->r_model.if lr_model is bound and lr_model->z_exclude_pf[] is not initial.  append lines of lr_model->z_exclude_pf to t_extab.endif.
查看完整代码 
data lr_model type ref to CL_SALV_GUI_OM_TABLE_INFO.lr_model ?= me->r_controller->r_model.if lr_model is bound and lr_model->z_exclude_pf[] is not initial.  append lines of lr_model->z_exclude_pf to t_extab.endif.
ABAP SALV状态栏按钮隐藏增强 
REPORT zyxs_salv04.
DATA: gt_sflight TYPE STANDARD TABLE OF sflight.DATA go_salv TYPE REF TO cl_salv_table.
SELECT * UP TO 100 ROWS INTO TABLE @gt_sflight FROM sflight.
查看完整代码 
REPORT zyxs_salv04.
DATA: gt_sflight TYPE STANDARD TABLE OF sflight.DATA go_salv TYPE REF TO cl_salv_table.
SELECT * UP TO 100 ROWS INTO TABLE @gt_sflight FROM sflight.
ABAP SALV状态栏按钮隐藏增强
查看代码
*Create alv object.TRY.    CALL METHOD cl_salv_table=>factory      IMPORTING        r_salv_table = go_salv      CHANGING        t_table      = gt_sflight.  CATCH cx_salv_msg.ENDTRY."注释此句看效果go_salv->set_screen_status( pfstatus  = 'SALV_TABLE_STANDARD'                            report    = 'SAPLSALV_FUNCTIONS_STATUS'                            excluding = VALUE #( ( fcode = '&RNT_PREV' )                                                 ( fcode = &
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
*Create alv object.TRY.    CALL METHOD cl_salv_table=>factory      IMPORTING        r_salv_table = go_salv      CHANGING        t_table      = gt_sflight.  CATCH cx_salv_msg.ENDTRY."注释此句看效果go_salv->set_screen_status( pfstatus  = 'SALV_TABLE_STANDARD'                            report    = 'SAPLSALV_FUNCTIONS_STATUS'                            excluding = VALUE #( ( fcode = '&RNT_PREV' )                                                 ( fcode = &
/* ... 已截断，完整代码请查看原文 */
ABAP SAP ABAP Advanced Cookbook 2012 
DATA:   ZE1EDK01 LIKE E1EDK01.
查看完整代码 
DATA:   ZE1EDK01 LIKE E1EDK01.
ABAP SAP ABAP Advanced Cookbook 2012 
ENDIF.
查看完整代码 
ENDIF.
ABAP SAP ABAP Advanced Cookbook 2012 
ENDIF.
查看完整代码 
ENDIF.
ABAP SAP ABAP Advanced Cookbook 2012 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP SAP ABAP Advanced Cookbook 2012 
CALL FUNCTION 'CLOI_PUT_SIGN_IN_FRONT'
查看完整代码 
CALL FUNCTION 'CLOI_PUT_SIGN_IN_FRONT'
ABAP SAP ABAP Advanced Cookbook 2012 
FORM NUMTOSTR USING VALUE(ZNUM) CHANGING VALUE(ZSTR).
查看完整代码 
FORM NUMTOSTR USING VALUE(ZNUM) CHANGING VALUE(ZSTR).
ABAP SAP ABAP Advanced Cookbook 2012 
IF ZNUM <= -1000.
查看完整代码 
IF ZNUM <= -1000.
ABAP SAP ABAP Advanced Cookbook 2012 
ENDIF.
查看完整代码 
ENDIF.
ABAP SAP ABAP Advanced Cookbook 2012 
IF ZNUM >= 1000.
查看完整代码 
IF ZNUM >= 1000.
ABAP SAP ABAP Advanced Cookbook 2012 
IF NOT ZCSTR2 IS INITIAL.
查看完整代码 
IF NOT ZCSTR2 IS INITIAL.
ABAP SAP ABAP Advanced Cookbook 2012 
ENDIF.
查看完整代码 
ENDIF.
ABAP SAP ABAP Advanced Cookbook 2012 
IF ZFLAG2 = 1.
查看完整代码 
IF ZFLAG2 = 1.
ABAP SAP ABAP Advanced Cookbook 2012 
ENDIF.
查看完整代码 
ENDIF.
ABAP SAP ABAP Advanced Cookbook 2012 
ENDIF.
查看完整代码 
ENDIF.
ABAP SAP ABAP Advanced Cookbook 2012 
ENDFORM.
查看完整代码 
ENDFORM.
ABAP SAP ABAP Getting the list of fields in the current layout using CL_SALV_TABLE 
Read Former Member's sample ALV fieldcatalog - create for ANY table which use methods get_columns and get_aggregations to get information from cl_salv_table and then rebuild the "classical" field catalog with method cl_salv_controller_metadata=>get_lvc_fieldcatalog.
查看完整代码 
Read Former Member's sample ALV fieldcatalog - create for ANY table which use methods get_columns and get_aggregations to get information from cl_salv_table and then rebuild the "classical" field catalog with method cl_salv_controller_metadata=>get_lvc_fieldcatalog.
ABAP SAP ABAP Getting the list of fields in the current layout using CL_SALV_TABLE 
DATA:
查看完整代码 
DATA:
ABAP SAP ABAP Getting the list of fields in the current layout using CL_SALV_TABLE 
lo_columns = mo_salv->get_columns( ).
查看完整代码 
lo_columns = mo_salv->get_columns( ).
ABAP SAP ABAP Getting the list of fields in the current layout using CL_SALV_TABLE 
lt_column_ref = lo_columns->get( ).
查看完整代码 
lt_column_ref = lo_columns->get( ).
ABAP SAP ABAP Getting the list of fields in the current layout using CL_SALV_TABLE 
LOOP AT lt_column_ref ASSIGNING <column>.
查看完整代码 
LOOP AT lt_column_ref ASSIGNING <column>.
ABAP SAP ABAP Getting the list of fields in the current layout using CL_SALV_TABLE 
I am have provided o_layout->set_save_restriction( if_salv_c_layout=>restrict_none ) option.
查看完整代码 
I am have provided o_layout->set_save_restriction( if_salv_c_layout=>restrict_none ) option.
ABAP SAP ABAP Getting the list of fields in the current layout using CL_SALV_TABLE 
cl_salv_controller_metadata=>get_lvc_fieldcatalog or mo_salv->get_columns( ) would give me the field catalogue for entire table. But I need to get the field catalogue for the variant that is chosen currently.
查看完整代码 
cl_salv_controller_metadata=>get_lvc_fieldcatalog or mo_salv->get_columns( ) would give me the field catalogue for entire table. But I need to get the field catalogue for the variant that is chosen currently.
ABAP SAP ABAP Working with files 
CALL FUNCTION 'F4_DXFILENAME_TOPRECURSION'
查看完整代码 
CALL FUNCTION 'F4_DXFILENAME_TOPRECURSION'
ABAP SAP ABAP Working with files 
CALL FUNCTION 'F4_DXFILENAME_TOPRECURSION'
查看完整代码 
CALL FUNCTION 'F4_DXFILENAME_TOPRECURSION'
ABAP SAP Enhancement of standard search helps 
LOOP AT shlp–selopt INTO f_selopt.
查看完整代码 
LOOP AT shlp–selopt INTO f_selopt.
ABAP SAP Enhancement of standard search helps 
APPEND r_saknr.
ENDCASE.
ENDLOOP.
查看完整代码 
APPEND r_saknr.
ENDCASE.
ENDLOOP.
ABAP SAP Enhancement of standard search helps 
LOOP AT gt_temp INTO gf_temp.
查看完整代码 
LOOP AT gt_temp INTO gf_temp.
ABAP SAP Enhancement of standard search helps 
ENDLOOP.
ENDIF.
查看完整代码 
ENDLOOP.
ENDIF.
ABAP SAP GOS document download 
REPORT zbc_gos_export_import LINE-SIZE 180.
查看完整代码 
REPORT zbc_gos_export_import LINE-SIZE 180.
ABAP SAP GOS document download 
TYPES: BEGIN OF ty_attach,
查看完整代码 
TYPES: BEGIN OF ty_attach,
ABAP SAP GOS document download 
DATA: wt_keyfields TYPE TABLE OF rpyboke,
查看完整代码 
DATA: wt_keyfields TYPE TABLE OF rpyboke,
ABAP SAP GOS document download 
DATA: ws_x030l TYPE x030l.
查看完整代码 
DATA: ws_x030l TYPE x030l.
ABAP SAP GOS document download 
DATA: w_selid   TYPE rsdynsel-selid,
查看完整代码 
DATA: w_selid   TYPE rsdynsel-selid,
ABAP SAP GOS document download 
DATA: ws_varidyn TYPE rsvaridyn.
查看完整代码 
DATA: ws_varidyn TYPE rsvaridyn.
ABAP SAP GOS document download 
DATA: wt_attach TYPE tt_attach,
查看完整代码 
DATA: wt_attach TYPE tt_attach,
ABAP SAP GOS document download 
DATA: wt_sfile TYPE TABLE OF eps2fili,
查看完整代码 
DATA: wt_sfile TYPE TABLE OF eps2fili,
ABAP SAP GOS document download 
DATA: ob_table TYPE REF TO data.
查看完整代码 
DATA: ob_table TYPE REF TO data.
ABAP SAP GOS document download 
PARAMETERS: p_objtyp TYPE swo_objtyp OBLIGATORY.
查看完整代码 
PARAMETERS: p_objtyp TYPE swo_objtyp OBLIGATORY.
ABAP SAP GOS document download 
PARAMETERS: p_exp RADIOBUTTON GROUP pro DEFAULT 'X'.
查看完整代码 
PARAMETERS: p_exp RADIOBUTTON GROUP pro DEFAULT 'X'.
ABAP SAP GOS document download 
PARAMETERS: p_imp RADIOBUTTON GROUP pro.
查看完整代码 
PARAMETERS: p_imp RADIOBUTTON GROUP pro.
ABAP SAP GOS document download 
PARAMETERS: p_table TYPE tabname.
查看完整代码 
PARAMETERS: p_table TYPE tabname.
ABAP SAP GOS document download 
PARAMETERS: p_locl TYPE xflag AS CHECKBOX.
查看完整代码 
PARAMETERS: p_locl TYPE xflag AS CHECKBOX.
ABAP SAP GOS document download 
PARAMETERS: p_path TYPE string VISIBLE LENGTH 80 DEFAULT gc_def_path LOWER CASE,
查看完整代码 
PARAMETERS: p_path TYPE string VISIBLE LENGTH 80 DEFAULT gc_def_path LOWER CASE,
ABAP SAP GOS document download 
IF sy-slset IS NOT INITIAL.
查看完整代码 
IF sy-slset IS NOT INITIAL.
ABAP SAP GOS document download 
ENDIF.
查看完整代码 
ENDIF.
ABAP SAP GOS document download 
IF w_active IS INITIAL.
查看完整代码 
IF w_active IS INITIAL.
ABAP SAP GOS document download 
ENDIF.
查看完整代码 
ENDIF.
ABAP SAP GOS document download 
LOOP AT SCREEN.
查看完整代码 
LOOP AT SCREEN.
ABAP SAP GOS document download 
IF screen-name = 'P_TABLE'.
查看完整代码 
IF screen-name = 'P_TABLE'.
ABAP SAP GOS document download 
MODIFY SCREEN.
查看完整代码 
MODIFY SCREEN.
ABAP SAP GOS document download 
ENDIF.
查看完整代码 
ENDIF.
ABAP SAP GOS document download 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP SAP GOS document download 
CALL FUNCTION 'RS_HELP_HANDLING'
查看完整代码 
CALL FUNCTION 'RS_HELP_HANDLING'
ABAP SAP GOS document download 
IF ws_x030l-tabname IS INITIAL
查看完整代码 
IF ws_x030l-tabname IS INITIAL
ABAP SAP GOS document download 
ENDIF.
查看完整代码 
ENDIF.
ABAP SAP GOS document download 
IF w_selid IS INITIAL.
查看完整代码 
IF w_selid IS INITIAL.
ABAP SAP GOS document download 
ENDIF.
查看完整代码 
ENDIF.
ABAP SAP GOS document download 
IF sy-ucomm = 'SEL'.
查看完整代码 
IF sy-ucomm = 'SEL'.
ABAP SAP GOS document download 
CALL FUNCTION 'FREE_SELECTIONS_DIALOG'
查看完整代码 
CALL FUNCTION 'FREE_SELECTIONS_DIALOG'
ABAP SAP GOS document download 
IF sy-subrc EQ 0.
查看完整代码 
IF sy-subrc EQ 0.
ABAP SAP GOS document download 
LOOP AT dyns_fields.
查看完整代码 
LOOP AT dyns_fields.
ABAP SAP GOS document download 
APPEND ws_varidyn TO gl_varidyn.
查看完整代码 
APPEND ws_varidyn TO gl_varidyn.
ABAP SAP GOS document download 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP SAP GOS document download 
ENDIF.
查看完整代码 
ENDIF.
ABAP SAP GOS document download 
ENDIF.
查看完整代码 
ENDIF.
ABAP SAP GOS document download 
IF p_path(1) = '/'.
查看完整代码 
IF p_path(1) = '/'.
ABAP SAP GOS document download 
IF w_path NP '*/'.
查看完整代码 
IF w_path NP '*/'.
ABAP SAP GOS document download 
ENDIF.
查看完整代码 
ENDIF.
ABAP SAP GOS document download 
IF w_path NP '*\'.
查看完整代码 
IF w_path NP '*\'.
ABAP SAP GOS document download 
ENDIF.
查看完整代码 
ENDIF.
ABAP SAP GOS document download 
SELECT SINGLE dirname
查看完整代码 
SELECT SINGLE dirname
ABAP SAP GOS document download 
IF sy-subrc NE 0.
查看完整代码 
IF sy-subrc NE 0.
ABAP SAP GOS document download 
SELECT SINGLE pathextern
查看完整代码 
SELECT SINGLE pathextern
ABAP SAP GOS document download 
ENDIF.
查看完整代码 
ENDIF.
ABAP SAP GOS document download 
IF w_path(1) = '/'.
查看完整代码 
IF w_path(1) = '/'.
ABAP SAP GOS document download 
IF w_path NP '*/'.
查看完整代码 
IF w_path NP '*/'.
ABAP SAP GOS document download 
ENDIF.
查看完整代码 
ENDIF.
ABAP SAP GOS document download 
IF w_path NP '*\'.
查看完整代码 
IF w_path NP '*\'.
ABAP SAP GOS document download 
ENDIF.
查看完整代码 
ENDIF.
ABAP SAP GOS document download 
ENDIF.
查看完整代码 
ENDIF.
ABAP SAP GOS document download 
ENDIF.
查看完整代码 
ENDIF.
ABAP SAP GOS document download 
IF w_path IS INITIAL.
查看完整代码 
IF w_path IS INITIAL.
ABAP SAP GOS document download 
ENDIF.
查看完整代码 
ENDIF.
ABAP SAP GOS document download 
IF p_exp IS NOT INITIAL.
查看完整代码 
IF p_exp IS NOT INITIAL.
ABAP SAP GOS document download 
LOOP AT <wt_table> ASSIGNING FIELD-SYMBOL(<ws_struc>).
查看完整代码 
LOOP AT <wt_table> ASSIGNING FIELD-SYMBOL(<ws_struc>).
ABAP SAP GOS document download 
LOOP AT wt_keyfields INTO ws_keyfields
查看完整代码 
LOOP AT wt_keyfields INTO ws_keyfields
ABAP SAP GOS document download 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP SAP GOS document download 
LOOP AT wt_attach INTO ws_attach.
查看完整代码 
LOOP AT wt_attach INTO ws_attach.
ABAP SAP GOS document download 
IF p_locl IS INITIAL.
查看完整代码 
IF p_locl IS INITIAL.
ABAP SAP MM 采购订单含税价实现方式 
FORM frm_kondi_wert_905.
查看完整代码 
FORM frm_kondi_wert_905.
ABAP SAP MM 采购订单含税价实现方式 
DATA: l_kbetr LIKE konp-kbetr.    "Tax Rate
查看完整代码 
DATA: l_kbetr LIKE konp-kbetr.    "Tax Rate
ABAP SAP MM 采购订单含税价实现方式 
DATA: l_krech LIKE t685a-krech.   "Inclusive or Exclusive
查看完整代码 
DATA: l_krech LIKE t685a-krech.   "Inclusive or Exclusive
ABAP SAP MM 采购订单含税价实现方式 
DATA: l_knumh LIKE a003-knumh.    "Condition Record Number
查看完整代码 
DATA: l_knumh LIKE a003-knumh.    "Condition Record Number
ABAP SAP MM 采购订单含税价实现方式 
DATA: l_kschl LIKE a003-kschl.    "Condition Type
查看完整代码 
DATA: l_kschl LIKE a003-kschl.    "Condition Type
ABAP SAP MM 采购订单含税价实现方式 
DATA: l_kappl(2) TYPE c VALUE 'TX'. "Application
查看完整代码 
DATA: l_kappl(2) TYPE c VALUE 'TX'. "Application
ABAP SAP MM 采购订单含税价实现方式 
SELECT SINGLE knumh kschl
查看完整代码 
SELECT SINGLE knumh kschl
ABAP SAP MM 采购订单含税价实现方式 
IF sy-subrc = 0.
查看完整代码 
IF sy-subrc = 0.
ABAP SAP MM 采购订单含税价实现方式 
SELECT SINGLE kbetr
查看完整代码 
SELECT SINGLE kbetr
ABAP SAP MM 采购订单含税价实现方式 
IF sy-subrc = 0.
查看完整代码 
IF sy-subrc = 0.
ABAP SAP MM 采购订单含税价实现方式 
SELECT SINGLE krech
查看完整代码 
SELECT SINGLE krech
ABAP SAP MM 采购订单含税价实现方式 
IF sy-subrc = 0.
查看完整代码 
IF sy-subrc = 0.
ABAP SAP MM 采购订单含税价实现方式 
IF l_krech = 'A'. "Tax Excluded
查看完整代码 
IF l_krech = 'A'. "Tax Excluded
ABAP SAP MM 采购订单含税价实现方式 
ENDIF.
查看完整代码 
ENDIF.
ABAP SAP MM 采购订单含税价实现方式 
ENDIF.
查看完整代码 
ENDIF.
ABAP SAP MM 采购订单含税价实现方式 
LOOP AT xkomv WHERE kschl = l_kschl.
查看完整代码 
LOOP AT xkomv WHERE kschl = l_kschl.
ABAP SAP MM 采购订单含税价实现方式 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP SAP MM 采购订单含税价实现方式 
LOOP AT xkomv WHERE kschl = l_kschl.
查看完整代码 
LOOP AT xkomv WHERE kschl = l_kschl.
ABAP SAP MM 采购订单含税价实现方式 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP SAP MM 采购订单含税价实现方式 
ENDIF.
查看完整代码 
ENDIF.
ABAP SAP MM 采购订单含税价实现方式 
ENDIF.
查看完整代码 
ENDIF.
ABAP SAP MM 采购订单含税价实现方式 
ENDFORM.                 "FRM_KONDI_WERT_905
查看完整代码 
ENDFORM.                 "FRM_KONDI_WERT_905
ABAP SAP Note 1376862 Update third-party purchase order and individual purchase order in CO-PA 
REPORT - name of a program in the customer namespace Z*
FORM - name of a subroutine in the program REPORT
查看完整代码 
REPORT - name of a program in the customer namespace Z*
FORM - name of a subroutine in the program REPORT
ABAP SAP Note 1376862 Update third-party purchase order and individual purchase order in CO-PA 
REPORT. If you want to deactivate it, you must either remove the entry from the
查看完整代码 
REPORT. If you want to deactivate it, you must either remove the entry from the
ABAP SAP Note 2873609 - Credit Memo Net Due Date 
SELECT *
查看完整代码 
SELECT *
ABAP SAP Note 2873609 - Credit Memo Net Due Date 
ENDIF
查看完整代码 
ENDIF
ABAP SAP Note 2873609 - Credit Memo Net Due Date 
ENDIF
查看完整代码 
ENDIF
ABAP SAP Note 2873609 - Credit Memo Net Due Date 
FORM invoice_reference
查看完整代码 
FORM invoice_reference
ABAP SAP Note 92925 
REPORT RACORR129.
TABLES: T090NP.
PARAMETERS: PA_AFAPL like T090NP-AFAPL OBLIGATORY. "Chart of dep.
PARAMETERS: PA_PER LIKE T090NP-METPER OBLIGATORY. "Period control met.
查看完整代码 
REPORT RACORR129.
TABLES: T090NP.
PARAMETERS: PA_AFAPL like T090NP-AFAPL OBLIGATORY. "Chart of dep.
PARAMETERS: PA_PER LIKE T090NP-METPER OBLIGATORY. "Period control met.
ABAP SAP Reading Sets - GS01 - GS02 - GS03 
CONSTANTS: c_cls_0106 TYPE rgsbs-class VALUE '0106'.
查看完整代码 
CONSTANTS: c_cls_0106 TYPE rgsbs-class VALUE '0106'.
ABAP SAP Reading Sets - GS01 - GS02 - GS03 
DATA: l_wa_set_lines_basic TYPE rgsbv,
查看完整代码 
DATA: l_wa_set_lines_basic TYPE rgsbv,
ABAP SAP Reading Sets - GS01 - GS02 - GS03 
DATA: l_v_setnr TYPE char50.
查看完整代码 
DATA: l_v_setnr TYPE char50.
ABAP SAP Reading Sets - GS01 - GS02 - GS03 
PARAMETERS: p_pcgrp TYPE pcgrp,      " Profit Centre Group
查看完整代码 
PARAMETERS: p_pcgrp TYPE pcgrp,      " Profit Centre Group
ABAP SAP Reading Sets - GS01 - GS02 - GS03 
CALL FUNCTION 'G_SET_FETCH'
查看完整代码 
CALL FUNCTION 'G_SET_FETCH'
ABAP SAP Reading Sets - GS01 - GS02 - GS03 
class            = c_cls_0106
查看完整代码 
class            = c_cls_0106
ABAP SAP Reading Sets - GS01 - GS02 - GS03 
set_header       = l_wa_hdr
查看完整代码 
set_header       = l_wa_hdr
ABAP SAP Reading Sets - GS01 - GS02 - GS03 
LOOP AT l_i_set_lines_basic INTO l_wa_set_lines_basic.
查看完整代码 
LOOP AT l_i_set_lines_basic INTO l_wa_set_lines_basic.
ABAP SAP Reading Sets - GS01 - GS02 - GS03 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP SAPABAP关于交货单多次POD确认的增强实现完整版带冲销及公司间开票 
DATA:gt_ztvpod LIKE TABLE OF ztvpod WITH HEADER LINE.DATA:lt_tvpod  LIKE TABLE OF zyy_tvpod  WITH HEADER LINE.                DATA:g_message_id TYPE guid_32. "定义消息id
查看完整代码 
DATA:gt_ztvpod LIKE TABLE OF ztvpod WITH HEADER LINE.DATA:lt_tvpod  LIKE TABLE OF zyy_tvpod  WITH HEADER LINE.                DATA:g_message_id TYPE guid_32. "定义消息id
ABAP SAPABAP关于交货单多次POD确认的增强实现完整版带冲销及公司间开票 
IF SY-tcode = 'VLPOD'.WAIT UP TO '0.5' SECONDS.                  LOOP AT xlips.
查看完整代码 
IF SY-tcode = 'VLPOD'.WAIT UP TO '0.5' SECONDS.                  LOOP AT xlips.
ABAP SAPABAP关于交货单多次POD确认的增强实现完整版带冲销及公司间开票
查看代码
*=============================将TVPOD的数据保存到自建表=============================================================          *获取TVPOD表的数据                  SELECT SINGLE * INTO CORRESPONDING FIELDS OF gt_ztvpod FROM tvpod WHERE vbeln = xlips-vbeln AND posnr = xlips-posnr.          *保存tvpod数据到临时表，冲销时需要恢复tvpod表                    SELECT SINGLE * INTO CORRESPONDING FIELDS OF lt_tvpod  FROM tvpod WHERE vbeln = xlips-vbeln AND posnr = xlips-posnr.                    MODIFY zyy_tvpod FROM lt_tvpod.       
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
*=============================将TVPOD的数据保存到自建表=============================================================          *获取TVPOD表的数据                  SELECT SINGLE * INTO CORRESPONDING FIELDS OF gt_ztvpod FROM tvpod WHERE vbeln = xlips-vbeln AND posnr = xlips-posnr.          *保存tvpod数据到临时表，冲销时需要恢复tvpod表                    SELECT SINGLE * INTO CORRESPONDING FIELDS OF lt_tvpod  FROM tvpod WHERE vbeln = xlips-vbeln AND posnr = xlips-posnr.                    MODIFY zyy_tvpod FROM lt_tvpod.       
/* ... 已截断，完整代码请查看原文 */
ABAP SAPABAP关于交货单多次POD确认的增强实现完整版带冲销及公司间开票 
IF LS_MSEG-shkzg = 'S'.                      gt_ztvpod-podmg = gt_ztvpod-podmg * -1.                    ENDIF.
查看完整代码 
IF LS_MSEG-shkzg = 'S'.                      gt_ztvpod-podmg = gt_ztvpod-podmg * -1.                    ENDIF.
ABAP SAPABAP关于交货单多次POD确认的增强实现完整版带冲销及公司间开票 
SELECT SINGLE * INTO  @DATA(ls_lips) FROM lips WHERE vbeln = @xlips-vbeln AND posnr = @xlips-posnr.                      SELECT SINGLE * INTO  @DATA(ls_likp) FROM likp WHERE vbeln = @xlips-vbeln.
查看完整代码 
SELECT SINGLE * INTO  @DATA(ls_lips) FROM lips WHERE vbeln = @xlips-vbeln AND posnr = @xlips-posnr.                      SELECT SINGLE * INTO  @DATA(ls_likp) FROM likp WHERE vbeln = @xlips-vbeln.
ABAP SAPABAP关于交货单多次POD确认的增强实现完整版带冲销及公司间开票 
IF ls_likp-fkstk = 'C' AND ls_lips-fksta = 'C'.                        ls_lips-fksta = 'A'. "交货相关开票状态                        ls_lips-gbsta = 'B'. "总体状态          *              LS_LIPS-pdsta = 'B'. "交付证明状态                        ls_lips-fkivp = 'A'.  "公司间开票状态
查看完整代码 
IF ls_likp-fkstk = 'C' AND ls_lips-fksta = 'C'.                        ls_lips-fksta = 'A'. "交货相关开票状态                        ls_lips-gbsta = 'B'. "总体状态          *              LS_LIPS-pdsta = 'B'. "交付证明状态                        ls_lips-fkivp = 'A'.  "公司间开票状态
ABAP SAPABAP关于交货单多次POD确认的增强实现完整版带冲销及公司间开票 
ls_likp-fkstk = 'A'. "交货相关开票状态                        ls_likp-gbstk = 'B'. "总体状态          *              LS_LIKP-pdstk = 'B'. "交付证明状态                        ls_likp-fkivk = 'A'.  "公司间开票状态                      ELSE.
查看完整代码 
ls_likp-fkstk = 'A'. "交货相关开票状态                        ls_likp-gbstk = 'B'. "总体状态          *              LS_LIKP-pdstk = 'B'. "交付证明状态                        ls_likp-fkivk = 'A'.  "公司间开票状态                      ELSE.
ABAP SAPABAP关于交货单多次POD确认的增强实现完整版带冲销及公司间开票 
IF ls_likp-fkstk <> '' AND ls_lips-fksta <> ''.                          ls_lips-fksta = 'A'. "交货相关开票状态                          ls_lips-gbsta = 'B'. "总体状态          *                LS_LIPS-PDSTA = 'B'. "交付证明状态                          ls_lips-fkivp = 'A'.  "公司间开票状态
查看完整代码 
IF ls_likp-fkstk <> '' AND ls_lips-fksta <> ''.                          ls_lips-fksta = 'A'. "交货相关开票状态                          ls_lips-gbsta = 'B'. "总体状态          *                LS_LIPS-PDSTA = 'B'. "交付证明状态                          ls_lips-fkivp = 'A'.  "公司间开票状态
ABAP SAPABAP关于交货单多次POD确认的增强实现完整版带冲销及公司间开票
查看代码
ls_likp-fkstk = 'A'.  "交货相关的开票状态                          ls_likp-gbstk = 'B'.  "总体状态          *                LS_LIKP-PDSTK = 'B'. "交货证明状态                          ls_likp-fkivk = 'A'.  "公司间开票状态                        ELSE.                          ls_lips-fksta = 'B'. "交货相关开票状态                          ls_lips-gbsta = 'B'. "总体状态                          ls_likp-fkstk = 'B'.  "交货相关的开票
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
ls_likp-fkstk = 'A'.  "交货相关的开票状态                          ls_likp-gbstk = 'B'.  "总体状态          *                LS_LIKP-PDSTK = 'B'. "交货证明状态                          ls_likp-fkivk = 'A'.  "公司间开票状态                        ELSE.                          ls_lips-fksta = 'B'. "交货相关开票状态                          ls_lips-gbsta = 'B'. "总体状态                          ls_likp-fkstk = 'B'.  "交货相关的开票
/* ... 已截断，完整代码请查看原文 */
ABAP SAPABAP关于交货单多次POD确认的增强实现完整版带冲销及公司间开票 
ENDIF.                            ENDLOOP.                ENDIF.
查看完整代码 
ENDIF.                            ENDLOOP.                ENDIF.
ABAP SAPABAP关于交货单多次POD确认的增强实现完整版带冲销及公司间开票 
SELECT SINGLE * INTO  @DATA(ls_lips) FROM lips WHERE vbeln = @xlips-vbeln AND posnr = @xlips-posnr.                      SELECT SINGLE * INTO  @DATA(ls_likp) FROM likp WHERE vbeln = @xlips-vbeln.
查看完整代码 
SELECT SINGLE * INTO  @DATA(ls_lips) FROM lips WHERE vbeln = @xlips-vbeln AND posnr = @xlips-posnr.                      SELECT SINGLE * INTO  @DATA(ls_likp) FROM likp WHERE vbeln = @xlips-vbeln.
ABAP SAPABAP关于交货单多次POD确认的增强实现完整版带冲销及公司间开票 
IF ls_likp-fkstk = 'C' AND ls_lips-fksta = 'C'.                        ls_lips-fksta = 'A'. "交货相关开票状态                        ls_lips-gbsta = 'B'. "总体状态          *              LS_LIPS-pdsta = 'B'. "交付证明状态                        ls_lips-fkivp = 'A'.  "公司间开票状态
查看完整代码 
IF ls_likp-fkstk = 'C' AND ls_lips-fksta = 'C'.                        ls_lips-fksta = 'A'. "交货相关开票状态                        ls_lips-gbsta = 'B'. "总体状态          *              LS_LIPS-pdsta = 'B'. "交付证明状态                        ls_lips-fkivp = 'A'.  "公司间开票状态
ABAP SAPABAP关于交货单多次POD确认的增强实现完整版带冲销及公司间开票 
ls_likp-fkstk = 'A'. "交货相关开票状态                        ls_likp-gbstk = 'B'. "总体状态          *              LS_LIKP-pdstk = 'B'. "交付证明状态                        ls_likp-fkivk = 'A'.  "公司间开票状态                      ELSE.
查看完整代码 
ls_likp-fkstk = 'A'. "交货相关开票状态                        ls_likp-gbstk = 'B'. "总体状态          *              LS_LIKP-pdstk = 'B'. "交付证明状态                        ls_likp-fkivk = 'A'.  "公司间开票状态                      ELSE.
ABAP SAPABAP关于交货单多次POD确认的增强实现完整版带冲销及公司间开票 
IF ls_likp-fkstk <> '' AND ls_lips-fksta <> ''.                          ls_lips-fksta = 'A'. "交货相关开票状态                          ls_lips-gbsta = 'B'. "总体状态          *                LS_LIPS-PDSTA = 'B'. "交付证明状态                          ls_lips-fkivp = 'A'.  "公司间开票状态
查看完整代码 
IF ls_likp-fkstk <> '' AND ls_lips-fksta <> ''.                          ls_lips-fksta = 'A'. "交货相关开票状态                          ls_lips-gbsta = 'B'. "总体状态          *                LS_LIPS-PDSTA = 'B'. "交付证明状态                          ls_lips-fkivp = 'A'.  "公司间开票状态
ABAP SAPABAP关于交货单多次POD确认的增强实现完整版带冲销及公司间开票
查看代码
ls_likp-fkstk = 'A'.  "交货相关的开票状态                          ls_likp-gbstk = 'B'.  "总体状态          *                LS_LIKP-PDSTK = 'B'. "交货证明状态                          ls_likp-fkivk = 'A'.  "公司间开票状态                        ELSE.                          ls_lips-fksta = 'B'. "交货相关开票状态                          ls_lips-gbsta = 'B'. "总体状态                          ls_likp-fkstk = 'B'.  "交货相关的开票
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
ls_likp-fkstk = 'A'.  "交货相关的开票状态                          ls_likp-gbstk = 'B'.  "总体状态          *                LS_LIKP-PDSTK = 'B'. "交货证明状态                          ls_likp-fkivk = 'A'.  "公司间开票状态                        ELSE.                          ls_lips-fksta = 'B'. "交货相关开票状态                          ls_lips-gbsta = 'B'. "总体状态                          ls_likp-fkstk = 'B'.  "交货相关的开票
/* ... 已截断，完整代码请查看原文 */
ABAP SAPABAP关于交货单多次POD确认的增强实现完整版带冲销及公司间开票 
ENDIF.
查看完整代码 
ENDIF.
ABAP SAPABAP开发技术总结财务凭证确认与替代 
TABLES:zfi_zzfi001.  SELECT SINGLE * FROM zfi_zzfi001 WHERE zzfi001 = bseg-zzfi001 AND   zdjbz = 'X'  .  IF sy-subrc EQ 0.    b_result = b_false.    EXIT.  ENDIF.
ENDFORM.
查看完整代码 
TABLES:zfi_zzfi001.  SELECT SINGLE * FROM zfi_zzfi001 WHERE zzfi001 = bseg-zzfi001 AND   zdjbz = 'X'  .  IF sy-subrc EQ 0.    b_result = b_false.    EXIT.  ENDIF.
ENDFORM.
ABAP SAPABAP长文本取数的终极优化 
TABLES:vbak.DATA: BEGIN OF gt_ltext OCCURS 0,        tdobject TYPE stxh-tdobject,        tdname   TYPE stxh-tdname,        tdid     TYPE stxh-tdid,        tdspras  TYPE stxh-tdspras,        tlines   TYPE string,      END OF gt_ltext.DATA: gt_ltext2 LIKE gt_ltext[] WITH HEADER LINE.DATA: t1 TYPE i,      t2 TYPE i.DATA: gt_vbeln TYPE TABLE OF vbeln WITH HEADER LINE.
SELECT-OPTIONS: s_vbeln FOR vbak-vbeln,                s_erdat FOR vbak-erdat DEFAULT sy-datum.
查看完整代码 
TABLES:vbak.DATA: BEGIN OF gt_ltext OCCURS 0,        tdobject TYPE stxh-tdobject,        tdname   TYPE stxh-tdname,        tdid     TYPE stxh-tdid,        tdspras  TYPE stxh-tdspras,        tlines   TYPE string,      END OF gt_ltext.DATA: gt_ltext2 LIKE gt_ltext[] WITH HEADER LINE.DATA: t1 TYPE i,      t2 TYPE i.DATA: gt_vbeln TYPE TABLE OF vbeln WITH HEADER LINE.
SELECT-OPTIONS: s_vbeln FOR vbak-vbeln,                s_erdat FOR vbak-erdat DEFAULT sy-datum.
ABAP SAPABAP长文本取数的终极优化
查看代码
CHECK t_ltext[] IS NOT INITIAL.  SELECT tdobject tdname tdid tdspras    INTO TABLE t_ltext    FROM stxh    FOR ALL ENTRIES IN t_ltext    WHERE tdobject = t_ltext-tdobject AND          tdid     = t_ltext-tdid     AND          tdspras  = t_ltext-tdspras  AND          tdname   = t_ltext-tdname.  IF sy-subrc = 0.    LOOP AT t_ltext.      CLEAR lt_tline[].      CALL FUNCTION 'READ_TEXT'        EXPORTING          id       = t_ltext-tdid          language = t_ltext-tdspras          name
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
CHECK t_ltext[] IS NOT INITIAL.  SELECT tdobject tdname tdid tdspras    INTO TABLE t_ltext    FROM stxh    FOR ALL ENTRIES IN t_ltext    WHERE tdobject = t_ltext-tdobject AND          tdid     = t_ltext-tdid     AND          tdspras  = t_ltext-tdspras  AND          tdname   = t_ltext-tdname.  IF sy-subrc = 0.    LOOP AT t_ltext.      CLEAR lt_tline[].      CALL FUNCTION 'READ_TEXT'        EXPORTING          id       = t_ltext-tdid          language = t_ltext-tdspras          name
/* ... 已截断，完整代码请查看原文 */
ABAP SAPABAP长文本取数的终极优化
查看代码
CHECK t_ltext[] IS NOT INITIAL.  SELECT tdobject tdname tdid tdspras         tdrefobj tdrefname tdrefid    INTO TABLE lt_stxh    FROM stxh    FOR ALL ENTRIES IN t_ltext    WHERE tdobject = t_ltext-tdobject AND          tdid     = t_ltext-tdid     AND          tdspras  = t_ltext-tdspras  AND          tdname   = t_ltext-tdname.  IF sy-subrc = 0.    LOOP AT lt_stxh.      IF lt_stxh-tdrefname = ''.        lt_key-tdobject = lt_stxh-tdobject.        lt_key-tdname   = lt_stxh-tdname.   
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
CHECK t_ltext[] IS NOT INITIAL.  SELECT tdobject tdname tdid tdspras         tdrefobj tdrefname tdrefid    INTO TABLE lt_stxh    FROM stxh    FOR ALL ENTRIES IN t_ltext    WHERE tdobject = t_ltext-tdobject AND          tdid     = t_ltext-tdid     AND          tdspras  = t_ltext-tdspras  AND          tdname   = t_ltext-tdname.  IF sy-subrc = 0.    LOOP AT lt_stxh.      IF lt_stxh-tdrefname = ''.        lt_key-tdobject = lt_stxh-tdobject.        lt_key-tdname   = lt_stxh-tdname.   
/* ... 已截断，完整代码请查看原文 */
ABAP SAPAPI的发布及调用第三方API 
CALL METHOD  cl_http_client  => create_by_url
查看完整代码 
CALL METHOD  cl_http_client  => create_by_url
ABAP SAPAPI的发布及调用第三方API 
url  =  lv_url
查看完整代码 
url  =  lv_url
ABAP SAPAPI的发布及调用第三方API 
client  =  lo_http_client
查看完整代码 
client  =  lo_http_client
ABAP SAPAPI的发布及调用第三方API 
lo_http_client  -> request  -> set_content_type  (  content_type  =
查看完整代码 
lo_http_client  -> request  -> set_content_type  (  content_type  =
ABAP SAPAPI的发布及调用第三方API 
lo_http_client  -> request  -> set_method  (  if_http_request  =>
查看完整代码 
lo_http_client  -> request  -> set_method  (  if_http_request  =>
ABAP SAPAPI的发布及调用第三方API 
CALL METHOD  lo_http_client  -> request  -> set_header_field
查看完整代码 
CALL METHOD  lo_http_client  -> request  -> set_header_field
ABAP SAPAPI的发布及调用第三方API 
lv_len  =  strlen  (  lv_json_str  ).
CALL METHOD  http_client_data  -> request  -> set_cdata
查看完整代码 
lv_len  =  strlen  (  lv_json_str  ).
CALL METHOD  http_client_data  -> request  -> set_cdata
ABAP SAPAPI的发布及调用第三方API 
data  =  lv_json_str
查看完整代码 
data  =  lv_json_str
ABAP SAPAPI的发布及调用第三方API 
length  =  lv_len  .
查看完整代码 
length  =  lv_len  .
ABAP SAPAPI的发布及调用第三方API 
IF  sy  \-  subrc  EQ  0  .
gv_json_out  =  lo_http_client  -> response  -> get_cdata  ( ).
CALL METHOD  lo_http_client  -> response  -> get_status
查看完整代码 
IF  sy  \-  subrc  EQ  0  .
gv_json_out  =  lo_http_client  -> response  -> get_cdata  ( ).
CALL METHOD  lo_http_client  -> response  -> get_status
ABAP SAPAPI的发布及调用第三方API 
CALL METHOD  lo_http_client  -> get_last_error
查看完整代码 
CALL METHOD  lo_http_client  -> get_last_error
ABAP SAPAPI的发布及调用第三方API 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP SAPCS01创建BOM
查看代码
DATA:item_no TYPE i,  lv_check TYPE char1,  lv_message type char200,  lv_text     TYPE char120 VALUE 'texttexttexttexttexttexttexttexttexttexttexttexttexttexttexttext'."以父物料汇总CLEAR gt_bomgroup.gt_bomgroup-bom_group_identification = 'BAPI_SMP_COL1'.  "可以为空gt_bomgroup-object_type = 'BGR'.gt_bomgroup-object_id = 'SIMPLE1'.gt_bomgroup-bom_usage = '1'. "用途gt_bomgroup-ltxt_lang = sy-langu.gt_bomgroup-technical_type = ''.g
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA:item_no TYPE i,  lv_check TYPE char1,  lv_message type char200,  lv_text     TYPE char120 VALUE 'texttexttexttexttexttexttexttexttexttexttexttexttexttexttexttext'."以父物料汇总CLEAR gt_bomgroup.gt_bomgroup-bom_group_identification = 'BAPI_SMP_COL1'.  "可以为空gt_bomgroup-object_type = 'BGR'.gt_bomgroup-object_id = 'SIMPLE1'.gt_bomgroup-bom_usage = '1'. "用途gt_bomgroup-ltxt_lang = sy-langu.gt_bomgroup-technical_type = ''.g
/* ... 已截断，完整代码请查看原文 */
ABAP SAPCS01创建BOM
查看代码
"取父物料的子件信息item_no = item_no + 1.CLEAR gt_items.gt_items-bom_group_identification = 'BAPI_SMP_COL1'.  "可以为空gt_items-object_type = 'ITM'.gt_items-object_id = item_no.gt_items-item_no = '0010'."项目gt_items-item_cat = 'L'."项目类别gt_items-component_long = '000000000004000012'."组件编码gt_items-comp_qty = '10'."组件数量*gt_items-alt_item_group = gs_data-alpgr."项目替代组gt_items-prod_rel = 'X'."标识：与生产相关
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
"取父物料的子件信息item_no = item_no + 1.CLEAR gt_items.gt_items-bom_group_identification = 'BAPI_SMP_COL1'.  "可以为空gt_items-object_type = 'ITM'.gt_items-object_id = item_no.gt_items-item_no = '0010'."项目gt_items-item_cat = 'L'."项目类别gt_items-component_long = '000000000004000012'."组件编码gt_items-comp_qty = '10'."组件数量*gt_items-alt_item_group = gs_data-alpgr."项目替代组gt_items-prod_rel = 'X'."标识：与生产相关
/* ... 已截断，完整代码请查看原文 */
ABAP SAPCS01创建BOM 
"gt_items-comp_unit = gs_data-meins."组件计量单位gt_items-item_text1 = lv_text+0(40)."项目长文本gt_items-item_text2 = lv_text+40(80).gt_items-ltxt_lang = sy-langu.  "这个参数一定要填APPEND gt_items.
查看完整代码 
"gt_items-comp_unit = gs_data-meins."组件计量单位gt_items-item_text1 = lv_text+0(40)."项目长文本gt_items-item_text2 = lv_text+40(80).gt_items-ltxt_lang = sy-langu.  "这个参数一定要填APPEND gt_items.
ABAP SAPCS01创建BOM
查看代码
lv_check = 'S'.LOOP AT gt_return INTO gs_return WHERE type = 'A' OR type = 'E'.  lv_message = lv_message && gs_return-message.  lv_check = 'E'.ENDLOOP.
IF lv_check = 'S'.  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'    EXPORTING      wait = 'X'.*  WRITE:GV_NUMBER.ELSE.  CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.ENDIF."-----------------------------------------@斌将军----------------------------------------
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
lv_check = 'S'.LOOP AT gt_return INTO gs_return WHERE type = 'A' OR type = 'E'.  lv_message = lv_message && gs_return-message.  lv_check = 'E'.ENDLOOP.
IF lv_check = 'S'.  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'    EXPORTING      wait = 'X'.*  WRITE:GV_NUMBER.ELSE.  CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.ENDIF."-----------------------------------------@斌将军----------------------------------------
/* ... 已截断，完整代码请查看原文 */
ABAP SAPHTTP调用其他系统接口 
lv_time_64 = cl_http_utility=>escape_url( timestamp ).
查看完整代码 
lv_time_64 = cl_http_utility=>escape_url( timestamp ).
ABAP SAPHTTP调用其他系统接口
查看代码
DATA:LS_TOKEN    TYPE TY_TOKEN,     LS_SENDDATA LIKE TY_SENDDATA,     LS_RECDATA  LIKE TY_RECEIVEDATA.
DATA: LV_LEN           TYPE I, "发送报文长度      LV_URL           TYPE STRING, "接口地址      LO_HTTP_CLIENT   TYPE REF TO IF_HTTP_CLIENT, "http客户端      LV_SEND_JSON     TYPE STRING, "发送的JSON      LV_REC_JSON      TYPE STRING, "接收的JSON      LV_AUTHORIZATION TYPE STRING,      LV_CODE          TYPE I, "HTTP 返回状态      LV_REASON        TYPE  STRING. " HTTP 状态描述/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA:LS_TOKEN    TYPE TY_TOKEN,     LS_SENDDATA LIKE TY_SENDDATA,     LS_RECDATA  LIKE TY_RECEIVEDATA.
DATA: LV_LEN           TYPE I, "发送报文长度      LV_URL           TYPE STRING, "接口地址      LO_HTTP_CLIENT   TYPE REF TO IF_HTTP_CLIENT, "http客户端      LV_SEND_JSON     TYPE STRING, "发送的JSON      LV_REC_JSON      TYPE STRING, "接收的JSON      LV_AUTHORIZATION TYPE STRING,      LV_CODE          TYPE I, "HTTP 返回状态      LV_REASON        TYPE  STRING. " HTTP 状态描述/* ... 已截断，完整代码请查看原文 */
ABAP SAPHTTP调用其他系统接口 
CALL METHOD LO_HTTP_CLIENT->REQUEST->SET_HEADER_FIELD      EXPORTING        NAME  = 'Authorization'        VALUE = LV_AUTHORIZATION.
查看完整代码 
CALL METHOD LO_HTTP_CLIENT->REQUEST->SET_HEADER_FIELD      EXPORTING        NAME  = 'Authorization'        VALUE = LV_AUTHORIZATION.
ABAP SAPHTTP调用其他系统接口 
CALL METHOD LO_HTTP_CLIENT->REQUEST->SET_CDATA      EXPORTING        DATA   = LV_SEND_JSON        OFFSET = 0        LENGTH = LV_LEN.
查看完整代码 
CALL METHOD LO_HTTP_CLIENT->REQUEST->SET_CDATA      EXPORTING        DATA   = LV_SEND_JSON        OFFSET = 0        LENGTH = LV_LEN.
ABAP SAPME01创建货源清单
查看代码
CALL FUNCTION 'ME_INITIALIZE_SOURCE_LIST'."源清单维护初始化
CALL FUNCTION 'ME_DIRECT_INPUT_SOURCE_LIST'  EXPORTING    I_MATNR          = LV_MATNR    I_WERKS          = LV_WERKS*   I_MT06E          =*   I_NO_MATERIAL_READ       =*   ACTIVITY         = 'V'*   I_VORGA          =*   I_LOGSY          =  TABLES    T_EORD           = LT_EORD  EXCEPTIONS    PLANT_MISSING    = 1    MATERIAL_MISSING = 2    error_message    = 99    OTHERS          = 3.IF SY-SUBRC <> 0
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
CALL FUNCTION 'ME_INITIALIZE_SOURCE_LIST'."源清单维护初始化
CALL FUNCTION 'ME_DIRECT_INPUT_SOURCE_LIST'  EXPORTING    I_MATNR          = LV_MATNR    I_WERKS          = LV_WERKS*   I_MT06E          =*   I_NO_MATERIAL_READ       =*   ACTIVITY         = 'V'*   I_VORGA          =*   I_LOGSY          =  TABLES    T_EORD           = LT_EORD  EXCEPTIONS    PLANT_MISSING    = 1    MATERIAL_MISSING = 2    error_message    = 99    OTHERS          = 3.IF SY-SUBRC <> 0
/* ... 已截断，完整代码请查看原文 */
ABAP SAPPOworkfow 
DATA:
查看完整代码 
DATA:
ABAP SAPPOworkfow 
SELECT SINGLE procstat INTO @DATA(lv_procstat)
查看完整代码 
SELECT SINGLE procstat INTO @DATA(lv_procstat)
ABAP SAPPOworkfow 
IF sy-subrc EQ 0.
查看完整代码 
IF sy-subrc EQ 0.
ABAP SAPPOworkfow 
ENDCASE.
ENDIF.
查看完整代码 
ENDCASE.
ENDIF.
ABAP SAPRFC不同设置性能以及RFCWebService的性能对比 
REPORT ztestrfc NO STANDARD PAGE HEADING.
DATA: itab TYPE TABLE OF dd02l.DATA: ws_proxy TYPE REF TO zwsco_zget_dd02l.DATA: ws_input TYPE zwszget_dd02l.DATA: ws_respo TYPE zwszget_dd02lresponse.DATA: eoutab TYPE zwscnvmbt_dd02l_t,      toutab TYPE zwstable_of_dd02l,      initab TYPE zwsdd02l_tab WITH HEADER LINE.DATA: t1 TYPE i,      t2 TYPE i.
PARAMETERS: p_dbcnt TYPE sy-dbcnt DEFAULT 3000.PARAMETERS: p_count TYPE i DEFAULT 1.
查看完整代码 
REPORT ztestrfc NO STANDARD PAGE HEADING.
DATA: itab TYPE TABLE OF dd02l.DATA: ws_proxy TYPE REF TO zwsco_zget_dd02l.DATA: ws_input TYPE zwszget_dd02l.DATA: ws_respo TYPE zwszget_dd02lresponse.DATA: eoutab TYPE zwscnvmbt_dd02l_t,      toutab TYPE zwstable_of_dd02l,      initab TYPE zwsdd02l_tab WITH HEADER LINE.DATA: t1 TYPE i,      t2 TYPE i.
PARAMETERS: p_dbcnt TYPE sy-dbcnt DEFAULT 3000.PARAMETERS: p_count TYPE i DEFAULT 1.
ABAP SAPRFC不同设置性能以及RFCWebService的性能对比
查看代码
GET RUN TIME FIELD t1.  DO p_count TIMES.    CLEAR itab[].    CALL FUNCTION 'ZGET_DD02L'      EXPORTING        dbcnt  = p_dbcnt        param  = 'E'      IMPORTING        eoutab = itab.  ENDDO.  GET RUN TIME FIELD t2.  t1 = t2 - t1.  WRITE: /(30)'正常函数调用Export:', t1.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
GET RUN TIME FIELD t1.  DO p_count TIMES.    CLEAR itab[].    CALL FUNCTION 'ZGET_DD02L'      EXPORTING        dbcnt  = p_dbcnt        param  = 'E'      IMPORTING        eoutab = itab.  ENDDO.  GET RUN TIME FIELD t2.  t1 = t2 - t1.  WRITE: /(30)'正常函数调用Export:', t1.
/* ... 已截断，完整代码请查看原文 */
ABAP SAPRFC不同设置性能以及RFCWebService的性能对比 
CLEAR itab[].    CALL FUNCTION 'ZGET_DD02L' DESTINATION 'DS4_185_C'      EXPORTING        dbcnt  = p_dbcnt        param  = 'E'      IMPORTING        eoutab = itab.  ENDDO.  GET RUN TIME FIELD t2.  t1 = t2 - t1.  WRITE: /(30)'Classic序列化器 Export:', t1.
查看完整代码 
CLEAR itab[].    CALL FUNCTION 'ZGET_DD02L' DESTINATION 'DS4_185_C'      EXPORTING        dbcnt  = p_dbcnt        param  = 'E'      IMPORTING        eoutab = itab.  ENDDO.  GET RUN TIME FIELD t2.  t1 = t2 - t1.  WRITE: /(30)'Classic序列化器 Export:', t1.
ABAP SAPRFC不同设置性能以及RFCWebService的性能对比 
CALL FUNCTION 'RFC_CONNECTION_CLOSE'      EXPORTING        destination          = 'DS4_185_C'      EXCEPTIONS        destination_not_open = 1.
CLEAR itab[].    CALL FUNCTION 'ZGET_DD02L' DESTINATION 'DS4_185_C'      EXPORTING        dbcnt  = p_dbcnt        param  = 'T'      TABLES        toutab = itab.  ENDDO.  GET RUN TIME FIELD t2.  t1 = t2 - t1.  WRITE: /(30)'Classic序列化器 Table:', t1.
查看完整代码 
CALL FUNCTION 'RFC_CONNECTION_CLOSE'      EXPORTING        destination          = 'DS4_185_C'      EXCEPTIONS        destination_not_open = 1.
CLEAR itab[].    CALL FUNCTION 'ZGET_DD02L' DESTINATION 'DS4_185_C'      EXPORTING        dbcnt  = p_dbcnt        param  = 'T'      TABLES        toutab = itab.  ENDDO.  GET RUN TIME FIELD t2.  t1 = t2 - t1.  WRITE: /(30)'Classic序列化器 Table:', t1.
ABAP SAPRFC不同设置性能以及RFCWebService的性能对比 
CLEAR itab[].    CALL FUNCTION 'ZGET_DD02L' DESTINATION 'DS4_185_B'      EXPORTING        dbcnt  = p_dbcnt        param  = 'E'      IMPORTING        eoutab = itab.  ENDDO.  GET RUN TIME FIELD t2.  t1 = t2 - t1.  WRITE: /(30)'BasXML Export:', t1.
查看完整代码 
CLEAR itab[].    CALL FUNCTION 'ZGET_DD02L' DESTINATION 'DS4_185_B'      EXPORTING        dbcnt  = p_dbcnt        param  = 'E'      IMPORTING        eoutab = itab.  ENDDO.  GET RUN TIME FIELD t2.  t1 = t2 - t1.  WRITE: /(30)'BasXML Export:', t1.
ABAP SAPRFC不同设置性能以及RFCWebService的性能对比 
CLEAR itab[].    CALL FUNCTION 'ZGET_DD02L' DESTINATION 'DS4_185_B'      EXPORTING        dbcnt  = p_dbcnt        param  = 'T'      TABLES        toutab = itab.  ENDDO.  GET RUN TIME FIELD t2.  t1 = t2 - t1.  WRITE: /(30)'BasXML Table:', t1.
查看完整代码 
CLEAR itab[].    CALL FUNCTION 'ZGET_DD02L' DESTINATION 'DS4_185_B'      EXPORTING        dbcnt  = p_dbcnt        param  = 'T'      TABLES        toutab = itab.  ENDDO.  GET RUN TIME FIELD t2.  t1 = t2 - t1.  WRITE: /(30)'BasXML Table:', t1.
ABAP SAPRFC不同设置性能以及RFCWebService的性能对比 
CLEAR itab[].    CALL FUNCTION 'ZGET_DD02L' DESTINATION 'DS4_185_O'      EXPORTING        dbcnt  = p_dbcnt        param  = 'E'      IMPORTING        eoutab = itab.  ENDDO.  GET RUN TIME FIELD t2.  t1 = t2 - t1.  WRITE: /(30)'强制BasXML Export:', t1.
查看完整代码 
CLEAR itab[].    CALL FUNCTION 'ZGET_DD02L' DESTINATION 'DS4_185_O'      EXPORTING        dbcnt  = p_dbcnt        param  = 'E'      IMPORTING        eoutab = itab.  ENDDO.  GET RUN TIME FIELD t2.  t1 = t2 - t1.  WRITE: /(30)'强制BasXML Export:', t1.
ABAP SAPRFC不同设置性能以及RFCWebService的性能对比 
CLEAR itab[].    CALL FUNCTION 'ZGET_DD02L' DESTINATION 'DS4_185_O'      EXPORTING        dbcnt  = p_dbcnt        param  = 'T'      TABLES        toutab = itab.  ENDDO.  GET RUN TIME FIELD t2.  t1 = t2 - t1.  WRITE: /(30)'强制BasXML Table:', t1.
查看完整代码 
CLEAR itab[].    CALL FUNCTION 'ZGET_DD02L' DESTINATION 'DS4_185_O'      EXPORTING        dbcnt  = p_dbcnt        param  = 'T'      TABLES        toutab = itab.  ENDDO.  GET RUN TIME FIELD t2.  t1 = t2 - t1.  WRITE: /(30)'强制BasXML Table:', t1.
ABAP SAPRFC不同设置性能以及RFCWebService的性能对比 
CLEAR itab[].    CALL FUNCTION 'ZGET_DD02L' DESTINATION 'DS4_185_F'      EXPORTING        dbcnt  = p_dbcnt        param  = 'E'      IMPORTING        eoutab = itab.  ENDDO.  GET RUN TIME FIELD t2.  t1 = t2 - t1.  WRITE: /(30)'快速序列化器 Export:', t1.
查看完整代码 
CLEAR itab[].    CALL FUNCTION 'ZGET_DD02L' DESTINATION 'DS4_185_F'      EXPORTING        dbcnt  = p_dbcnt        param  = 'E'      IMPORTING        eoutab = itab.  ENDDO.  GET RUN TIME FIELD t2.  t1 = t2 - t1.  WRITE: /(30)'快速序列化器 Export:', t1.
ABAP SAPRFC不同设置性能以及RFCWebService的性能对比 
CLEAR itab[].    CALL FUNCTION 'ZGET_DD02L' DESTINATION 'DS4_185_F'      EXPORTING        dbcnt  = p_dbcnt        param  = 'T'      TABLES        toutab = itab.  ENDDO.  GET RUN TIME FIELD t2.  t1 = t2 - t1.  WRITE: /(30)'快速序列化器 Table:', t1.
查看完整代码 
CLEAR itab[].    CALL FUNCTION 'ZGET_DD02L' DESTINATION 'DS4_185_F'      EXPORTING        dbcnt  = p_dbcnt        param  = 'T'      TABLES        toutab = itab.  ENDDO.  GET RUN TIME FIELD t2.  t1 = t2 - t1.  WRITE: /(30)'快速序列化器 Table:', t1.
ABAP SAPRFC不同设置性能以及RFCWebService的性能对比 
CLEAR itab[].    CALL FUNCTION 'ZGET_DD02L' DESTINATION 'HSD_125_C'      EXPORTING        dbcnt  = p_dbcnt        param  = 'E'      IMPORTING        eoutab = itab.  ENDDO.  GET RUN TIME FIELD t2.  t1 = t2 - t1.  WRITE: /(30)'Classic序列化器 Export:', t1.
查看完整代码 
CLEAR itab[].    CALL FUNCTION 'ZGET_DD02L' DESTINATION 'HSD_125_C'      EXPORTING        dbcnt  = p_dbcnt        param  = 'E'      IMPORTING        eoutab = itab.  ENDDO.  GET RUN TIME FIELD t2.  t1 = t2 - t1.  WRITE: /(30)'Classic序列化器 Export:', t1.
ABAP SAPRFC不同设置性能以及RFCWebService的性能对比 
CLEAR itab[].    CALL FUNCTION 'ZGET_DD02L' DESTINATION 'HSD_125_C'      EXPORTING        dbcnt  = p_dbcnt        param  = 'T'      TABLES        toutab = itab.  ENDDO.  GET RUN TIME FIELD t2.  t1 = t2 - t1.  WRITE: /(30)'Classic序列化器 Table:', t1.
查看完整代码 
CLEAR itab[].    CALL FUNCTION 'ZGET_DD02L' DESTINATION 'HSD_125_C'      EXPORTING        dbcnt  = p_dbcnt        param  = 'T'      TABLES        toutab = itab.  ENDDO.  GET RUN TIME FIELD t2.  t1 = t2 - t1.  WRITE: /(30)'Classic序列化器 Table:', t1.
ABAP SAPRFC接口的数据分页传输 
FUNCTION ztest_rfc_01.*"----------------------------------------------------------------------*"*"局部接口：*"  IMPORTING*"     VALUE(COUNT) TYPE  I OPTIONAL*"  EXPORTING*"     VALUE(MORKZ) TYPE  CHAR1*"  TABLES*"      T_MAKT STRUCTURE  MAKT OPTIONAL*"----------------------------------------------------------------------  IF gt_makt[] IS INITIAL.    SELECT * INTO TABLE gt_makt FROM makt.  ENDIF.
查看完整代码 
FUNCTION ztest_rfc_01.*"----------------------------------------------------------------------*"*"局部接口：*"  IMPORTING*"     VALUE(COUNT) TYPE  I OPTIONAL*"  EXPORTING*"     VALUE(MORKZ) TYPE  CHAR1*"  TABLES*"      T_MAKT STRUCTURE  MAKT OPTIONAL*"----------------------------------------------------------------------  IF gt_makt[] IS INITIAL.    SELECT * INTO TABLE gt_makt FROM makt.  ENDIF.
ABAP SAPRFC接口的数据分页传输 
IF gt_makt IS NOT INITIAL.    morkz = 'X'.  ENDIF.ENDFUNCTION.
查看完整代码 
IF gt_makt IS NOT INITIAL.    morkz = 'X'.  ENDIF.ENDFUNCTION.
ABAP SAPSMTP郵件服務器配置發送端QQ郵箱 
REPORT ztest_jxzhu_mail.
查看完整代码 
REPORT ztest_jxzhu_mail.
ABAP SAPSMTP郵件服務器配置發送端QQ郵箱
查看代码
DATA: gv_fname        TYPE rs38l_fnam,       "fucntion MODULE      gv_subject      TYPE so_obj_des,      gv_title        TYPE so_obj_des,      lv_bin_filesize TYPE i,      lv_transfer_bin TYPE sx_boolean,      lv_len          TYPE so_obj_len,      lv_email        TYPE ad_smtpadr,      lv_sent_to_all  TYPE os_boolean.*/.. Class Declarations
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA: gv_fname        TYPE rs38l_fnam,       "fucntion MODULE      gv_subject      TYPE so_obj_des,      gv_title        TYPE so_obj_des,      lv_bin_filesize TYPE i,      lv_transfer_bin TYPE sx_boolean,      lv_len          TYPE so_obj_len,      lv_email        TYPE ad_smtpadr,      lv_sent_to_all  TYPE os_boolean.*/.. Class Declarations
/* ... 已截断，完整代码请查看原文 */
ABAP SAPSMTP郵件服務器配置發送端QQ郵箱 
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'  EXPORTING    formname           = 'ZF2_TEST'  IMPORTING    fm_name            = gv_fname  EXCEPTIONS    no_form            = 1    no_function_module = 2    OTHERS             = 3.
IF sy-subrc <> 0.  MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno          WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.ENDIF.
查看完整代码 
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'  EXPORTING    formname           = 'ZF2_TEST'  IMPORTING    fm_name            = gv_fname  EXCEPTIONS    no_form            = 1    no_function_module = 2    OTHERS             = 3.
IF sy-subrc <> 0.  MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno          WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.ENDIF.
ABAP SAP发布HTTP接口
查看代码
METHOD if_http_extension~handle_request.
DATA:lv_method   TYPE string,         lv_req_json TYPE string,         lv_res_json TYPE string.    lv_method = server->request->get_header_field( '~request_method' ).*    lv_path = server->request->get_header_field( '~request_uri' ).
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
METHOD if_http_extension~handle_request.
DATA:lv_method   TYPE string,         lv_req_json TYPE string,         lv_res_json TYPE string.    lv_method = server->request->get_header_field( '~request_method' ).*    lv_path = server->request->get_header_field( '~request_uri' ).
/* ... 已截断，完整代码请查看原文 */
ABAP SAP取汇率接口OB08 
SELECT  DISTINCT  fcurr gdatu
查看完整代码 
SELECT  DISTINCT  fcurr gdatu
ABAP SAP取汇率接口OB08 
output  =  lv_date  .
查看完整代码 
output  =  lv_date  .
ABAP SAP取汇率接口OB08 
date_external  =  lv_date
查看完整代码 
date_external  =  lv_date
ABAP SAP取汇率接口OB08 
date_internal  =  lv_date2
查看完整代码 
date_internal  =  lv_date2
ABAP SAP取汇率接口OB08 
IF  sy  \-  subrc <> 0  .
查看完整代码 
IF  sy  \-  subrc <> 0  .
ABAP SAP取汇率接口OB08 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP SAP取汇率接口OB08 
if  lv_date2 >=  '20230101'  .
CALL  FUNCTION  'BAPI_EXCHANGERATE_GETDETAIL'
查看完整代码 
if  lv_date2 >=  '20230101'  .
CALL  FUNCTION  'BAPI_EXCHANGERATE_GETDETAIL'
ABAP SAP取汇率接口OB08 
date  =  lv_date2
查看完整代码 
date  =  lv_date2
ABAP SAP取汇率接口OB08 
exch_rate  =  ls_exch_rate
查看完整代码 
exch_rate  =  ls_exch_rate
ABAP SAP取汇率接口OB08 
ls_out  \-  exch_rate2  =  ls_out  \-  exch_rate / ls_out  \-  from_factor  .
查看完整代码 
ls_out  \-  exch_rate2  =  ls_out  \-  exch_rate / ls_out  \-  from_factor  .
ABAP SAP取汇率接口OB08 
APPEND  ls_out  TO  t_out  .
APPEND  ls_out  TO  lt_out2  .
查看完整代码 
APPEND  ls_out  TO  t_out  .
APPEND  ls_out  TO  lt_out2  .
ABAP SAP取汇率接口OB08 
ENDLOOP  .
查看完整代码 
ENDLOOP  .
ABAP SAP取汇率接口OB08 
LOOP  AT  t_out  INTO  ls_out  .
READ  TABLE  lt_out2  WITH  KEY  from_curr  =  ls_out  \-  from_curr
valid_from  =  ls_out  \-  valid_from
查看完整代码 
LOOP  AT  t_out  INTO  ls_out  .
READ  TABLE  lt_out2  WITH  KEY  from_curr  =  ls_out  \-  from_curr
valid_from  =  ls_out  \-  valid_from
ABAP SAP取汇率接口OB08 
IF  sy  \-  subrc  EQ  0  .
lv_tabix  =  sy  \-  tabix  .
查看完整代码 
IF  sy  \-  subrc  EQ  0  .
lv_tabix  =  sy  \-  tabix  .
ABAP SAP取汇率接口OB08 
ls_out  \-  invalid  =  ls_out2  \-  valid_from  \-  1  .
查看完整代码 
ls_out  \-  invalid  =  ls_out2  \-  valid_from  \-  1  .
ABAP SAP取汇率接口OB08 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP SAP取汇率接口OB08 
MODIFY  t_out  FROM  ls_out  .
查看完整代码 
MODIFY  t_out  FROM  ls_out  .
ABAP SAP取汇率接口OB08 
ENDLOOP  .
查看完整代码 
ENDLOOP  .
ABAP SAP后台JOB批量查看工具
查看代码
DATA: BEGIN OF gt_jobsalv OCCURS 0,        jobname       LIKE gt_jobs-jobname,        jobcount      LIKE gt_jobs-jobcount,        sdluname      LIKE gt_jobs-sdluname,        strtdate      LIKE gt_jobs-strtdate,        strttime      LIKE gt_jobs-strttime,        status        LIKE gt_jobs-status,        statxt(10),        reaxserver    LIKE gt_jobs-reaxserver,        authcknam     LIKE gt_jobs-authcknam,        authckman     LIKE gt_jobs-authckman,        progname      LIKE gt_jobs-progname
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA: BEGIN OF gt_jobsalv OCCURS 0,        jobname       LIKE gt_jobs-jobname,        jobcount      LIKE gt_jobs-jobcount,        sdluname      LIKE gt_jobs-sdluname,        strtdate      LIKE gt_jobs-strtdate,        strttime      LIKE gt_jobs-strttime,        status        LIKE gt_jobs-status,        statxt(10),        reaxserver    LIKE gt_jobs-reaxserver,        authcknam     LIKE gt_jobs-authcknam,        authckman     LIKE gt_jobs-authckman,        progname      LIKE gt_jobs-progname
/* ... 已截断，完整代码请查看原文 */
ABAP SAP后台JOB批量查看工具 
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE b1txt.SELECT-OPTIONS: s_mand FOR tbtco-authckman DEFAULT sy-mandt,                s_user FOR tbtco-sdluname DEFAULT sy-uname ,                s_jnam FOR tbtco-jobname ,
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE b1txt.SELECT-OPTIONS: s_mand FOR tbtco-authckman DEFAULT sy-mandt,                s_user FOR tbtco-sdluname DEFAULT sy-uname ,                s_jnam FOR tbtco-jobname ,
ABAP SAP小技巧MB51配置扩展 
FORM auto_repair. 负责干这个活.
查看完整代码 
FORM auto_repair. 负责干这个活.
ABAP SAP小技巧之实现SMARTFORM打印中的小计与总计 
DATA: ls_vbak TYPE vbak.DATA: lt_vbap LIKE TABLE OF zsts_smartforms.
查看完整代码 
DATA: ls_vbak TYPE vbak.DATA: lt_vbap LIKE TABLE OF zsts_smartforms.
ABAP SAP小技巧之实现SMARTFORM打印中的小计与总计
查看代码
PERFORM frm_call_smartforms.*&---------------------------------------------------------------------**& Form FRM_GET_DATA*&---------------------------------------------------------------------**& text*&---------------------------------------------------------------------**& -->  p1        text*& <--  p2        text*&---------------------------------------------------------------------*FORM frm_get_data .  DATA: lw_vbap TYPE zsts_smartforms.  DATA: lv_in
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
PERFORM frm_call_smartforms.*&---------------------------------------------------------------------**& Form FRM_GET_DATA*&---------------------------------------------------------------------**& text*&---------------------------------------------------------------------**& -->  p1        text*& <--  p2        text*&---------------------------------------------------------------------*FORM frm_get_data .  DATA: lw_vbap TYPE zsts_smartforms.  DATA: lv_in
/* ... 已截断，完整代码请查看原文 */
ABAP SAP小技巧之实现SMARTFORM打印中的小计与总计
查看代码
*开始打印输出  CALL FUNCTION 'SSF_OPEN'    EXPORTING      control_parameters = ls_control      output_options     = ls_outopt    IMPORTING      job_output_options = ls_opt    EXCEPTIONS      formatting_error   = 1      internal_error     = 2      send_error         = 3      user_canceled      = 4      OTHERS             = 5.  IF sy-subrc <> 0.    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.    EXIT.  ENDIF.*获取SMARTFORM的打印函
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
*开始打印输出  CALL FUNCTION 'SSF_OPEN'    EXPORTING      control_parameters = ls_control      output_options     = ls_outopt    IMPORTING      job_output_options = ls_opt    EXCEPTIONS      formatting_error   = 1      internal_error     = 2      send_error         = 3      user_canceled      = 4      OTHERS             = 5.  IF sy-subrc <> 0.    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.    EXIT.  ENDIF.*获取SMARTFORM的打印函
/* ... 已截断，完整代码请查看原文 */
ABAP SAP小技巧之实现SMARTFORM打印中的小计与总计 
ENDFORM.
查看完整代码 
ENDFORM.
ABAP SAP小技巧之改造SE16N七优化日志显示 
METHOD handle_toolbar.末尾隐式增强
查看完整代码 
METHOD handle_toolbar.末尾隐式增强
ABAP SAP小技巧之改造SE16N七优化日志显示 
METHOD handle_user_command. 末尾隐式增强
查看完整代码 
METHOD handle_user_command. 末尾隐式增强
ABAP SAP小技巧之改造SE16N三 
FORM SET_TABLE_FOR_DISPLAY .
查看完整代码 
FORM SET_TABLE_FOR_DISPLAY .
ABAP SAP小技巧之改造SE16N六解决全选删除的BUG 
METHOD handle_toolbar 方法末尾隐式增强
查看完整代码 
METHOD handle_toolbar 方法末尾隐式增强
ABAP SAP小技巧之改造SE16N六解决全选删除的BUG 
METHOD handle_user_command. 方法末尾隐式增强
查看完整代码 
METHOD handle_user_command. 方法末尾隐式增强
ABAP SAP小技巧之改造SE16N四 
FORM SET_TABLE_FOR_DISPLAY 开头位置添加任意点增强
查看完整代码 
FORM SET_TABLE_FOR_DISPLAY 开头位置添加任意点增强
ABAP SAP小技巧使用bgRFC优化TRFCQRFC
查看代码
FORM frm_bgrfc_tin .  DATA lo_destination TYPE REF TO if_bgrfc_destination_inbound.  DATA lo_trfc_unit TYPE REF TO if_trfc_unit_inbound.  DATA lc_bgrfc_dest_name TYPE bgrfc_dest_name_inbound .
lc_bgrfc_dest_name = p_uname.  DATA myref TYPE REF TO cx_bgrfc_invalid_destination .  DATA err_text TYPE string.  DATA result TYPE i.  TRY.      lo_destination = cl_bgrfc_destination_inbound=>create( lc_bgrfc_dest_name ).    CATCH cx_bgrfc_invalid_destination INTO myref.      err_text = myref->
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
FORM frm_bgrfc_tin .  DATA lo_destination TYPE REF TO if_bgrfc_destination_inbound.  DATA lo_trfc_unit TYPE REF TO if_trfc_unit_inbound.  DATA lc_bgrfc_dest_name TYPE bgrfc_dest_name_inbound .
lc_bgrfc_dest_name = p_uname.  DATA myref TYPE REF TO cx_bgrfc_invalid_destination .  DATA err_text TYPE string.  DATA result TYPE i.  TRY.      lo_destination = cl_bgrfc_destination_inbound=>create( lc_bgrfc_dest_name ).    CATCH cx_bgrfc_invalid_destination INTO myref.      err_text = myref->
/* ... 已截断，完整代码请查看原文 */
ABAP SAP小技巧允许EAN条码带有前置0 
DATA: LV_EAN TYPE EAN11.
查看完整代码 
DATA: LV_EAN TYPE EAN11.
ABAP SAP小技巧允许EAN条码带有前置0 
ean_neu = lv_ean.
查看完整代码 
ean_neu = lv_ean.
ABAP SAP小技巧允许EAN条码带有前置0 
ean_alt = lv_ean.
查看完整代码 
ean_alt = lv_ean.
ABAP SAP小技巧关于qRFC调用 
CALL FUNCTION 'Z_BC_TEST_QRFC'    IN BACKGROUND TASK    AS SEPARATE UNIT    DESTINATION rfcdest    EXPORTING      iv_wait               = p_sec    EXCEPTIONS      communication_failure = 1      system_failure        = 2      resource_failure      = 3      OTHERS                = 4.
查看完整代码 
CALL FUNCTION 'Z_BC_TEST_QRFC'    IN BACKGROUND TASK    AS SEPARATE UNIT    DESTINATION rfcdest    EXPORTING      iv_wait               = p_sec    EXCEPTIONS      communication_failure = 1      system_failure        = 2      resource_failure      = 3      OTHERS                = 4.
ABAP SAP小技巧关于qRFC调用
查看代码
ENDFORM.*&---------------------------------------------------------------------**& Form FRM_QRFC_OUTBOUND*&---------------------------------------------------------------------**& text*&---------------------------------------------------------------------**& -->  p1        text*& <--  p2        text*&---------------------------------------------------------------------*FORM frm_qrfc_outbound .*队列可以先注册, 也可以不注册  CALL FUNCTION 'TRFC_SET_QUEUE_NAME&#x
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
ENDFORM.*&---------------------------------------------------------------------**& Form FRM_QRFC_OUTBOUND*&---------------------------------------------------------------------**& text*&---------------------------------------------------------------------**& -->  p1        text*& <--  p2        text*&---------------------------------------------------------------------*FORM frm_qrfc_outbound .*队列可以先注册, 也可以不注册  CALL FUNCTION 'TRFC_SET_QUEUE_NAME&#x
/* ... 已截断，完整代码请查看原文 */
ABAP SAP小技巧关于qRFC调用 
ENDFORM.
查看完整代码 
ENDFORM.
ABAP SAP小技巧动态内表的定义及使用 
cl_alv_table_create=>create_dynamic_table 定义. 这种方式定义动态内表在一个进程中最多只能定义36次.
查看完整代码 
cl_alv_table_create=>create_dynamic_table 定义. 这种方式定义动态内表在一个进程中最多只能定义36次.
ABAP SAP小技巧双LOOP循环的性能优化 
INITIALIZATION.  %_p_int_%_app_%-text = '内表条数'.  %_p_dup_a_%_app_%-text = '内表A数据重复'.  TYPES:BEGIN OF ty_a,          f1(10),          f2(10),        END OF ty_a.  TYPES: ty_a_tab TYPE TABLE OF ty_a.  DATA: lt_a TYPE TABLE OF ty_a.
TYPES:BEGIN OF ty_b,          f1(10),          f3(10),        END OF ty_b.  TYPES: ty_b_tab TYPE TABLE OF ty_b.  DATA: lt_b TYPE TABLE OF ty_b.
查看完整代码 
INITIALIZATION.  %_p_int_%_app_%-text = '内表条数'.  %_p_dup_a_%_app_%-text = '内表A数据重复'.  TYPES:BEGIN OF ty_a,          f1(10),          f2(10),        END OF ty_a.  TYPES: ty_a_tab TYPE TABLE OF ty_a.  DATA: lt_a TYPE TABLE OF ty_a.
TYPES:BEGIN OF ty_b,          f1(10),          f3(10),        END OF ty_b.  TYPES: ty_b_tab TYPE TABLE OF ty_b.  DATA: lt_b TYPE TABLE OF ty_b.
ABAP SAP小技巧双LOOP循环的性能优化 
TYPES:BEGIN OF ty_c,          f1(10),          f2(10),          f3(10),        END OF ty_c.  TYPES: ty_c_tab TYPE TABLE OF ty_c.  DATA: lt_c TYPE TABLE OF ty_c.
查看完整代码 
TYPES:BEGIN OF ty_c,          f1(10),          f2(10),          f3(10),        END OF ty_c.  TYPES: ty_c_tab TYPE TABLE OF ty_c.  DATA: lt_c TYPE TABLE OF ty_c.
ABAP SAP小技巧双LOOP循环的性能优化
查看代码
*构造内表数据  PERFORM frm_get_a_b CHANGING lt_a lt_b.*标准表方式  IF p_int <= 10000.    REFRESH lt_c.    PERFORM proc_standard_tab.  ENDIF.*排序表方式  REFRESH lt_c.  PERFORM proc_sort_tab.  REFRESH lt_c.*构造嵌套哈希表方式- group 构造  PERFORM proc_hashed_tab.*构造嵌套哈希表方法- at new 构造  REFRESH lt_c.  PERFORM proc_hashed_tab_2.*按性能帮助中的方法  REFRESH lt_c.  PERFORM proc_standard_tab_2.*二分法查找, 再读取.  REFRESH lt_c.  PERFORM proc_sort_tab_2.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
*构造内表数据  PERFORM frm_get_a_b CHANGING lt_a lt_b.*标准表方式  IF p_int <= 10000.    REFRESH lt_c.    PERFORM proc_standard_tab.  ENDIF.*排序表方式  REFRESH lt_c.  PERFORM proc_sort_tab.  REFRESH lt_c.*构造嵌套哈希表方式- group 构造  PERFORM proc_hashed_tab.*构造嵌套哈希表方法- at new 构造  REFRESH lt_c.  PERFORM proc_hashed_tab_2.*按性能帮助中的方法  REFRESH lt_c.  PERFORM proc_standard_tab_2.*二分法查找, 再读取.  REFRESH lt_c.  PERFORM proc_sort_tab_2.
/* ... 已截断，完整代码请查看原文 */
ABAP SAP小技巧发票校验BAPI调用总结 
FORM VERGLEICH_SKONTOBASIS
查看完整代码 
FORM VERGLEICH_SKONTOBASIS
ABAP SAP小技巧增强优化控制移动平均价的波动 
FORM pruefen_vpreis_abweichung_0002 的开头隐式增强即可
查看完整代码 
FORM pruefen_vpreis_abweichung_0002 的开头隐式增强即可
ABAP SAP小技巧字符串连接的性能优化 
LOOP AT ITAB1
查看完整代码 
LOOP AT ITAB1
ABAP SAP小技巧字符串连接的性能优化 
ENDLOOP .
查看完整代码 
ENDLOOP .
ABAP SAP小技巧字符串连接的性能优化 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP SAP小技巧字符串连接的性能优化 
LOOP AT ITAB2.
查看完整代码 
LOOP AT ITAB2.
ABAP SAP小技巧字符串连接的性能优化 
LOOP AT ITAB1
查看完整代码 
LOOP AT ITAB1
ABAP SAP小技巧字符串连接的性能优化 
ENDLOOP .
查看完整代码 
ENDLOOP .
ABAP SAP小技巧字符串连接的性能优化 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP SAP小技巧字符串连接的性能优化 
lv_str = lv_str && 'NEW STRING'
查看完整代码 
lv_str = lv_str && 'NEW STRING'
ABAP SAP小技巧字符串连接的性能优化 
PARAMETERS: P_TIMES TYPE I DEFAULT 1000,            P_TIME2 TYPE I DEFAULT 1000.PARAMETERS: P_CON AS CHECKBOX.DATA: LV_STR TYPE STRING.
查看完整代码 
PARAMETERS: P_TIMES TYPE I DEFAULT 1000,            P_TIME2 TYPE I DEFAULT 1000.PARAMETERS: P_CON AS CHECKBOX.DATA: LV_STR TYPE STRING.
ABAP SAP小技巧打造全新的配置体系二实现方式
查看代码
INITIALIZATION.*标准IMG执行时在程序 LS_CUS_ACTIVITYF01 472 行左右 会调用预定义的事务代码并通过PARAMETER ID 'CUO' 传递配置对象*      SET PARAMETER ID 'CUO' FIELD objectname.*      CALL FUNCTION 'SPROJECT_BUFFER_NOTE'.*      CALL TRANSACTION p_tcode.  IF sy-tcode = 'ZBC_CONF'.    DATA: lv_objectname TYPE ob_object.    GET PARAMETER ID 'CUO' FIELD lv_objectname.    IF lv_objectname IS NOT INITIAL.      p_tab = lv_objectname .    ENDIF.  ELSE.    SPLIT sy-tcode AT '_&#x
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
INITIALIZATION.*标准IMG执行时在程序 LS_CUS_ACTIVITYF01 472 行左右 会调用预定义的事务代码并通过PARAMETER ID 'CUO' 传递配置对象*      SET PARAMETER ID 'CUO' FIELD objectname.*      CALL FUNCTION 'SPROJECT_BUFFER_NOTE'.*      CALL TRANSACTION p_tcode.  IF sy-tcode = 'ZBC_CONF'.    DATA: lv_objectname TYPE ob_object.    GET PARAMETER ID 'CUO' FIELD lv_objectname.    IF lv_objectname IS NOT INITIAL.      p_tab = lv_objectname .    ENDIF.  ELSE.    SPLIT sy-tcode AT '_&#x
/* ... 已截断，完整代码请查看原文 */
ABAP SAP小技巧打造全新的配置体系二实现方式 
CALL FUNCTION 'SE16N_START'    EXPORTING      i_tab          = p_tab*     I_DISPLAY      = ' '*     I_EXIT_SELFIELD_FB       = ' '      i_single_table = 'X' "表名字段不允许输入*     I_HANA         = ' '    .
查看完整代码 
CALL FUNCTION 'SE16N_START'    EXPORTING      i_tab          = p_tab*     I_DISPLAY      = ' '*     I_EXIT_SELFIELD_FB       = ' '      i_single_table = 'X' "表名字段不允许输入*     I_HANA         = ' '    .
ABAP SAP小技巧控制移动平均价巨幅波动 
data: wa_ZTMSGTY_306 type ZTMSGTY_306. DATA: L_MSGTY TYPE MSGTY.  if msgno = 306. select single * from ZTMSGTY_306 into wa_ZTMSGTY_306   where msgid = 'M7'     AND MSGNO = '306'.   IF SY-SUBRC <> 0.      L_MSGTY = 'E'.   ELSE.     L_MSGTY = wa_ZTMSGTY_306-MSGTY.   ENDIF.     message ID 'M7' TYPE L_MSGTY NUMBER MSGNO            WITH ausgabe monat gjahr mseg-matnr.  endif.
查看完整代码 
data: wa_ZTMSGTY_306 type ZTMSGTY_306. DATA: L_MSGTY TYPE MSGTY.  if msgno = 306. select single * from ZTMSGTY_306 into wa_ZTMSGTY_306   where msgid = 'M7'     AND MSGNO = '306'.   IF SY-SUBRC <> 0.      L_MSGTY = 'E'.   ELSE.     L_MSGTY = wa_ZTMSGTY_306-MSGTY.   ENDIF.     message ID 'M7' TYPE L_MSGTY NUMBER MSGNO            WITH ausgabe monat gjahr mseg-matnr.  endif.
ABAP SAP小技巧特殊搜索帮助 
CALL METHOD zcl_zorder_comm=>get_value_of_range( EXPORTING iv_range =
lv_fieldvalue IMPORTING et_r = lr_range2 ).
查看完整代码 
CALL METHOD zcl_zorder_comm=>get_value_of_range( EXPORTING iv_range =
lv_fieldvalue IMPORTING et_r = lr_range2 ).
ABAP SAP小技巧特殊搜索帮助 
DATA lr_range LIKE RANGE OF t001w-kunnr .DATA lr_range2 LIKE RANGE OF t001w-kunnr .DATA: lv_range_value TYPE string."一段RANGE字符lv_range_value = 'E/EQ/W001,I/CP/W*,W002,I/BT/1000000000/1999999999'.
cl_demo_output=>next_section( '原始字符串,包换RANGE信息' ).cl_demo_output=>write( lv_range_value ).
查看完整代码 
DATA lr_range LIKE RANGE OF t001w-kunnr .DATA lr_range2 LIKE RANGE OF t001w-kunnr .DATA: lv_range_value TYPE string."一段RANGE字符lv_range_value = 'E/EQ/W001,I/CP/W*,W002,I/BT/1000000000/1999999999'.
cl_demo_output=>next_section( '原始字符串,包换RANGE信息' ).cl_demo_output=>write( lv_range_value ).
ABAP SAP小技巧自定义配置表的简单日志
查看代码
FORM frm_get_zsbc001.  FIELD-SYMBOLS: <fs_w>,<fs_action>,<fs_f>.
LOOP AT total ASSIGNING <fs_w>.    ASSIGN COMPONENT 'ACTION' OF STRUCTURE <fs_w> TO <fs_action>.    IF sy-subrc = 0.      CASE <fs_action>.        WHEN 'N'.          ASSIGN COMPONENT 'CRDAT' OF STRUCTURE <fs_w> TO <fs_f>.          IF sy-subrc = 0.            <fs_f> = sy-datum.          ENDIF.          ASSIGN COMPONENT 'CRTIM' O
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
FORM frm_get_zsbc001.  FIELD-SYMBOLS: <fs_w>,<fs_action>,<fs_f>.
LOOP AT total ASSIGNING <fs_w>.    ASSIGN COMPONENT 'ACTION' OF STRUCTURE <fs_w> TO <fs_action>.    IF sy-subrc = 0.      CASE <fs_action>.        WHEN 'N'.          ASSIGN COMPONENT 'CRDAT' OF STRUCTURE <fs_w> TO <fs_f>.          IF sy-subrc = 0.            <fs_f> = sy-datum.          ENDIF.          ASSIGN COMPONENT 'CRTIM' O
/* ... 已截断，完整代码请查看原文 */
ABAP SAP小技巧触发单据重定价 
FORM USEREXIT_PRICING_PREPARE_TKOMK
查看完整代码 
FORM USEREXIT_PRICING_PREPARE_TKOMK
ABAP SAP小技巧触发单据重定价 
FORM USEREXIT_PRICING_PREPARE_TKOMP
查看完整代码 
FORM USEREXIT_PRICING_PREPARE_TKOMP
ABAP SAP小技巧触发单据重定价 
FORM USEREXIT_PRICING_PREPARE_TKOMK
查看完整代码 
FORM USEREXIT_PRICING_PREPARE_TKOMK
ABAP SAP小技巧触发单据重定价 
FORM USEREXIT_PRICING_PREPARE_TKOMP
查看完整代码 
FORM USEREXIT_PRICING_PREPARE_TKOMP
ABAP SAP小技巧记录报表程序的执行日志 
IF  -ucomm = 'ONLI' AND memkey-report IS NOT INITIAL.
查看完整代码 
IF  -ucomm = 'ONLI' AND memkey-report IS NOT INITIAL.
ABAP SAP小技巧记录报表程序的执行日志 
DATA(lv_active) = zcl_enh_control=>check_enh_actvt( 'ZENH_10068' ).
查看完整代码 
DATA(lv_active) = zcl_enh_control=>check_enh_actvt( 'ZENH_10068' ).
ABAP SAP小技巧记录报表程序的执行日志 
IF lv_active = 'X'.
查看完整代码 
IF lv_active = 'X'.
ABAP SAP小技巧记录报表程序的执行日志 
ENDIF.
查看完整代码 
ENDIF.
ABAP SAP小技巧记录报表程序的执行日志 
ENDIF.
查看完整代码 
ENDIF.
ABAP SAP小技巧记录报表程序的执行日志 
DATA(lv_active_2) = zcl_enh_control=>check_enh_actvt( 'ZENH_10068' ).
查看完整代码 
DATA(lv_active_2) = zcl_enh_control=>check_enh_actvt( 'ZENH_10068' ).
ABAP SAP小技巧记录报表程序的执行日志 
IF LV_ACTIVE_2 = 'X'.
查看完整代码 
IF LV_ACTIVE_2 = 'X'.
ABAP SAP小技巧记录报表程序的执行日志 
ENDIF.
查看完整代码 
ENDIF.
ABAP SAP小技巧记录报表程序的执行日志 
DATA(lv_active_3) = zcl_enh_control=>check_enh_actvt( 'ZENH_10068' ).
查看完整代码 
DATA(lv_active_3) = zcl_enh_control=>check_enh_actvt( 'ZENH_10068' ).
ABAP SAP小技巧记录报表程序的执行日志 
IF LV_ACTIVE_3 = 'X'.
查看完整代码 
IF LV_ACTIVE_3 = 'X'.
ABAP SAP小技巧记录报表程序的执行日志 
ENDIF.
查看完整代码 
ENDIF.
ABAP SAP小技巧记录报表程序的执行日志
查看代码
METHOD save_rep_log_pub.    "保存日志    DATA: lv_runtime   TYPE i,          lv_timestamp TYPE c LENGTH 14.    DATA: lv_repid TYPE sy-repid.
IF iv_frame = 'X'.      gv_frame = 'X'.    ENDIF.    IF iv_frame = '' AND gv_frame = 'X'. "如果框架中调用了. 则程序的的调用直接退出      RETURN.    ENDIF.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
METHOD save_rep_log_pub.    "保存日志    DATA: lv_runtime   TYPE i,          lv_timestamp TYPE c LENGTH 14.    DATA: lv_repid TYPE sy-repid.
IF iv_frame = 'X'.      gv_frame = 'X'.    ENDIF.    IF iv_frame = '' AND gv_frame = 'X'. "如果框架中调用了. 则程序的的调用直接退出      RETURN.    ENDIF.
/* ... 已截断，完整代码请查看原文 */
ABAP SAP工具箱ALV行表转列表的数据回写 
CALL METHOD zcl_rep_comm_line_col=>convert_line_to_col_full_alv changing
查看完整代码 
CALL METHOD zcl_rep_comm_line_col=>convert_line_to_col_full_alv changing
ABAP SAP工具箱ALV行表转列表的数据回写 
CALL METHOD zcl_rep_comm_line_col=>convert_line_to_col_full_alv changing
查看完整代码 
CALL METHOD zcl_rep_comm_line_col=>convert_line_to_col_full_alv changing
ABAP SAP工具箱MR22自定义BAPI 
FORM matval_debit_credit中 调用本地类方法产生凭证
查看完整代码 
FORM matval_debit_credit中 调用本地类方法产生凭证
ABAP SAP工具箱动态调用物料修改的BAPI函数 
CALL METHOD zcl_material_bapi=>common_mm01( CHANGING ct_data = lt_data ).
查看完整代码 
CALL METHOD zcl_material_bapi=>common_mm01( CHANGING ct_data = lt_data ).
ABAP SAP工具箱动态选择屏幕添加变式功能 
EXPORT lv_varid = gv_varid TO MEMORY ID 'ZVARID'.
查看完整代码 
EXPORT lv_varid = gv_varid TO MEMORY ID 'ZVARID'.
ABAP SAP工具箱增强限制BWEXCEL用户登陆行为 
DATA: session_list TYPE ssi_session_list,
查看完整代码 
DATA: session_list TYPE ssi_session_list,
ABAP SAP工具箱增强限制BWEXCEL用户登陆行为 
IF is_system_client = 'X'.
查看完整代码 
IF is_system_client = 'X'.
ABAP SAP工具箱增强限制BWEXCEL用户登陆行为 
ENDIF.
查看完整代码 
ENDIF.
ABAP SAP工具箱数据同步平台十调用传递选择条件 
PARAMETERS: p_subrc TYPE i.      "几种数据过滤条件PARAMETERS: p_log AS CHECKBOX  .
查看完整代码 
PARAMETERS: p_subrc TYPE i.      "几种数据过滤条件PARAMETERS: p_log AS CHECKBOX  .
ABAP SAP工具箱数据同步平台十调用传递选择条件
查看代码
"指定需要调用的接口编号  lv_jiekno = 'SYN001'. "示例接口编号  "设置保存数据的ID,确保用户名同最终数据同步平台执行的用户名一致(后台调度)  lv_id = lv_jiekno && sy-uname && '_TEMP'.  "构造选择条件:选择字段来自接口的主表中的字段  CASE p_subrc.    WHEN 0.      "单个字段,多个条件      lt_tab = VALUE #(         ( logop = 'OR' arity = 2 )         ( logop = '' arity = 0 fieldname = 'EXSYS' option = 'EQ' low = 'A01' high = '' )         ( logop = '' 
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
"指定需要调用的接口编号  lv_jiekno = 'SYN001'. "示例接口编号  "设置保存数据的ID,确保用户名同最终数据同步平台执行的用户名一致(后台调度)  lv_id = lv_jiekno && sy-uname && '_TEMP'.  "构造选择条件:选择字段来自接口的主表中的字段  CASE p_subrc.    WHEN 0.      "单个字段,多个条件      lt_tab = VALUE #(         ( logop = 'OR' arity = 2 )         ( logop = '' arity = 0 fieldname = 'EXSYS' option = 'EQ' low = 'A01' high = '' )         ( logop = '' 
/* ... 已截断，完整代码请查看原文 */
ABAP SAP工具箱比较两个内表内容
查看代码
DATA: gc_comp TYPE REF TO zcl_itab_compare.TYPES:  BEGIN OF ty_key,"传递的关键字    fieldname(30),    zsort(3)      TYPE n,  "关键字顺序
END OF ty_key .DATA: gt_key TYPE HASHED TABLE OF ty_key WITH UNIQUE KEY fieldname.
DATA: BEGIN OF gs_a,        vbeln TYPE vbak-vbeln,        auart TYPE vbak-auart,        vkorg TYPE vbak-vkorg,        kunnr TYPE vbak-kunnr,      END OF gs_a.DATA: gt_a LIKE TABLE OF gs_a.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA: gc_comp TYPE REF TO zcl_itab_compare.TYPES:  BEGIN OF ty_key,"传递的关键字    fieldname(30),    zsort(3)      TYPE n,  "关键字顺序
END OF ty_key .DATA: gt_key TYPE HASHED TABLE OF ty_key WITH UNIQUE KEY fieldname.
DATA: BEGIN OF gs_a,        vbeln TYPE vbak-vbeln,        auart TYPE vbak-auart,        vkorg TYPE vbak-vkorg,        kunnr TYPE vbak-kunnr,      END OF gs_a.DATA: gt_a LIKE TABLE OF gs_a.
/* ... 已截断，完整代码请查看原文 */
ABAP SAP工具箱比较两个内表内容
查看代码
PERFORM frm_comp_data.*&---------------------------------------------------------------------**& Form frm_fill_data*&---------------------------------------------------------------------**& text*&---------------------------------------------------------------------**& -->  p1        text*& <--  p2        text*&---------------------------------------------------------------------*FORM frm_fill_data .  gt_key = VALUE #( ( fieldname = 'VBELN' ) 
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
PERFORM frm_comp_data.*&---------------------------------------------------------------------**& Form frm_fill_data*&---------------------------------------------------------------------**& text*&---------------------------------------------------------------------**& -->  p1        text*& <--  p2        text*&---------------------------------------------------------------------*FORM frm_fill_data .  gt_key = VALUE #( ( fieldname = 'VBELN' ) 
/* ... 已截断，完整代码请查看原文 */
ABAP SAP工具箱行表转列表的通用类
查看代码
*&---------------------------------------------------------------------**& Report ZTS_COL_TO_LINE_N*&---------------------------------------------------------------------**&*&---------------------------------------------------------------------*REPORT zts_col_to_line_n.*调用类方法行表专列表DATA: lt_fcat TYPE lvc_t_fcat,      lt_fd   TYPE zsline_to_col_fields_tab.DATA: lt_line_n LIKE TABLE OF zsline_to_col_demo.lt_line_n = VALUE #(( name = '张三' cat = '电视' nf = 
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
*&---------------------------------------------------------------------**& Report ZTS_COL_TO_LINE_N*&---------------------------------------------------------------------**&*&---------------------------------------------------------------------*REPORT zts_col_to_line_n.*调用类方法行表专列表DATA: lt_fcat TYPE lvc_t_fcat,      lt_fd   TYPE zsline_to_col_fields_tab.DATA: lt_line_n LIKE TABLE OF zsline_to_col_demo.lt_line_n = VALUE #(( name = '张三' cat = '电视' nf = 
/* ... 已截断，完整代码请查看原文 */
ABAP SAP工具箱行转列优化单元格颜色及可编辑状态
查看代码
DATA: gt_fcat TYPE lvc_t_fcat,      gt_fd   TYPE zsline_to_col_fields_tab.DATA: gt_line_n TYPE TABLE OF zsline_to_col_demo_edit_col.
DATA: gt_fcat_x TYPE lvc_t_fcat.DATA: grt_data_x TYPE REF TO data.DATA: grt_data_xl  TYPE REF TO data,      grw_data_key TYPE REF TO data.DATA: gt_rel TYPE zsline_to_col_rel_tab.DATA: gt_fd_rel TYPE zsline_to_col_field_rel_tab.FIELD-SYMBOLS: <gt_data_x>  TYPE STANDARD TABLE,               <gt_data_xl> TYPE HASHED TABLE,               <lw_key>
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA: gt_fcat TYPE lvc_t_fcat,      gt_fd   TYPE zsline_to_col_fields_tab.DATA: gt_line_n TYPE TABLE OF zsline_to_col_demo_edit_col.
DATA: gt_fcat_x TYPE lvc_t_fcat.DATA: grt_data_x TYPE REF TO data.DATA: grt_data_xl  TYPE REF TO data,      grw_data_key TYPE REF TO data.DATA: gt_rel TYPE zsline_to_col_rel_tab.DATA: gt_fd_rel TYPE zsline_to_col_field_rel_tab.FIELD-SYMBOLS: <gt_data_x>  TYPE STANDARD TABLE,               <gt_data_xl> TYPE HASHED TABLE,               <lw_key>
/* ... 已截断，完整代码请查看原文 */
ABAP SAP工具箱行转列优化单元格颜色及可编辑状态 
CLASS lcl_event_receiver IMPLEMENTATION.  METHOD handle_modify.    APPEND LINES OF et_good_cells TO gt_modi. "记录发生过修改的单元格.
ENDMETHOD.                    "HANDLE_MODIFYENDCLASS.                    "LCL_EVENT_RECEIVER IMPLEMENTATION
查看完整代码 
CLASS lcl_event_receiver IMPLEMENTATION.  METHOD handle_modify.    APPEND LINES OF et_good_cells TO gt_modi. "记录发生过修改的单元格.
ENDMETHOD.                    "HANDLE_MODIFYENDCLASS.                    "LCL_EVENT_RECEIVER IMPLEMENTATION
ABAP SAP工具箱行转列优化单元格颜色及可编辑状态
查看代码
*&---------------------------------------------------------------------**& Form FRM_ALV_DATA*&---------------------------------------------------------------------**& text*&---------------------------------------------------------------------**& -->  p1        text*& <--  p2        text*&---------------------------------------------------------------------*FORM frm_alv_data .  DATA: lv_repid LIKE sy-repid,        lv_title TYPE lvc_title.  DATA: ls_layo
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
*&---------------------------------------------------------------------**& Form FRM_ALV_DATA*&---------------------------------------------------------------------**& text*&---------------------------------------------------------------------**& -->  p1        text*& <--  p2        text*&---------------------------------------------------------------------*FORM frm_alv_data .  DATA: lv_repid LIKE sy-repid,        lv_title TYPE lvc_title.  DATA: ls_layo
/* ... 已截断，完整代码请查看原文 */
ABAP SAP工具箱行转列优化单元格颜色及可编辑状态 
ENDFORM.                    "frm_set_status
查看完整代码 
ENDFORM.                    "frm_set_status
ABAP SAP工具箱行转列优化单元格颜色及可编辑状态
查看代码
rs_selfield-refresh = 'X'.ENDFORM.                    "FRM_SET_USERCOMMAND*&---------------------------------------------------------------------**& Form FRM_SAVE*&---------------------------------------------------------------------**& text*&---------------------------------------------------------------------**& -->  p1        text*& <--  p2        text*&---------------------------------------------------------------------*FORM frm_sav
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
rs_selfield-refresh = 'X'.ENDFORM.                    "FRM_SET_USERCOMMAND*&---------------------------------------------------------------------**& Form FRM_SAVE*&---------------------------------------------------------------------**& text*&---------------------------------------------------------------------**& -->  p1        text*& <--  p2        text*&---------------------------------------------------------------------*FORM frm_sav
/* ... 已截断，完整代码请查看原文 */
ABAP SAP工具箱通用ALV行转列 
CALL METHOD zcl_rep_comm_line_col=>convert_line_to_col_full_alv( it_data =
查看完整代码 
CALL METHOD zcl_rep_comm_line_col=>convert_line_to_col_full_alv( it_data =
ABAP SAP工具箱通用修改程序二变更文档 
FORM CD_CALL_<变更文档ID>
查看完整代码 
FORM CD_CALL_<变更文档ID>
ABAP SAP工具箱通用条件加点率配置 
DATA(lv_jdl) = zcl_cond=>get_jdl( iv_jdlid = 'J0002' is_komk = komk is_komp =
查看完整代码 
DATA(lv_jdl) = zcl_cond=>get_jdl( iv_jdlid = 'J0002' is_komk = komk is_komp =
ABAP SAP操作外部数据库
查看代码
"--------------------@斌将军--------------------TYPES:BEGIN OF ty_data,        batch_name      TYPE zppt_ora_bg-batch_name, "BATCH_NAME        order_number    TYPE zppt_ora_bg-order_number, "ORDER_NUMBER        line_name       TYPE zppt_ora_bg-line_name, "LINE_NAME        recipe_number   TYPE zppt_ora_bg-recipe_number, "RECIPE_NUMBER        recipe_version  TYPE zppt_ora_bg-recipe_version, "RECIPE_VERSION        batch_number    TYPE zppt_ora_bg-batch_number, "
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
"--------------------@斌将军--------------------TYPES:BEGIN OF ty_data,        batch_name      TYPE zppt_ora_bg-batch_name, "BATCH_NAME        order_number    TYPE zppt_ora_bg-order_number, "ORDER_NUMBER        line_name       TYPE zppt_ora_bg-line_name, "LINE_NAME        recipe_number   TYPE zppt_ora_bg-recipe_number, "RECIPE_NUMBER        recipe_version  TYPE zppt_ora_bg-recipe_version, "RECIPE_VERSION        batch_number    TYPE zppt_ora_bg-batch_number, "
/* ... 已截断，完整代码请查看原文 */
ABAP SAP操作外部数据库 
"--------------------@斌将军--------------------        "查询数据        CLEAR:lv_plnum.        EXEC SQL.          Select            pori_order_number          into :lv_plnum          from customer.prod_orders_imp          where pori_line_name = :gs_alv-pori_line_name            and pori_order_number = :gs_alv-pori_order_number            and pori_recipe_code = :gs_alv-pori_recipe_code        ENDEXEC."--------------------@斌将军--------------------
查看完整代码 
"--------------------@斌将军--------------------        "查询数据        CLEAR:lv_plnum.        EXEC SQL.          Select            pori_order_number          into :lv_plnum          from customer.prod_orders_imp          where pori_line_name = :gs_alv-pori_line_name            and pori_order_number = :gs_alv-pori_order_number            and pori_recipe_code = :gs_alv-pori_recipe_code        ENDEXEC."--------------------@斌将军--------------------
ABAP SAP操作外部数据库
查看代码
"--------------------@斌将军--------------------FORM save_data.  DATA: lv_dbs         TYPE dbcon-con_name VALUE 'ZORA',        lv_pori_status TYPE char10,        lv_plnum       TYPE plaf-plnum.  TRY .      EXEC SQL.        connect to :lv_dbs      ENDEXEC.    CATCH  cx_sy_native_sql_error INTO DATA(g_obj_sqldb).      CALL METHOD g_obj_sqldb->get_text        RECEIVING          result = DATA(lv_error_text).      IF lv_error_text IS NOT INITIAL.        MESSAGE '数据库连接失败：
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
"--------------------@斌将军--------------------FORM save_data.  DATA: lv_dbs         TYPE dbcon-con_name VALUE 'ZORA',        lv_pori_status TYPE char10,        lv_plnum       TYPE plaf-plnum.  TRY .      EXEC SQL.        connect to :lv_dbs      ENDEXEC.    CATCH  cx_sy_native_sql_error INTO DATA(g_obj_sqldb).      CALL METHOD g_obj_sqldb->get_text        RECEIVING          result = DATA(lv_error_text).      IF lv_error_text IS NOT INITIAL.        MESSAGE '数据库连接失败：
/* ... 已截断，完整代码请查看原文 */
ABAP SAP操作外部数据库
查看代码
"--------------------@斌将军--------------------"更新数据EXEC SQL.  UPDATE customer.prod_orders_imp  SET pori_recipe_version = :gs_alv-pori_recipe_version,      pori_batch_quantity_set = :gs_alv-pori_batch_quantity_set  WHERE pori_line_name = :gs_alv-pori_line_name    AND pori_order_number = :gs_alv-pori_line_name    AND pori_recipe_code = :gs_alv-pori_recipe_codeENDEXEC......."提交或回滚IF lv_error_text IS NOT INITIAL.  EXEC SQL.    rollback  ENDEXEC.ELSE.  EXEC SQL.    commit  ENDEXEC
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
"--------------------@斌将军--------------------"更新数据EXEC SQL.  UPDATE customer.prod_orders_imp  SET pori_recipe_version = :gs_alv-pori_recipe_version,      pori_batch_quantity_set = :gs_alv-pori_batch_quantity_set  WHERE pori_line_name = :gs_alv-pori_line_name    AND pori_order_number = :gs_alv-pori_line_name    AND pori_recipe_code = :gs_alv-pori_recipe_codeENDEXEC......."提交或回滚IF lv_error_text IS NOT INITIAL.  EXEC SQL.    rollback  ENDEXEC.ELSE.  EXEC SQL.    commit  ENDEXEC
/* ... 已截断，完整代码请查看原文 */
ABAP SAP操作外部数据库
查看代码
"--------------------@斌将军--------------------"删除数据EXEC SQL.  DELETE FROM customer.prod_orders_imp WHERE pori_line_name = :gs_alv-pori_line_name                                         AND pori_order_number = :gs_alv-pori_order_number                                         AND pori_recipe_code = :gs_alv-pori_recipe_codeENDEXEC......."提交或回滚IF lv_error_text IS NOT INITIAL.  EXEC SQL.    rollback  ENDEXEC.ELSE.  EXEC SQL.    commit  ENDEXEC.ENDIF."--------------------@斌将军-
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
"--------------------@斌将军--------------------"删除数据EXEC SQL.  DELETE FROM customer.prod_orders_imp WHERE pori_line_name = :gs_alv-pori_line_name                                         AND pori_order_number = :gs_alv-pori_order_number                                         AND pori_recipe_code = :gs_alv-pori_recipe_codeENDEXEC......."提交或回滚IF lv_error_text IS NOT INITIAL.  EXEC SQL.    rollback  ENDEXEC.ELSE.  EXEC SQL.    commit  ENDEXEC.ENDIF."--------------------@斌将军-
/* ... 已截断，完整代码请查看原文 */
ABAP SAP操作手册之ABAP调用WEB服务 
TABLES: kna1.PARAMETERS: p_kunnr LIKE kna1-kunnr DEFAULT '1000098',            p_vkorg LIKE knvv-vkorg default '6121'.
查看完整代码 
TABLES: kna1.PARAMETERS: p_kunnr LIKE kna1-kunnr DEFAULT '1000098',            p_vkorg LIKE knvv-vkorg default '6121'.
ABAP SAP操作手册之ABAP调用WEB服务
查看代码
TRY.      CREATE OBJECT lc_web        EXPORTING          logical_port_name = 'ZTS_PORT'.                 "为此WebService创建的逻辑端口。    CATCH cx_ai_system_fault .      MESSAGE '出错了' TYPE 'E'.  ENDTRY.*传递传入参数  ls_input-is_stru-kunnr = p_kunnr.  ls_input-is_stru-vkorg = p_vkorg.  TRY.      CALL METHOD lc_web->z_if_sd216        EXPORTING          input  = ls_input        IMPORTING          output = ls_output.    CATCH cx_ai_system_fault INTO lo_sys_exception . 
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
TRY.      CREATE OBJECT lc_web        EXPORTING          logical_port_name = 'ZTS_PORT'.                 "为此WebService创建的逻辑端口。    CATCH cx_ai_system_fault .      MESSAGE '出错了' TYPE 'E'.  ENDTRY.*传递传入参数  ls_input-is_stru-kunnr = p_kunnr.  ls_input-is_stru-vkorg = p_vkorg.  TRY.      CALL METHOD lc_web->z_if_sd216        EXPORTING          input  = ls_input        IMPORTING          output = ls_output.    CATCH cx_ai_system_fault INTO lo_sys_exception . 
/* ... 已截断，完整代码请查看原文 */
ABAP SAP操作手册之LT数据同步配置 
SELECT COUNT( * ) FROM "SAPS4H"."DD02T"
查看完整代码 
SELECT COUNT( * ) FROM "SAPS4H"."DD02T"
ABAP SAP操作手册之LT数据同步配置 
SELECT * FROM "SAPS4H"."T001"
查看完整代码 
SELECT * FROM "SAPS4H"."T001"
ABAP SAP操作手册之通过BSP应用程序调用JS代码 
lv_url  =  'http://'  && lv_url_p1 &&
查看完整代码 
lv_url  =  'http://'  && lv_url_p1 &&
ABAP SAP操作手册之通过BSP应用程序调用JS代码 
&& '&matnr='  && lv_matnr  .
查看完整代码 
&& '&matnr='  && lv_matnr  .
ABAP SAP浅谈Rest接口应用发布篇 
lv_method_name = server->request->get_method( ).
查看完整代码 
lv_method_name = server->request->get_method( ).
ABAP SAP浅谈Rest接口应用发布篇 
lv_data = server->request->if_http_entity~get_cdata( ).
查看完整代码 
lv_data = server->request->if_http_entity~get_cdata( ).
ABAP SAP浅谈Rest接口应用发布篇 
CALL METHOD /ui2/cl_json=>deserialize
查看完整代码 
CALL METHOD /ui2/cl_json=>deserialize
ABAP SAP浅谈Rest接口应用发布篇 
json = lv_data "server->request->if_http_entity~get_cdata( )" lv_data
查看完整代码 
json = lv_data "server->request->if_http_entity~get_cdata( )" lv_data
ABAP SAP浅谈Rest接口应用发布篇 
data = ls_head. "拿到HEAD信息判断接口类型
查看完整代码 
data = ls_head. "拿到HEAD信息判断接口类型
ABAP SAP浅谈Rest接口应用发布篇 
CALL METHOD server->response->set_cdata
查看完整代码 
CALL METHOD server->response->set_cdata
ABAP SAP浅谈Rest接口应用发布篇 
data = lv_data_out
查看完整代码 
data = lv_data_out
ABAP SAP浅谈Rest接口应用发布篇 
length = lv_len.
查看完整代码 
length = lv_len.
ABAP SAP浅谈Rest接口应用发布篇 
CALL METHOD server->response->set_header_field
查看完整代码 
CALL METHOD server->response->set_header_field
ABAP SAP浅谈Rest接口应用接收篇 
CALL METHOD CL_HTTP_CLIENT=>CREATE_BY_URL
查看完整代码 
CALL METHOD CL_HTTP_CLIENT=>CREATE_BY_URL
ABAP SAP浅谈Rest接口应用接收篇 
IF SY-SUBRC <> 0\.
查看完整代码 
IF SY-SUBRC <> 0\.
ABAP SAP浅谈Rest接口应用接收篇 
ENDIF.
查看完整代码 
ENDIF.
ABAP SAP浅谈Rest接口应用接收篇 
CALL METHOD /UI2/CL_JSON=>DESERIALIZE
查看完整代码 
CALL METHOD /UI2/CL_JSON=>DESERIALIZE
ABAP SAP浅谈Rest接口应用接收篇 
CALL METHOD LO_HTTP_CLIENT->REQUEST->SET_CDATA
查看完整代码 
CALL METHOD LO_HTTP_CLIENT->REQUEST->SET_CDATA
ABAP SAP编号范围NumberRange的缓冲
查看代码
TABLES: noselect.DATA: gt_fldct TYPE lvc_t_fcat,      gs_slayt TYPE lvc_s_layo,      gt_event TYPE lvc_t_evts,      gs_event TYPE lvc_s_evts,      gv_repid TYPE sy-repid.DATA: gr_grid TYPE REF TO cl_gui_alv_grid.DATA: BEGIN OF gs_memo.        INCLUDE TYPE bnriv2.DATA:   iname TYPE msxxlist_v6-name,        seled TYPE c,      END OF gs_memo.DATA: gt_memo LIKE TABLE OF gs_memo.DATA: BEGIN OF gs_para.        INCLUDE TYPE nrivshadow.DATA:   seled TYPE c,      END OF gs_para.DATA: gt_para LIKE T
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
TABLES: noselect.DATA: gt_fldct TYPE lvc_t_fcat,      gs_slayt TYPE lvc_s_layo,      gt_event TYPE lvc_t_evts,      gs_event TYPE lvc_s_evts,      gv_repid TYPE sy-repid.DATA: gr_grid TYPE REF TO cl_gui_alv_grid.DATA: BEGIN OF gs_memo.        INCLUDE TYPE bnriv2.DATA:   iname TYPE msxxlist_v6-name,        seled TYPE c,      END OF gs_memo.DATA: gt_memo LIKE TABLE OF gs_memo.DATA: BEGIN OF gs_para.        INCLUDE TYPE nrivshadow.DATA:   seled TYPE c,      END OF gs_para.DATA: gt_para LIKE T
/* ... 已截断，完整代码请查看原文 */
ABAP SAP编号范围NumberRange的缓冲
查看代码
METHOD handle_toolbar.    PERFORM add_button USING e_object                      : '3' '' '' '',                        ' ' 'REFRESH' icon_refresh ' 刷新',                        '3' '' '' '',                        ' ' 'RESET  ' '' '重置'.  ENDMETHOD.                    "handle_toolbarENDCLASS.                    "lcl_event_receiver900
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
METHOD handle_toolbar.    PERFORM add_button USING e_object                      : '3' '' '' '',                        ' ' 'REFRESH' icon_refresh ' 刷新',                        '3' '' '' '',                        ' ' 'RESET  ' '' '重置'.  ENDMETHOD.                    "handle_toolbarENDCLASS.                    "lcl_event_receiver900
/* ... 已截断，完整代码请查看原文 */
ABAP SAP编号范围NumberRange的缓冲
查看代码
DATA: lt_data TYPE TABLE OF bnriv2 WITH HEADER LINE.  CLEAR: gt_memo,gs_memo,gs_para,gt_para.
CASE 'X'.    WHEN pr_memo.      LOOP AT s_server.        CLEAR lt_data[].        CALL FUNCTION 'SAPTUNE_NUMBUF_CONTENTS' DESTINATION s_server-low          TABLES            contents              = lt_data          EXCEPTIONS            system_failure        = 1  MESSAGE gv_rtmsg            communication_failure = 2  MESSAGE gv_rtmsg            OTHERS                = 4.        
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA: lt_data TYPE TABLE OF bnriv2 WITH HEADER LINE.  CLEAR: gt_memo,gs_memo,gs_para,gt_para.
CASE 'X'.    WHEN pr_memo.      LOOP AT s_server.        CLEAR lt_data[].        CALL FUNCTION 'SAPTUNE_NUMBUF_CONTENTS' DESTINATION s_server-low          TABLES            contents              = lt_data          EXCEPTIONS            system_failure        = 1  MESSAGE gv_rtmsg            communication_failure = 2  MESSAGE gv_rtmsg            OTHERS                = 4.        
/* ... 已截断，完整代码请查看原文 */
ABAP SAP编号范围NumberRange的缓冲
查看代码
IF pr_memo = 'X'.    PERFORM catset1 TABLES gt_fldct                    USING: 'INAME     ' '      ' '          ' '实例',                           'CLIENT    ' 'BNRIV2' 'CLIENT    ' 'CLIENT',                           'OBJECT    ' 'BNRIV2' 'OBJECT    ' '',                           'SUBOBJECT ' 'BNRIV2' 'SUBOBJECT ' '',    
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
IF pr_memo = 'X'.    PERFORM catset1 TABLES gt_fldct                    USING: 'INAME     ' '      ' '          ' '实例',                           'CLIENT    ' 'BNRIV2' 'CLIENT    ' 'CLIENT',                           'OBJECT    ' 'BNRIV2' 'OBJECT    ' '',                           'SUBOBJECT ' 'BNRIV2' 'SUBOBJECT ' '',    
/* ... 已截断，完整代码请查看原文 */
ABAP SAP请求传输完自动发送邮件
查看代码
METHOD if_ex_cts_import_feedback~feedback_after_import.  DATA lv_guid TYPE guid_22.  DATA ls_reqt TYPE scts_imp.  DATA ls_save TYPE zcts01.  DATA lt_save TYPE TABLE OF zcts01.
CALL FUNCTION 'GUID_CREATE'    IMPORTING      ev_guid_22 = lv_guid.
LOOP AT requests INTO ls_reqt.    MOVE-CORRESPONDING ls_reqt TO ls_save.    ls_save-trguid = lv_guid.    ls_save-erdat = sy-datum.    ls_save-erzet = sy-uzeit.    ls_save-ernam = sy-uname.    APPEND ls_save TO lt_save.  ENDLOOP.  MODIFY zct
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
METHOD if_ex_cts_import_feedback~feedback_after_import.  DATA lv_guid TYPE guid_22.  DATA ls_reqt TYPE scts_imp.  DATA ls_save TYPE zcts01.  DATA lt_save TYPE TABLE OF zcts01.
CALL FUNCTION 'GUID_CREATE'    IMPORTING      ev_guid_22 = lv_guid.
LOOP AT requests INTO ls_reqt.    MOVE-CORRESPONDING ls_reqt TO ls_save.    ls_save-trguid = lv_guid.    ls_save-erdat = sy-datum.    ls_save-erzet = sy-uzeit.    ls_save-ernam = sy-uname.    APPEND ls_save TO lt_save.  ENDLOOP.  MODIFY zct
/* ... 已截断，完整代码请查看原文 */
ABAP SAP请求传输完自动发送邮件
查看代码
SELECT zcts01~trkorr         e07t~as4text         zcts01~tarclient         e070~as4user AS owner "zcts01~owner中文乱码         zcts01~retcode    INTO CORRESPONDING FIELDS OF TABLE gt_trlog    FROM zcts01 INNER JOIN e070 ON e070~trkorr = zcts01~trkorr                LEFT  JOIN e07t ON e07t~trkorr = zcts01~trkorr AND                                   e07t~langu  = sy-langu    WHERE zcts01~trguid = gv_eparm.  IF gt_trlog[] IS INITIAL.    MESSAGE s000(oo) WITH '未获取ZCTS01表数据'.    LEA
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
SELECT zcts01~trkorr         e07t~as4text         zcts01~tarclient         e070~as4user AS owner "zcts01~owner中文乱码         zcts01~retcode    INTO CORRESPONDING FIELDS OF TABLE gt_trlog    FROM zcts01 INNER JOIN e070 ON e070~trkorr = zcts01~trkorr                LEFT  JOIN e07t ON e07t~trkorr = zcts01~trkorr AND                                   e07t~langu  = sy-langu    WHERE zcts01~trguid = gv_eparm.  IF gt_trlog[] IS INITIAL.    MESSAGE s000(oo) WITH '未获取ZCTS01表数据'.    LEA
/* ... 已截断，完整代码请查看原文 */
ABAP SAP请求传输完自动发送邮件
查看代码
LOOP AT gt_trlog.    lt_owner = gt_trlog-owner.    COLLECT lt_owner.  ENDLOOP.
LOOP AT lt_owner.    MESSAGE s000(oo) WITH '账号:' lt_owner.    CLEAR: lt_trlog[],lt_body[].    LOOP AT gt_trlog WHERE owner = lt_owner.      MOVE-CORRESPONDING gt_trlog TO lt_trlog.      IF lt_trlog-retcode < 4.        lt_trlog-result = '成功'.      ELSEIF lt_trlog-retcode < 8.        lt_trlog-result = '警告'.      ELSE.        lt_trlog-result = '错误'.      ENDIF.      APP
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
LOOP AT gt_trlog.    lt_owner = gt_trlog-owner.    COLLECT lt_owner.  ENDLOOP.
LOOP AT lt_owner.    MESSAGE s000(oo) WITH '账号:' lt_owner.    CLEAR: lt_trlog[],lt_body[].    LOOP AT gt_trlog WHERE owner = lt_owner.      MOVE-CORRESPONDING gt_trlog TO lt_trlog.      IF lt_trlog-retcode < 4.        lt_trlog-result = '成功'.      ELSEIF lt_trlog-retcode < 8.        lt_trlog-result = '警告'.      ELSE.        lt_trlog-result = '错误'.      ENDIF.      APP
/* ... 已截断，完整代码请查看原文 */
ABAP SAP请求传输完自动发送邮件
查看代码
str = lines( t_intab ).  CONDENSE str.  CONCATENATE '[' str '条]' pv_text INTO str.  CALL FUNCTION 'SCMS_STRING_TO_FTEXT'    EXPORTING      text      = str    TABLES      ftext_tab = lt_conts.
APPEND:    `<style type="text/css">.solid{BORDER-TOP: 1px solid;` TO lt_conts,    `BORDER-RIGHT:1px solid;BORDER-BOTTOM: 1px solid;    ` TO lt_conts,    `BORDER-LEFT: 1px solid}</style><table border=1      ` TO lt_conts,    `cellpadding=2 style=&#
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
str = lines( t_intab ).  CONDENSE str.  CONCATENATE '[' str '条]' pv_text INTO str.  CALL FUNCTION 'SCMS_STRING_TO_FTEXT'    EXPORTING      text      = str    TABLES      ftext_tab = lt_conts.
APPEND:    `<style type="text/css">.solid{BORDER-TOP: 1px solid;` TO lt_conts,    `BORDER-RIGHT:1px solid;BORDER-BOTTOM: 1px solid;    ` TO lt_conts,    `BORDER-LEFT: 1px solid}</style><table border=1      ` TO lt_conts,    `cellpadding=2 style=&#
/* ... 已截断，完整代码请查看原文 */
ABAP SAP连接地磅系统取数 
REPORT ztest2.
查看完整代码 
REPORT ztest2.
ABAP SAP连接地磅系统取数 
DATA: o_obj TYPE ole2_object.
查看完整代码 
DATA: o_obj TYPE ole2_object.
ABAP SAP连接地磅系统取数 
CREATE OBJECT o_obj 'MSCOMMLib.MSComm.1'.IF sy-subrc <> 0.MESSAGE '创建组件失败' TYPE 'E'.ENDIF.
查看完整代码 
CREATE OBJECT o_obj 'MSCOMMLib.MSComm.1'.IF sy-subrc <> 0.MESSAGE '创建组件失败' TYPE 'E'.ENDIF.
ABAP SAP连接地磅系统取数 
*读取数据DATA: wa_buffer TYPE i,inde      TYPE i.DO 70 TIMES.inde = inde + 1.GET PROPERTY OF o_obj 'InBufferCount' = wa_buffer.IF wa_buffer > 0.GET PROPERTY OF o_obj 'Input' = e_output.IF inde < 20."不读取前20条历史记录ELSE.CONCATENATE balance e_output INTO balance.ENDIF.ELSE.EXIT.ENDIF.ENDDO.CLEAR:wa_buffer,inde.
查看完整代码 
*读取数据DATA: wa_buffer TYPE i,inde      TYPE i.DO 70 TIMES.inde = inde + 1.GET PROPERTY OF o_obj 'InBufferCount' = wa_buffer.IF wa_buffer > 0.GET PROPERTY OF o_obj 'Input' = e_output.IF inde < 20."不读取前20条历史记录ELSE.CONCATENATE balance e_output INTO balance.ENDIF.ELSE.EXIT.ENDIF.ENDDO.CLEAR:wa_buffer,inde.
ABAP SAP邮件发送配置及开发
查看代码
*&---------------------------------------------------------------------**& Report YTEST008*&---------------------------------------------------------------------**&*&---------------------------------------------------------------------*REPORT ytest008.DATA:ls_document_data TYPE sodocchgi1, "邮件属性     lt_packing_list  TYPE TABLE OF sopcklsti1,     ls_packing_list  TYPE sopcklsti1,     lt_contents_bin  TYPE TABLE OF solisti1,     lt_contents_txt  TYPE TABLE OF solisti
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
*&---------------------------------------------------------------------**& Report YTEST008*&---------------------------------------------------------------------**&*&---------------------------------------------------------------------*REPORT ytest008.DATA:ls_document_data TYPE sodocchgi1, "邮件属性     lt_packing_list  TYPE TABLE OF sopcklsti1,     ls_packing_list  TYPE sopcklsti1,     lt_contents_bin  TYPE TABLE OF solisti1,     lt_contents_txt  TYPE TABLE OF solisti
/* ... 已截断，完整代码请查看原文 */
ABAP SD信用模拟检查增强
查看代码
"-----------------------------------------@斌将军--------------------------------------------CALL FUNCTION 'BAPI_OUTB_DELIVERY_CREATE_SLS'      EXPORTING        ship_point        = lv_ship_point        due_date          = lv_due_date*       DEBUG_FLG         = ''*       NO_DEQUEUE        = ' '      IMPORTING        delivery          = lv_delivery*       NUM_DELIVERIES    =      TABLES        sales_order_items = lt_sales*       SERIAL_NUMBERS    =*       EXTE
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
"-----------------------------------------@斌将军--------------------------------------------CALL FUNCTION 'BAPI_OUTB_DELIVERY_CREATE_SLS'      EXPORTING        ship_point        = lv_ship_point        due_date          = lv_due_date*       DEBUG_FLG         = ''*       NO_DEQUEUE        = ' '      IMPORTING        delivery          = lv_delivery*       NUM_DELIVERIES    =      TABLES        sales_order_items = lt_sales*       SERIAL_NUMBERS    =*       EXTE
/* ... 已截断，完整代码请查看原文 */
ABAP SD凭证流显示自定义单据发票输出凭证
查看代码
DATA:ls_borident1 TYPE borident. DATA:ls_borident2 TYPE borident.
ls_borident1-objtype = 'ZFL'.  "会计凭证号+公司代码+年  ls_borident1-objkey = |{ lv_belnr }{ lv_bukrs }{ lv_gjahr }|.
ls_borident2-objtype = 'VBRK'.  "系统发票编码  ls_borident2-objkey = |{ lv_vbeln }|.  CALL FUNCTION 'BINARY_RELATION_CREATE'    EXPORTING      obj_rolea      = ls_borident1      obj_roleb      = ls_borident2      relationtype   = 'VORL'*     FIRE_EVENTS    = 'X'*   
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA:ls_borident1 TYPE borident. DATA:ls_borident2 TYPE borident.
ls_borident1-objtype = 'ZFL'.  "会计凭证号+公司代码+年  ls_borident1-objkey = |{ lv_belnr }{ lv_bukrs }{ lv_gjahr }|.
ls_borident2-objtype = 'VBRK'.  "系统发票编码  ls_borident2-objkey = |{ lv_vbeln }|.  CALL FUNCTION 'BINARY_RELATION_CREATE'    EXPORTING      obj_rolea      = ls_borident1      obj_roleb      = ls_borident2      relationtype   = 'VORL'*     FIRE_EVENTS    = 'X'*   
/* ... 已截断，完整代码请查看原文 */
ABAP SD外向交货单
查看代码
DATA:lv_ship_point     TYPE  bapidlvcreateheader-ship_point, "装运点     lv_due_date       TYPE  bapidlvcreateheader-due_date, "创建日期     lv_delivery       TYPE  bapishpdelivnumb-deliv_numb,     lv_num_deliveries TYPE  bapidlvcreateheader-num_deliveries.
DATA:lt_sales_order_items    TYPE TABLE OF    bapidlvreftosalesorder,     ls_sales_order_items TYPE bapidlvreftosalesorder,     lt_serial_numbers    TYPE TABLE OF  bapidlvserialnumber,     ls_serial_numbers    TYPE bapidlvserialnumbe
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA:lv_ship_point     TYPE  bapidlvcreateheader-ship_point, "装运点     lv_due_date       TYPE  bapidlvcreateheader-due_date, "创建日期     lv_delivery       TYPE  bapishpdelivnumb-deliv_numb,     lv_num_deliveries TYPE  bapidlvcreateheader-num_deliveries.
DATA:lt_sales_order_items    TYPE TABLE OF    bapidlvreftosalesorder,     ls_sales_order_items TYPE bapidlvreftosalesorder,     lt_serial_numbers    TYPE TABLE OF  bapidlvserialnumber,     ls_serial_numbers    TYPE bapidlvserialnumbe
/* ... 已截断，完整代码请查看原文 */
ABAP SD外向交货单 
DATA:lv_check   TYPE char1,     lv_message TYPE char255.
查看完整代码 
DATA:lv_check   TYPE char1,     lv_message TYPE char255.
ABAP SD外向交货单
查看代码
lv_ship_point = '1011'."装运点lv_due_date = '20240506'."创建日期
"参照销售订单创建CLEAR:ls_sales_order_items.ls_sales_order_items-ref_doc = '0000001399'."参考凭证 销售订单ls_sales_order_items-ref_item = '20'."参考项  销售订单行ls_sales_order_items-dlv_qty = '1'."实际已交货量（按销售单位）ls_sales_order_items-sales_unit = 'EA'."销售单位APPEND ls_sales_order_items TO lt_sales_order_items.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
lv_ship_point = '1011'."装运点lv_due_date = '20240506'."创建日期
"参照销售订单创建CLEAR:ls_sales_order_items.ls_sales_order_items-ref_doc = '0000001399'."参考凭证 销售订单ls_sales_order_items-ref_item = '20'."参考项  销售订单行ls_sales_order_items-dlv_qty = '1'."实际已交货量（按销售单位）ls_sales_order_items-sales_unit = 'EA'."销售单位APPEND ls_sales_order_items TO lt_sales_order_items.
/* ... 已截断，完整代码请查看原文 */
ABAP SE14功能解析及数据恢复
查看代码
TABLES:dd02l,dd03l.SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE btxt1.  PARAMETERS: p_find RADIOBUTTON GROUP g1 USER-COMMAND uc DEFAULT 'X',              p_view RADIOBUTTON GROUP g1,              p_back RADIOBUTTON GROUP g1,              p_copy RADIOBUTTON GROUP g1,              p_drop RADIOBUTTON GROUP g1,              p_updt RADIOBUTTON GROUP g1.SELECTION-SCREEN END OF BLOCK b1.SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE btxt2.  PARAMETERS: p_index TYPE char20 MO
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
TABLES:dd02l,dd03l.SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE btxt1.  PARAMETERS: p_find RADIOBUTTON GROUP g1 USER-COMMAND uc DEFAULT 'X',              p_view RADIOBUTTON GROUP g1,              p_back RADIOBUTTON GROUP g1,              p_copy RADIOBUTTON GROUP g1,              p_drop RADIOBUTTON GROUP g1,              p_updt RADIOBUTTON GROUP g1.SELECTION-SCREEN END OF BLOCK b1.SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE btxt2.  PARAMETERS: p_index TYPE char20 MO
/* ... 已截断，完整代码请查看原文 */
ABAP SE78图片批量管理
查看代码
TABLES: stxbitmaps,bdsphio3.DATA: gv_line TYPE i,      gv_text TYPE char50.DATA: BEGIN OF gt_upld OCCURS 0,        name TYPE stxbitmaps-tdname,        file TYPE rlgrap-filename,        desc TYPE bapisignat-prop_value,      END OF gt_upld.DATA: gt_maps TYPE TABLE OF stxbitmaps WITH HEADER LINE.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE btxt1.PARAMETERS: p_upld RADIOBUTTON GROUP typ USER-COMMAND sele DEFAULT 'X',            p_down RADIOBUTTON GROUP typ,            p_dele 
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
TABLES: stxbitmaps,bdsphio3.DATA: gv_line TYPE i,      gv_text TYPE char50.DATA: BEGIN OF gt_upld OCCURS 0,        name TYPE stxbitmaps-tdname,        file TYPE rlgrap-filename,        desc TYPE bapisignat-prop_value,      END OF gt_upld.DATA: gt_maps TYPE TABLE OF stxbitmaps WITH HEADER LINE.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE btxt1.PARAMETERS: p_upld RADIOBUTTON GROUP typ USER-COMMAND sele DEFAULT 'X',            p_down RADIOBUTTON GROUP typ,            p_dele 
/* ... 已截断，完整代码请查看原文 */
ABAP SE78图片批量管理 
LOOP AT SCREEN.    IF p_upld = 'X'.      IF screen-group1 CA 'B'.        screen-active = '0'.      ENDIF.    ELSE.      IF screen-group1 CA 'A'.        screen-active = '0'.      ENDIF.    ENDIF.    MODIFY SCREEN.  ENDLOOP.
查看完整代码 
LOOP AT SCREEN.    IF p_upld = 'X'.      IF screen-group1 CA 'B'.        screen-active = '0'.      ENDIF.    ELSE.      IF screen-group1 CA 'A'.        screen-active = '0'.      ENDIF.    ENDIF.    MODIFY SCREEN.  ENDLOOP.
ABAP SE78图片批量管理
查看代码
CALL METHOD cl_gui_frontend_services=>file_open_dialog    EXPORTING      window_title            = '请选择导入文件'      default_filename        = '*.txt'      multiselection          = ''    CHANGING      file_table              = lt_files      rc                      = lv_rcode    EXCEPTIONS      file_open_dialog_failed = 1      cntl_error              = 2      error_no_gui            = 3      not_supported_by_gui    = 4      OTHERS                  = 5.  IF sy-
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
CALL METHOD cl_gui_frontend_services=>file_open_dialog    EXPORTING      window_title            = '请选择导入文件'      default_filename        = '*.txt'      multiselection          = ''    CHANGING      file_table              = lt_files      rc                      = lv_rcode    EXCEPTIONS      file_open_dialog_failed = 1      cntl_error              = 2      error_no_gui            = 3      not_supported_by_gui    = 4      OTHERS                  = 5.  IF sy-
/* ... 已截断，完整代码请查看原文 */
ABAP SE78图片批量管理 
lv_exnam = gt_upld-file.    WHILE lv_exnam CA '.'.      SHIFT lv_exnam.    ENDWHILE.    TRANSLATE lv_exnam TO UPPER CASE.
查看完整代码 
lv_exnam = gt_upld-file.    WHILE lv_exnam CA '.'.      SHIFT lv_exnam.    ENDWHILE.    TRANSLATE lv_exnam TO UPPER CASE.
ABAP SE78图片批量管理 
CALL METHOD cl_gui_frontend_services=>directory_browse    EXPORTING      window_title         = '下载到目录:'    CHANGING      selected_folder      = lv_path    EXCEPTIONS      cntl_error           = 1      error_no_gui         = 2      not_supported_by_gui = 3      OTHERS               = 4.  CHECK sy-subrc = 0.
查看完整代码 
CALL METHOD cl_gui_frontend_services=>directory_browse    EXPORTING      window_title         = '下载到目录:'    CHANGING      selected_folder      = lv_path    EXCEPTIONS      cntl_error           = 1      error_no_gui         = 2      not_supported_by_gui = 3      OTHERS               = 4.  CHECK sy-subrc = 0.
ABAP SE78图片批量管理
查看代码
WRITE / gt_maps-tdname.    CALL METHOD cl_ssf_xsf_utilities=>get_bds_graphic_as_bmp      EXPORTING        p_object       = 'GRAPHICS'        p_name         = gt_maps-tdname        p_id           = gt_maps-tdid        p_btype        = gt_maps-tdbtype      RECEIVING        p_bmp          = lv_xstr      EXCEPTIONS        not_found      = 1        internal_error = 2        OTHERS         = 3.    IF sy-subrc = 0.      CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'        EXPORTIN
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
WRITE / gt_maps-tdname.    CALL METHOD cl_ssf_xsf_utilities=>get_bds_graphic_as_bmp      EXPORTING        p_object       = 'GRAPHICS'        p_name         = gt_maps-tdname        p_id           = gt_maps-tdid        p_btype        = gt_maps-tdbtype      RECEIVING        p_bmp          = lv_xstr      EXCEPTIONS        not_found      = 1        internal_error = 2        OTHERS         = 3.    IF sy-subrc = 0.      CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'        EXPORTIN
/* ... 已截断，完整代码请查看原文 */
ABAP SET HANDLER FOR CLICK 
cl_salv_table=>factory( importing r_salv_table = gr_table
查看完整代码 
cl_salv_table=>factory( importing r_salv_table = gr_table
ABAP SET HANDLER FOR CLICK 
gr_display->set_striped_pattern( cl_salv_display_settings=>true ).
查看完整代码 
gr_display->set_striped_pattern( cl_salv_display_settings=>true ).
ABAP SET HANDLER FOR CLICK 
gr_column->set_cell_type( if_salv_c_cell_type=>hotspot ).
查看完整代码 
gr_column->set_cell_type( if_salv_c_cell_type=>hotspot ).
ABAP SET HANDLER FOR CLICK 
gr_layout->set_save_restriction( cl_salv_layout=>restrict_none ).
查看完整代码 
gr_layout->set_save_restriction( cl_salv_layout=>restrict_none ).
ABAP SET HANDLER FOR CLICK 
lt_rows = lr_selections->get_selected_rows( ).
查看完整代码 
lt_rows = lr_selections->get_selected_rows( ).
ABAP SM30 Disable Delete Icon Add Custom Button 
DATA: gt_excl    TYPE TABLE OF vimexclfun,
查看完整代码 
DATA: gt_excl    TYPE TABLE OF vimexclfun,
ABAP SM30 Disable Delete Icon Add Custom Button 
gwa_excl-function = 'DELE'. " Function code for delete icon
查看完整代码 
gwa_excl-function = 'DELE'. " Function code for delete icon
ABAP SM30 Disable Delete Icon Add Custom Button 
APPEND gwa_excl TO gt_excl.
查看完整代码 
APPEND gwa_excl TO gt_excl.
ABAP SM30 Disable Delete Icon Add Custom Button 
CALL FUNCTION 'VIEW_MAINTENANCE_CALL'
查看完整代码 
CALL FUNCTION 'VIEW_MAINTENANCE_CALL'
ABAP SM30 Disable Delete Icon Add Custom Button 
IF sy-subrc <> 0.
查看完整代码 
IF sy-subrc <> 0.
ABAP SM30 Disable Delete Icon Add Custom Button 
ENDIF.
查看完整代码 
ENDIF.
ABAP SM30 Disable Delete Icon Add Custom Button 
DATA: l_count TYPE i.
查看完整代码 
DATA: l_count TYPE i.
ABAP SM30 Disable Delete Icon Add Custom Button 
DATA: BEGIN OF itab OCCURS 0.
查看完整代码 
DATA: BEGIN OF itab OCCURS 0.
ABAP SM30 Disable Delete Icon Add Custom Button 
DATA: END OF itab.
查看完整代码 
DATA: END OF itab.
ABAP SM30 Disable Delete Icon Add Custom Button 
itab[] = total[].
查看完整代码 
itab[] = total[].
ABAP SM30 查询 排序 导入 等功能的使用 
LOOP AT SCREEN.
查看完整代码 
LOOP AT SCREEN.
ABAP SM30 查询 排序 导入 等功能的使用 
IF screen-name = 'VIM_POSI_PUSH'.
查看完整代码 
IF screen-name = 'VIM_POSI_PUSH'.
ABAP SM30 查询 排序 导入 等功能的使用 
MODIFY SCREEN.
查看完整代码 
MODIFY SCREEN.
ABAP SM30 查询 排序 导入 等功能的使用 
ENDIF.
查看完整代码 
ENDIF.
ABAP SM30 查询 排序 导入 等功能的使用 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP SM30 查询 排序 导入 等功能的使用 
IF function(4) = 'SEAR'.
查看完整代码 
IF function(4) = 'SEAR'.
ABAP SM30 查询 排序 导入 等功能的使用 
ENDIF.
查看完整代码 
ENDIF.
ABAP SM30 查询 排序 导入 等功能的使用 
FORM batch_change.
查看完整代码 
FORM batch_change.
ABAP SM30 查询 排序 导入 等功能的使用 
DATA: lv_colnam TYPE name_feld,
查看完整代码 
DATA: lv_colnam TYPE name_feld,
ABAP SM30 查询 排序 导入 等功能的使用 
DATA: ls_column TYPE scxtab_column.
查看完整代码 
DATA: ls_column TYPE scxtab_column.
ABAP SM30 查询 排序 导入 等功能的使用 
DATA: lv_string TYPE string.
查看完整代码 
DATA: lv_string TYPE string.
ABAP SM30 查询 排序 导入 等功能的使用 
READ TABLE <vim_tctrl>-cols INTO ls_column WITH KEY screen-name = lv_colnam.
查看完整代码 
READ TABLE <vim_tctrl>-cols INTO ls_column WITH KEY screen-name = lv_colnam.
ABAP SM30 查询 排序 导入 等功能的使用 
IF sy-subrc <> 0 OR ls_column-screen-input = 0.
查看完整代码 
IF sy-subrc <> 0 OR ls_column-screen-input = 0.
ABAP SM30 查询 排序 导入 等功能的使用 
ENDIF.
查看完整代码 
ENDIF.
ABAP SM30 查询 排序 导入 等功能的使用 
LOOP AT extract.
查看完整代码 
LOOP AT extract.
ABAP SM30 查询 排序 导入 等功能的使用 
IF mark_extract > 0.
查看完整代码 
IF mark_extract > 0.
ABAP SM30 查询 排序 导入 等功能的使用 
ENDIF.
查看完整代码 
ENDIF.
ABAP SM30 查询 排序 导入 等功能的使用 
IF sy-subrc = 0.
查看完整代码 
IF sy-subrc = 0.
ABAP SM30 查询 排序 导入 等功能的使用 
<lv_fldval> = lv_string.
查看完整代码 
<lv_fldval> = lv_string.
ABAP SM30 查询 排序 导入 等功能的使用 
ENDIF.
查看完整代码 
ENDIF.
ABAP SM30 查询 排序 导入 等功能的使用 
IF <xact> <> 'N'.
查看完整代码 
IF <xact> <> 'N'.
ABAP SM30 查询 排序 导入 等功能的使用 
ENDIF.
查看完整代码 
ENDIF.
ABAP SM30 查询 排序 导入 等功能的使用 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP SM30 查询 排序 导入 等功能的使用 
ENDFORM.
查看完整代码 
ENDFORM.
ABAP SM30 查询 排序 导入 等功能的使用 
FORM upload.
查看完整代码 
FORM upload.
ABAP SM30 查询 排序 导入 等功能的使用 
DATA: ls_column TYPE scxtab_column.
查看完整代码 
DATA: ls_column TYPE scxtab_column.
ABAP SM30 查询 排序 导入 等功能的使用 
DATA: lv_fmname TYPE rs38l_fnam.
查看完整代码 
DATA: lv_fmname TYPE rs38l_fnam.
ABAP SM30 查询 排序 导入 等功能的使用 
DATA: lv_insrow TYPE i,
查看完整代码 
DATA: lv_insrow TYPE i,
ABAP SM30 查询 排序 导入 等功能的使用 
DATA: lt_fldcat TYPE lvc_t_fcat,
查看完整代码 
DATA: lt_fldcat TYPE lvc_t_fcat,
ABAP SM30 查询 排序 导入 等功能的使用 
DATA: lr_table TYPE REF TO data,
查看完整代码 
DATA: lr_table TYPE REF TO data,
ABAP SM30 查询 排序 导入 等功能的使用 
LOOP AT <vim_tctrl>-cols INTO ls_column.
查看完整代码 
LOOP AT <vim_tctrl>-cols INTO ls_column.
ABAP SM30 查询 排序 导入 等功能的使用 
*    READ TABLE excl_rpl_tab INTO ls_exfld WITH KEY fieldname = ls_fldcat-ref_field.
查看完整代码 
*    READ TABLE excl_rpl_tab INTO ls_exfld WITH KEY fieldname = ls_fldcat-ref_field.
ABAP SM30 查询 排序 导入 等功能的使用 
ls_fldcat-fieldname = ls_fldcat-ref_field.
查看完整代码 
ls_fldcat-fieldname = ls_fldcat-ref_field.
ABAP SM30 查询 排序 导入 等功能的使用 
APPEND ls_fldcat TO lt_fldcat.
查看完整代码 
APPEND ls_fldcat TO lt_fldcat.
ABAP SM30 查询 排序 导入 等功能的使用 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP SM30 查询 排序 导入 等功能的使用 
CALL METHOD cl_alv_table_create=>create_dynamic_table
查看完整代码 
CALL METHOD cl_alv_table_create=>create_dynamic_table
ABAP SM30 查询 排序 导入 等功能的使用 
it_fieldcatalog = lt_fldcat
查看完整代码 
it_fieldcatalog = lt_fldcat
ABAP SM30 查询 排序 导入 等功能的使用 
LOOP AT extract INTO extract.
查看完整代码 
LOOP AT extract INTO extract.
ABAP SM30 查询 排序 导入 等功能的使用 
IF <xact> = 'N'.
查看完整代码 
IF <xact> = 'N'.
ABAP SM30 查询 排序 导入 等功能的使用 
ENDIF.
查看完整代码 
ENDIF.
ABAP SM30 查询 排序 导入 等功能的使用 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP SM30 查询 排序 导入 等功能的使用 
LOOP AT <lt_table> INTO <ls_lines>.
查看完整代码 
LOOP AT <lt_table> INTO <ls_lines>.
ABAP SM30 查询 排序 导入 等功能的使用 
LOOP AT x_namtab INTO x_namtab.                      "#EC CI_NESTED
查看完整代码 
LOOP AT x_namtab INTO x_namtab.                      "#EC CI_NESTED
ABAP SM30 查询 排序 导入 等功能的使用 
IF x_namtab-lowercase = '' AND x_namtab-inttype = 'C'.
查看完整代码 
IF x_namtab-lowercase = '' AND x_namtab-inttype = 'C'.
ABAP SM30 查询 排序 导入 等功能的使用 
ENDIF.
查看完整代码 
ENDIF.
ABAP SM30 查询 排序 导入 等功能的使用 
IF x_namtab-convexit <> ''.
查看完整代码 
IF x_namtab-convexit <> ''.
ABAP SM30 查询 排序 导入 等功能的使用 
CALL FUNCTION lv_fmname
查看完整代码 
CALL FUNCTION lv_fmname
ABAP SM30 查询 排序 导入 等功能的使用 
input  = <lv_field>
查看完整代码 
input  = <lv_field>
ABAP SM30 查询 排序 导入 等功能的使用 
output = <lv_field>
查看完整代码 
output = <lv_field>
ABAP SM30 查询 排序 导入 等功能的使用 
IF sy-subrc <> 0.
查看完整代码 
IF sy-subrc <> 0.
ABAP SM30 查询 排序 导入 等功能的使用 
ENDIF.
查看完整代码 
ENDIF.
ABAP SM30 查询 排序 导入 等功能的使用 
ENDIF.
查看完整代码 
ENDIF.
ABAP SM30 查询 排序 导入 等功能的使用 
MODIFY <lt_table> FROM <ls_lines>.
查看完整代码 
MODIFY <lt_table> FROM <ls_lines>.
ABAP SM30 查询 排序 导入 等功能的使用 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP SM30 查询 排序 导入 等功能的使用 
READ TABLE total INTO total WITH KEY <f1_x> BINARY SEARCH ##WARN_OK.
查看完整代码 
READ TABLE total INTO total WITH KEY <f1_x> BINARY SEARCH ##WARN_OK.
ABAP SM30 查询 排序 导入 等功能的使用 
IF sy-subrc = 0.
查看完整代码 
IF sy-subrc = 0.
ABAP SM30 查询 排序 导入 等功能的使用 
lv_delrow = lv_delrow + 1.
查看完整代码 
lv_delrow = lv_delrow + 1.
ABAP SM30 查询 排序 导入 等功能的使用 
lv_insrow = lv_insrow + 1.
查看完整代码 
lv_insrow = lv_insrow + 1.
ABAP SM30 查询 排序 导入 等功能的使用 
ENDIF.
查看完整代码 
ENDIF.
ABAP SM30 查询 排序 导入 等功能的使用 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP SM30 查询 排序 导入 等功能的使用 
IF nextline <= looplines.
查看完整代码 
IF nextline <= looplines.
ABAP SM30 查询 排序 导入 等功能的使用 
ENDIF.
查看完整代码 
ENDIF.
ABAP SM30 查询 排序 导入 等功能的使用 
ENDFORM.                    "upload
查看完整代码 
ENDFORM.                    "upload
ABAP SM30 查询 排序 导入 等功能的使用 
FORM sort_table.
查看完整代码 
FORM sort_table.
ABAP SM30 查询 排序 导入 等功能的使用 
DATA: lv_colnam TYPE name_feld.
查看完整代码 
DATA: lv_colnam TYPE name_feld.
ABAP SM30 查询 排序 导入 等功能的使用 
IF function = 'SORTA'.
查看完整代码 
IF function = 'SORTA'.
ABAP SM30 查询 排序 导入 等功能的使用 
ENDIF.
查看完整代码 
ENDIF.
ABAP SM30 查询 排序 导入 等功能的使用 
ENDFORM.                    "sort_table
查看完整代码 
ENDFORM.                    "sort_table
ABAP SM30 查询 排序 导入 等功能的使用 
FORM tc_search.
查看完整代码 
FORM tc_search.
ABAP SM30 查询 排序 导入 等功能的使用 
DATA: lv_subrc  TYPE sy-subrc.
查看完整代码 
DATA: lv_subrc  TYPE sy-subrc.
ABAP SM30 查询 排序 导入 等功能的使用 
DATA: lv_colnam TYPE char80,
查看完整代码 
DATA: lv_colnam TYPE char80,
ABAP SM30 查询 排序 导入 等功能的使用 
lv_subrc = 1.
查看完整代码 
lv_subrc = 1.
ABAP SM30 查询 排序 导入 等功能的使用 
IF function = 'SEARF'.
查看完整代码 
IF function = 'SEARF'.
ABAP SM30 查询 排序 导入 等功能的使用 
READ TABLE x_namtab INTO x_namtab WITH KEY viewfield = lv_fldnam.
查看完整代码 
READ TABLE x_namtab INTO x_namtab WITH KEY viewfield = lv_fldnam.
ABAP SM30 查询 排序 导入 等功能的使用 
IF x_namtab-inttype = 'C'.
查看完整代码 
IF x_namtab-inttype = 'C'.
ABAP SM30 查询 排序 导入 等功能的使用 
ENDIF.
查看完整代码 
ENDIF.
ABAP SM30 查询 排序 导入 等功能的使用 
lv_itype = x_namtab-inttype.
查看完整代码 
lv_itype = x_namtab-inttype.
ABAP SM30 查询 排序 导入 等功能的使用 
LOOP AT extract INTO extract.
查看完整代码 
LOOP AT extract INTO extract.
ABAP SM30 查询 排序 导入 等功能的使用 
IF x_namtab-inttype = 'C'.
查看完整代码 
IF x_namtab-inttype = 'C'.
ABAP SM30 查询 排序 导入 等功能的使用 
CHECK <lv_fldval> = lv_finds.
查看完整代码 
CHECK <lv_fldval> = lv_finds.
ABAP SM30 查询 排序 导入 等功能的使用 
ENDIF.
查看完整代码 
ENDIF.
ABAP SM30 查询 排序 导入 等功能的使用 
lv_index = sy-tabix + 1.
查看完整代码 
lv_index = sy-tabix + 1.
ABAP SM30 查询 排序 导入 等功能的使用 
lv_colnm = lv_fldnam.
查看完整代码 
lv_colnm = lv_fldnam.
ABAP SM30 查询 排序 导入 等功能的使用 
lv_subrc = 0.
查看完整代码 
lv_subrc = 0.
ABAP SM30 查询 排序 导入 等功能的使用 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP SM30 查询 排序 导入 等功能的使用 
LOOP AT extract INTO extract FROM lv_index.
查看完整代码 
LOOP AT extract INTO extract FROM lv_index.
ABAP SM30 查询 排序 导入 等功能的使用 
IF lv_itype = 'C'.
查看完整代码 
IF lv_itype = 'C'.
ABAP SM30 查询 排序 导入 等功能的使用 
CHECK <lv_fldval> = lv_finds.
查看完整代码 
CHECK <lv_fldval> = lv_finds.
ABAP SM30 查询 排序 导入 等功能的使用 
ENDIF.
查看完整代码 
ENDIF.
ABAP SM30 查询 排序 导入 等功能的使用 
lv_index = sy-tabix + 1.
查看完整代码 
lv_index = sy-tabix + 1.
ABAP SM30 查询 排序 导入 等功能的使用 
lv_subrc = 0.
查看完整代码 
lv_subrc = 0.
ABAP SM30 查询 排序 导入 等功能的使用 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP SM30 查询 排序 导入 等功能的使用 
ENDIF.
查看完整代码 
ENDIF.
ABAP SM30 查询 排序 导入 等功能的使用 
IF lv_subrc = 1.
查看完整代码 
IF lv_subrc = 1.
ABAP SM30 查询 排序 导入 等功能的使用 
ENDIF.
查看完整代码 
ENDIF.
ABAP SM30 查询 排序 导入 等功能的使用 
ENDFORM.                    "tc_search
查看完整代码 
ENDFORM.                    "tc_search
ABAP SM30 查询 排序 导入 等功能的使用 
FORM export.
查看完整代码 
FORM export.
ABAP SM30 查询 排序 导入 等功能的使用 
DATA: lv_file TYPE string,
查看完整代码 
DATA: lv_file TYPE string,
ABAP SM30 查询 排序 导入 等功能的使用 
DATA: ls_cols TYPE scxtab_column.
查看完整代码 
DATA: ls_cols TYPE scxtab_column.
ABAP SM30 查询 排序 导入 等功能的使用 
DATA: lt_fldc TYPE lvc_t_fcat,
查看完整代码 
DATA: lt_fldc TYPE lvc_t_fcat,
ABAP SM30 查询 排序 导入 等功能的使用 
DATA: lr_tabl TYPE REF TO data,
查看完整代码 
DATA: lr_tabl TYPE REF TO data,
ABAP SM30 查询 排序 导入 等功能的使用 
DATA: lr_grid TYPE REF TO cl_salv_table,
查看完整代码 
DATA: lr_grid TYPE REF TO cl_salv_table,
ABAP SM30 查询 排序 导入 等功能的使用 
LOOP AT <vim_tctrl>-cols INTO ls_cols.
查看完整代码 
LOOP AT <vim_tctrl>-cols INTO ls_cols.
ABAP SM30 
DATA: fname(40),
查看完整代码 
DATA: fname(40),
ABAP SM30 
DATA: wa_dd03l TYPE dd03l.
查看完整代码 
DATA: wa_dd03l TYPE dd03l.
ABAP SM30 
SELECT * INTO wa_dd03l FROM dd03l
查看完整代码 
SELECT * INTO wa_dd03l FROM dd03l
ABAP SM30 
IF wa_dd03l-fieldname = fname.
len = wa_dd03l-intlen.
查看完整代码 
IF wa_dd03l-fieldname = fname.
len = wa_dd03l-intlen.
ABAP SM30 
offset = offset + wa_dd03l-intlen.
ENDIF.
ENDSELECT.
查看完整代码 
offset = offset + wa_dd03l-intlen.
ENDIF.
ENDSELECT.
ABAP SM30 
ENDIF.
ENDMODULE.                 " sort_table  INPUT
查看完整代码 
ENDIF.
ENDMODULE.                 " sort_table  INPUT
ABAP SM30增强功能的实现
查看代码
TABLES: tvdir,tvimf.DATA: h TYPE d020s.DATA: f TYPE TABLE OF d021s WITH HEADER LINE.DATA: e TYPE TABLE OF d022s WITH HEADER LINE.DATA: m TYPE TABLE OF d023s WITH HEADER LINE.DATA: dy_id  TYPE dynpro_id,      dy_msg TYPE char256,      dy_lnr TYPE sy-tabix,      dy_wrd TYPE d021s-fnam.DATA: lines TYPE i.DATA: trkorr TYPE e070-trkorr.DATA: funcpool TYPE trdir-name. "维护程序生成的函数组主程序名DATA: inc_name TYPE program VALUE 'ZSM30ADDONI01'.DATA: it_pcode TYPE STANDARD TABLE OF char256.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
TABLES: tvdir,tvimf.DATA: h TYPE d020s.DATA: f TYPE TABLE OF d021s WITH HEADER LINE.DATA: e TYPE TABLE OF d022s WITH HEADER LINE.DATA: m TYPE TABLE OF d023s WITH HEADER LINE.DATA: dy_id  TYPE dynpro_id,      dy_msg TYPE char256,      dy_lnr TYPE sy-tabix,      dy_wrd TYPE d021s-fnam.DATA: lines TYPE i.DATA: trkorr TYPE e070-trkorr.DATA: funcpool TYPE trdir-name. "维护程序生成的函数组主程序名DATA: inc_name TYPE program VALUE 'ZSM30ADDONI01'.DATA: it_pcode TYPE STANDARD TABLE OF char256.
/* ... 已截断，完整代码请查看原文 */
ABAP SM30增强功能的实现 
CALL FUNCTION 'RS_TOOL_ACCESS'        EXPORTING          operation        = 'ACTIVATE'          object_name      = funcpool          enclosing_object = funcpool          object_type      = 'CUAD'        EXCEPTIONS          OTHERS           = 9.      IF sy-subrc <> 0.        MESSAGE ID sy-msgid TYPE 'E' NUMBER sy-msgno                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.      ENDIF.
查看完整代码 
CALL FUNCTION 'RS_TOOL_ACCESS'        EXPORTING          operation        = 'ACTIVATE'          object_name      = funcpool          enclosing_object = funcpool          object_type      = 'CUAD'        EXCEPTIONS          OTHERS           = 9.      IF sy-subrc <> 0.        MESSAGE ID sy-msgid TYPE 'E' NUMBER sy-msgno                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.      ENDIF.
ABAP SM30增强功能的实现 
IF tvdir-devclass <> '$TMP'.      PERFORM tvimf_request USING p_mview.    ENDIF.
查看完整代码 
IF tvdir-devclass <> '$TMP'.      PERFORM tvimf_request USING p_mview.    ENDIF.
ABAP SM30增强功能的实现
查看代码
CALL FUNCTION 'RS_CORR_INSERT'      EXPORTING        global_lock     = ' '       " 'LIMU DYNP'        object          = dy_id        object_class    = 'SCRP'        master_language = sy-langu        korrnum         = trkorr      IMPORTING        korrnum         = trkorr      EXCEPTIONS        OTHERS          = 04.    IF sy-subrc <> 0.      MESSAGE ID sy-msgid TYPE 'E' NUMBER sy-msgno              WITH sy-msgv1 sy-msgv2 sy-msgv3 s
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
CALL FUNCTION 'RS_CORR_INSERT'      EXPORTING        global_lock     = ' '       " 'LIMU DYNP'        object          = dy_id        object_class    = 'SCRP'        master_language = sy-langu        korrnum         = trkorr      IMPORTING        korrnum         = trkorr      EXCEPTIONS        OTHERS          = 04.    IF sy-subrc <> 0.      MESSAGE ID sy-msgid TYPE 'E' NUMBER sy-msgno              WITH sy-msgv1 sy-msgv2 sy-msgv3 s
/* ... 已截断，完整代码请查看原文 */
ABAP SM30增强功能的实现 
CALL FUNCTION 'REPS_OBJECT_GENERATE'      EXPORTING        i_program        = funcpool        i_with_dialog    = 'X'      EXCEPTIONS        syntax_error     = 1        generation_error = 2        OTHERS           = 3.    MESSAGE s000(oo) WITH '完成'.  ENDIF.
查看完整代码 
CALL FUNCTION 'REPS_OBJECT_GENERATE'      EXPORTING        i_program        = funcpool        i_with_dialog    = 'X'      EXCEPTIONS        syntax_error     = 1        generation_error = 2        OTHERS           = 3.    MESSAGE s000(oo) WITH '完成'.  ENDIF.
ABAP SM30增强功能的实现
查看代码
CALL FUNCTION 'TR_ORDER_CHOICE_CORRECTION'    EXPORTING      iv_category = 'SYST'    IMPORTING      ev_order    = trkorr      ev_task     = task    EXCEPTIONS      OTHERS      = 3.  IF sy-subrc <> 0.    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno       WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.  ENDIF.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
CALL FUNCTION 'TR_ORDER_CHOICE_CORRECTION'    EXPORTING      iv_category = 'SYST'    IMPORTING      ev_order    = trkorr      ev_task     = task    EXCEPTIONS      OTHERS      = 3.  IF sy-subrc <> 0.    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno       WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.  ENDIF.
/* ... 已截断，完整代码请查看原文 */
ABAP SM30扩展功能的使用
查看代码
READ TABLE <vim_tctrl>-cols INTO ls_column WITH KEY screen-name = lv_colnam.  IF sy-subrc <> 0 OR ls_column-screen-input = 0.    RETURN.  ENDIF.
PERFORM popup_getvalue USING lv_tabnam lv_colnam ''                         CHANGING lv_string sy-subrc.  CHECK sy-subrc = 0.
LOOP AT extract.    IF mark_extract > 0.      CHECK <xmark> = 'M'.    ENDIF.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
READ TABLE <vim_tctrl>-cols INTO ls_column WITH KEY screen-name = lv_colnam.  IF sy-subrc <> 0 OR ls_column-screen-input = 0.    RETURN.  ENDIF.
PERFORM popup_getvalue USING lv_tabnam lv_colnam ''                         CHANGING lv_string sy-subrc.  CHECK sy-subrc = 0.
LOOP AT extract.    IF mark_extract > 0.      CHECK <xmark> = 'M'.    ENDIF.
/* ... 已截断，完整代码请查看原文 */
ABAP SM30扩展功能的使用
查看代码
"数据格式为SM30"新条目"界面中所看到的列  LOOP AT <vim_tctrl>-cols INTO ls_column.    SPLIT ls_column-screen-name AT '-' INTO ls_fldcat-ref_table ls_fldcat-ref_field.*    READ TABLE excl_rpl_tab INTO ls_exfld WITH KEY fieldname = ls_fldcat-ref_field.*    CHECK sy-subrc <> 0.    ls_fldcat-fieldname = ls_fldcat-ref_field.    APPEND ls_fldcat TO lt_fldcat.  ENDLOOP.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
"数据格式为SM30"新条目"界面中所看到的列  LOOP AT <vim_tctrl>-cols INTO ls_column.    SPLIT ls_column-screen-name AT '-' INTO ls_fldcat-ref_table ls_fldcat-ref_field.*    READ TABLE excl_rpl_tab INTO ls_exfld WITH KEY fieldname = ls_fldcat-ref_field.*    CHECK sy-subrc <> 0.    ls_fldcat-fieldname = ls_fldcat-ref_field.    APPEND ls_fldcat TO lt_fldcat.  ENDLOOP.
/* ... 已截断，完整代码请查看原文 */
ABAP SM30扩展功能的使用 
LOOP AT <lt_table>
查看完整代码 
LOOP AT <lt_table>
ABAP SM30添加排序功能 
SELECT  *  INTO  wa_dd03l  FROM  dd03l
查看完整代码 
SELECT  *  INTO  wa_dd03l  FROM  dd03l
ABAP SM30添加排序功能 
IF  wa_dd03l  \-  fieldname  =  fname  .
len  =  wa_dd03l  \-  intlen  .
查看完整代码 
IF  wa_dd03l  \-  fieldname  =  fname  .
len  =  wa_dd03l  \-  intlen  .
ABAP SM30添加排序功能 
offset  =  offset + wa_dd03l  \-  intlen  .
ENDIF  .
ENDSELECT  .
查看完整代码 
offset  =  offset + wa_dd03l  \-  intlen  .
ENDIF  .
ENDSELECT  .
ABAP SM30添加排序功能 
IF  function  =  'SORTA'  .
查看完整代码 
IF  function  =  'SORTA'  .
ABAP SM30添加排序功能 
ENDIF  .
ENDMODULE  .  " sort_table INPUT
查看完整代码 
ENDIF  .
ENDMODULE  .  " sort_table INPUT
ABAP STATICS关键字用法 
REPORT ztest.
查看完整代码 
REPORT ztest.
ABAP STATICS关键字用法 
FORM run.  DATA    local  TYPE i.  STATICS static TYPE i.  local  += 1.  static += 1.  cl_demo_output=>write( |Local: { local }, | &&                         |Static: { static }| ).ENDFORM.
查看完整代码 
FORM run.  DATA    local  TYPE i.  STATICS static TYPE i.  local  += 1.  static += 1.  cl_demo_output=>write( |Local: { local }, | &&                         |Static: { static }| ).ENDFORM.
ABAP STATICS关键字用法
查看代码
FUNCTION conversion_exit_zuser_output .*"--------------------------------------------------------------------*"*"局部接口：*"  IMPORTING*"     VALUE(INPUT) TYPE  CLIKE*"  EXPORTING*"     VALUE(OUTPUT) TYPE  CLIKE*"--------------------------------------------------------------------
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
FUNCTION conversion_exit_zuser_output .*"--------------------------------------------------------------------*"*"局部接口：*"  IMPORTING*"     VALUE(INPUT) TYPE  CLIKE*"  EXPORTING*"     VALUE(OUTPUT) TYPE  CLIKE*"--------------------------------------------------------------------
/* ... 已截断，完整代码请查看原文 */
ABAP SUBMIT指定用户名错误
查看代码
CLEAR:lv_name ,lv_number.lv_name = |后台作业测试|.
CALL FUNCTION 'JOB_OPEN'  EXPORTING    jobname          = lv_name  IMPORTING    jobcount         = lv_number  EXCEPTIONS    cant_create_job  = 1    invalid_job_data = 2    jobname_missing  = 3    OTHERS           = 4.IF sy-subrc = 0.
lv_uname = 'BINGENERAL'."调用ytestjob时，用账号：BINGENERAL执行程序
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
CLEAR:lv_name ,lv_number.lv_name = |后台作业测试|.
CALL FUNCTION 'JOB_OPEN'  EXPORTING    jobname          = lv_name  IMPORTING    jobcount         = lv_number  EXCEPTIONS    cant_create_job  = 1    invalid_job_data = 2    jobname_missing  = 3    OTHERS           = 4.IF sy-subrc = 0.
lv_uname = 'BINGENERAL'."调用ytestjob时，用账号：BINGENERAL执行程序
/* ... 已截断，完整代码请查看原文 */
ABAP SUBMIT指定用户名错误 
DATA(lv_message) = '执行本程序的账号：' && sy-uname.
WRITE: lv_message.
查看完整代码 
DATA(lv_message) = '执行本程序的账号：' && sy-uname.
WRITE: lv_message.
ABAP SWAGGER在ABAP中的实现
查看代码
METHOD zif_swag_consumer~meta.    FIELD-SYMBOLS: <ls_meta> LIKE LINE OF rt_meta.
APPEND INITIAL LINE TO rt_meta ASSIGNING <ls_meta>.    <ls_meta>-summary   = '获取工厂信息'.    <ls_meta>-url-regex = '/IF001/'.    <ls_meta>-method    = zcl_swag=>c_method-post.    <ls_meta>-handler   = 'GET_PLANT'.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
METHOD zif_swag_consumer~meta.    FIELD-SYMBOLS: <ls_meta> LIKE LINE OF rt_meta.
APPEND INITIAL LINE TO rt_meta ASSIGNING <ls_meta>.    <ls_meta>-summary   = '获取工厂信息'.    <ls_meta>-url-regex = '/IF001/'.    <ls_meta>-method    = zcl_swag=>c_method-post.    <ls_meta>-handler   = 'GET_PLANT'.
/* ... 已截断，完整代码请查看原文 */
ABAP SWAGGER在ABAP中的实现 
METHOD get_plant.    SELECT werks,name1 INTO TABLE @DATA(lt_werks) FROM t001w.    rv_response-response = /ui2/cl_json=>serialize( data = lt_werks compress = abap_false pretty_name = abap_true ).    rv_response-msgty = 'S'.    rv_response-msg = 'Success'.  ENDMETHOD.
查看完整代码 
METHOD get_plant.    SELECT werks,name1 INTO TABLE @DATA(lt_werks) FROM t001w.    rv_response-response = /ui2/cl_json=>serialize( data = lt_werks compress = abap_false pretty_name = abap_true ).    rv_response-msgty = 'S'.    rv_response-msg = 'Success'.  ENDMETHOD.
ABAP SWAGGER在ABAP中的实现 
METHOD get_bukrs.    SELECT bukrs,butxt INTO TABLE @DATA(lt_bukrs) FROM t001.    rv_response-response = /ui2/cl_json=>serialize( data = lt_bukrs compress = abap_false pretty_name = abap_true ).    rv_response-msgty = 'S'.    rv_response-msg = 'Success'.  ENDMETHOD.
查看完整代码 
METHOD get_bukrs.    SELECT bukrs,butxt INTO TABLE @DATA(lt_bukrs) FROM t001.    rv_response-response = /ui2/cl_json=>serialize( data = lt_bukrs compress = abap_false pretty_name = abap_true ).    rv_response-msgty = 'S'.    rv_response-msg = 'Success'.  ENDMETHOD.
ABAP Sample codes for BDC 
TYPES:   BEGIN OF t_employee,
查看完整代码 
TYPES:   BEGIN OF t_employee,
ABAP Sample codes for BDC 
END OF t_employee.
DATA:   it_employee   TYPE  STANDARD TABLE OF t_employee,
查看完整代码 
END OF t_employee.
DATA:   it_employee   TYPE  STANDARD TABLE OF t_employee,
ABAP Sample codes for BDC 
FORM BDC_CALL_TRANSACTION.
LOOP AT it_employee INTO wa_employee.
查看完整代码 
FORM BDC_CALL_TRANSACTION.
LOOP AT it_employee INTO wa_employee.
ABAP Sample codes for BDC 
ENDLOOP.
ENDFORM.
查看完整代码 
ENDLOOP.
ENDFORM.
ABAP Sample codes for BDC 
ENDFORM.                    "select_input_file_name
查看完整代码 
ENDFORM.                    "select_input_file_name
ABAP Sample codes for BDC 
APPEND it_bdcdata.
ENDFORM.                    "BDC_DYNPRO
查看完整代码 
APPEND it_bdcdata.
ENDFORM.                    "BDC_DYNPRO
ABAP Sample codes for BDC 
APPEND it_bdcdata.
ENDFORM.                    "BDC_FIELD
查看完整代码 
APPEND it_bdcdata.
ENDFORM.                    "BDC_FIELD
ABAP Sample codes for BDC 
LOOP AT it_employee INTO wa_employee.
查看完整代码 
LOOP AT it_employee INTO wa_employee.
ABAP Sample codes for BDC 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP Sample codes for BDC 
ENDFORM.
查看完整代码 
ENDFORM.
ABAP Selectoptionsrestrict
查看代码
DATA: ls_restrict TYPE sscr_restrict,        ls_optlist  TYPE sscr_opt_list,        ls_ass      TYPE sscr_ass.
ls_optlist-name       = 'OBJECTKEY'.  ls_optlist-options-eq = abap_true.   " 单值  ls_optlist-options-bt = abap_true.   " 区间  APPEND ls_optlist TO ls_restrict-opt_list_tab.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA: ls_restrict TYPE sscr_restrict,        ls_optlist  TYPE sscr_opt_list,        ls_ass      TYPE sscr_ass.
ls_optlist-name       = 'OBJECTKEY'.  ls_optlist-options-eq = abap_true.   " 单值  ls_optlist-options-bt = abap_true.   " 区间  APPEND ls_optlist TO ls_restrict-opt_list_tab.
/* ... 已截断，完整代码请查看原文 */
ABAP Smartforms打印固定大小二维码
查看代码
FORM split_qrstr USING VALUE(pv_qrstr) pv_qrlen                 CHANGING qr01 qr02 qr03 qr04.  DATA: lv_xlen TYPE i,        lv_xstr TYPE xstring.
CHECK pv_qrstr NE ''.  CALL FUNCTION 'SCMS_STRING_TO_XSTRING'    EXPORTING      text     = pv_qrstr      encoding = '4110'    IMPORTING      buffer   = lv_xstr    EXCEPTIONS      failed   = 1      OTHERS   = 2.  lv_xlen = xstrlen( lv_xstr ).
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
FORM split_qrstr USING VALUE(pv_qrstr) pv_qrlen                 CHANGING qr01 qr02 qr03 qr04.  DATA: lv_xlen TYPE i,        lv_xstr TYPE xstring.
CHECK pv_qrstr NE ''.  CALL FUNCTION 'SCMS_STRING_TO_XSTRING'    EXPORTING      text     = pv_qrstr      encoding = '4110'    IMPORTING      buffer   = lv_xstr    EXCEPTIONS      failed   = 1      OTHERS   = 2.  lv_xlen = xstrlen( lv_xstr ).
/* ... 已截断，完整代码请查看原文 */
ABAP Smartforms打印固定大小二维码
查看代码
IF pv_qrstr IS NOT INITIAL.    qr02 = pv_qrstr.    IF qr02 = ''.      qr02+247 = '\BIN:20\'.      SHIFT pv_qrstr BY 248 PLACES.    ELSE.      SHIFT pv_qrstr BY 255 PLACES.    ENDIF.  ENDIF.  IF pv_qrstr IS NOT INITIAL.    qr03 = pv_qrstr.    IF qr03 = ''.      qr03+247 = '\BIN:20\'.      SHIFT pv_qrstr BY 248 PLACES.    ELSE.      SHIFT pv_qrstr BY 255 PLACES.    ENDIF.  ENDIF.  IF pv_qrstr IS NOT INITIAL.    qr04 = pv_qrstr.    IF qr04 = ''
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
IF pv_qrstr IS NOT INITIAL.    qr02 = pv_qrstr.    IF qr02 = ''.      qr02+247 = '\BIN:20\'.      SHIFT pv_qrstr BY 248 PLACES.    ELSE.      SHIFT pv_qrstr BY 255 PLACES.    ENDIF.  ENDIF.  IF pv_qrstr IS NOT INITIAL.    qr03 = pv_qrstr.    IF qr03 = ''.      qr03+247 = '\BIN:20\'.      SHIFT pv_qrstr BY 248 PLACES.    ELSE.      SHIFT pv_qrstr BY 255 PLACES.    ENDIF.  ENDIF.  IF pv_qrstr IS NOT INITIAL.    qr04 = pv_qrstr.    IF qr04 = ''
/* ... 已截断，完整代码请查看原文 */
ABAP Smartforms打印固定大小二维码 
CALL FUNCTION '/1BCDWB/SF00000012'    EXPORTING      qrstr = p_str      qrlen = p_len.
查看完整代码 
CALL FUNCTION '/1BCDWB/SF00000012'    EXPORTING      qrstr = p_str      qrlen = p_len.
ABAP SolutionALV不显示前导空格怎么办 
ls_prps-post1 = repeat( val = ` ` occ = ls_prps-stufe - 1 ) && ls_prps_post1.
查看完整代码 
ls_prps-post1 = repeat( val = ` ` occ = ls_prps-stufe - 1 ) && ls_prps_post1.
ABAP SolutionALV不显示前导空格怎么办 
DATA: gt_outtab TYPE TABLE OF sflight.DATA: gr_table  TYPE REF TO cl_salv_table.
SELECT * FROM sflight INTO CORRESPONDING FIELDS OF TABLE gt_outtab.
查看完整代码 
DATA: gt_outtab TYPE TABLE OF sflight.DATA: gr_table  TYPE REF TO cl_salv_table.
SELECT * FROM sflight INTO CORRESPONDING FIELDS OF TABLE gt_outtab.
ABAP SolutionALV不显示前导空格怎么办 
CALL METHOD cl_salv_table=>factory  IMPORTING    r_salv_table = gr_table  CHANGING    t_table      = gt_outtab.
查看完整代码 
CALL METHOD cl_salv_table=>factory  IMPORTING    r_salv_table = gr_table  CHANGING    t_table      = gt_outtab.
ABAP SolutionALV不显示前导空格怎么办 
DATA: lt_makt LIKE TABLE OF makt,      lt_fcat TYPE lvc_t_fcat.
APPEND VALUE #( maktx = '1' ) TO lt_makt.APPEND VALUE #( maktx = ' 1' ) TO lt_makt.
APPEND VALUE #( fieldname = 'MATNR' ) TO lt_fcat.APPEND VALUE #( fieldname = 'MAKTX' parameter0 = 'X' ) TO lt_fcat.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'  EXPORTING    it_fieldcat_lvc = lt_fcat  TABLES    t_outtab        = lt_makt  EXCEPTIONS    OTHERS          = 1.
查看完整代码 
DATA: lt_makt LIKE TABLE OF makt,      lt_fcat TYPE lvc_t_fcat.
APPEND VALUE #( maktx = '1' ) TO lt_makt.APPEND VALUE #( maktx = ' 1' ) TO lt_makt.
APPEND VALUE #( fieldname = 'MATNR' ) TO lt_fcat.APPEND VALUE #( fieldname = 'MAKTX' parameter0 = 'X' ) TO lt_fcat.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'  EXPORTING    it_fieldcat_lvc = lt_fcat  TABLES    t_outtab        = lt_makt  EXCEPTIONS    OTHERS          = 1.
ABAP SolutionDB12执行开头的表或字段怎么办 
SELECT count( * )  FROM M  ARA  where "/CWM/XCWMAT" = ' '
查看完整代码 
SELECT count( * )  FROM M  ARA  where "/CWM/XCWMAT" = ' '
ABAP Solution在SM30保存时检查数据 
FORM frm_check.  MESSAGE '错误' TYPE 'E'.ENDFORM.
查看完整代码 
FORM frm_check.  MESSAGE '错误' TYPE 'E'.ENDFORM.
ABAP Solution在SM30保存时检查数据 
FORM frm_check.  MESSAGE '错误' TYPE 'S' DISPLAY LIKE 'E'.  RAISE saving_correction_failed.ENDFORM.
查看完整代码 
FORM frm_check.  MESSAGE '错误' TYPE 'S' DISPLAY LIKE 'E'.  RAISE saving_correction_failed.ENDFORM.
ABAP Solution在SM30保存时检查数据 
DATA: ls_sl01 TYPE ysl01. "YSL01是表名  LOOP AT total.    MOVE-CORRESPONDING <vim_total_struc> TO ls_sl01.  ENDLOOP.
查看完整代码 
DATA: ls_sl01 TYPE ysl01. "YSL01是表名  LOOP AT total.    MOVE-CORRESPONDING <vim_total_struc> TO ls_sl01.  ENDLOOP.
ABAP Solution如何在输入后不用敲回车也能执行搜索
查看代码
REPORT ztest.
SELECTION-SCREEN BEGIN OF SCREEN 2000.SELECTION-SCREEN END OF SCREEN 2000.DATA: go_docking_container TYPE REF TO cl_gui_docking_container,      go_splitter          TYPE REF TO cl_gui_splitter_container,      go_input_con         TYPE REF TO cl_gui_container,      go_alv_con           TYPE REF TO cl_gui_container,      go_input             TYPE REF TO cl_gui_input_field,      go_alv               TYPE REF TO cl_gui_alv_grid.DATA: gt_data TYPE TABLE OF makt,      gt_alv  TYPE 
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
REPORT ztest.
SELECTION-SCREEN BEGIN OF SCREEN 2000.SELECTION-SCREEN END OF SCREEN 2000.DATA: go_docking_container TYPE REF TO cl_gui_docking_container,      go_splitter          TYPE REF TO cl_gui_splitter_container,      go_input_con         TYPE REF TO cl_gui_container,      go_alv_con           TYPE REF TO cl_gui_container,      go_input             TYPE REF TO cl_gui_input_field,      go_alv               TYPE REF TO cl_gui_alv_grid.DATA: gt_data TYPE TABLE OF makt,      gt_alv  TYPE 
/* ... 已截断，完整代码请查看原文 */
ABAP Solution如何在输入后不用敲回车也能执行搜索 
FORM get_data.  APPEND VALUE #( matnr = 'MAT001' maktx = '钢板' ) TO gt_data.  APPEND VALUE #( matnr = 'MAT002' maktx = '钢锭' ) TO gt_data.  APPEND VALUE #( matnr = 'MAT003' maktx = '铁锭' ) TO gt_data.  gt_alv = gt_data.ENDFORM.FORM init_object.  DATA: lt_fcat TYPE lvc_t_fcat.
查看完整代码 
FORM get_data.  APPEND VALUE #( matnr = 'MAT001' maktx = '钢板' ) TO gt_data.  APPEND VALUE #( matnr = 'MAT002' maktx = '钢锭' ) TO gt_data.  APPEND VALUE #( matnr = 'MAT003' maktx = '铁锭' ) TO gt_data.  gt_alv = gt_data.ENDFORM.FORM init_object.  DATA: lt_fcat TYPE lvc_t_fcat.
ABAP Solution如何在输入后不用敲回车也能执行搜索
查看代码
"创建ALV  go_alv_con = go_splitter->get_container( row = 2 column = 1 ).  CREATE OBJECT go_alv    EXPORTING      i_parent = go_alv_con.
APPEND VALUE #( fieldname = 'MATNR' coltext = '物料号' ) TO lt_fcat.  APPEND VALUE #( fieldname = 'MAKTX' coltext = '物料描述' ) TO lt_fcat.  go_alv->set_table_for_first_display(    CHANGING      it_outtab                     = gt_alv      it_fieldcatalog               = lt_fcat    EXCEPTIONS      invalid_parameter
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
"创建ALV  go_alv_con = go_splitter->get_container( row = 2 column = 1 ).  CREATE OBJECT go_alv    EXPORTING      i_parent = go_alv_con.
APPEND VALUE #( fieldname = 'MATNR' coltext = '物料号' ) TO lt_fcat.  APPEND VALUE #( fieldname = 'MAKTX' coltext = '物料描述' ) TO lt_fcat.  go_alv->set_table_for_first_display(    CHANGING      it_outtab                     = gt_alv      it_fieldcatalog               = lt_fcat    EXCEPTIONS      invalid_parameter
/* ... 已截断，完整代码请查看原文 */
ABAP Solution通过SAP打印PDF时打印机没反应 
DATA: gv_pdf_xstr  TYPE xstring.
查看完整代码 
DATA: gv_pdf_xstr  TYPE xstring.
ABAP Solution通过SAP打印PDF时打印机没反应
查看代码
FORM pdf_upload.DATA: lt_files TYPE filetable,l_file   TYPE string,l_rc     TYPE i.DATA: lt_pdf_tab TYPE TABLE OF rspolpbi,ls_line    TYPE rspolpbi,l_filesize TYPE i,l_rest     TYPE i,l_chunk    TYPE i.
CALL METHOD cl_gui_frontend_services=>file_open_dialogEXPORTINGwindow_title = '选择打开文件'file_filter  = 'PDF (*.pdf)|*.pdf|'CHANGINGfile_table   = lt_filesrc           = l_rcEXCEPTIONSOTHERS       = 1.
READ TABLE lt_files INTO l_file INDEX 1.CHECK sy-subrc = 0.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
FORM pdf_upload.DATA: lt_files TYPE filetable,l_file   TYPE string,l_rc     TYPE i.DATA: lt_pdf_tab TYPE TABLE OF rspolpbi,ls_line    TYPE rspolpbi,l_filesize TYPE i,l_rest     TYPE i,l_chunk    TYPE i.
CALL METHOD cl_gui_frontend_services=>file_open_dialogEXPORTINGwindow_title = '选择打开文件'file_filter  = 'PDF (*.pdf)|*.pdf|'CHANGINGfile_table   = lt_filesrc           = l_rcEXCEPTIONSOTHERS       = 1.
READ TABLE lt_files INTO l_file INDEX 1.CHECK sy-subrc = 0.
/* ... 已截断，完整代码请查看原文 */
ABAP Step by Step Process of Preparing E-mail with HTML body and HTML Attachment 
CALL METHOD v_document->add_attachment
查看完整代码 
CALL METHOD v_document->add_attachment
ABAP Step by Step Process of Preparing E-mail with HTML body and HTML Attachment 
CALL METHOD v_send_request->set_document( v_document )
查看完整代码 
CALL METHOD v_send_request->set_document( v_document )
ABAP T090NP-XBZDAT 
REPORT RACORR129.
TABLES: T090NP.
PARAMETERS: PA_AFAPL like T090NP-AFAPL OBLIGATORY. "Chart of dep.
PARAMETERS: PA_PER LIKE T090NP-METPER OBLIGATORY. "Period control met.
查看完整代码 
REPORT RACORR129.
TABLES: T090NP.
PARAMETERS: PA_AFAPL like T090NP-AFAPL OBLIGATORY. "Chart of dep.
PARAMETERS: PA_PER LIKE T090NP-METPER OBLIGATORY. "Period control met.
ABAP Troubleshooting Guide for Message 108 in Pricing Analysis 
FORM XKOMV_BEWERTEN
查看完整代码 
FORM XKOMV_BEWERTEN
ABAP Troubleshooting Guide for Message 108 in Pricing Analysis 
IF xkomv-kinak NE 'Z'.
查看完整代码 
IF xkomv-kinak NE 'Z'.
ABAP Troubleshooting Guide for Message 108 in Pricing Analysis 
MODIFY xkomv.
查看完整代码 
MODIFY xkomv.
ABAP Troubleshooting Guide for Message 108 in Pricing Analysis 
ENDIF.
查看完整代码 
ENDIF.
ABAP Troubleshooting Guide for Message 108 in Pricing Analysis 
FORM XKOMV_FUELLEN
查看完整代码 
FORM XKOMV_FUELLEN
ABAP Understanding CSV files and their handling in ABAP 
CALL FUNCTION ‘KCD_CSV_FILE_TO_INTERN_CONVERT’
查看完整代码 
CALL FUNCTION ‘KCD_CSV_FILE_TO_INTERN_CONVERT’
ABAP Understanding CSV files and their handling in ABAP 
r_r_conv    = lo_csv
查看完整代码 
r_r_conv    = lo_csv
ABAP Understanding CSV files and their handling in ABAP 
CALL METHOD lo_csv->csv_to_structure
查看完整代码 
CALL METHOD lo_csv->csv_to_structure
ABAP Understanding CSV files and their handling in ABAP 
i_data   = lv_data
查看完整代码 
i_data   = lv_data
ABAP Understanding CSV files and their handling in ABAP 
REPORT zupload_csv_file.
查看完整代码 
REPORT zupload_csv_file.
ABAP Unzip & Read files with ABAP class CL_ABAP_ZIP 
TYPES: BEGIN OF ty_file,
查看完整代码 
TYPES: BEGIN OF ty_file,
ABAP Unzip & Read files with ABAP class CL_ABAP_ZIP 
END OF ty_file.
TYPES: tty_files TYPE TABLE OF ty_file.
查看完整代码 
END OF ty_file.
TYPES: tty_files TYPE TABLE OF ty_file.
ABAP Unzip & Read files with ABAP class CL_ABAP_ZIP 
CLASS-DATA: t_out TYPE filetable,
查看完整代码 
CLASS-DATA: t_out TYPE filetable,
ABAP Unzip & Read files with ABAP class CL_ABAP_ZIP 
CLASS-DATA: o_zip TYPE REF TO cl_abap_zip.
CLASS-METHODS: show_alv,
查看完整代码 
CLASS-DATA: o_zip TYPE REF TO cl_abap_zip.
CLASS-METHODS: show_alv,
ABAP Unzip & Read files with ABAP class CL_ABAP_ZIP 
ENDCLASS.              “Application
查看完整代码 
ENDCLASS.              “Application
ABAP Unzip & Read files with ABAP class CL_ABAP_ZIP 
PARAMETERS: p_file TYPE application=>ty_file–name OBLIGATORY.
查看完整代码 
PARAMETERS: p_file TYPE application=>ty_file–name OBLIGATORY.
ABAP Unzip & Read files with ABAP class CL_ABAP_ZIP 
LOOP AT o_zip->files INTO file.
查看完整代码 
LOOP AT o_zip->files INTO file.
ABAP Unzip & Read files with ABAP class CL_ABAP_ZIP 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP Unzip & Read files with ABAP class CL_ABAP_ZIP 
ENDMETHOD.                    “execute
METHOD fill_out.
DATA: olen TYPE i,
查看完整代码 
ENDMETHOD.                    “execute
METHOD fill_out.
DATA: olen TYPE i,
ABAP Unzip & Read files with ABAP class CL_ABAP_ZIP 
CALL FUNCTION ‘SCMS_XSTRING_TO_BINARY’
查看完整代码 
CALL FUNCTION ‘SCMS_XSTRING_TO_BINARY’
ABAP Unzip & Read files with ABAP class CL_ABAP_ZIP 
CALL FUNCTION ‘SCMS_BINARY_TO_STRING’
查看完整代码 
CALL FUNCTION ‘SCMS_BINARY_TO_STRING’
ABAP Unzip & Read files with ABAP class CL_ABAP_ZIP 
ENDIF.
查看完整代码 
ENDIF.
ABAP Unzip & Read files with ABAP class CL_ABAP_ZIP 
ENDIF.
ENDDO.
查看完整代码 
ENDIF.
ENDDO.
ABAP Unzip & Read files with ABAP class CL_ABAP_ZIP 
APPEND l_out TO t_out.
ENDMETHOD.                    “fill_out
METHOD upload_data.
DATA:flen TYPE i,
查看完整代码 
APPEND l_out TO t_out.
ENDMETHOD.                    “fill_out
METHOD upload_data.
DATA:flen TYPE i,
ABAP Unzip & Read files with ABAP class CL_ABAP_ZIP 
CALL FUNCTION ‘SCMS_BINARY_TO_XSTRING’
查看完整代码 
CALL FUNCTION ‘SCMS_BINARY_TO_XSTRING’
ABAP Unzip & Read files with ABAP class CL_ABAP_ZIP 
ENDIF.
ENDIF.
查看完整代码 
ENDIF.
ENDIF.
ABAP Unzip & Read files with ABAP class CL_ABAP_ZIP 
ENDMETHOD.                    “upload_data
查看完整代码 
ENDMETHOD.                    “upload_data
ABAP Unzip & Read files with ABAP class CL_ABAP_ZIP 
METHOD show_alv.
DATA: salv TYPE REF TO cl_salv_table,
查看完整代码 
METHOD show_alv.
DATA: salv TYPE REF TO cl_salv_table,
ABAP Unzip & Read files with ABAP class CL_ABAP_ZIP 
cl_salv_table=>factory( IMPORTING r_salv_table = salv
查看完整代码 
cl_salv_table=>factory( IMPORTING r_salv_table = salv
ABAP Unzip & Read files with ABAP class CL_ABAP_ZIP 
ENDMETHOD.                    “show_Alv
METHOD get_file.
DATA: fresult TYPE file_table,
查看完整代码 
ENDMETHOD.                    “show_Alv
METHOD get_file.
DATA: fresult TYPE file_table,
ABAP Unzip & Read files with ABAP class CL_ABAP_ZIP 
READ TABLE files INTO fresult INDEX 1.
查看完整代码 
READ TABLE files INTO fresult INDEX 1.
ABAP Unzip & Read files with ABAP class CL_ABAP_ZIP 
ENDIF.
ENDMETHOD.                    “get_file
ENDCLASS.              “Application
查看完整代码 
ENDIF.
ENDMETHOD.                    “get_file
ENDCLASS.              “Application
ABAP VA01VA02VA03VA05销售订单根据权限隐藏价格
查看代码
IF sy-tcode = 'VA01' OR sy-tcode = 'VA02'   OR sy-tcode = 'VA03'.
IF        screen-name = 'VBAK-NETWR' OR  "抬头 净值       screen-name = 'VBAK-WAERK' OR  "抬头 货币*     screen-name = 'RV45A-KOEIN' OR "项目 货币       screen-name = 'VBAP-NETPR' OR  "项目 净价       screen-name = 'VBAP-NETWR' "OR  "项目 净值*     screen-name = 'VBAP-WAERK' OR  "项目 SD 凭证货币       .      AUTHORITY-CHECK OB
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
IF sy-tcode = 'VA01' OR sy-tcode = 'VA02'   OR sy-tcode = 'VA03'.
IF        screen-name = 'VBAK-NETWR' OR  "抬头 净值       screen-name = 'VBAK-WAERK' OR  "抬头 货币*     screen-name = 'RV45A-KOEIN' OR "项目 货币       screen-name = 'VBAP-NETPR' OR  "项目 净价       screen-name = 'VBAP-NETWR' "OR  "项目 净值*     screen-name = 'VBAP-WAERK' OR  "项目 SD 凭证货币       .      AUTHORITY-CHECK OB
/* ... 已截断，完整代码请查看原文 */
ABAP VA01VA02VA03VA05销售订单根据权限隐藏价格 
IF sy-tcode = 'VA01' OR sy-tcode = 'VA02'   OR sy-tcode = 'VA03'.
查看完整代码 
IF sy-tcode = 'VA01' OR sy-tcode = 'VA02'   OR sy-tcode = 'VA03'.
ABAP VA01VA02VA03VA05销售订单根据权限隐藏价格
查看代码
"隐藏表格中金额、定价值字段      LOOP AT tctrl_konditionen-cols INTO DATA(lv_acol).        IF lv_acol-screen-name EQ 'KOMV-KBETR'         OR lv_acol-screen-name EQ 'KOMV-KWERT'.          lv_acol-invisible = 1.          MODIFY tctrl_konditionen-cols           FROM lv_acol INDEX sy-tabix.        ENDIF.      ENDLOOP.    ENDIF.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
"隐藏表格中金额、定价值字段      LOOP AT tctrl_konditionen-cols INTO DATA(lv_acol).        IF lv_acol-screen-name EQ 'KOMV-KBETR'         OR lv_acol-screen-name EQ 'KOMV-KWERT'.          lv_acol-invisible = 1.          MODIFY tctrl_konditionen-cols           FROM lv_acol INDEX sy-tabix.        ENDIF.      ENDLOOP.    ENDIF.
/* ... 已截断，完整代码请查看原文 */
ABAP VA01VA02VA03销售订单根据定价和步骤校验权限隐藏价格二
查看代码
"--------------------@斌将军--------------------      "获取用户权限对象的值      CALL FUNCTION 'GET_AUTH_VALUES'        EXPORTING          object1           = 'Z_KONH_KLS'          user              = sy-uname          tcode             = sy-tcode*         optimize          =        TABLES          values            = gt_us335        EXCEPTIONS          user_doesnt_exist = 1          OTHERS            = 2.      IF sy-subrc <> 0.* Implement suitable error handling her
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
"--------------------@斌将军--------------------      "获取用户权限对象的值      CALL FUNCTION 'GET_AUTH_VALUES'        EXPORTING          object1           = 'Z_KONH_KLS'          user              = sy-uname          tcode             = sy-tcode*         optimize          =        TABLES          values            = gt_us335        EXCEPTIONS          user_doesnt_exist = 1          OTHERS            = 2.      IF sy-subrc <> 0.* Implement suitable error handling her
/* ... 已截断，完整代码请查看原文 */
ABAP VA01VA02VA03销售订单根据定价和步骤校验权限隐藏价格二 
IF gt_us335 IS INITIAL.      "获取用户权限对象的值      CALL FUNCTION 'GET_AUTH_VALUES'        EXPORTING          object1           = 'Z_KONH_KLS'          user              = sy-uname          tcode             = sy-tcode*         optimize          =        TABLES          values            = gt_us335        EXCEPTIONS          user_doesnt_exist = 1          OTHERS            = 2.      IF sy-subrc <> 0.* Implement suitable error handling here      ENDIF.
查看完整代码 
IF gt_us335 IS INITIAL.      "获取用户权限对象的值      CALL FUNCTION 'GET_AUTH_VALUES'        EXPORTING          object1           = 'Z_KONH_KLS'          user              = sy-uname          tcode             = sy-tcode*         optimize          =        TABLES          values            = gt_us335        EXCEPTIONS          user_doesnt_exist = 1          OTHERS            = 2.      IF sy-subrc <> 0.* Implement suitable error handling here      ENDIF.
ABAP VA01VA02VA03销售订单根据定价和步骤校验权限隐藏价格二 
IF gv_sd007_hide_price = 'X'.      screen-active = 0.      MODIFY SCREEN.    ENDIF.  ENDIF.ENDIF.ENDENHANCEMENT."--------------------@斌将军--------------------
查看完整代码 
IF gv_sd007_hide_price = 'X'.      screen-active = 0.      MODIFY SCREEN.    ENDIF.  ENDIF.ENDIF.ENDENHANCEMENT."--------------------@斌将军--------------------
ABAP VA01信贷使用
查看代码
DATA:          ls_query1     TYPE ukmr3_credit_worthiness_query,          ls_response1  TYPE ukmr3_cw_response,          lx_exc1       TYPE REF TO cx_root,          lx_ai1        TYPE REF TO cx_ai_system_fault,          e_message1    LIKE LINE OF et_return,          ltext1        TYPE string.* Data declaration to get the input data to the proxy      DATA: ls_input        TYPE ukm_credit_worthiness_q_in,            ls_ouput        TYPE ukm_credit_worthiness_r_out,            ls_chk_sch     
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA:          ls_query1     TYPE ukmr3_credit_worthiness_query,          ls_response1  TYPE ukmr3_cw_response,          lx_exc1       TYPE REF TO cx_root,          lx_ai1        TYPE REF TO cx_ai_system_fault,          e_message1    LIKE LINE OF et_return,          ltext1        TYPE string.* Data declaration to get the input data to the proxy      DATA: ls_input        TYPE ukm_credit_worthiness_q_in,            ls_ouput        TYPE ukm_credit_worthiness_r_out,            ls_chk_sch     
/* ... 已截断，完整代码请查看原文 */
ABAP VA01信贷使用 
LOOP AT ls_query1-credit_worthiness_query-credit_worthiness_query-checking_schedule      INTO ls_chk_sch1.
查看完整代码 
LOOP AT ls_query1-credit_worthiness_query-credit_worthiness_query-checking_schedule      INTO ls_chk_sch1.
ABAP VA01信贷使用 
APPEND ls_chk_sch TO        ls_input-credit_worthiness_query-credit_worthiness_query-checking_schedule.        CLEAR ls_chk_sch.
ENDLOOP.
查看完整代码 
APPEND ls_chk_sch TO        ls_input-credit_worthiness_query-credit_worthiness_query-checking_schedule.        CLEAR ls_chk_sch.
ENDLOOP.
ABAP VA01销售订单批导问题解决
查看代码
"-----------------------------@斌将军-----------------------------IF i_head-kunnr IS NOT INITIAL.    SELECT SINGLE adrnr,anred,name1,ort01,land1,spras FROM kna1 INTO @DATA(ls_kna1) WHERE kunnr = @i_head-kunnr.    lt_partners-partn_role = 'WE'."合作伙伴功能    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'      EXPORTING        input  = i_head-kunnr " 送达方      IMPORTING        output = lt_partners-partn_numb.    lt_partners-addr_link  = ls_kna1-adrnr. "送达方对应的地址信息
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
"-----------------------------@斌将军-----------------------------IF i_head-kunnr IS NOT INITIAL.    SELECT SINGLE adrnr,anred,name1,ort01,land1,spras FROM kna1 INTO @DATA(ls_kna1) WHERE kunnr = @i_head-kunnr.    lt_partners-partn_role = 'WE'."合作伙伴功能    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'      EXPORTING        input  = i_head-kunnr " 送达方      IMPORTING        output = lt_partners-partn_numb.    lt_partners-addr_link  = ls_kna1-adrnr. "送达方对应的地址信息
/* ... 已截断，完整代码请查看原文 */
ABAP VA21创建报价单
查看代码
DATA:lv_check   TYPE char1,     lv_message TYPE char200.
"询报价单抬头*  ls_head_in-purch_no_c = '111'."客户参考POls_head_in-purch_date = '20230508'."客户参考日期ls_head_in-doc_type = 'Z000'. "销售订单类型ls_head_in-sales_org = '1050'. "销售组织ls_head_in-distr_chan = '00'."分销渠道ls_head_in-division = '00'."产品组ls_head_in-qt_valid_f = '20230508'."询报价单有效开始日期ls_head_in-qt_valid_t = '20230531'."询报价
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA:lv_check   TYPE char1,     lv_message TYPE char200.
"询报价单抬头*  ls_head_in-purch_no_c = '111'."客户参考POls_head_in-purch_date = '20230508'."客户参考日期ls_head_in-doc_type = 'Z000'. "销售订单类型ls_head_in-sales_org = '1050'. "销售组织ls_head_in-distr_chan = '00'."分销渠道ls_head_in-division = '00'."产品组ls_head_in-qt_valid_f = '20230508'."询报价单有效开始日期ls_head_in-qt_valid_t = '20230531'."询报价
/* ... 已截断，完整代码请查看原文 */
ABAP VA21创建报价单
查看代码
lt_partner_in-partn_role = 'AG'. "售达方lt_partner_in-partn_numb = '0001003763'."售达方APPEND lt_partner_in.CLEAR:lt_partner_in.
ls_logic_switch-pricing = 'G'."重新定价
lt_item_in-itm_number = '000010'."销售分销行项目lt_item_in-material = '000000000000000999'.lt_item_in-target_qty = '10'."数量lt_item_in-target_qu = 'H'."单位lt_item_in-plant = '1050'."订货工厂*    lt_item_in-tax_class1 = ."物料税分类
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
lt_partner_in-partn_role = 'AG'. "售达方lt_partner_in-partn_numb = '0001003763'."售达方APPEND lt_partner_in.CLEAR:lt_partner_in.
ls_logic_switch-pricing = 'G'."重新定价
lt_item_in-itm_number = '000010'."销售分销行项目lt_item_in-material = '000000000000000999'.lt_item_in-target_qty = '10'."数量lt_item_in-target_qu = 'H'."单位lt_item_in-plant = '1050'."订货工厂*    lt_item_in-tax_class1 = ."物料税分类
/* ... 已截断，完整代码请查看原文 */
ABAP VA41销售合同创建BAPI
查看代码
DATA:lv_check   TYPE char1,     lv_message TYPE char200,     lv_update  TYPE char1 VALUE 'I'.
CLEAR:ls_header_in.ls_header_in-doc_type    = 'Z100'."i_head-auart."销售凭证类型ls_header_in-sales_org   = '1010'."i_head-vkorg ."销售组织
ls_header_in-distr_chan  = '00'."i_head-vtweg."分销渠道ls_header_in-division    = '00'."i_head-spart."产品组ls_header_in-purch_no_c   = '20220905'."i_head-bstkd."客户参考日期
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA:lv_check   TYPE char1,     lv_message TYPE char200,     lv_update  TYPE char1 VALUE 'I'.
CLEAR:ls_header_in.ls_header_in-doc_type    = 'Z100'."i_head-auart."销售凭证类型ls_header_in-sales_org   = '1010'."i_head-vkorg ."销售组织
ls_header_in-distr_chan  = '00'."i_head-vtweg."分销渠道ls_header_in-division    = '00'."i_head-spart."产品组ls_header_in-purch_no_c   = '20220905'."i_head-bstkd."客户参考日期
/* ... 已截断，完整代码请查看原文 */
ABAP VA41销售合同创建BAPI 
*  IF i_head-kunag IS NOT INITIAL.lt_partners-partn_role = 'AG'."合作伙伴功能lt_partners-partn_numb = '0001000000'.APPEND lt_partners.lt_partners-partn_role = 'WE'."合作伙伴功能lt_partners-partn_numb = '0004000000'.APPEND lt_partners.*  ENDIF.
查看完整代码 
*  IF i_head-kunag IS NOT INITIAL.lt_partners-partn_role = 'AG'."合作伙伴功能lt_partners-partn_numb = '0001000000'.APPEND lt_partners.lt_partners-partn_role = 'WE'."合作伙伴功能lt_partners-partn_numb = '0004000000'.APPEND lt_partners.*  ENDIF.
ABAP VA41销售合同创建BAPI
查看代码
CLEAR lt_items_in.lt_items_in-itm_number = '10'."t_item-posnr."行项目lt_items_in-material   = '000000160000000006'."t_item-matnr."物料lt_items_in-plant      = '1011'."t_item-werks."工厂lt_items_in-sales_unit = 'EA'."t_item-vrkme."单位lt_items_in-tax_class1 = '1'."t_item-taxm1."物料税分类*    lt_items_in-store_loc  = '1011'."t_item-lgort."库存地点APPEND lt_items_in.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
CLEAR lt_items_in.lt_items_in-itm_number = '10'."t_item-posnr."行项目lt_items_in-material   = '000000160000000006'."t_item-matnr."物料lt_items_in-plant      = '1011'."t_item-werks."工厂lt_items_in-sales_unit = 'EA'."t_item-vrkme."单位lt_items_in-tax_class1 = '1'."t_item-taxm1."物料税分类*    lt_items_in-store_loc  = '1011'."t_item-lgort."库存地点APPEND lt_items_in.
/* ... 已截断，完整代码请查看原文 */
ABAP VF01VF11创建和冲销开票凭证
查看代码
DATA:lv_check   TYPE char1,     lv_message TYPE char200.
CLEAR:lt_billingdatain.  lt_billingdatain-ref_doc = '0080012360'."交货单号  lt_billingdatain-ref_item = '10'.  lt_billingdatain-doc_number = '0010001709'."销售订单号  lt_billingdatain-itm_number = '10'.  "  lt_billingdatain-ref_doc_ca = 'J'."凭证类别*lt_billingdatain-payer  = lv_payer. "付款方   20191030 add*lt_billingdatain-material = ''."gs_root-matnr.    &qu
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA:lv_check   TYPE char1,     lv_message TYPE char200.
CLEAR:lt_billingdatain.  lt_billingdatain-ref_doc = '0080012360'."交货单号  lt_billingdatain-ref_item = '10'.  lt_billingdatain-doc_number = '0010001709'."销售订单号  lt_billingdatain-itm_number = '10'.  "  lt_billingdatain-ref_doc_ca = 'J'."凭证类别*lt_billingdatain-payer  = lv_payer. "付款方   20191030 add*lt_billingdatain-material = ''."gs_root-matnr.    &qu
/* ... 已截断，完整代码请查看原文 */
ABAP VF01VF11创建和冲销开票凭证
查看代码
lv_bill_doc = '0090000367'."需要冲销的发票  CALL FUNCTION 'BAPI_BILLINGDOC_CANCEL1'    EXPORTING      billingdocument = lv_bill_doc    TABLES      return          = lt_return      success         = lt_success.
CLEAR:lv_check,lv_message.  LOOP AT lt_return INTO DATA(ls_return) WHERE type CA 'AEX'.    lv_check = 'E'.    lv_message = lv_message && ls_return-message.  ENDLOOP.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
lv_bill_doc = '0090000367'."需要冲销的发票  CALL FUNCTION 'BAPI_BILLINGDOC_CANCEL1'    EXPORTING      billingdocument = lv_bill_doc    TABLES      return          = lt_return      success         = lt_success.
CLEAR:lv_check,lv_message.  LOOP AT lt_return INTO DATA(ls_return) WHERE type CA 'AEX'.    lv_check = 'E'.    lv_message = lv_message && ls_return-message.  ENDLOOP.
/* ... 已截断，完整代码请查看原文 */
ABAP VF01销售发票拆分 
FORM daten_kopieren_901.*{   INSERT         DEVK900641                                        1
DATA: BEGIN OF zuk,          spart LIKE vbak-spart, "产品组          seq   TYPE n LENGTH 3, "组号，每300一组        END OF zuk.  STATICS: lv_count1 TYPE i.
SELECT SINGLE spart INTO @DATA(lv_spart) FROM mara WHERE matnr = @vbrp-matnr.  zuk-spart = lv_spart.  lv_count1 += 1.  zuk-seq = lv_count1 DIV 301 + 1.  vbrk-zukri = zuk.
查看完整代码 
FORM daten_kopieren_901.*{   INSERT         DEVK900641                                        1
DATA: BEGIN OF zuk,          spart LIKE vbak-spart, "产品组          seq   TYPE n LENGTH 3, "组号，每300一组        END OF zuk.  STATICS: lv_count1 TYPE i.
SELECT SINGLE spart INTO @DATA(lv_spart) FROM mara WHERE matnr = @vbrp-matnr.  zuk-spart = lv_spart.  lv_count1 += 1.  zuk-seq = lv_count1 DIV 301 + 1.  vbrk-zukri = zuk.
ABAP VL06OVL06I报表增强
查看代码
"--------------------@斌将军--------------------ENHANCEMENT 1  ZEMM_VL06I_APPEND.    "active version  DATA(lt_outtab) = gt_outtab[].  WITH +tab AS ( SELECT DISTINCT vgbel,vgpos FROM @lt_outtab AS outtab )  SELECT    ekpo~ebeln,    ekpo~ebelp,    ekpo~menge,    eket~etenr,    eket~eindt  FROM ekpo  INNER JOIN ekko ON ekpo~ebeln = ekko~ebeln  INNER JOIN +tab AS outtab ON ekpo~ebeln = outtab~vgbel AND ekpo~ebelp = RIGHT( outtab~vgpos ,5 )  LEFT OUTER JOIN eket ON ekpo~ebeln = eket~ebel
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
"--------------------@斌将军--------------------ENHANCEMENT 1  ZEMM_VL06I_APPEND.    "active version  DATA(lt_outtab) = gt_outtab[].  WITH +tab AS ( SELECT DISTINCT vgbel,vgpos FROM @lt_outtab AS outtab )  SELECT    ekpo~ebeln,    ekpo~ebelp,    ekpo~menge,    eket~etenr,    eket~eindt  FROM ekpo  INNER JOIN ekko ON ekpo~ebeln = ekko~ebeln  INNER JOIN +tab AS outtab ON ekpo~ebeln = outtab~vgbel AND ekpo~ebelp = RIGHT( outtab~vgpos ,5 )  LEFT OUTER JOIN eket ON ekpo~ebeln = eket~ebel
/* ... 已截断，完整代码请查看原文 */
ABAP Validation & Substitution comparison tool 
REPORT zutil_compare_validation_subst.
查看完整代码 
REPORT zutil_compare_validation_subst.
ABAP Validation & Substitution comparison tool 
TABLES: gb921,
查看完整代码 
TABLES: gb921,
ABAP Validation & Substitution comparison tool 
PARAMETERS: p_rfc TYPE rfcdes-rfcdest.
查看完整代码 
PARAMETERS: p_rfc TYPE rfcdes-rfcdest.
ABAP Validation & Substitution comparison tool 
PARAMETERS: p_vcond RADIOBUTTON GROUP rb1 "Validation: Conditions
查看完整代码 
PARAMETERS: p_vcond RADIOBUTTON GROUP rb1 "Validation: Conditions
ABAP Validation & Substitution comparison tool 
CLASS lcl_valid_susbt DEFINITION FINAL.
查看完整代码 
CLASS lcl_valid_susbt DEFINITION FINAL.
ABAP Validation & Substitution comparison tool 
TYPES: BEGIN OF ty_subst_cond,
查看完整代码 
TYPES: BEGIN OF ty_subst_cond,
ABAP Validation & Substitution comparison tool 
TYPES: BEGIN OF ty_subst_sust,
查看完整代码 
TYPES: BEGIN OF ty_subst_sust,
ABAP Validation & Substitution comparison tool 
TYPES: BEGIN OF ty_subst_cond_out,
查看完整代码 
TYPES: BEGIN OF ty_subst_cond_out,
ABAP Validation & Substitution comparison tool 
TYPES: BEGIN OF ty_subst_sust_out,
查看完整代码 
TYPES: BEGIN OF ty_subst_sust_out,
ABAP Validation & Substitution comparison tool 
TYPES: BEGIN OF ty_valid_cond,
查看完整代码 
TYPES: BEGIN OF ty_valid_cond,
ABAP Validation & Substitution comparison tool 
TYPES: BEGIN OF valid_cond_out_type,
查看完整代码 
TYPES: BEGIN OF valid_cond_out_type,
ABAP Validation & Substitution comparison tool 
TYPES: BEGIN OF ty_valid_chk,
查看完整代码 
TYPES: BEGIN OF ty_valid_chk,
ABAP Validation & Substitution comparison tool 
TYPES: BEGIN OF ty_valid_chk_out,
查看完整代码 
TYPES: BEGIN OF ty_valid_chk_out,
ABAP Validation & Substitution comparison tool 
TYPES: ty_t_gb901 TYPE STANDARD TABLE OF gb901 WITH DEFAULT KEY.
查看完整代码 
TYPES: ty_t_gb901 TYPE STANDARD TABLE OF gb901 WITH DEFAULT KEY.
ABAP Validation & Substitution comparison tool 
TYPES: ty_t_gb90t TYPE STANDARD TABLE OF gb90t WITH DEFAULT KEY.
查看完整代码 
TYPES: ty_t_gb90t TYPE STANDARD TABLE OF gb90t WITH DEFAULT KEY.
ABAP Validation & Substitution comparison tool 
TYPES: ty_t_gb931 TYPE STANDARD TABLE OF gb931 WITH DEFAULT KEY.
查看完整代码 
TYPES: ty_t_gb931 TYPE STANDARD TABLE OF gb931 WITH DEFAULT KEY.
ABAP Validation & Substitution comparison tool 
TYPES: ty_t_gb921 TYPE STANDARD TABLE OF gb921 WITH DEFAULT KEY.
查看完整代码 
TYPES: ty_t_gb921 TYPE STANDARD TABLE OF gb921 WITH DEFAULT KEY.
ABAP Validation & Substitution comparison tool 
TYPES: ty_t_gb921t TYPE STANDARD TABLE OF gb921t WITH DEFAULT KEY.
查看完整代码 
TYPES: ty_t_gb921t TYPE STANDARD TABLE OF gb921t WITH DEFAULT KEY.
ABAP Validation & Substitution comparison tool 
TYPES: ty_t_gb922 TYPE STANDARD TABLE OF gb922 WITH DEFAULT KEY.
查看完整代码 
TYPES: ty_t_gb922 TYPE STANDARD TABLE OF gb922 WITH DEFAULT KEY.
ABAP Validation & Substitution comparison tool 
TYPES: ty_t_valid_cond TYPE STANDARD TABLE OF ty_valid_cond WITH DEFAULT KEY.
查看完整代码 
TYPES: ty_t_valid_cond TYPE STANDARD TABLE OF ty_valid_cond WITH DEFAULT KEY.
ABAP Validation & Substitution comparison tool 
TYPES: ty_t_valid_chk TYPE STANDARD TABLE OF ty_valid_chk WITH DEFAULT KEY.
查看完整代码 
TYPES: ty_t_valid_chk TYPE STANDARD TABLE OF ty_valid_chk WITH DEFAULT KEY.
ABAP Validation & Substitution comparison tool 
TYPES: ty_t_subst_cond TYPE STANDARD TABLE OF ty_subst_cond WITH DEFAULT KEY.
查看完整代码 
TYPES: ty_t_subst_cond TYPE STANDARD TABLE OF ty_subst_cond WITH DEFAULT KEY.
ABAP Validation & Substitution comparison tool 
TYPES: ty_t_subst_subst TYPE STANDARD TABLE OF ty_subst_sust WITH DEFAULT KEY.
查看完整代码 
TYPES: ty_t_subst_subst TYPE STANDARD TABLE OF ty_subst_sust WITH DEFAULT KEY.
ABAP Validation & Substitution comparison tool 
CLASS-DATA:
查看完整代码 
CLASS-DATA:
ABAP WEBUI下载格式更改为xlsx 
可以看到 lv_content_type = 'text/csv; charset=UTF-16'. 限制了格式
查看完整代码 
可以看到 lv_content_type = 'text/csv; charset=UTF-16'. 限制了格式
ABAP WEBUI下载格式更改为xlsx
查看代码
METHOD export_as_excel.2.      DATA:3.        lv_content      TYPE xstring,4.        lo_excel        TYPE REF TO zcl_excel,5.        lo_excel_writer TYPE REF TO zif_excel_writer,6.        lo_worksheet    TYPE REF TO zcl_excel_worksheet,7.        lr_zcl_excel    TYPE REF TO zcx_excel,8.        lv_error_text   TYPE string.9.  10.      DATA:11.        lt_comp_tab TYPE cl_chtmlb_xml_provider=>chtmlb_tv_comp_descr_tab,12.        lv_comp     TYPE cl_chtmlb_xml_provider=>chtmlb_tv_comp_desc
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
METHOD export_as_excel.2.      DATA:3.        lv_content      TYPE xstring,4.        lo_excel        TYPE REF TO zcl_excel,5.        lo_excel_writer TYPE REF TO zif_excel_writer,6.        lo_worksheet    TYPE REF TO zcl_excel_worksheet,7.        lr_zcl_excel    TYPE REF TO zcx_excel,8.        lv_error_text   TYPE string.9.  10.      DATA:11.        lt_comp_tab TYPE cl_chtmlb_xml_provider=>chtmlb_tv_comp_descr_tab,12.        lv_comp     TYPE cl_chtmlb_xml_provider=>chtmlb_tv_comp_desc
/* ... 已截断，完整代码请查看原文 */
ABAP Working with select-options and ranges tables in modern ABAP 
SELECT 'I' AS sign,
查看完整代码 
SELECT 'I' AS sign,
ABAP [dump]调用转换时发生CX_SY_CONVERSION_DATA_LOSS异常 
p_shared_string =  lo_shared_str_nodeset
查看完整代码 
p_shared_string =  lo_shared_str_nodeset
ABAP [dump]调用转换时发生CX_SY_CONVERSION_DATA_LOSS异常 
RESULT lt_data =  lt_vbak[].
查看完整代码 
RESULT lt_data =  lt_vbak[].
ABAP distribution-of-full-master-data-objects-from-change-pointers 
loop at change_pointers into wa_bdcpv where mestype = 'ZIAM_HRMD_A'.
查看完整代码 
loop at change_pointers into wa_bdcpv where mestype = 'ZIAM_HRMD_A'.
ABAP distribution-of-full-master-data-objects-from-change-pointers 
if wa_bdcpv-tabkey+12(4) = '0000' or wa_bdcpv-tabkey+12(4) = '0001' or wa_bdcpv-tabkey+12(4) = '0002' or wa_bdcpv-tabkey+12(4) = '0105'."changepointers van deze infotypes wel verzamelen
查看完整代码 
if wa_bdcpv-tabkey+12(4) = '0000' or wa_bdcpv-tabkey+12(4) = '0001' or wa_bdcpv-tabkey+12(4) = '0002' or wa_bdcpv-tabkey+12(4) = '0105'."changepointers van deze infotypes wel verzamelen
ABAP distribution-of-full-master-data-objects-from-change-pointers 
with pchplvar = wa_bdcpv-tabkey+0(2)
with pchotype = wa_bdcpv-tabkey+2(2)
查看完整代码 
with pchplvar = wa_bdcpv-tabkey+0(2)
with pchotype = wa_bdcpv-tabkey+2(2)
ABAP distribution-of-full-master-data-objects-from-change-pointers 
with pchobjid-low = wa_bdcpv-tabkey+4(8)
查看完整代码 
with pchobjid-low = wa_bdcpv-tabkey+4(8)
ABAP doubt with the symbol GREATER THAN in the field REGUH-EMPFG 
IF im_empfg(1) NE '>'.
查看完整代码 
IF im_empfg(1) NE '>'.
ABAP doubt with the symbol GREATER THAN in the field REGUH-EMPFG 
ENDIF.
查看完整代码 
ENDIF.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
CLASS lcl_event_handle DEFINITION.
查看完整代码 
CLASS lcl_event_handle DEFINITION.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
ENDCLASS.
查看完整代码 
ENDCLASS.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
CLASS lcl_event_handle IMPLEMENTATION.
查看完整代码 
CLASS lcl_event_handle IMPLEMENTATION.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
METHOD hndl_double_click.
查看完整代码 
METHOD hndl_double_click.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
ENDMETHOD.
查看完整代码 
ENDMETHOD.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
ENDCLASS.
查看完整代码 
ENDCLASS.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
CLASS lcl_salv_tab DEFINITION.
查看完整代码 
CLASS lcl_salv_tab DEFINITION.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
ENDCLASS.
查看完整代码 
ENDCLASS.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
CLASS lcl_salv_tab IMPLEMENTATION.
查看完整代码 
CLASS lcl_salv_tab IMPLEMENTATION.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
METHOD main.
查看完整代码 
METHOD main.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
CREATE OBJECT lo_handle.
查看完整代码 
CREATE OBJECT lo_handle.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
get_alv_instance( EXPORTING  i_list     = i_list
查看完整代码 
get_alv_instance( EXPORTING  i_list     = i_list
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
i_alv_tb   = i_alv_tb ).
查看完整代码 
i_alv_tb   = i_alv_tb ).
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
CALL METHOD lo_salv_tab->get_event
查看完整代码 
CALL METHOD lo_salv_tab->get_event
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
value  = lo_event.    “Get all the Events of the table
查看完整代码 
value  = lo_event.    “Get all the Events of the table
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
ENDMETHOD.
查看完整代码 
ENDMETHOD.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
METHOD fetch_records.
查看完整代码 
METHOD fetch_records.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
SELECT * FROM sflight INTO CORRESPONDING FIELDS OF TABLE lt UP                                                                                       TO 40 ROWS.
查看完整代码 
SELECT * FROM sflight INTO CORRESPONDING FIELDS OF TABLE lt UP                                                                                       TO 40 ROWS.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
SELECT * FROM icon INTO TABLE lt_icon UP TO line ROWS.
查看完整代码 
SELECT * FROM icon INTO TABLE lt_icon UP TO line ROWS.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
LOOP AT  lt INTO ls.
查看完整代码 
LOOP AT  lt INTO ls.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
IF  rem_seat = 0.
查看完整代码 
IF  rem_seat = 0.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
ENDIF.
查看完整代码 
ENDIF.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
READ TABLE lt_icon INTO ls_icon INDEX indx .
查看完整代码 
READ TABLE lt_icon INTO ls_icon INDEX indx .
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
IF sy-subrc = 0.
查看完整代码 
IF sy-subrc = 0.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
ls-icon = ls_icon-id.
查看完整代码 
ls-icon = ls_icon-id.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
ENDIF.
查看完整代码 
ENDIF.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
IF indx <> 0.
查看完整代码 
IF indx <> 0.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
MODIFY LT FROM ls INDEX indx TRANSPORTING status icon symbol .
查看完整代码 
MODIFY LT FROM ls INDEX indx TRANSPORTING status icon symbol .
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
ENDIF.
查看完整代码 
ENDIF.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
ENDMETHOD.
查看完整代码 
ENDMETHOD.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
METHOD get_alv_instance.
查看完整代码 
METHOD get_alv_instance.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
IF i_list = ‘X’ OR i_grid = ‘X’.
查看完整代码 
IF i_list = ‘X’ OR i_grid = ‘X’.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
IF i_list = ‘X’.
查看完整代码 
IF i_list = ‘X’.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
ENDIF.
查看完整代码 
ENDIF.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
CALL METHOD cl_salv_table=>factory
查看完整代码 
CALL METHOD cl_salv_table=>factory
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
r_salv_table   = lo_salv_tab
查看完整代码 
r_salv_table   = lo_salv_tab
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
IF i_alv_tb = abap_true.
查看完整代码 
IF i_alv_tb = abap_true.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
CALL METHOD lo_salv_tab->get_functions ” Get the instance of                                                                                      “alv toolbal button
查看完整代码 
CALL METHOD lo_salv_tab->get_functions ” Get the instance of                                                                                      “alv toolbal button
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
value  = lo_func.
查看完整代码 
value  = lo_func.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
CALL METHOD lo_func->set_default ” pass ‘TRUE’ to display                                                                                 “toobar on alv
查看完整代码 
CALL METHOD lo_func->set_default ” pass ‘TRUE’ to display                                                                                 “toobar on alv
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
value  = if_salv_c_bool_sap=>true.
查看完整代码 
value  = if_salv_c_bool_sap=>true.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
ENDIF.
查看完整代码 
ENDIF.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
CALL METHOD lo_salv_tab->get_columns
查看完整代码 
CALL METHOD lo_salv_tab->get_columns
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
value  = lo_cols.
查看完整代码 
value  = lo_cols.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
CALL METHOD lo_cols->get_column
查看完整代码 
CALL METHOD lo_cols->get_column
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
value      = lo_col.
查看完整代码 
value      = lo_col.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
CALL METHOD lo_col->set_technical
查看完整代码 
CALL METHOD lo_col->set_technical
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
value  = if_salv_c_bool_sap=>true.
查看完整代码 
value  = if_salv_c_bool_sap=>true.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
CATCH cx_salv_not_found .
查看完整代码 
CATCH cx_salv_not_found .
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
CALL METHOD lo_cols->set_exception_column
查看完整代码 
CALL METHOD lo_cols->set_exception_column
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
CATCH cx_salv_data_error .
查看完整代码 
CATCH cx_salv_data_error .
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
CALL METHOD lo_cols->get_column
查看完整代码 
CALL METHOD lo_cols->get_column
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
value      = lo_col_icon.
查看完整代码 
value      = lo_col_icon.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
lo_icon ?= lo_col_icon.
查看完整代码 
lo_icon ?= lo_col_icon.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
CALL METHOD lo_icon->set_icon
查看完整代码 
CALL METHOD lo_icon->set_icon
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
value  = if_salv_c_bool_sap=>true.
查看完整代码 
value  = if_salv_c_bool_sap=>true.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
CALL METHOD lo_icon->set_long_text
查看完整代码 
CALL METHOD lo_icon->set_long_text
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
CATCH cx_salv_not_found .
查看完整代码 
CATCH cx_salv_not_found .
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
CALL METHOD lo_cols->get_column
查看完整代码 
CALL METHOD lo_cols->get_column
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
value      = lo_col_sym.
查看完整代码 
value      = lo_col_sym.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
lo_symbol ?= lo_col_sym.
查看完整代码 
lo_symbol ?= lo_col_sym.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
CALL METHOD lo_symbol->set_symbol
查看完整代码 
CALL METHOD lo_symbol->set_symbol
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
value  = if_salv_c_bool_sap=>true  .
查看完整代码 
value  = if_salv_c_bool_sap=>true  .
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
CALL METHOD lo_symbol->set_long_text
查看完整代码 
CALL METHOD lo_symbol->set_long_text
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
CATCH cx_salv_not_found .
查看完整代码 
CATCH cx_salv_not_found .
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
CATCH cx_salv_msg .
查看完整代码 
CATCH cx_salv_msg .
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
ENDIF.
查看完整代码 
ENDIF.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
ENDMETHOD.
查看完整代码 
ENDMETHOD.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
METHOD display_alv.
查看完整代码 
METHOD display_alv.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
CALL METHOD lo_salv_tab->display.
查看完整代码 
CALL METHOD lo_salv_tab->display.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
ENDMETHOD.
查看完整代码 
ENDMETHOD.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
ENDCLASS.
查看完整代码 
ENDCLASS.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
CALL METHOD lcl_salv_tab=>main EXPORTING
查看完整代码 
CALL METHOD lcl_salv_tab=>main EXPORTING
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
i_alv_tb   = alv_tool.
查看完整代码 
i_alv_tb   = alv_tool.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
TABLES: mara.
查看完整代码 
TABLES: mara.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
DATA: BEGIN OF it_tab OCCURS 0,
查看完整代码 
DATA: BEGIN OF it_tab OCCURS 0,
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
DATA: wa_it_tab LIKE LINE OF it_tab.
查看完整代码 
DATA: wa_it_tab LIKE LINE OF it_tab.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
CLASS lcl_events_d0100 DEFINITION DEFERRED.
查看完整代码 
CLASS lcl_events_d0100 DEFINITION DEFERRED.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
CLASS lcl_events_d0100 DEFINITION.
查看完整代码 
CLASS lcl_events_d0100 DEFINITION.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
ENDCLASS.                    "lcl_events_d0100 DEFINITION
查看完整代码 
ENDCLASS.                    "lcl_events_d0100 DEFINITION
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
DATA: event_receiver1  TYPE REF TO lcl_events_d0100.
查看完整代码 
DATA: event_receiver1  TYPE REF TO lcl_events_d0100.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
CLASS lcl_events_d0100 IMPLEMENTATION.
查看完整代码 
CLASS lcl_events_d0100 IMPLEMENTATION.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
METHOD double_click.
查看完整代码 
METHOD double_click.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
ENDMETHOD.                    "double_click
查看完整代码 
ENDMETHOD.                    "double_click
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
METHOD handle_hotspot_click.
查看完整代码 
METHOD handle_hotspot_click.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
DATA: ls_col_id   TYPE lvc_s_col.
查看完整代码 
DATA: ls_col_id   TYPE lvc_s_col.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
READ TABLE it_tab INTO wa_it_tab
查看完整代码 
READ TABLE it_tab INTO wa_it_tab
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
IF sy-subrc = 0.
查看完整代码 
IF sy-subrc = 0.
ABAP handle-double-click-on-alv-by-cl_salv_table-events 
CALL METHOD ref_grid->set_current_cell_via_id
查看完整代码 
CALL METHOD ref_grid->set_current_cell_via_id
ABAP hide-selection-screen-based-on-radio-button 
LOOP AT SCREEN.
查看完整代码 
LOOP AT SCREEN.
ABAP hide-selection-screen-based-on-radio-button 
IF rad_flt = 'X' AND screen-group1 = 'sc2'.
查看完整代码 
IF rad_flt = 'X' AND screen-group1 = 'sc2'.
ABAP hide-selection-screen-based-on-radio-button 
MODIFY SCREEN.
查看完整代码 
MODIFY SCREEN.
ABAP hide-selection-screen-based-on-radio-button 
MODIFY SCREEN.
查看完整代码 
MODIFY SCREEN.
ABAP hide-selection-screen-based-on-radio-button 
ENDIF.
查看完整代码 
ENDIF.
ABAP hide-selection-screen-based-on-radio-button 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP hide-selection-screen-based-on-radio-button 
LOOP AT SCREEN.
查看完整代码 
LOOP AT SCREEN.
ABAP hide-selection-screen-based-on-radio-button 
IF rad_flt = 'X' AND screen-group1 = 'SC2'.
查看完整代码 
IF rad_flt = 'X' AND screen-group1 = 'SC2'.
ABAP hide-selection-screen-based-on-radio-button 
MODIFY SCREEN.
查看完整代码 
MODIFY SCREEN.
ABAP hide-selection-screen-based-on-radio-button 
MODIFY SCREEN.
查看完整代码 
MODIFY SCREEN.
ABAP hide-selection-screen-based-on-radio-button 
ENDIF.
查看完整代码 
ENDIF.
ABAP hide-selection-screen-based-on-radio-button 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP hide-selection-screen-based-on-radio-button 
LOOP AT SCREEN.
查看完整代码 
LOOP AT SCREEN.
ABAP hide-selection-screen-based-on-radio-button 
IF rad_flt = 'X' AND screen-group1 = 'sc2'.
查看完整代码 
IF rad_flt = 'X' AND screen-group1 = 'sc2'.
ABAP hide-selection-screen-based-on-radio-button 
MODIFY SCREEN.
查看完整代码 
MODIFY SCREEN.
ABAP hide-selection-screen-based-on-radio-button 
MODIFY SCREEN.
查看完整代码 
MODIFY SCREEN.
ABAP hide-selection-screen-based-on-radio-button 
ENDIF.
查看完整代码 
ENDIF.
ABAP hide-selection-screen-based-on-radio-button 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP hide-selection-screen-based-on-radio-button 
LOOP AT SCREEN.
查看完整代码 
LOOP AT SCREEN.
ABAP hide-selection-screen-based-on-radio-button 
IF rad_flt = 'X' AND screen-group1 = 'SC2'.
查看完整代码 
IF rad_flt = 'X' AND screen-group1 = 'SC2'.
ABAP hide-selection-screen-based-on-radio-button 
MODIFY SCREEN.
查看完整代码 
MODIFY SCREEN.
ABAP hide-selection-screen-based-on-radio-button 
MODIFY SCREEN.
查看完整代码 
MODIFY SCREEN.
ABAP hide-selection-screen-based-on-radio-button 
ENDIF.
查看完整代码 
ENDIF.
ABAP hide-selection-screen-based-on-radio-button 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP oracleapex开发技巧 
SELECT APEX_PAGE.GET_URL (
查看完整代码 
SELECT APEX_PAGE.GET_URL (
ABAP refresh-alv-grid-and-keep-position-and-current-cell 
grid->set_selected_cells_id( it_cells = mt_cells   ).
查看完整代码 
grid->set_selected_cells_id( it_cells = mt_cells   ).
ABAP send email with attachment 
REPORT YSEND_BULK_DOCUMENTS_FROM_A_FOLDER.
查看完整代码 
REPORT YSEND_BULK_DOCUMENTS_FROM_A_FOLDER.
ABAP send email with attachment 
CALL METHOD CL_GUI_FRONTEND_SERVICES=>DIRECTORY_BROWSE
查看完整代码 
CALL METHOD CL_GUI_FRONTEND_SERVICES=>DIRECTORY_BROWSE
ABAP send email with attachment 
SELECTED_FOLDER      = LV_STRING
查看完整代码 
SELECTED_FOLDER      = LV_STRING
ABAP send email with attachment 
IF SY-SUBRC <> 0.
查看完整代码 
IF SY-SUBRC <> 0.
ABAP send email with attachment 
ENDIF.
查看完整代码 
ENDIF.
ABAP send email with attachment 
IF P_ATTACH IS INITIAL.
查看完整代码 
IF P_ATTACH IS INITIAL.
ABAP send email with attachment 
ENDIF.
查看完整代码 
ENDIF.
ABAP send email with attachment 
CALL FUNCTION 'TMP_GUI_DIRECTORY_LIST_FILES'
查看完整代码 
CALL FUNCTION 'TMP_GUI_DIRECTORY_LIST_FILES'
ABAP send email with attachment 
WRITE:/ 'no of files in the floder is : '(005), FILE_COUNT.
查看完整代码 
WRITE:/ 'no of files in the floder is : '(005), FILE_COUNT.
ABAP send email with attachment 
WRITE:/ SY-ULINE.
查看完整代码 
WRITE:/ SY-ULINE.
ABAP send email with attachment 
WRITE:/ SY-ULINE.
查看完整代码 
WRITE:/ SY-ULINE.
ABAP send email with attachment 
LOOP AT FILE_TABLE.
查看完整代码 
LOOP AT FILE_TABLE.
ABAP send email with attachment 
CALL FUNCTION 'GUI_UPLOAD'
查看完整代码 
CALL FUNCTION 'GUI_UPLOAD'
ABAP send email with attachment 
IF SY-SUBRC <> 0.
查看完整代码 
IF SY-SUBRC <> 0.
ABAP send email with attachment 
ENDIF.
查看完整代码 
ENDIF.
ABAP send email with attachment 
READ TABLE TL_TEXTPOOL INTO WA_TEXTPOOL WITH KEY ID = 'I'
查看完整代码 
READ TABLE TL_TEXTPOOL INTO WA_TEXTPOOL WITH KEY ID = 'I'
ABAP send email with attachment 
IF SY-SUBRC = 0.
查看完整代码 
IF SY-SUBRC = 0.
ABAP send email with attachment 
APPEND WA_CONTENTS TO IT_CONTENTS.
查看完整代码 
APPEND WA_CONTENTS TO IT_CONTENTS.
ABAP send email with attachment 
ENDIF.
查看完整代码 
ENDIF.
ABAP send email with attachment 
CALL METHOD L_DOCUMENT->ADD_ATTACHMENT
查看完整代码 
CALL METHOD L_DOCUMENT->ADD_ATTACHMENT
ABAP send email with attachment 
CALL METHOD W_DOCUMENT->SET_DOCUMENT( L_DOCUMENT ).
查看完整代码 
CALL METHOD W_DOCUMENT->SET_DOCUMENT( L_DOCUMENT ).
ABAP send email with attachment 
CALL METHOD W_DOCUMENT->ADD_RECIPIENT
查看完整代码 
CALL METHOD W_DOCUMENT->ADD_RECIPIENT
ABAP send email with attachment 
CALL METHOD W_DOCUMENT->SEND(
查看完整代码 
CALL METHOD W_DOCUMENT->SEND(
ABAP send email with attachment 
IF L_RESULT = 'X'.
查看完整代码 
IF L_RESULT = 'X'.
ABAP send email with attachment 
ENDIF.
查看完整代码 
ENDIF.
ABAP send email with attachment 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP 一个SORT引起的BUG 
REPORT ytest_sort.
PARAMETERS: p_count TYPE i.PARAMETERS: p_stable TYPE c AS CHECKBOX.DATA: BEGIN OF lt_tab OCCURS 0,        a TYPE i,        b TYPE c,      END OF lt_tab.DO p_count TIMES.  APPEND VALUE #( a = sy-index ) TO lt_tab.ENDDO.IF p_stable = 'X'.  SORT lt_tab STABLE BY b.ELSE.  SORT lt_tab BY b.ENDIF.cl_demo_output=>display( lt_tab[] ).
查看完整代码 
REPORT ytest_sort.
PARAMETERS: p_count TYPE i.PARAMETERS: p_stable TYPE c AS CHECKBOX.DATA: BEGIN OF lt_tab OCCURS 0,        a TYPE i,        b TYPE c,      END OF lt_tab.DO p_count TIMES.  APPEND VALUE #( a = sy-index ) TO lt_tab.ENDDO.IF p_stable = 'X'.  SORT lt_tab STABLE BY b.ELSE.  SORT lt_tab BY b.ENDIF.cl_demo_output=>display( lt_tab[] ).
ABAP 一个简洁实用的ALV显示模板
查看代码
DATA: gt_fldct TYPE lvc_t_fcat,      gs_slayt TYPE lvc_s_layo,      gs_varnt TYPE disvariant,      gv_repid TYPE sy-repid.DATA: BEGIN OF gs_out,        plnum TYPE plaf-plnum,        matnr TYPE plaf-matnr,        maktx TYPE makt-maktx,        gsmng TYPE plaf-gsmng,        meins TYPE plaf-meins,        psttr TYPE plaf-psttr,        pedtr TYPE plaf-pedtr,        dispo TYPE plaf-dispo,        beskz TYPE plaf-beskz,        berid TYPE plaf-berid,        fevor TYPE marc-fevor,        fetxt TYPE t
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA: gt_fldct TYPE lvc_t_fcat,      gs_slayt TYPE lvc_s_layo,      gs_varnt TYPE disvariant,      gv_repid TYPE sy-repid.DATA: BEGIN OF gs_out,        plnum TYPE plaf-plnum,        matnr TYPE plaf-matnr,        maktx TYPE makt-maktx,        gsmng TYPE plaf-gsmng,        meins TYPE plaf-meins,        psttr TYPE plaf-psttr,        pedtr TYPE plaf-pedtr,        dispo TYPE plaf-dispo,        beskz TYPE plaf-beskz,        berid TYPE plaf-berid,        fevor TYPE marc-fevor,        fetxt TYPE t
/* ... 已截断，完整代码请查看原文 */
ABAP 一个简洁实用的ALV显示模板
查看代码
SELECT plaf~plnum         plaf~matnr         makt~maktx         plaf~gsmng         plaf~meins         plaf~psttr         plaf~pedtr         plaf~dispo         plaf~beskz         plaf~berid         marc~fevor         t024f~txt AS fetxt    INTO CORRESPONDING FIELDS OF TABLE gt_out    FROM plaf INNER JOIN marc  ON marc~matnr = plaf~matnr AND                                  marc~werks = plaf~plwrk              INNER JOIN makt  ON makt~matnr = plaf~matnr AND                                  ma
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
SELECT plaf~plnum         plaf~matnr         makt~maktx         plaf~gsmng         plaf~meins         plaf~psttr         plaf~pedtr         plaf~dispo         plaf~beskz         plaf~berid         marc~fevor         t024f~txt AS fetxt    INTO CORRESPONDING FIELDS OF TABLE gt_out    FROM plaf INNER JOIN marc  ON marc~matnr = plaf~matnr AND                                  marc~werks = plaf~plwrk              INNER JOIN makt  ON makt~matnr = plaf~matnr AND                                  ma
/* ... 已截断，完整代码请查看原文 */
ABAP 一个简洁实用的ALV显示模板
查看代码
READ TABLE gt_out INTO gs_out INDEX pv_field-tabindex.  CASE pv_ucomm.    WHEN '&IC1'.      CASE pv_field-fieldname.        WHEN 'MATNR' OR 'MAKTX'.          SET PARAMETER ID 'MXX' FIELD 'K'.          SET PARAMETER ID 'MAT' FIELD gs_out-matnr.          SET PARAMETER ID 'WRK' FIELD p_werks.          CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN.        WHEN 'PLNUM'.          SET PARAMETER ID '
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
READ TABLE gt_out INTO gs_out INDEX pv_field-tabindex.  CASE pv_ucomm.    WHEN '&IC1'.      CASE pv_field-fieldname.        WHEN 'MATNR' OR 'MAKTX'.          SET PARAMETER ID 'MXX' FIELD 'K'.          SET PARAMETER ID 'MAT' FIELD gs_out-matnr.          SET PARAMETER ID 'WRK' FIELD p_werks.          CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN.        WHEN 'PLNUM'.          SET PARAMETER ID '
/* ... 已截断，完整代码请查看原文 */
ABAP 一个简洁实用的ALV显示模板
查看代码
ls_fldcat-fieldname =  pv_field.    "字段名  ls_fldcat-scrtext_l =  pv_text.     "长描述  ls_fldcat-coltext   =  pv_text.     "列描述  ls_fldcat-ref_table =  pv_reftab.   "参考表名  ls_fldcat-ref_field =  pv_reffld.   "参考字段名  ls_fldcat-col_opt   = 'A'.          "自动优化列宽
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
ls_fldcat-fieldname =  pv_field.    "字段名  ls_fldcat-scrtext_l =  pv_text.     "长描述  ls_fldcat-coltext   =  pv_text.     "列描述  ls_fldcat-ref_table =  pv_reftab.   "参考表名  ls_fldcat-ref_field =  pv_reffld.   "参考字段名  ls_fldcat-col_opt   = 'A'.          "自动优化列宽
/* ... 已截断，完整代码请查看原文 */
ABAP 上传修改删除表数据
查看代码
TABLES: sscrfields,dfies,dd02v,dd03p,usr01.DATA: gt_fldct TYPE lvc_t_fcat,      gs_fldct TYPE lvc_s_fcat,      gs_slayt TYPE lvc_s_layo,      gv_index TYPE sy-index,      gv_title TYPE lvc_title,      gv_tabix LIKE sy-tabix,      gv_subrc LIKE sy-subrc,      gv_fname TYPE rs38l_fnam,      gv_lsstr TYPE string,      gv_keynm TYPE i.DATA: gt_dd03 TYPE TABLE OF dd03p    WITH HEADER LINE.DATA: gt_clip TYPE TABLE OF text4096 WITH HEADER LINE,      it_fval TYPE TABLE OF text4096 WITH HEADER LINE
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
TABLES: sscrfields,dfies,dd02v,dd03p,usr01.DATA: gt_fldct TYPE lvc_t_fcat,      gs_fldct TYPE lvc_s_fcat,      gs_slayt TYPE lvc_s_layo,      gv_index TYPE sy-index,      gv_title TYPE lvc_title,      gv_tabix LIKE sy-tabix,      gv_subrc LIKE sy-subrc,      gv_fname TYPE rs38l_fnam,      gv_lsstr TYPE string,      gv_keynm TYPE i.DATA: gt_dd03 TYPE TABLE OF dd03p    WITH HEADER LINE.DATA: gt_clip TYPE TABLE OF text4096 WITH HEADER LINE,      it_fval TYPE TABLE OF text4096 WITH HEADER LINE
/* ... 已截断，完整代码请查看原文 */
ABAP 上传修改删除表数据
查看代码
CALL FUNCTION 'VRM_SET_VALUES'    EXPORTING      id     = 'P_TODO'      values = gt_lstbox.
LOOP AT SCREEN.    IF pr_2 <> 'X' AND screen-name CS 'FILESTR'.      screen-active = '0'.    ENDIF.    IF 'S_FLDS-LOW P_ONLYZ' CS screen-name.      screen-input = '0'.    ENDIF.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
CALL FUNCTION 'VRM_SET_VALUES'    EXPORTING      id     = 'P_TODO'      values = gt_lstbox.
LOOP AT SCREEN.    IF pr_2 <> 'X' AND screen-name CS 'FILESTR'.      screen-active = '0'.    ENDIF.    IF 'S_FLDS-LOW P_ONLYZ' CS screen-name.      screen-input = '0'.    ENDIF.
/* ... 已截断，完整代码请查看原文 */
ABAP 个人OOALV模版加快你的ALV开发 
SELECT * FROM sflight INTO TABLE @DATA(gt_sflight)  UP TO 20 ROWS.
查看完整代码 
SELECT * FROM sflight INTO TABLE @DATA(gt_sflight)  UP TO 20 ROWS.
ABAP 个人OOALV模版加快你的ALV开发 
REPORT z_tab_test03.DATA ok_code TYPE sy-ucomm.
SELECT * FROM sflight INTO TABLE @DATA(gt_sflight)  UP TO 20 ROWS.
查看完整代码 
REPORT z_tab_test03.DATA ok_code TYPE sy-ucomm.
SELECT * FROM sflight INTO TABLE @DATA(gt_sflight)  UP TO 20 ROWS.
ABAP 个人OOALV模版加快你的ALV开发
查看代码
CALL METHOD cl_oo_alv->create_oo_alv  EXPORTING*   iv_repid          = SY-CPROG*   iv_screen         = '9000'*   iv_default_ex     = 'X'*   is_layout         =*   it_fieldcat       =*   it_exclude        =*   iv_split_number   =*   iv_split_container          =    iv_container_name = 'CONTAINER'*   iv_variant_handle = '1'*   i_f4_form         =*   i_toolbar_form    =*   i_user_command_form         =*   i_hotspot_form    =*   i_datachanged_form    
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
CALL METHOD cl_oo_alv->create_oo_alv  EXPORTING*   iv_repid          = SY-CPROG*   iv_screen         = '9000'*   iv_default_ex     = 'X'*   is_layout         =*   it_fieldcat       =*   it_exclude        =*   iv_split_number   =*   iv_split_container          =    iv_container_name = 'CONTAINER'*   iv_variant_handle = '1'*   i_f4_form         =*   i_toolbar_form    =*   i_user_command_form         =*   i_hotspot_form    =*   i_datachanged_form    
/* ... 已截断，完整代码请查看原文 */
ABAP 个人OOALV模版加快你的ALV开发 
REPORT z_tab_test03.DATA ok_code TYPE sy-ucomm.
SELECT * FROM sflight INTO TABLE @DATA(gt_sflight)  UP TO 20 ROWS.CHECK sy-subrc EQ 0.SELECT * FROM scarr INTO TABLE @DATA(gt_scarr)  FOR ALL ENTRIES IN @gt_sflight  WHERE carrid = @gt_sflight-carrid.
查看完整代码 
REPORT z_tab_test03.DATA ok_code TYPE sy-ucomm.
SELECT * FROM sflight INTO TABLE @DATA(gt_sflight)  UP TO 20 ROWS.CHECK sy-subrc EQ 0.SELECT * FROM scarr INTO TABLE @DATA(gt_scarr)  FOR ALL ENTRIES IN @gt_sflight  WHERE carrid = @gt_sflight-carrid.
ABAP 个人OOALV模版加快你的ALV开发 
CALL METHOD zcl_tab_oo_alv=>split_container  EXPORTING    iv_container_name = 'CONTAINER'    i_row             = 1    i_col             = 2  IMPORTING    et_container_t    = DATA(lt_container_t).
查看完整代码 
CALL METHOD zcl_tab_oo_alv=>split_container  EXPORTING    iv_container_name = 'CONTAINER'    i_row             = 1    i_col             = 2  IMPORTING    et_container_t    = DATA(lt_container_t).
ABAP 个人OOALV模版加快你的ALV开发
查看代码
READ TABLE lt_container_t INTO DATA(ls_container) INDEX 1.IF sy-subrc EQ 0.  CALL METHOD cl_oo_alv1->create_oo_alv    EXPORTING      iv_split_number    = 1      iv_split_container = ls_container-container    CHANGING      it_data            = gt_sflight.ENDIF.
READ TABLE lt_container_t INTO ls_container INDEX 2.IF sy-subrc EQ 0.  CALL METHOD cl_oo_alv1->create_oo_alv    EXPORTING      iv_split_number    = 2      iv_split_container = ls_container-container    CHANGING      it_data    
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
READ TABLE lt_container_t INTO DATA(ls_container) INDEX 1.IF sy-subrc EQ 0.  CALL METHOD cl_oo_alv1->create_oo_alv    EXPORTING      iv_split_number    = 1      iv_split_container = ls_container-container    CHANGING      it_data            = gt_sflight.ENDIF.
READ TABLE lt_container_t INTO ls_container INDEX 2.IF sy-subrc EQ 0.  CALL METHOD cl_oo_alv1->create_oo_alv    EXPORTING      iv_split_number    = 2      iv_split_container = ls_container-container    CHANGING      it_data    
/* ... 已截断，完整代码请查看原文 */
ABAP 个人OOALV模版加快你的ALV开发
查看代码
CLASS zcl_tab_oo_alv DEFINITION  PUBLIC  CREATE PUBLIC .*&=====================================================================**& Create date:  2021.08.26*& Created by:   Tab-Zhu (微信公众号：Tab_JXZHU)*&---------------------------------------------------------------------*  PUBLIC SECTION.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
CLASS zcl_tab_oo_alv DEFINITION  PUBLIC  CREATE PUBLIC .*&=====================================================================**& Create date:  2021.08.26*& Created by:   Tab-Zhu (微信公众号：Tab_JXZHU)*&---------------------------------------------------------------------*  PUBLIC SECTION.
/* ... 已截断，完整代码请查看原文 */
ABAP 个人TREEALV模版加快你的开发 
SELECT * FROM sflight INTO TABLE @gt_sflight UP TO 50 ROWS.
查看完整代码 
SELECT * FROM sflight INTO TABLE @gt_sflight UP TO 50 ROWS.
ABAP 个人TREEALV模版加快你的开发 
IF g_alv_tree IS INITIAL.
查看完整代码 
IF g_alv_tree IS INITIAL.
ABAP 个人TREEALV模版加快你的开发 
CALL METHOD cl_gui_cfw=>flush
查看完整代码 
CALL METHOD cl_gui_cfw=>flush
ABAP 个人TREEALV模版加快你的开发 
ENDIF.
ENDMODULE.
查看完整代码 
ENDIF.
ENDMODULE.
ABAP 个人TREEALV模版加快你的开发 
CALL METHOD g_alv_tree->r_container->free.
查看完整代码 
CALL METHOD g_alv_tree->r_container->free.
ABAP 个人TREEALV模版加快你的开发 
CALL METHOD cl_gui_cfw=>dispatch.
ENDCASE.
CALL METHOD cl_gui_cfw=>flush.
ENDMODULE.
查看完整代码 
CALL METHOD cl_gui_cfw=>dispatch.
ENDCASE.
CALL METHOD cl_gui_cfw=>flush.
ENDMODULE.
ABAP 个人TREEALV模版加快你的开发 
REPORT ztab_test_02.
TYPES: BEGIN OF ty_tree_node,
查看完整代码 
REPORT ztab_test_02.
TYPES: BEGIN OF ty_tree_node,
ABAP 个人TREEALV模版加快你的开发 
END OF ty_tree_node.
DATA: g_alv_tree         TYPE REF TO zcl_tab_tree_alv.
DATA: gt_sflight TYPE sflight OCCURS 0,      "Output-Table
查看完整代码 
END OF ty_tree_node.
DATA: g_alv_tree         TYPE REF TO zcl_tab_tree_alv.
DATA: gt_sflight TYPE sflight OCCURS 0,      "Output-Table
ABAP 个人TREEALV模版加快你的开发 
SELECT * FROM sflight INTO TABLE @gt_sflight UP TO 50 ROWS.
查看完整代码 
SELECT * FROM sflight INTO TABLE @gt_sflight UP TO 50 ROWS.
ABAP 个人TREEALV模版加快你的开发 
IF g_alv_tree IS INITIAL.
查看完整代码 
IF g_alv_tree IS INITIAL.
ABAP 个人TREEALV模版加快你的开发 
CALL METHOD cl_gui_cfw=>flush
查看完整代码 
CALL METHOD cl_gui_cfw=>flush
ABAP 个人TREEALV模版加快你的开发 
ENDIF.
查看完整代码 
ENDIF.
ABAP 个人TREEALV模版加快你的开发 
CALL METHOD g_alv_tree->r_container->free.
查看完整代码 
CALL METHOD g_alv_tree->r_container->free.
ABAP 个人TREEALV模版加快你的开发 
CALL METHOD cl_gui_cfw=>dispatch.
ENDCASE.
CALL METHOD cl_gui_cfw=>flush.
ENDMODULE.                             " PAI  INPUT
FORM init_tree.
CREATE OBJECT g_alv_tree.
DATA(ls_alv_tree_head) = VALUE treev_hhdr( heading = '航班' tooltip = '航班'
查看完整代码 
CALL METHOD cl_gui_cfw=>dispatch.
ENDCASE.
CALL METHOD cl_gui_cfw=>flush.
ENDMODULE.                             " PAI  INPUT
FORM init_tree.
CREATE OBJECT g_alv_tree.
DATA(ls_alv_tree_head) = VALUE treev_hhdr( heading = '航班' tooltip = '航班'
ABAP 个人TREEALV模版加快你的开发 
CALL METHOD zcl_tab_tree_alv=>set_default_fieldcat
查看完整代码 
CALL METHOD zcl_tab_tree_alv=>set_default_fieldcat
ABAP 个人TREEALV模版加快你的开发 
rt_fieldcat           = DATA(lt_fieldcat)
查看完整代码 
rt_fieldcat           = DATA(lt_fieldcat)
ABAP 个人TREEALV模版加快你的开发 
IF sy-subrc <> 0.
查看完整代码 
IF sy-subrc <> 0.
ABAP 个人TREEALV模版加快你的开发 
ENDIF.
LOOP AT lt_fieldcat ASSIGNING FIELD-SYMBOL(<fs_fcat>).
DATA(lv_tabix) = sy-tabix.
查看完整代码 
ENDIF.
LOOP AT lt_fieldcat ASSIGNING FIELD-SYMBOL(<fs_fcat>).
DATA(lv_tabix) = sy-tabix.
ABAP 个人TREEALV模版加快你的开发 
ENDCASE.
ENDLOOP.
CALL METHOD g_alv_tree->create_tree_alv
查看完整代码 
ENDCASE.
ENDLOOP.
CALL METHOD g_alv_tree->create_tree_alv
ABAP 个人TREEALV模版加快你的开发 
iv_hierarchy_header    = ls_alv_tree_head
查看完整代码 
iv_hierarchy_header    = ls_alv_tree_head
ABAP 个人TREEALV模版加快你的开发 
it_fieldcat            = lt_fieldcat
查看完整代码 
it_fieldcat            = lt_fieldcat
ABAP 个人TREEALV模版加快你的开发 
create_tree_alv_failed = 1
查看完整代码 
create_tree_alv_failed = 1
ABAP 个人TREEALV模版加快你的开发 
IF sy-subrc <> 0.
查看完整代码 
IF sy-subrc <> 0.
ABAP 个人TREEALV模版加快你的开发 
ENDIF.
ENDFORM.
FORM frm_set_tree_node_form
查看完整代码 
ENDIF.
ENDFORM.
FORM frm_set_tree_node_form
ABAP 个人TREEALV模版加快你的开发 
DATA:lt_data TYPE TABLE OF sflight."inner table structure ex:sflight 以航班表为例子
DATA:ls_output_line TYPE sflight.
DATA:ls_layout_node TYPE lvc_s_layn.
DATA: ls_layout_item TYPE lvc_s_layi,
查看完整代码 
DATA:lt_data TYPE TABLE OF sflight."inner table structure ex:sflight 以航班表为例子
DATA:ls_output_line TYPE sflight.
DATA:ls_layout_node TYPE lvc_s_layn.
DATA: ls_layout_item TYPE lvc_s_layi,
ABAP 个人TREEALV模版加快你的开发 
DATA:lv_top_key TYPE lvc_nkey.
DATA:lv_next_key TYPE lvc_nkey.
DATA:lv_node_text TYPE lvc_value.
查看完整代码 
DATA:lv_top_key TYPE lvc_nkey.
DATA:lv_next_key TYPE lvc_nkey.
DATA:lv_node_text TYPE lvc_value.
ABAP 个人TREEALV模版加快你的开发 
lt_data = ct_data.
查看完整代码 
lt_data = ct_data.
ABAP 个人TREEALV模版加快你的开发 
LOOP AT lt_data INTO DATA(ls_data) GROUP BY (
carrid = ls_data-carrid )
查看完整代码 
LOOP AT lt_data INTO DATA(ls_data) GROUP BY (
carrid = ls_data-carrid )
ABAP 个人TREEALV模版加快你的开发 
lv_node_text = 'LEVEL 1'.
查看完整代码 
lv_node_text = 'LEVEL 1'.
ABAP 个人TREEALV模版加快你的开发 
*    ls_layout_item-fieldname = cr_alv_tree->c_hierarchy_column_name."层级名称
*    ls_layout_item-class = cl_gui_column_tree=>item_class_checkbox.
*    ls_layout_item-editable = 'X'.
查看完整代码 
*    ls_layout_item-fieldname = cr_alv_tree->c_hierarchy_column_name."层级名称
*    ls_layout_item-class = cl_gui_column_tree=>item_class_checkbox.
*    ls_layout_item-editable = 'X'.
ABAP 个人TREEALV模版加快你的开发 
*    ls_layout_item-fieldname = 'STATUS'."对于某个字段设置为图标
*    ls_layout_item-t_image   = '@09@'."yellow
查看完整代码 
*    ls_layout_item-fieldname = 'STATUS'."对于某个字段设置为图标
*    ls_layout_item-t_image   = '@09@'."yellow
ABAP 个人TREEALV模版加快你的开发 
CALL METHOD cr_alv_tree->add_node
查看完整代码 
CALL METHOD cr_alv_tree->add_node
ABAP 个人TREEALV模版加快你的开发 
i_node_text      = lv_node_text   "hierarchy node text
*       is_node_layout   = ls_layout_node "node layout
is_outtab_line   = ls_output_line "attributes of the inserted node
*       it_item_layout   = lt_layout_item "item layout
查看完整代码 
i_node_text      = lv_node_text   "hierarchy node text
*       is_node_layout   = ls_layout_node "node layout
is_outtab_line   = ls_output_line "attributes of the inserted node
*       it_item_layout   = lt_layout_item "item layout
ABAP 个人TREEALV模版加快你的开发 
e_new_node_key   = lv_top_key.
查看完整代码 
e_new_node_key   = lv_top_key.
ABAP 个人TREEALV模版加快你的开发 
LOOP AT GROUP <fs_group> ASSIGNING FIELD-SYMBOL(<fs_line>).
查看完整代码 
LOOP AT GROUP <fs_group> ASSIGNING FIELD-SYMBOL(<fs_line>).
ABAP 个人TREEALV模版加快你的开发 
lv_node_text = 'LEVEL 2'.
CALL METHOD cr_alv_tree->add_node
查看完整代码 
lv_node_text = 'LEVEL 2'.
CALL METHOD cr_alv_tree->add_node
ABAP 个人TREEALV模版加快你的开发 
i_relat_node_key = lv_top_key   "Top key
查看完整代码 
i_relat_node_key = lv_top_key   "Top key
ABAP 个人TREEALV模版加快你的开发 
i_node_text      = lv_node_text
is_outtab_line   = ls_output_line
*         is_node_layout   = ls_layout_node
*         it_item_layout   = lt_layout_item
查看完整代码 
i_node_text      = lv_node_text
is_outtab_line   = ls_output_line
*         is_node_layout   = ls_layout_node
*         it_item_layout   = lt_layout_item
ABAP 个人TREEALV模版加快你的开发 
e_new_node_key   = lv_next_key.
ENDLOOP.
ENDLOOP.
ENDFORM.
查看完整代码 
e_new_node_key   = lv_next_key.
ENDLOOP.
ENDLOOP.
ENDFORM.
ABAP 交货单冲销报错VL633不能取消来自分散系统的货物移动 
UPDATE likp SET vlstk = '' WHERE vbeln = lv_vbeln.
查看完整代码 
UPDATE likp SET vlstk = '' WHERE vbeln = lv_vbeln.
ABAP 代替Excel上载的方法 
> data = lt_clip[]
查看完整代码 
> data = lt_clip[]
ABAP 代替Excel上载的方法 
> lt_fld =translate( val = lt_fld from = |\r| to = '' ).
查看完整代码 
> lt_fld =translate( val = lt_fld from = |\r| to = '' ).
ABAP 代替Excel上载的方法 
> lt_fld =translate( val = lt_fld from = |\n| to = '' ).
查看完整代码 
> lt_fld =translate( val = lt_fld from = |\n| to = '' ).
ABAP 代替Excel上载的方法 
> lt_fld =translate( val = lt_fld from = |"| to = '' ).
查看完整代码 
> lt_fld =translate( val = lt_fld from = |"| to = '' ).
ABAP 代替Excel上载的方法 
> <fs_fld> = lt_fld.
查看完整代码 
> <fs_fld> = lt_fld.
ABAP 代码整洁之道 
METHOD do_something.
查看完整代码 
METHOD do_something.
ABAP 代码整洁之道 
ENDMETHOD.
查看完整代码 
ENDMETHOD.
ABAP 代码整洁之道 
METHOD do_something.
查看完整代码 
METHOD do_something.
ABAP 代码整洁之道 
DATA:
查看完整代码 
DATA:
ABAP 代码整洁之道 
ENDMETHOD.
查看完整代码 
ENDMETHOD.
ABAP 以导出多表数据为例看ABAP如何逐步优化 
REPORT zexport_table NO STANDARD PAGE HEADING.
查看完整代码 
REPORT zexport_table NO STANDARD PAGE HEADING.
ABAP 以导出多表数据为例看ABAP如何逐步优化 
SELECT * FROM (gt_tabs) INTO TABLE <gt_table>.    CHECK sy-subrc = 0.
查看完整代码 
SELECT * FROM (gt_tabs) INTO TABLE <gt_table>.    CHECK sy-subrc = 0.
ABAP 以导出多表数据为例看ABAP如何逐步优化 
SELECT * FROM (gt_tabs) INTO TABLE <gt_table>.    CHECK sy-subrc EQ 0.
查看完整代码 
SELECT * FROM (gt_tabs) INTO TABLE <gt_table>.    CHECK sy-subrc EQ 0.
ABAP 以导出多表数据为例看ABAP如何逐步优化 
SELECT * FROM (gt_tabs) INTO TABLE <gt_table>.    CHECK sy-subrc EQ 0.
查看完整代码 
SELECT * FROM (gt_tabs) INTO TABLE <gt_table>.    CHECK sy-subrc EQ 0.
ABAP 以导出多表数据为例看ABAP如何逐步优化 
LOOP AT <gt_table> ASSIGNING <gs_table>.      CLEAR gv_line.      DO.        ASSIGN COMPONENT sy-index OF STRUCTURE <gs_table> TO <gv_fld>.        IF sy-subrc NE 0.          EXIT.        ENDIF.
查看完整代码 
LOOP AT <gt_table> ASSIGNING <gs_table>.      CLEAR gv_line.      DO.        ASSIGN COMPONENT sy-index OF STRUCTURE <gs_table> TO <gv_fld>.        IF sy-subrc NE 0.          EXIT.        ENDIF.
ABAP 以导出多表数据为例看ABAP如何逐步优化 
CALL FUNCTION 'SCMS_STRING_TO_XSTRING'        EXPORTING          text     = gv_lines          mimetype = 'UTF-8'        IMPORTING          buffer   = gv_xstr.
查看完整代码 
CALL FUNCTION 'SCMS_STRING_TO_XSTRING'        EXPORTING          text     = gv_lines          mimetype = 'UTF-8'        IMPORTING          buffer   = gv_xstr.
ABAP 以批导用户为例的批导程序样例
查看代码
TABLES: sscrfields,bapiadtel,bapiparam,bapiagr,bapiprof.DATA: gt_fldct TYPE lvc_t_fcat,      gs_slayt TYPE lvc_s_layo.DATA: BEGIN OF gs_user,        uname TYPE usr01-bname,        "用户名        bcode TYPE xuncode,            "密码        ustyp TYPE usr02-ustyp,        "用户类型        gltgb TYPE usr02-gltgb,        "有效至        tzone TYPE usr02-tzone,        "时区        lname TYPE adrp-name_last,     "姓        fname TYPE adrp-name_first,    "名        dprtm TYPE adc
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
TABLES: sscrfields,bapiadtel,bapiparam,bapiagr,bapiprof.DATA: gt_fldct TYPE lvc_t_fcat,      gs_slayt TYPE lvc_s_layo.DATA: BEGIN OF gs_user,        uname TYPE usr01-bname,        "用户名        bcode TYPE xuncode,            "密码        ustyp TYPE usr02-ustyp,        "用户类型        gltgb TYPE usr02-gltgb,        "有效至        tzone TYPE usr02-tzone,        "时区        lname TYPE adrp-name_last,     "姓        fname TYPE adrp-name_first,    "名        dprtm TYPE adc
/* ... 已截断，完整代码请查看原文 */
ABAP 以批导用户为例的批导程序样例 
LOOP AT gt_user INTO gs_user.    IF gs_user-tlnum NE ''.      bapiadtel-telephone = gs_user-tlnum.      bapiadtel-r_3_user = 1.      APPEND bapiadtel TO gs_user-ttele.    ENDIF.
IF gs_user-paras NE ''.      CLEAR lt_tstr[].      SPLIT gs_user-paras AT '|' INTO TABLE lt_tstr.      LOOP AT lt_tstr.        SPLIT lt_tstr AT ':' INTO bapiparam-parid bapiparam-parva.        SELECT SINGLE partext IN
查看完整代码 
LOOP AT gt_user INTO gs_user.    IF gs_user-tlnum NE ''.      bapiadtel-telephone = gs_user-tlnum.      bapiadtel-r_3_user = 1.      APPEND bapiadtel TO gs_user-ttele.    ENDIF.
IF gs_user-paras NE ''.      CLEAR lt_tstr[].      SPLIT gs_user-paras AT '|' INTO TABLE lt_tstr.      LOOP AT lt_tstr.        SPLIT lt_tstr AT ':' INTO bapiparam-parid bapiparam-parva.        SELECT SINGLE partext IN
ABAP 会计凭证增强抬头文本维护失败 
*<SAPCNVE > is for Posting(Tax) with BAPI: BAPI_ACC_DOCUMENT_POST      CLEAR wa_header.      wa_header = im_document-header.      ex_document-header-bktxt = wa_header-bktxt.      CLEAR wa_header.    ENDIF."-----------------------------------------@斌将军--------------------------------------------
查看完整代码 
*<SAPCNVE > is for Posting(Tax) with BAPI: BAPI_ACC_DOCUMENT_POST      CLEAR wa_header.      wa_header = im_document-header.      ex_document-header-bktxt = wa_header-bktxt.      CLEAR wa_header.    ENDIF."-----------------------------------------@斌将军--------------------------------------------
ABAP 会计凭证增强抬头文本维护失败 
*    此处因为实现了该方法，导致了会计凭证批导的抬头文本无法维护，因此加以下代码    DATA: wa_header TYPE acchd.    IF sy-xprog EQ 'SAPCNVE'.      CLEAR wa_header.      wa_header = im_document-HEADER.      ex_document-HEADER-bktxt = wa_header-bktxt.      CLEAR wa_header.    ENDIF."-----------------------------------------@斌将军--------------------------------------------
查看完整代码 
*    此处因为实现了该方法，导致了会计凭证批导的抬头文本无法维护，因此加以下代码    DATA: wa_header TYPE acchd.    IF sy-xprog EQ 'SAPCNVE'.      CLEAR wa_header.      wa_header = im_document-HEADER.      ex_document-HEADER-bktxt = wa_header-bktxt.      CLEAR wa_header.    ENDIF."-----------------------------------------@斌将军--------------------------------------------
ABAP 会计凭证自动拆分 
METHOD if_ex_fi_bill_issue_split~activate_automatic_split.    e_automatic_split = abap_true.  ENDMETHOD
查看完整代码 
METHOD if_ex_fi_bill_issue_split~activate_automatic_split.    e_automatic_split = abap_true.  ENDMETHOD
ABAP 会计凭证自动拆分 
METHOD if_ex_fi_invoice_receipt_split~activate_automatic_split.    e_automatic_split = abap_true.  ENDMETHOD.
查看完整代码 
METHOD if_ex_fi_invoice_receipt_split~activate_automatic_split.    e_automatic_split = abap_true.  ENDMETHOD.
ABAP 会计凭证自动拆分 
METHOD if_ex_fi_gl_posting_split~activate_document_split.    e_split = abap_true.  ENDMETHOD.
查看完整代码 
METHOD if_ex_fi_gl_posting_split~activate_document_split.    e_split = abap_true.  ENDMETHOD.
ABAP 传输请求的状态跟踪
查看代码
DATA: led_gray(4)   VALUE '@BZ@',      led_red(4)    VALUE '@5C@',      led_yellow(4) VALUE '@5D@',      led_green(4)  VALUE '@5B@'.DATA: BEGIN OF it_out OCCURS 0,        trkorr     LIKE e070-trkorr,        trfunction LIKE e070-trfunction,        trstatus   LIKE e070-trstatus,        srcsystem  LIKE e070-tarsystem,        srclient   LIKE e070c-client,        tarsystem  LIKE e070-tarsystem,        as4user    LIKE e070-as4user,        as4date    LIKE e
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA: led_gray(4)   VALUE '@BZ@',      led_red(4)    VALUE '@5C@',      led_yellow(4) VALUE '@5D@',      led_green(4)  VALUE '@5B@'.DATA: BEGIN OF it_out OCCURS 0,        trkorr     LIKE e070-trkorr,        trfunction LIKE e070-trfunction,        trstatus   LIKE e070-trstatus,        srcsystem  LIKE e070-tarsystem,        srclient   LIKE e070c-client,        tarsystem  LIKE e070-tarsystem,        as4user    LIKE e070-as4user,        as4date    LIKE e
/* ... 已截断，完整代码请查看原文 */
ABAP 传输请求的状态跟踪 
SELECT domvalue_l ddtext INTO TABLE it_dd07t    FROM dd07t    WHERE domname = 'TRFUNCTION' AND          ddlanguage = sy-langu AND          as4local = 'A'.
查看完整代码 
SELECT domvalue_l ddtext INTO TABLE it_dd07t    FROM dd07t    WHERE domname = 'TRFUNCTION' AND          ddlanguage = sy-langu AND          as4local = 'A'.
ABAP 传输请求的状态跟踪
查看代码
SELECT trkorr         trfunction         trstatus         tarsystem         as4user         as4date    INTO CORRESPONDING FIELDS OF TABLE it_out    FROM e070    WHERE trkorr  IN s_reqst AND          as4user IN s_ruser AND          as4date IN s_rdate AND          trstatus IN r_status AND          strkorr = ''.  LOOP AT it_out.    READ TABLE it_dd07t WITH KEY trfunction = it_out-trfunction.    IF sy-subrc = 0.      it_out-typetext = it_dd07t-ddtext.    ENDIF.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
SELECT trkorr         trfunction         trstatus         tarsystem         as4user         as4date    INTO CORRESPONDING FIELDS OF TABLE it_out    FROM e070    WHERE trkorr  IN s_reqst AND          as4user IN s_ruser AND          as4date IN s_rdate AND          trstatus IN r_status AND          strkorr = ''.  LOOP AT it_out.    READ TABLE it_dd07t WITH KEY trfunction = it_out-trfunction.    IF sy-subrc = 0.      it_out-typetext = it_dd07t-ddtext.    ENDIF.
/* ... 已截断，完整代码请查看原文 */
ABAP 传输请求的状态跟踪 
IF s_srsys[] IS NOT INITIAL AND it_out-srcsystem NOT IN s_srsys.      DELETE it_out.      CONTINUE.    ENDIF.
IF s_rtext[] IS NOT INITIAL AND it_out-as4text NOT IN s_rtext.      DELETE it_out.      CONTINUE.    ENDIF.
查看完整代码 
IF s_srsys[] IS NOT INITIAL AND it_out-srcsystem NOT IN s_srsys.      DELETE it_out.      CONTINUE.    ENDIF.
IF s_rtext[] IS NOT INITIAL AND it_out-as4text NOT IN s_rtext.      DELETE it_out.      CONTINUE.    ENDIF.
ABAP 传输请求的状态跟踪 
MODIFY it_out.  ENDLOOP.  SORT it_out DESCENDING BY ledqas ledpre ledsys ledprd trkorr ASCENDING.ENDFORM.                    "getdata
查看完整代码 
MODIFY it_out.  ENDLOOP.  SORT it_out DESCENDING BY ledqas ledpre ledsys ledprd trkorr ASCENDING.ENDFORM.                    "getdata
ABAP 传输请求的状态跟踪 
CALL FUNCTION 'TR_READ_GLOBAL_INFO_OF_REQUEST'    EXPORTING      iv_trkorr       = wa-trkorr      is_settings     = is_settings      it_comm_systems = it_comm[]    IMPORTING      es_cofile       = es_cofile.  lt_systems[] = es_cofile-systems[].
查看完整代码 
CALL FUNCTION 'TR_READ_GLOBAL_INFO_OF_REQUEST'    EXPORTING      iv_trkorr       = wa-trkorr      is_settings     = is_settings      it_comm_systems = it_comm[]    IMPORTING      es_cofile       = es_cofile.  lt_systems[] = es_cofile-systems[].
ABAP 传输请求的状态跟踪 
ENDFORM.                    "gettrlog
查看完整代码 
ENDFORM.                    "gettrlog
ABAP 传输请求的状态跟踪 
CHECK target IS NOT INITIAL.  READ TABLE intab WITH KEY systemid = target.  IF sy-subrc = 0.    READ TABLE intab-steps INTO wa_step WITH KEY stepid = 'E'.    IF sy-subrc <> 0.      LOOP AT intab-steps INTO wa_step WHERE stepid = 'I'.        tabix = sy-tabix.
查看完整代码 
CHECK target IS NOT INITIAL.  READ TABLE intab WITH KEY systemid = target.  IF sy-subrc = 0.    READ TABLE intab-steps INTO wa_step WITH KEY stepid = 'E'.    IF sy-subrc <> 0.      LOOP AT intab-steps INTO wa_step WHERE stepid = 'I'.        tabix = sy-tabix.
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
METHOD eh_onsearch.
查看完整代码 
METHOD eh_onsearch.
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
DATA:
查看完整代码 
DATA:
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
DATA: lt_pata TYPE genilt_selection_parameter_tab.
查看完整代码 
DATA: lt_pata TYPE genilt_selection_parameter_tab.
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
DATA: lt_ztest_rep TYPE TABLE OF zssf_r013.
查看完整代码 
DATA: lt_ztest_rep TYPE TABLE OF zssf_r013.
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
eo_result = lr_result_node ).
查看完整代码 
eo_result = lr_result_node ).
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
IMPORTINGev_result = lv_max_hits ).
查看完整代码 
IMPORTINGev_result = lv_max_hits ).
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
lv_iterator = lr_param_col->get_iterator( ).
查看完整代码 
lv_iterator = lr_param_col->get_iterator( ).
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
lv_param =lv_iterator->get_first( ).
查看完整代码 
lv_param =lv_iterator->get_first( ).
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
lv_param->get_properties( IMPORTING es_attributes = ls_selection ).
查看完整代码 
lv_param->get_properties( IMPORTING es_attributes = ls_selection ).
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
IF ls_selection-low IS NOT INITIAL.
查看完整代码 
IF ls_selection-low IS NOT INITIAL.
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
APPEND ls_selection TO lt_pata.
查看完整代码 
APPEND ls_selection TO lt_pata.
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
ENDIF.
查看完整代码 
ENDIF.
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
lv_param = lv_iterator->get_next( ).
查看完整代码 
lv_param = lv_iterator->get_next( ).
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
CHANGING ct_params = lt_pata ).
查看完整代码 
CHANGING ct_params = lt_pata ).
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
CHANGING ct_params = lt_pata ).
查看完整代码 
CHANGING ct_params = lt_pata ).
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
CALL FUNCTION 'ZSSF_TEST01'
查看完整代码 
CALL FUNCTION 'ZSSF_TEST01'
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
it_parameter = lt_pata
查看完整代码 
it_parameter = lt_pata
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
iv_max_hits = lv_max_hits
查看完整代码 
iv_max_hits = lv_max_hits
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
et_table = lt_ztest_rep.
查看完整代码 
et_table = lt_ztest_rep.
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
CALL FUNCTION 'ZFM_CSS_RESULT_NODE_SET'
查看完整代码 
CALL FUNCTION 'ZFM_CSS_RESULT_NODE_SET'
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
ir_result_node = lr_result_node
查看完整代码 
ir_result_node = lr_result_node
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
ev_size = lv_size
查看完整代码 
ev_size = lv_size
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
it_tab = lt_ztest_rep.
查看完整代码 
it_tab = lt_ztest_rep.
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
=cl_wcf_bsp_dsp_title=>if_wcf_bsp_dsp_title~get_search_result_list_title(
查看完整代码 
=cl_wcf_bsp_dsp_title=>if_wcf_bsp_dsp_title~get_search_result_list_title(
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
iv_size = lv_size
查看完整代码 
iv_size = lv_size
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
iv_max_hits =lv_max_hits ).
查看完整代码 
iv_max_hits =lv_max_hits ).
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
ENDMETHOD.
查看完整代码 
ENDMETHOD.
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
FUNCTION ZFM_CSS_RESULT_NODE_SET.
查看完整代码 
FUNCTION ZFM_CSS_RESULT_NODE_SET.
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
DATA: lv_bol_core TYPE REF TO cl_crm_bol_core.
查看完整代码 
DATA: lv_bol_core TYPE REF TO cl_crm_bol_core.
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
DATA: lt_params TYPE crmt_name_value_pair_tab,
查看完整代码 
DATA: lt_params TYPE crmt_name_value_pair_tab,
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
DATA: lv_axt_factory TYPE REF TO cl_crm_bol_entity_factory.
查看完整代码 
DATA: lv_axt_factory TYPE REF TO cl_crm_bol_entity_factory.
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
DATA: lr_entity TYPE REF TO cl_crm_bol_entity,
查看完整代码 
DATA: lr_entity TYPE REF TO cl_crm_bol_entity,
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
DATA: lv_guid TYPEcrmt_object_guid,
查看完整代码 
DATA: lv_guid TYPEcrmt_object_guid,
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
DATA: lr_axt_md TYPE REF TO cl_axt_tables_metadata.
查看完整代码 
DATA: lr_axt_md TYPE REF TO cl_axt_tables_metadata.
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
DATA: lt_objects_il TYPE axtt_objects_il,
查看完整代码 
DATA: lt_objects_il TYPE axtt_objects_il,
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
DATA: ls_work TYPE REF TO data.
查看完整代码 
DATA: ls_work TYPE REF TO data.
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
DATA: lo_handler TYPE REFTO cl_axt_ca_hdlr_abstr,
查看完整代码 
DATA: lo_handler TYPE REFTO cl_axt_ca_hdlr_abstr,
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
lr_axt_md->get_bol_model( IMPORTING et_objects_il = lt_objects_ilet_model_il =
查看完整代码 
lr_axt_md->get_bol_model( IMPORTING et_objects_il = lt_objects_ilet_model_il =
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
READ TABLE lt_objects_il INTO ls_objects_il WITH KEY object_kind = 'A'.
查看完整代码 
READ TABLE lt_objects_il INTO ls_objects_il WITH KEY object_kind = 'A'.
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
lv_bol_core = cl_crm_bol_core=>get_instance( ).
查看完整代码 
lv_bol_core = cl_crm_bol_core=>get_instance( ).
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
lv_axt_factory = lv_bol_core->get_entity_factory(ls_objects_il-root_object ).
查看完整代码 
lv_axt_factory = lv_bol_core->get_entity_factory(ls_objects_il-root_object ).
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
lo_handler = cl_axt_ca_hdlr_factory=>get_obj_handler( iv_object_name=
查看完整代码 
lo_handler = cl_axt_ca_hdlr_factory=>get_obj_handler( iv_object_name=
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
LOOP AT it_tab ASSIGNING <ls_data>.
查看完整代码 
LOOP AT it_tab ASSIGNING <ls_data>.
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
ls_params-name = 'GUID'.
查看完整代码 
ls_params-name = 'GUID'.
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
* lv_guid = <lv_value>.
查看完整代码 
* lv_guid = <lv_value>.
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
CALL FUNCTION 'CRM_GUID_CREATE'
查看完整代码 
CALL FUNCTION 'CRM_GUID_CREATE'
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
ev_guid = lv_guid.
查看完整代码 
ev_guid = lv_guid.
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
ls_params-value = lv_guid.
查看完整代码 
ls_params-value = lv_guid.
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
lv_varkey = lv_guid.
查看完整代码 
lv_varkey = lv_guid.
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
APPEND ls_params TO lt_params.
查看完整代码 
APPEND ls_params TO lt_params.
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
lr_entity = lv_axt_factory->create( lt_params ).
查看完整代码 
lr_entity = lv_axt_factory->create( lt_params ).
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
CALL METHOD lr_entity->set_properties
查看完整代码 
CALL METHOD lr_entity->set_properties
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
is_attributes = <ls_arrt>.
查看完整代码 
is_attributes = <ls_arrt>.
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
CALL METHOD lr_result->if_bol_entity_col~add
查看完整代码 
CALL METHOD lr_result->if_bol_entity_col~add
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
* lo_transaction =lr_entity->get_transaction( ).
查看完整代码 
* lo_transaction =lr_entity->get_transaction( ).
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
CALL FUNCTION 'DEQUEUE_E_TABLE'
查看完整代码 
CALL FUNCTION 'DEQUEUE_E_TABLE'
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
varkey = lv_varkey.
查看完整代码 
varkey = lv_varkey.
ABAP 使用ADMIN快速应用程序工具生成BSP应用 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP 使用BAPI_NETWORK_COMP_实现生产订单组件的增删改查 
lv_number = '000001001211'."工单号
CALL FUNCTION 'BAPI_NETWORK_COMP_GETLIST'  EXPORTING    number            = lv_number*   MAX_ROWS          = 0  IMPORTING    return            = ls_return  TABLES    i_activity_range  = lt_activity    e_components_list = lt_components_list."--------------------@斌将军--------------------
查看完整代码 
lv_number = '000001001211'."工单号
CALL FUNCTION 'BAPI_NETWORK_COMP_GETLIST'  EXPORTING    number            = lv_number*   MAX_ROWS          = 0  IMPORTING    return            = ls_return  TABLES    i_activity_range  = lt_activity    e_components_list = lt_components_list."--------------------@斌将军--------------------
ABAP 使用BAPI_NETWORK_COMP_实现生产订单组件的增删改查 
lv_number = '000001001211'."工单号
CALL FUNCTION 'BAPI_NETWORK_COMP_GETDETAIL'  EXPORTING    number              = lv_number  TABLES    e_components_detail = lt_detail."--------------------@斌将军--------------------
查看完整代码 
lv_number = '000001001211'."工单号
CALL FUNCTION 'BAPI_NETWORK_COMP_GETDETAIL'  EXPORTING    number              = lv_number  TABLES    e_components_detail = lt_detail."--------------------@斌将军--------------------
ABAP 使用BAPI_NETWORK_COMP_实现生产订单组件的增删改查
查看代码
DATA:lv_check   TYPE char1,     lv_message TYPE char255.
"此处使用查询BAPI得到的组件列表，赋值给移除内表LOOP AT lt_detail INTO ls_detail.  CLEAR ls_remove.  ls_remove-component = ls_detail-component.  APPEND ls_remove TO lt_remove.ENDLOOP.
lv_number = '000001001211'."工单号
CALL FUNCTION 'BAPI_NETWORK_COMP_REMOVE'  EXPORTING    number              = lv_number  TABLES    i_components_remove = lt_remove    e_message_table     = lt_message.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA:lv_check   TYPE char1,     lv_message TYPE char255.
"此处使用查询BAPI得到的组件列表，赋值给移除内表LOOP AT lt_detail INTO ls_detail.  CLEAR ls_remove.  ls_remove-component = ls_detail-component.  APPEND ls_remove TO lt_remove.ENDLOOP.
lv_number = '000001001211'."工单号
CALL FUNCTION 'BAPI_NETWORK_COMP_REMOVE'  EXPORTING    number              = lv_number  TABLES    i_components_remove = lt_remove    e_message_table     = lt_message.
/* ... 已截断，完整代码请查看原文 */
ABAP 使用BAPI_NETWORK_COMP_实现生产订单组件的增删改查
查看代码
DATA:lv_check   TYPE char1,     lv_message TYPE char255.
lv_number = '000001001211'."工单号
ls_components-item_number = '0030'."项目编号ls_components-activity = '0010'."必输 作业ls_components-material = '000000000003000135'."物料ls_components-plant = 'P010'."工厂ls_components-type_of_pur_resv = 'F'."beskz."必输 采购类型ls_components-entry_quantity = 1."数量ls_components-base_uom = 'KG'."单位ls_compone
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA:lv_check   TYPE char1,     lv_message TYPE char255.
lv_number = '000001001211'."工单号
ls_components-item_number = '0030'."项目编号ls_components-activity = '0010'."必输 作业ls_components-material = '000000000003000135'."物料ls_components-plant = 'P010'."工厂ls_components-type_of_pur_resv = 'F'."beskz."必输 采购类型ls_components-entry_quantity = 1."数量ls_components-base_uom = 'KG'."单位ls_compone
/* ... 已截断，完整代码请查看原文 */
ABAP 使用BAPI_NETWORK_COMP_实现生产订单组件的增删改查
查看代码
DATA:lv_check   TYPE char1,     lv_message TYPE char255.
lv_number = '000001001211'."工单号
CLEAR:ls_components_change.ls_components_change-component = '00000039290006'."BAPI获取到的组件唯一标识*ls_components_change-activity = '0020'."工序ls_components_change-entry_quantity = 2."数量ls_components_change-backflush = ''."反冲APPEND ls_components_change TO lt_components_change.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA:lv_check   TYPE char1,     lv_message TYPE char255.
lv_number = '000001001211'."工单号
CLEAR:ls_components_change.ls_components_change-component = '00000039290006'."BAPI获取到的组件唯一标识*ls_components_change-activity = '0020'."工序ls_components_change-entry_quantity = 2."数量ls_components_change-backflush = ''."反冲APPEND ls_components_change TO lt_components_change.
/* ... 已截断，完整代码请查看原文 */
ABAP 使用LMStudio本地部署AI模型并发布API接口供SAP调用 
FORM  add_menu  USING  menu  TYPE  REF  TO  cl_ctmenu  .
CALL  METHOD  menu  -> add_function
查看完整代码 
FORM  add_menu  USING  menu  TYPE  REF  TO  cl_ctmenu  .
CALL  METHOD  menu  -> add_function
ABAP 使用LMStudio本地部署AI模型并发布API接口供SAP调用 
ENDFORM  .
查看完整代码 
ENDFORM  .
ABAP 使用LMStudio本地部署AI模型并发布API接口供SAP调用 
CLASS lcl_aisupporter DEFINITION.  PUBLIC SECTION.
CLASS-METHODS main.
查看完整代码 
CLASS lcl_aisupporter DEFINITION.  PUBLIC SECTION.
CLASS-METHODS main.
ABAP 使用LMStudio本地部署AI模型并发布API接口供SAP调用 
CLASS lcl_aisupporter IMPLEMENTATION.  METHOD main.
查看完整代码 
CLASS lcl_aisupporter IMPLEMENTATION.  METHOD main.
ABAP 使用LMStudio本地部署AI模型并发布API接口供SAP调用 
TRY.
IF input_txt IS NOT INITIAL.          cl_abap_browser=>close_browser( ).
查看完整代码 
TRY.
IF input_txt IS NOT INITIAL.          cl_abap_browser=>close_browser( ).
ABAP 使用LMStudio本地部署AI模型并发布API接口供SAP调用
查看代码
CASE sy-tcode.          WHEN 'SE38'.            docking = NEW cl_gui_docking_container(                            side = cl_gui_docking_container=>dock_at_right                            extension = 350                            repid = 'SAPLS38E'                            dynnr = '0500'               ).            lo_container = NEW cl_gui_splitter_container(                                 parent  = docking                                 rows    = 3 
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
CASE sy-tcode.          WHEN 'SE38'.            docking = NEW cl_gui_docking_container(                            side = cl_gui_docking_container=>dock_at_right                            extension = 350                            repid = 'SAPLS38E'                            dynnr = '0500'               ).            lo_container = NEW cl_gui_splitter_container(                                 parent  = docking                                 rows    = 3 
/* ... 已截断，完整代码请查看原文 */
ABAP 使用RFC跳过权限校验的方法 
DATA:lv_check   TYPE char1,       lv_message TYPE char255.
查看完整代码 
DATA:lv_check   TYPE char1,       lv_message TYPE char255.
ABAP 使用RFC跳过权限校验的方法 
CLEAR:lv_check,lv_message,e_result.  LOOP AT return INTO DATA(ls_return) WHERE type CA 'AEX'.    lv_message = lv_message && ls_return-message.    lv_check = 'E'.    CLEAR:ls_return.  ENDLOOP.
IF lv_check = 'E'.    CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
e_result-type = 'E'.    e_result-message = lv_message.  ELSE.    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'      EXPORTING        wait = abap_true.
查看完整代码 
CLEAR:lv_check,lv_message,e_result.  LOOP AT return INTO DATA(ls_return) WHERE type CA 'AEX'.    lv_message = lv_message && ls_return-message.    lv_check = 'E'.    CLEAR:ls_return.  ENDLOOP.
IF lv_check = 'E'.    CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
e_result-type = 'E'.    e_result-message = lv_message.  ELSE.    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'      EXPORTING        wait = abap_true.
ABAP 使用RFC跳过权限校验的方法
查看代码
"修改销售订单PERFORM frm_salesorder_change.IF ls_result-type = 'E'.      "失败ELSE.      "成功 ENDIF.
FORM frm_salesorder_change.  "修改销售订单  CALL FUNCTION 'ZBAPI_SALESORDER_CHANGE' DESTINATION gv_system    EXPORTING      salesdocument    = lv_salesdocument*     order_header_in  = ls_order_header_in      order_header_inx = ls_order_header_inx      logic_switch     = ls_logic_switch    IMPORTING      e_result         = ls_result    TABLES      return           = 
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
"修改销售订单PERFORM frm_salesorder_change.IF ls_result-type = 'E'.      "失败ELSE.      "成功 ENDIF.
FORM frm_salesorder_change.  "修改销售订单  CALL FUNCTION 'ZBAPI_SALESORDER_CHANGE' DESTINATION gv_system    EXPORTING      salesdocument    = lv_salesdocument*     order_header_in  = ls_order_header_in      order_header_inx = ls_order_header_inx      logic_switch     = ls_logic_switch    IMPORTING      e_result         = ls_result    TABLES      return           = 
/* ... 已截断，完整代码请查看原文 */
ABAP 使用子查询NOTEXISTS提高程序性能
查看代码
DATA: BEGIN OF itab OCCURS 0,        aufnr TYPE aufk-aufnr,        erdat TYPE aufk-erdat,        ernam TYPE aufk-ernam,        objnr TYPE aufk-objnr,      END OF itab.DATA: BEGIN OF it_jest OCCURS 0,        objnr TYPE jest-objnr,      END OF it_jest.DATA: ltext TYPE bsvx-sttxt.DATA: lines TYPE i.DATA: t1 TYPE i,      t2 TYPE i.
SELECT-OPTIONS s_erdat FOR itab-erdat NO-EXTENSION.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA: BEGIN OF itab OCCURS 0,        aufnr TYPE aufk-aufnr,        erdat TYPE aufk-erdat,        ernam TYPE aufk-ernam,        objnr TYPE aufk-objnr,      END OF itab.DATA: BEGIN OF it_jest OCCURS 0,        objnr TYPE jest-objnr,      END OF it_jest.DATA: ltext TYPE bsvx-sttxt.DATA: lines TYPE i.DATA: t1 TYPE i,      t2 TYPE i.
SELECT-OPTIONS s_erdat FOR itab-erdat NO-EXTENSION.
/* ... 已截断，完整代码请查看原文 */
ABAP 使用子查询NOTEXISTS提高程序性能
查看代码
START-OF-SELECTION.  "方法一  GET RUN TIME FIELD t1.  SELECT mblnr         mjahr         zeile    INTO TABLE itab    FROM mseg    WHERE budat_mkpf IN s_budat.  IF sy-subrc = 0.    SELECT sjahr           smbln           smblp      INTO TABLE it_smbln      FROM mseg      FOR ALL ENTRIES IN itab      WHERE sjahr = itab-mjahr AND            smbln = itab-mblnr AND            smblp = itab-zeile.    SORT it_smbln BY sjahr smbln smblp.    LOOP AT itab.      READ TABLE it_smbln WITH KEY sjahr = i
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
START-OF-SELECTION.  "方法一  GET RUN TIME FIELD t1.  SELECT mblnr         mjahr         zeile    INTO TABLE itab    FROM mseg    WHERE budat_mkpf IN s_budat.  IF sy-subrc = 0.    SELECT sjahr           smbln           smblp      INTO TABLE it_smbln      FROM mseg      FOR ALL ENTRIES IN itab      WHERE sjahr = itab-mjahr AND            smbln = itab-mblnr AND            smblp = itab-zeile.    SORT it_smbln BY sjahr smbln smblp.    LOOP AT itab.      READ TABLE it_smbln WITH KEY sjahr = i
/* ... 已截断，完整代码请查看原文 */
ABAP 做接口XML和JSON的选择以及处理XML的几个函数 
CALL FUNCTION 'SDIXML_DATA_TO_DOM'    EXPORTING      name         = rootname      dataobject   = data      control      = control    IMPORTING      data_as_dom  = element    CHANGING      document     = document    EXCEPTIONS      illegal_name = 1      OTHERS       = 2.  IF element IS INITIAL.    RAISE data_to_dom_error.  ELSE.    retval = document->append_child( new_child = element ).  ENDIF.
查看完整代码 
CALL FUNCTION 'SDIXML_DATA_TO_DOM'    EXPORTING      name         = rootname      dataobject   = data      control      = control    IMPORTING      data_as_dom  = element    CHANGING      document     = document    EXCEPTIONS      illegal_name = 1      OTHERS       = 2.  IF element IS INITIAL.    RAISE data_to_dom_error.  ELSE.    retval = document->append_child( new_child = element ).  ENDIF.
ABAP 做接口XML和JSON的选择以及处理XML的几个函数
查看代码
IF case <> '' OR maptab[] IS NOT INITIAL.    iterator = document->create_iterator( ).    DO.      node = iterator->get_next( ).      IF node IS INITIAL.        EXIT.      ENDIF.
IF node->get_type( ) = if_ixml_node=>co_node_element.        READ TABLE maptab WITH KEY frstr = node->get_name( ).        IF sy-subrc = 0.          str = maptab-tostr.          node->set_name( str ).        ELSE.          CASE case.            WHEN 'U'.              node-
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
IF case <> '' OR maptab[] IS NOT INITIAL.    iterator = document->create_iterator( ).    DO.      node = iterator->get_next( ).      IF node IS INITIAL.        EXIT.      ENDIF.
IF node->get_type( ) = if_ixml_node=>co_node_element.        READ TABLE maptab WITH KEY frstr = node->get_name( ).        IF sy-subrc = 0.          str = maptab-tostr.          node->set_name( str ).        ELSE.          CASE case.            WHEN 'U'.              node-
/* ... 已截断，完整代码请查看原文 */
ABAP 做接口XML和JSON的选择以及处理XML的几个函数
查看代码
FUNCTION zxml_string_to_data .*"----------------------------------------------------------------------*"*"局部接口：*"  IMPORTING*"     REFERENCE(XMLSTR) TYPE  STRING*"     REFERENCE(ICDATA) TYPE  CHAR1 OPTIONAL*"  EXPORTING*"     REFERENCE(DATA) TYPE  ANY*"     REFERENCE(SUBRC) TYPE  SY-SUBRC*"----------------------------------------------------------------------***如果要取CDATA数据***程序:LSDIXMLF04,FORM get_cdata,做如下修改:*  ...*  DATA: icdata.**  CLEAR
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
FUNCTION zxml_string_to_data .*"----------------------------------------------------------------------*"*"局部接口：*"  IMPORTING*"     REFERENCE(XMLSTR) TYPE  STRING*"     REFERENCE(ICDATA) TYPE  CHAR1 OPTIONAL*"  EXPORTING*"     REFERENCE(DATA) TYPE  ANY*"     REFERENCE(SUBRC) TYPE  SY-SUBRC*"----------------------------------------------------------------------***如果要取CDATA数据***程序:LSDIXMLF04,FORM get_cdata,做如下修改:*  ...*  DATA: icdata.**  CLEAR
/* ... 已截断，完整代码请查看原文 */
ABAP 做接口XML和JSON的选择以及处理XML的几个函数
查看代码
IF node->get_type( ) = if_ixml_node=>co_node_element.      READ TABLE maptab WITH KEY frstr = node->get_name( ).      IF sy-subrc = 0.        str = maptab-tostr.        node->set_name( str ).      ELSE.        CASE case.          WHEN 'U'.            node->set_name( to_upper( node->get_name( ) ) ).          WHEN 'L'.            node->set_name( to_lower( node->get_name( ) ) ).        ENDCASE.      ENDIF.    ELSEIF node->get_type( ) = if_ixml_no
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
IF node->get_type( ) = if_ixml_node=>co_node_element.      READ TABLE maptab WITH KEY frstr = node->get_name( ).      IF sy-subrc = 0.        str = maptab-tostr.        node->set_name( str ).      ELSE.        CASE case.          WHEN 'U'.            node->set_name( to_upper( node->get_name( ) ) ).          WHEN 'L'.            node->set_name( to_lower( node->get_name( ) ) ).        ENDCASE.      ENDIF.    ELSEIF node->get_type( ) = if_ixml_no
/* ... 已截断，完整代码请查看原文 */
ABAP 做接口XML和JSON的选择以及处理XML的几个函数 
IF character_set IS NOT INITIAL.    encoding = ifxml->create_encoding( byte_order = 0 character_set = character_set ).    ostream->set_encoding( encoding = encoding ).  ENDIF.  IF pretty IS NOT INITIAL.    ostream->set_pretty_print( pretty_print = pretty ).  ENDIF.
查看完整代码 
IF character_set IS NOT INITIAL.    encoding = ifxml->create_encoding( byte_order = 0 character_set = character_set ).    ostream->set_encoding( encoding = encoding ).  ENDIF.  IF pretty IS NOT INITIAL.    ostream->set_pretty_print( pretty_print = pretty ).  ENDIF.
ABAP 做接口XML和JSON的选择以及处理XML的几个函数 
FUNCTION ZXML_TRANSFER_ITEMTAG1 .*"----------------------------------------------------------------------*"*"局部接口：*"  IMPORTING*"     VALUE(XMLIN) TYPE  STRING*"  EXPORTING*"     VALUE(XMLSTR) TYPE  STRING*"  TABLES*"      TAGTAB*"----------------------------------------------------------------------  DATA: maptab TYPE TABLE OF zxml_noden_mapping WITH HEADER LINE.  DATA: tagc(100).  DATA: moff TYPE i .
查看完整代码 
FUNCTION ZXML_TRANSFER_ITEMTAG1 .*"----------------------------------------------------------------------*"*"局部接口：*"  IMPORTING*"     VALUE(XMLIN) TYPE  STRING*"  EXPORTING*"     VALUE(XMLSTR) TYPE  STRING*"  TABLES*"      TAGTAB*"----------------------------------------------------------------------  DATA: maptab TYPE TABLE OF zxml_noden_mapping WITH HEADER LINE.  DATA: tagc(100).  DATA: moff TYPE i .
ABAP 先退货再发货报存储地点不存在问题处理 
CALL FUNCTION 'MARD_CLEAR_UPDATE_BUFFER'        EXPORTING          iv_clear_all_flag = abap_true.
查看完整代码 
CALL FUNCTION 'MARD_CLEAR_UPDATE_BUFFER'        EXPORTING          iv_clear_all_flag = abap_true.
ABAP 先退货再发货报存储地点不存在问题处理
查看代码
IF iv_clear_all_flag EQ abap_true.    REFRESH imard.           CLEAR imard.    REFRESH tmard.           CLEAR tmard.    REFRESH omard.           CLEAR omard.    REFRESH nmard.           CLEAR nmard.    REFRESH mard_matnr.      CLEAR mard_matnr.    REFRESH mard_keytab.     CLEAR mard_keytab.    REFRESH matnr_plant_gen. CLEAR matnr_plant_gen.    REFRESH imardh.          CLEAR imardh.    REFRESH:gt_mard_agg,gt_mard_agg_failed.    CLEAR kz_buf_not_empty.    EXIT.  ENDIF.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
IF iv_clear_all_flag EQ abap_true.    REFRESH imard.           CLEAR imard.    REFRESH tmard.           CLEAR tmard.    REFRESH omard.           CLEAR omard.    REFRESH nmard.           CLEAR nmard.    REFRESH mard_matnr.      CLEAR mard_matnr.    REFRESH mard_keytab.     CLEAR mard_keytab.    REFRESH matnr_plant_gen. CLEAR matnr_plant_gen.    REFRESH imardh.          CLEAR imardh.    REFRESH:gt_mard_agg,gt_mard_agg_failed.    CLEAR kz_buf_not_empty.    EXIT.  ENDIF.
/* ... 已截断，完整代码请查看原文 */
ABAP 关于ABAP索引 
SELECT  matnr,  werks,  maktx FROM yttest001INTO TABLE @DATA(lt_test001)WHERE matnr = '000000000000007777'  AND maktx = 'XX'  %_HINTS ORACLE 'index(YTTEST001"Z1")'.*  %_HINTS HDB 'Z1'.
查看完整代码 
SELECT  matnr,  werks,  maktx FROM yttest001INTO TABLE @DATA(lt_test001)WHERE matnr = '000000000000007777'  AND maktx = 'XX'  %_HINTS ORACLE 'index(YTTEST001"Z1")'.*  %_HINTS HDB 'Z1'.
ABAP 关于ABAP索引 
SELECT * FROM yttest001 WHERE ( matnr = '111' OR matnr = '222' ) AND maktx = 'XX'.可以优化为：SELECT * FROM yttest001 WHERE ( matnr = '111' AND maktx = 'XX'  ) OR ( matnr = '222'  AND maktx = 'XX' ).
查看完整代码 
SELECT * FROM yttest001 WHERE ( matnr = '111' OR matnr = '222' ) AND maktx = 'XX'.可以优化为：SELECT * FROM yttest001 WHERE ( matnr = '111' AND maktx = 'XX'  ) OR ( matnr = '222'  AND maktx = 'XX' ).
ABAP 关于SAPCodingBlock 
METHOD IF_EX_ACC_DOCUMENT~CHANGE.DATA: WA_EXTENSION   TYPE BAPIPAREX,          EXT_VALUE(960) TYPE C,          WA_ACCIT       TYPE ACCIT,          L_REF          TYPE REF TO DATA.
查看完整代码 
METHOD IF_EX_ACC_DOCUMENT~CHANGE.DATA: WA_EXTENSION   TYPE BAPIPAREX,          EXT_VALUE(960) TYPE C,          WA_ACCIT       TYPE ACCIT,          L_REF          TYPE REF TO DATA.
ABAP 关于SAPCodingBlock
查看代码
LOOP AT C_EXTENSION2 INTO WA_EXTENSION.AT NEW STRUCTURE.CREATE DATA L_REF TYPE (WA_EXTENSION-STRUCTURE).        ASSIGN L_REF->* TO <L_STRUC>.      ENDAT.      CONCATENATE WA_EXTENSION-VALUEPART1 WA_EXTENSION-VALUEPART2                  WA_EXTENSION-VALUEPART3 WA_EXTENSION-VALUEPART4INTO EXT_VALUE.MOVE EXT_VALUE TO <L_STRUC>.      ASSIGN COMPONENT 'POSNR' OF STRUCTURE <L_STRUC> TO <L_FIELD>.READ TABLE C_ACCIT WITH KEY POSNR = <L_FIELD>INTO WA_ACCIT
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
LOOP AT C_EXTENSION2 INTO WA_EXTENSION.AT NEW STRUCTURE.CREATE DATA L_REF TYPE (WA_EXTENSION-STRUCTURE).        ASSIGN L_REF->* TO <L_STRUC>.      ENDAT.      CONCATENATE WA_EXTENSION-VALUEPART1 WA_EXTENSION-VALUEPART2                  WA_EXTENSION-VALUEPART3 WA_EXTENSION-VALUEPART4INTO EXT_VALUE.MOVE EXT_VALUE TO <L_STRUC>.      ASSIGN COMPONENT 'POSNR' OF STRUCTURE <L_STRUC> TO <L_FIELD>.READ TABLE C_ACCIT WITH KEY POSNR = <L_FIELD>INTO WA_ACCIT
/* ... 已截断，完整代码请查看原文 */
ABAP 关于对物料计量单位的维护
查看代码
ls_head-material = '000000000002000076'.  "SAP物料编码
"修改量纲ls_mara-net_weight = 1."净重ls_marax-net_weight = 'X'."净重
CLEAR:ls_marm.ls_marm-alt_unit = 'M'."基本单位ls_marm-gross_wt = 3."毛重ls_marm-unit_of_wt = 'KG'."重量单位ls_marm-volume = 1."业务量ls_marm-volumeunit = 'M3'."体积单位APPEND ls_marm TO lt_marm.CLEAR:ls_marmx.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
ls_head-material = '000000000002000076'.  "SAP物料编码
"修改量纲ls_mara-net_weight = 1."净重ls_marax-net_weight = 'X'."净重
CLEAR:ls_marm.ls_marm-alt_unit = 'M'."基本单位ls_marm-gross_wt = 3."毛重ls_marm-unit_of_wt = 'KG'."重量单位ls_marm-volume = 1."业务量ls_marm-volumeunit = 'M3'."体积单位APPEND ls_marm TO lt_marm.CLEAR:ls_marmx.
/* ... 已截断，完整代码请查看原文 */
ABAP 关于将预留单中增强字段带入物料凭证和会计凭证中
查看代码
LOOP AT it_extension_in INTO DATA(ls_extension).
IF ls_extension-structure = 'ZRESB_APPEND'.        lv_rspos = ls_extension-valuepart1.        ls_zresb = ls_extension-valuepart2.        READ TABLE resb INTO DATA(ls_resb) INDEX lv_rspos.        IF sy-subrc = 0.          ls_resb-zsgtxt = ls_zresb-zsgtxt."大项修          MODIFY resb FROM ls_resb INDEX lv_rspos           TRANSPORTING zsgtxt.        ENDIF.      ENDIF.    ENDLOOP.  ENDMETHOD."--------------------@斌将军------------
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
LOOP AT it_extension_in INTO DATA(ls_extension).
IF ls_extension-structure = 'ZRESB_APPEND'.        lv_rspos = ls_extension-valuepart1.        ls_zresb = ls_extension-valuepart2.        READ TABLE resb INTO DATA(ls_resb) INDEX lv_rspos.        IF sy-subrc = 0.          ls_resb-zsgtxt = ls_zresb-zsgtxt."大项修          MODIFY resb FROM ls_resb INDEX lv_rspos           TRANSPORTING zsgtxt.        ENDIF.      ENDIF.    ENDLOOP.  ENDMETHOD."--------------------@斌将军------------
/* ... 已截断，完整代码请查看原文 */
ABAP 关于将预留单中增强字段带入物料凭证和会计凭证中 
DATA:    c_lenstruc          TYPE i VALUE 30,    wa_bapi_mb_header   TYPE bapi_te_xmkpf,    wa_bapi_mb_item     TYPE bapi_te_xmseg,    wa_extension_in     TYPE bapiparex.
查看完整代码 
DATA:    c_lenstruc          TYPE i VALUE 30,    wa_bapi_mb_header   TYPE bapi_te_xmkpf,    wa_bapi_mb_item     TYPE bapi_te_xmseg,    wa_extension_in     TYPE bapiparex.
ABAP 关于将预留单中增强字段带入物料凭证和会计凭证中
查看代码
LOOP AT extension_in INTO wa_extension_in.    CASE wa_extension_in-structure.* extension of MKPF      WHEN 'BAPI_TE_XMKPF'.        MOVE wa_extension_in+c_lenstruc TO wa_bapi_mb_header.        MOVE-CORRESPONDING wa_bapi_mb_header TO cs_imkpf.* extension of MSEG      WHEN 'BAPI_TE_XMSEG'.        MOVE wa_extension_in+c_lenstruc TO wa_bapi_mb_item.        READ TABLE ct_imseg          WITH KEY line_id = wa_bapi_mb_item-matdoc_itm          ASSIGNING <fs_imseg>.        I
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
LOOP AT extension_in INTO wa_extension_in.    CASE wa_extension_in-structure.* extension of MKPF      WHEN 'BAPI_TE_XMKPF'.        MOVE wa_extension_in+c_lenstruc TO wa_bapi_mb_header.        MOVE-CORRESPONDING wa_bapi_mb_header TO cs_imkpf.* extension of MSEG      WHEN 'BAPI_TE_XMSEG'.        MOVE wa_extension_in+c_lenstruc TO wa_bapi_mb_item.        READ TABLE ct_imseg          WITH KEY line_id = wa_bapi_mb_item-matdoc_itm          ASSIGNING <fs_imseg>.        I
/* ... 已截断，完整代码请查看原文 */
ABAP 关于改造维护工单BAPI_ALM_ORDER_MAINTAIN用于生产订单组件批量修改二
查看代码
CLEAR:ls_methods.    ls_methods-refnumber  = 1.    ls_methods-method = 'SAVE'.    ls_methods-objectkey = ls_alv-aufnr.    APPEND ls_methods TO lt_methods.
LOOP AT GROUP ls_alv ASSIGNING FIELD-SYMBOL(<fs_alv>).
READ TABLE gt_resb INTO gs_resb WITH KEY aufnr = <fs_alv>-aufnr                                                rspos = <fs_alv>-rspos BINARY SEARCH.      IF sy-subrc EQ 0."修改逻辑        IF gs_resb-xloek = 'X'.          <fs_alv>-icon = ic
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
CLEAR:ls_methods.    ls_methods-refnumber  = 1.    ls_methods-method = 'SAVE'.    ls_methods-objectkey = ls_alv-aufnr.    APPEND ls_methods TO lt_methods.
LOOP AT GROUP ls_alv ASSIGNING FIELD-SYMBOL(<fs_alv>).
READ TABLE gt_resb INTO gs_resb WITH KEY aufnr = <fs_alv>-aufnr                                                rspos = <fs_alv>-rspos BINARY SEARCH.      IF sy-subrc EQ 0."修改逻辑        IF gs_resb-xloek = 'X'.          <fs_alv>-icon = ic
/* ... 已截断，完整代码请查看原文 */
ABAP 内表到内表的复制并填充默认值CORRESPONDING高阶使用方法
查看代码
RANGES: s_asort FOR wlk1-filia.RANGES: s_matnr FOR wlk1-artnr.DATA: lt_rsparams TYPE TABLE OF rsparams,      ls_rsparams TYPE rsparams,      ls_asort    LIKE LINE OF s_asort,      ls_matnr    LIKE LINE OF s_matnr.s_asort[] = VALUE #( ( sign = 'I' option = 'EQ' low = 'W100' )                     ( sign = 'I' option = 'EQ' low = 'W200' )                     ( sign = 'I' option = 'EQ' low = 'W300' ) ).
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
RANGES: s_asort FOR wlk1-filia.RANGES: s_matnr FOR wlk1-artnr.DATA: lt_rsparams TYPE TABLE OF rsparams,      ls_rsparams TYPE rsparams,      ls_asort    LIKE LINE OF s_asort,      ls_matnr    LIKE LINE OF s_matnr.s_asort[] = VALUE #( ( sign = 'I' option = 'EQ' low = 'W100' )                     ( sign = 'I' option = 'EQ' low = 'W200' )                     ( sign = 'I' option = 'EQ' low = 'W300' ) ).
/* ... 已截断，完整代码请查看原文 */
ABAP 内表到内表的复制并填充默认值CORRESPONDING高阶使用方法
查看代码
RANGES: s_asort FOR wlk1-filia.RANGES: s_matnr FOR wlk1-artnr.DATA: lt_rsparams TYPE TABLE OF rsparams,      ls_rsparams TYPE rsparams,      ls_asort    LIKE LINE OF s_asort,      ls_matnr    LIKE LINE OF s_matnr.s_asort[] = VALUE #( ( sign = 'I' option = 'EQ' low = 'W100' )                     ( sign = 'I' option = 'EQ' low = 'W200' )                     ( sign = 'I' option = 'EQ' low = 'W300' ) ).
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
RANGES: s_asort FOR wlk1-filia.RANGES: s_matnr FOR wlk1-artnr.DATA: lt_rsparams TYPE TABLE OF rsparams,      ls_rsparams TYPE rsparams,      ls_asort    LIKE LINE OF s_asort,      ls_matnr    LIKE LINE OF s_matnr.s_asort[] = VALUE #( ( sign = 'I' option = 'EQ' low = 'W100' )                     ( sign = 'I' option = 'EQ' low = 'W200' )                     ( sign = 'I' option = 'EQ' low = 'W300' ) ).
/* ... 已截断，完整代码请查看原文 */
ABAP 内表到内表的复制并填充默认值CORRESPONDING高阶使用方法
查看代码
RANGES: s_asort FOR wlk1-filia.RANGES: s_matnr FOR wlk1-artnr.DATA: lt_rsparams TYPE TABLE OF rsparams,      ls_rsparams TYPE rsparams,      ls_asort    LIKE LINE OF s_asort,      ls_matnr    LIKE LINE OF s_matnr.s_asort[] = VALUE #( ( sign = 'I' option = 'EQ' low = 'W100' )                     ( sign = 'I' option = 'EQ' low = 'W200' )                     ( sign = 'I' option = 'EQ' low = 'W300' ) ).
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
RANGES: s_asort FOR wlk1-filia.RANGES: s_matnr FOR wlk1-artnr.DATA: lt_rsparams TYPE TABLE OF rsparams,      ls_rsparams TYPE rsparams,      ls_asort    LIKE LINE OF s_asort,      ls_matnr    LIKE LINE OF s_matnr.s_asort[] = VALUE #( ( sign = 'I' option = 'EQ' low = 'W100' )                     ( sign = 'I' option = 'EQ' low = 'W200' )                     ( sign = 'I' option = 'EQ' low = 'W300' ) ).
/* ... 已截断，完整代码请查看原文 */
ABAP 副本请求的快速生成和传输
查看代码
SELECTION-SCREEN FUNCTION KEY 1.SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE btxt1.SELECT-OPTIONS: s_trkor FOR e070-trkorr NO INTERVALS.PARAMETERS: p_arget TYPE tr_target OBLIGATORY DEFAULT c_targ MODIF ID a,            p_mandt TYPE sy-mandt DEFAULT c_clnt,            p_trkor TYPE e070-trkorr MODIF ID a.SELECTION-SCREEN END OF BLOCK b1.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
SELECTION-SCREEN FUNCTION KEY 1.SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE btxt1.SELECT-OPTIONS: s_trkor FOR e070-trkorr NO INTERVALS.PARAMETERS: p_arget TYPE tr_target OBLIGATORY DEFAULT c_targ MODIF ID a,            p_mandt TYPE sy-mandt DEFAULT c_clnt,            p_trkor TYPE e070-trkorr MODIF ID a.SELECTION-SCREEN END OF BLOCK b1.
/* ... 已截断，完整代码请查看原文 */
ABAP 副本请求的快速生成和传输
查看代码
lt_task-request = e070-strkorr.        lt_task-tasknum = e070-trkorr.        COLLECT lt_task.      ENDSELECT.      SHIFT tr_text.      CONCATENATE '副本传输:' tr_text INTO tr_text.
CALL FUNCTION 'TR_INSERT_REQUEST_WITH_TASKS'        EXPORTING          iv_type           = 'T'          iv_text           = tr_text          iv_target         = p_arget        IMPORTING          es_request_header = header        EXCEPTIONS          insert_failed     = 1          enqueue
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
lt_task-request = e070-strkorr.        lt_task-tasknum = e070-trkorr.        COLLECT lt_task.      ENDSELECT.      SHIFT tr_text.      CONCATENATE '副本传输:' tr_text INTO tr_text.
CALL FUNCTION 'TR_INSERT_REQUEST_WITH_TASKS'        EXPORTING          iv_type           = 'T'          iv_text           = tr_text          iv_target         = p_arget        IMPORTING          es_request_header = header        EXCEPTIONS          insert_failed     = 1          enqueue
/* ... 已截断，完整代码请查看原文 */
ABAP 动态内表
查看代码
DATA:lv_count TYPE i.
SELECT    ebeln    ebelp    matnr"物料  FROM ekpo  INTO TABLE gt_alv  WHERE ebeln IN s_ebeln.
IF gt_alv IS NOT INITIAL.    SORT gt_alv BY ebeln ebelp.        "判断最大的列    CLEAR:gv_line.    LOOP AT gt_alv INTO DATA(ls_alv).      CLEAR:gs_alv.      gs_alv = ls_alv.      lv_count = lv_count + 1.      AT END OF ebeln.        IF gv_line < lv_count.          gv_line = lv_count.        ENDIF.        CLEAR:lv_count.      ENDAT.    ENDLOOP.  ELSE.    MESSAGE '没有数
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA:lv_count TYPE i.
SELECT    ebeln    ebelp    matnr"物料  FROM ekpo  INTO TABLE gt_alv  WHERE ebeln IN s_ebeln.
IF gt_alv IS NOT INITIAL.    SORT gt_alv BY ebeln ebelp.        "判断最大的列    CLEAR:gv_line.    LOOP AT gt_alv INTO DATA(ls_alv).      CLEAR:gs_alv.      gs_alv = ls_alv.      lv_count = lv_count + 1.      AT END OF ebeln.        IF gv_line < lv_count.          gv_line = lv_count.        ENDIF.        CLEAR:lv_count.      ENDAT.    ENDLOOP.  ELSE.    MESSAGE '没有数
/* ... 已截断，完整代码请查看原文 */
ABAP 动态内表
查看代码
"-----------------------------@斌将军-----------------------------  init_fill_fcat 'CHECKBOX' '状态栏' '' '' '' '' '' '' ''.  init_fill_fcat 'EBELN' '采购订单' '' '' '' '' '' 'X' ''.  "循环最多行项目的行数  DO gv_line TIMES.    CLEAR:lv_fieldname.    lv_fieldname = 'EBELP' && sy-index.    init_fill_fcat l
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
"-----------------------------@斌将军-----------------------------  init_fill_fcat 'CHECKBOX' '状态栏' '' '' '' '' '' '' ''.  init_fill_fcat 'EBELN' '采购订单' '' '' '' '' '' 'X' ''.  "循环最多行项目的行数  DO gv_line TIMES.    CLEAR:lv_fieldname.    lv_fieldname = 'EBELP' && sy-index.    init_fill_fcat l
/* ... 已截断，完整代码请查看原文 */
ABAP 动态内表 
"-----------------------------@斌将军-----------------------------  CALL METHOD cl_alv_table_create=>create_dynamic_table    EXPORTING      it_fieldcatalog = gt_fieldcat    IMPORTING      ep_table        = dy_table." 用表类型指针 <dyn_table> 指向 数据对象的内容.  ASSIGN dy_table->* TO <dyn_alv>.     " 建立一个与动态内表结构相同的数据对象，且数据对象为是一个结构  CREATE DATA gs_line LIKE LINE OF <dyn_alv>.    ASSIGN gs_line->* TO <dyn_wa>. " 用<dyn_wa>指针指向该结构
查看完整代码 
"-----------------------------@斌将军-----------------------------  CALL METHOD cl_alv_table_create=>create_dynamic_table    EXPORTING      it_fieldcatalog = gt_fieldcat    IMPORTING      ep_table        = dy_table." 用表类型指针 <dyn_table> 指向 数据对象的内容.  ASSIGN dy_table->* TO <dyn_alv>.     " 建立一个与动态内表结构相同的数据对象，且数据对象为是一个结构  CREATE DATA gs_line LIKE LINE OF <dyn_alv>.    ASSIGN gs_line->* TO <dyn_wa>. " 用<dyn_wa>指针指向该结构
ABAP 动态内表
查看代码
"-----------------------------@斌将军-----------------------------CLEAR:lv_count.  LOOP AT gt_alv INTO DATA(ls_alv).    CLEAR:gs_alv.    gs_alv = ls_alv.    MOVE-CORRESPONDING gs_alv TO <dyn_wa>.
lv_count = lv_count + 1.
CLEAR:lv_fieldname.    lv_fieldname = 'EBELP' && lv_count.    CONDENSE lv_fieldname NO-GAPS.    ASSIGN COMPONENT lv_fieldname OF STRUCTURE <dyn_wa>                                           TO <dyn_field>.    IF sy-subrc EQ 0.      <
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
"-----------------------------@斌将军-----------------------------CLEAR:lv_count.  LOOP AT gt_alv INTO DATA(ls_alv).    CLEAR:gs_alv.    gs_alv = ls_alv.    MOVE-CORRESPONDING gs_alv TO <dyn_wa>.
lv_count = lv_count + 1.
CLEAR:lv_fieldname.    lv_fieldname = 'EBELP' && lv_count.    CONDENSE lv_fieldname NO-GAPS.    ASSIGN COMPONENT lv_fieldname OF STRUCTURE <dyn_wa>                                           TO <dyn_field>.    IF sy-subrc EQ 0.      <
/* ... 已截断，完整代码请查看原文 */
ABAP 动态内表 
"-----------------------------@斌将军-----------------------------  "针对动态内表排序  ls_sort-name = 'EBELN'.  ls_sort-descending = ''.  APPEND ls_sort TO lt_sort.  SORT <dyn_alv> BY (lt_sort).
查看完整代码 
"-----------------------------@斌将军-----------------------------  "针对动态内表排序  ls_sort-name = 'EBELN'.  ls_sort-descending = ''.  APPEND ls_sort TO lt_sort.  SORT <dyn_alv> BY (lt_sort).
ABAP 动态内表 
TYPES:BEGIN OF ty_alv,        ebeln    TYPE ekpo-ebeln, "采购凭证编号        ebelp    TYPE ekpo-ebelp, "采购凭证编行号        matnr    TYPE ekpo-matnr, "物料
查看完整代码 
TYPES:BEGIN OF ty_alv,        ebeln    TYPE ekpo-ebeln, "采购凭证编号        ebelp    TYPE ekpo-ebelp, "采购凭证编行号        matnr    TYPE ekpo-matnr, "物料
ABAP 动态内表 
DATA:gv_line TYPE i.
DATA:dy_table TYPE REF TO data,     gs_line  TYPE REF TO data.
查看完整代码 
DATA:gv_line TYPE i.
DATA:dy_table TYPE REF TO data,     gs_line  TYPE REF TO data.
ABAP 动态内表 
DATA: gt_fieldcat TYPE lvc_t_fcat, "字段目录内表      gs_fieldcat TYPE lvc_s_fcat, "字段目录工作区      gs_layout   TYPE lvc_s_layo. "用于定义ALV表单的相关格式、属性
查看完整代码 
DATA: gt_fieldcat TYPE lvc_t_fcat, "字段目录内表      gs_fieldcat TYPE lvc_s_fcat, "字段目录工作区      gs_layout   TYPE lvc_s_layo. "用于定义ALV表单的相关格式、属性
ABAP 动态内表 
DATA:lv_count TYPE i.
SELECT    ebeln    ebelp    matnr"物料  FROM ekpo  INTO TABLE gt_alv  WHERE ebeln IN s_ebeln
查看完整代码 
DATA:lv_count TYPE i.
SELECT    ebeln    ebelp    matnr"物料  FROM ekpo  INTO TABLE gt_alv  WHERE ebeln IN s_ebeln
ABAP 动态报表DQuery增强点 
lv_str = | { } |.
查看完整代码 
lv_str = | { } |.
ABAP 动态报表DQuery添加NULL查询支持 
SELECT H~*,I~* FROM ZTTS_H AS H LEFT JOIN ZTTS_I AS I ON I~VBELN = H~VBELN
查看完整代码 
SELECT H~*,I~* FROM ZTTS_H AS H LEFT JOIN ZTTS_I AS I ON I~VBELN = H~VBELN
ABAP 动态报表DQuery特殊查询条件支持 
SELECT A.VBELN,A.POSNR,A.VGBEL,A.VGPOS,A.LGORT,B.LGORT
查看完整代码 
SELECT A.VBELN,A.POSNR,A.VGBEL,A.VGPOS,A.LGORT,B.LGORT
ABAP 动态报表DQuery自定义选择屏幕调用
查看代码
TABLES: vbak,vbap.SELECT-OPTIONS:    s_vkorg FOR vbak-vkorg,    s_vkorg1 FOR vbak-vkorg,    s_werks FOR vbap-werks.
DATA: lt_dq TYPE zrang_dq_tab. "查询ID传递到的选择条件.DATA: lr_vkorg TYPE TABLE OF rsdsselopt.DATA: lr_vkorg1 TYPE TABLE OF rsdsselopt.DATA: lr_werks TYPE TABLE OF rsdsselopt.
START-OF-SELECTION.  MOVE-CORRESPONDING s_vkorg[] TO lr_vkorg.  MOVE-CORRESPONDING s_vkorg1[] TO lr_vkorg1.  MOVE-CORRESPONDING s_werks[] TO lr_werks.  "给第一个查询-主查询传递查询条件 和关联查询  "给第一个查询:销售订单查询和第二个查
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
TABLES: vbak,vbap.SELECT-OPTIONS:    s_vkorg FOR vbak-vkorg,    s_vkorg1 FOR vbak-vkorg,    s_werks FOR vbap-werks.
DATA: lt_dq TYPE zrang_dq_tab. "查询ID传递到的选择条件.DATA: lr_vkorg TYPE TABLE OF rsdsselopt.DATA: lr_vkorg1 TYPE TABLE OF rsdsselopt.DATA: lr_werks TYPE TABLE OF rsdsselopt.
START-OF-SELECTION.  MOVE-CORRESPONDING s_vkorg[] TO lr_vkorg.  MOVE-CORRESPONDING s_vkorg1[] TO lr_vkorg1.  MOVE-CORRESPONDING s_werks[] TO lr_werks.  "给第一个查询-主查询传递查询条件 和关联查询  "给第一个查询:销售订单查询和第二个查
/* ... 已截断，完整代码请查看原文 */
ABAP 动态报表DQuery通过字频优化字段选择 
SELECT SINGLE COUNT( DISTINCT bsart ) FROM ekko INTO -diffvalue.
查看完整代码 
SELECT SINGLE COUNT( DISTINCT bsart ) FROM ekko INTO -diffvalue.
ABAP 动态报表DQuery通过字频优化字段选择 
TABLES: ztbc_tabuse,ztbc_tabuse_log,dd02l,dd03l.
SELECT-OPTIONS: s_datum FOR ztbc_tabuse_log-crdat,  s_tab FOR dd02l-tabname.PARAMETERS: p_fnum TYPE i. "字段个数,小于该字段个数的表不参与统计
查看完整代码 
TABLES: ztbc_tabuse,ztbc_tabuse_log,dd02l,dd03l.
SELECT-OPTIONS: s_datum FOR ztbc_tabuse_log-crdat,  s_tab FOR dd02l-tabname.PARAMETERS: p_fnum TYPE i. "字段个数,小于该字段个数的表不参与统计
ABAP 动态报表DQuery通过字频优化字段选择
查看代码
PERFORM frm_get_data.*&---------------------------------------------------------------------**& Form FRM_GET_DATA*&---------------------------------------------------------------------**& text*&---------------------------------------------------------------------**& -->  p1        text*& <--  p2        text*&---------------------------------------------------------------------*FORM frm_get_data .  "从底层表 PUBLIC.M_TABLES获取表的条目数:只获取条目数>0的表  DATA: 
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
PERFORM frm_get_data.*&---------------------------------------------------------------------**& Form FRM_GET_DATA*&---------------------------------------------------------------------**& text*&---------------------------------------------------------------------**& -->  p1        text*& <--  p2        text*&---------------------------------------------------------------------*FORM frm_get_data .  "从底层表 PUBLIC.M_TABLES获取表的条目数:只获取条目数>0的表  DATA: 
/* ... 已截断，完整代码请查看原文 */
ABAP 动态报表DQuery通过字频优化字段选择
查看代码
DATA: lt_save LIKE TABLE OF ztbc_tabuse.  DATA: lt_log_save LIKE TABLE OF ztbc_tabuse_log,        ls_log_save LIKE ztbc_tabuse_log.  "获取所有需要统计的字段信息  SELECT a~tabname ,a~fieldname,a~inttype FROM dd03l AS a INNER JOIN @lt_log AS b ON b~tabname = a~tabname    WHERE a~as4local = 'A'      AND a~as4vers = '0000'      AND a~precfield = ''"INCLUDE 结构    INTO CORRESPONDING FIELDS OF TABLE @lt_save.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA: lt_save LIKE TABLE OF ztbc_tabuse.  DATA: lt_log_save LIKE TABLE OF ztbc_tabuse_log,        ls_log_save LIKE ztbc_tabuse_log.  "获取所有需要统计的字段信息  SELECT a~tabname ,a~fieldname,a~inttype FROM dd03l AS a INNER JOIN @lt_log AS b ON b~tabname = a~tabname    WHERE a~as4local = 'A'      AND a~as4vers = '0000'      AND a~precfield = ''"INCLUDE 结构    INTO CORRESPONDING FIELDS OF TABLE @lt_save.
/* ... 已截断，完整代码请查看原文 */
ABAP 发票输出EDI段增强
查看代码
*抬头文本READ TABLE document_data ASSIGNING FIELD-SYMBOL(<fs_data>) WITH KEY fnam = 'BKPF-BKTXT' stype = 'K' count = '000001'.IF sy-subrc = 0.  <fs_data>-fval = 'EDI'.ELSE.  wa_document_data_append-stype = 'K'.  wa_document_data_append-count = '000001'.  wa_document_data_append-fnam = 'BKPF-BKTXT'.  wa_document_data_append-fval = 'EDI'.  APPEND wa_document_data_append TO document_data.  CLEAR wa_documen
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
*抬头文本READ TABLE document_data ASSIGNING FIELD-SYMBOL(<fs_data>) WITH KEY fnam = 'BKPF-BKTXT' stype = 'K' count = '000001'.IF sy-subrc = 0.  <fs_data>-fval = 'EDI'.ELSE.  wa_document_data_append-stype = 'K'.  wa_document_data_append-count = '000001'.  wa_document_data_append-fnam = 'BKPF-BKTXT'.  wa_document_data_append-fval = 'EDI'.  APPEND wa_document_data_append TO document_data.  CLEAR wa_documen
/* ... 已截断，完整代码请查看原文 */
ABAP 发票输出会计凭证利润中心修改
查看代码
*&---------------------------------------------------------------------**& 包含               ZXEDFU04*&---------------------------------------------------------------------**冲销发票凭证输出凭证的利润中心更改IF dvbdkr-fkart = 'ZIVS' OR   dvbdkr-fkart = 'ZIGS'.  SELECT SINGLE @abap_true INTO @DATA(lv_exists) FROM cepc WHERE prctr = @dvbdkr-kunwe.  CHECK sy-subrc = 0.  LOOP AT dvbdpr ASSIGNING FIELD-SYMBOL(<fs_dvbdpr>) WHERE prctr IS INITIAL.    <fs_dvbdpr>-prctr = 
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
*&---------------------------------------------------------------------**& 包含               ZXEDFU04*&---------------------------------------------------------------------**冲销发票凭证输出凭证的利润中心更改IF dvbdkr-fkart = 'ZIVS' OR   dvbdkr-fkart = 'ZIGS'.  SELECT SINGLE @abap_true INTO @DATA(lv_exists) FROM cepc WHERE prctr = @dvbdkr-kunwe.  CHECK sy-subrc = 0.  LOOP AT dvbdpr ASSIGNING FIELD-SYMBOL(<fs_dvbdpr>) WHERE prctr IS INITIAL.    <fs_dvbdpr>-prctr = 
/* ... 已截断，完整代码请查看原文 */
ABAP 后台JOB的前趋和后继
查看代码
TABLES: apqi.DATA: gt_qid TYPE STANDARD TABLE OF apqi-qid.DATA: gt_rsparams TYPE TABLE OF rsparams.DATA: gv_jobname TYPE tbtcjob-jobname.DATA: gv_jobcount TYPE tbtcjob-jobcount.DATA: gv_eventid TYPE tbtcjob-eventid.DATA: gv_eventparm TYPE tbtcjob-eventparm.DATA: gv_date LIKE sy-datum.DATA: gv_time LIKE sy-uzeit.*&---------------------------------------------------------------------**& 选择屏幕 / SELECTION SCREEN*&---------------------------------------------------------------------
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
TABLES: apqi.DATA: gt_qid TYPE STANDARD TABLE OF apqi-qid.DATA: gt_rsparams TYPE TABLE OF rsparams.DATA: gv_jobname TYPE tbtcjob-jobname.DATA: gv_jobcount TYPE tbtcjob-jobcount.DATA: gv_eventid TYPE tbtcjob-eventid.DATA: gv_eventparm TYPE tbtcjob-eventparm.DATA: gv_date LIKE sy-datum.DATA: gv_time LIKE sy-uzeit.*&---------------------------------------------------------------------**& 选择屏幕 / SELECTION SCREEN*&---------------------------------------------------------------------
/* ... 已截断，完整代码请查看原文 */
ABAP 后台JOB的前趋和后继
查看代码
END-OF-SELECTION .  LOOP AT gt_qid INTO DATA(ls_qid).    gt_rsparams = VALUE #( ( selname = 'QUEUE_ID' kind = 'P' low = ls_qid  ) ).    IF sy-tabix = 1.      gv_date = sy-datum.      gv_time = sy-uzeit + 10."10秒后执行,只有已释放和已调度的JOB才能作为前驱作业    ELSE.      CLEAR:  gv_date,  gv_time.    ENDIF.    DATA(ls_return) = zcl_common=>start_job( jobname    = |SM35_{ ls_qid }|                                             report     = 'RSBDCBTC'                          
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
END-OF-SELECTION .  LOOP AT gt_qid INTO DATA(ls_qid).    gt_rsparams = VALUE #( ( selname = 'QUEUE_ID' kind = 'P' low = ls_qid  ) ).    IF sy-tabix = 1.      gv_date = sy-datum.      gv_time = sy-uzeit + 10."10秒后执行,只有已释放和已调度的JOB才能作为前驱作业    ELSE.      CLEAR:  gv_date,  gv_time.    ENDIF.    DATA(ls_return) = zcl_common=>start_job( jobname    = |SM35_{ ls_qid }|                                             report     = 'RSBDCBTC'                          
/* ... 已截断，完整代码请查看原文 */
ABAP 固定点运算对计算结果的影响原因分析 
DATA: lv_rlt1 TYPE p DECIMALS 1,      lv_rlt2 TYPE p DECIMALS 2,      lv_rlt3 TYPE p DECIMALS 3.
"整除结果为5.5,取整为6,因为有1位小数,即除以10,得0.6lv_rlt1 = 11 / 2.WRITE:/ 'lv_rlt1 = ' ,lv_rlt1."整除结果为5.5,取整为6,因为有2位小数,即除以100,得0.06lv_rlt2 = 11 / 2.WRITE:/ 'lv_rlt2 = ' ,lv_rlt2."整除结果为5.5,取整为6,因为有3位小数,即除以1000,得0.006lv_rlt3 = 11 / 2.WRITE:/ 'lv_rlt3 = ' ,lv_rlt3.
查看完整代码 
DATA: lv_rlt1 TYPE p DECIMALS 1,      lv_rlt2 TYPE p DECIMALS 2,      lv_rlt3 TYPE p DECIMALS 3.
"整除结果为5.5,取整为6,因为有1位小数,即除以10,得0.6lv_rlt1 = 11 / 2.WRITE:/ 'lv_rlt1 = ' ,lv_rlt1."整除结果为5.5,取整为6,因为有2位小数,即除以100,得0.06lv_rlt2 = 11 / 2.WRITE:/ 'lv_rlt2 = ' ,lv_rlt2."整除结果为5.5,取整为6,因为有3位小数,即除以1000,得0.006lv_rlt3 = 11 / 2.WRITE:/ 'lv_rlt3 = ' ,lv_rlt3.
ABAP 固定点运算对计算结果的影响原因分析 
DATA: lv_amount TYPE p DECIMALS 2 VALUE '1000.00'."不含税金额DATA: lv_amount2 TYPE p DECIMALS 2."含税金额DATA: lv_amount3 TYPE p DECIMALS 3."含税金额DATA: lv_tax_rate TYPE i VALUE 130.DATA:lv_tax TYPE p DECIMALS 2.
"130*10 = 1300,除以100得13,因为有两位小数,所以值为0.13lv_tax = lv_tax_rate * 10 / 100.WRITE:/ 'lv_tax = ' ,lv_tax.
查看完整代码 
DATA: lv_amount TYPE p DECIMALS 2 VALUE '1000.00'."不含税金额DATA: lv_amount2 TYPE p DECIMALS 2."含税金额DATA: lv_amount3 TYPE p DECIMALS 3."含税金额DATA: lv_tax_rate TYPE i VALUE 130.DATA:lv_tax TYPE p DECIMALS 2.
"130*10 = 1300,除以100得13,因为有两位小数,所以值为0.13lv_tax = lv_tax_rate * 10 / 100.WRITE:/ 'lv_tax = ' ,lv_tax.
ABAP 固定点运算对计算结果的影响原因分析
查看代码
"0.13先转成了13,加上100得113,因为有2位小数,即除以100,得1.13lv_tax = lv_tax + 100.WRITE:/ 'lv_tax = ' ,lv_tax.
"1000.00先转成了100000,1.13转成了113,两者相成得11300000，除以100后得113000,因为有2位小数,即除以100,得1130.00lv_amount2 = lv_amount * lv_tax / 100.WRITE:/ 'lv_amount2 = ' ,lv_amount2.
"1000.00先转成了100000,1.13转成了113,两者相成得11300000，除以100后得113000,因为有3位小数,即除以1000,得113.000lv_amount3 = lv_amount * lv_tax / 100.WRITE:/ 'lv_amount3 = ' ,lv_amount3.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
"0.13先转成了13,加上100得113,因为有2位小数,即除以100,得1.13lv_tax = lv_tax + 100.WRITE:/ 'lv_tax = ' ,lv_tax.
"1000.00先转成了100000,1.13转成了113,两者相成得11300000，除以100后得113000,因为有2位小数,即除以100,得1130.00lv_amount2 = lv_amount * lv_tax / 100.WRITE:/ 'lv_amount2 = ' ,lv_amount2.
"1000.00先转成了100000,1.13转成了113,两者相成得11300000，除以100后得113000,因为有3位小数,即除以1000,得113.000lv_amount3 = lv_amount * lv_tax / 100.WRITE:/ 'lv_amount3 = ' ,lv_amount3.
/* ... 已截断，完整代码请查看原文 */
ABAP 在SAP服务器中解析xlsx文件 
CLASS ZCL_OPENXML_XLSX_ITAB IMPLEMENTATION.
查看完整代码 
CLASS ZCL_OPENXML_XLSX_ITAB IMPLEMENTATION.
ABAP 在SAP服务器中解析xlsx文件 
DATA: error_text    TYPE string,                            xstring_excel TYPE xstring.
查看完整代码 
DATA: error_text    TYPE string,                            xstring_excel TYPE xstring.
ABAP 基于AIF的接口开发简述 
REPORT zmmmrm_aif_selscreen_001.TABLES: mkpf.
SELECTION-SCREEN BEGIN OF SCREEN 9001 AS SUBSCREEN.PARAMETERS: p_mblnr TYPE mkpf-mblnr,                             p_mjahr TYPE mkpf-mjahr.SELECTION-SCREEN END OF SCREEN 9001.
查看完整代码 
REPORT zmmmrm_aif_selscreen_001.TABLES: mkpf.
SELECTION-SCREEN BEGIN OF SCREEN 9001 AS SUBSCREEN.PARAMETERS: p_mblnr TYPE mkpf-mblnr,                             p_mjahr TYPE mkpf-mjahr.SELECTION-SCREEN END OF SCREEN 9001.
ABAP 基于AIF的接口开发简述
查看代码
CALL METHOD /ui2/cl_json=>deserializeEXPORTINGjson        = input-mt_bc000101_req_in-req_jsonpretty_name = /ui2/cl_json=>pretty_mode-camel_caseCHANGINGdata        = ls_input_sap_stru.
CALL METHOD cl_proxy_access=>get_inbound_message_keyIMPORTINGmessage_id = lv_xi_message_id.
LOOP AT lt_input_sap_stru ASSIGNING <lfs_abap>.<lfs_abap>-xi_guid = lv_xi_message_id.<lfs_abap>-json =  input-mt_bc000101_req_in-req_json.ENDLOOP.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
CALL METHOD /ui2/cl_json=>deserializeEXPORTINGjson        = input-mt_bc000101_req_in-req_jsonpretty_name = /ui2/cl_json=>pretty_mode-camel_caseCHANGINGdata        = ls_input_sap_stru.
CALL METHOD cl_proxy_access=>get_inbound_message_keyIMPORTINGmessage_id = lv_xi_message_id.
LOOP AT lt_input_sap_stru ASSIGNING <lfs_abap>.<lfs_abap>-xi_guid = lv_xi_message_id.<lfs_abap>-json =  input-mt_bc000101_req_in-req_json.ENDLOOP.
/* ... 已截断，完整代码请查看原文 */
ABAP 基于FTP的SAP与外部系统的文件交互 
CALLFUNCTION'HTTP_SCRAMBLE'EXPORTINGsource=lv_ftp-pwdsourcelen=lv_slenkey=lv_key"默认26101957IMPORTINGdestination=l_pswrd.“输入密码
查看完整代码 
CALLFUNCTION'HTTP_SCRAMBLE'EXPORTINGsource=lv_ftp-pwdsourcelen=lv_slenkey=lv_key"默认26101957IMPORTINGdestination=l_pswrd.“输入密码
ABAP 基于FTP的SAP与外部系统的文件交互 
CALLFUNCTION'FTP_CONNECT'EXPORTINGuser=lv_ftp-uname"用户名字password=l_pswrd“密码host=lv_ftp-host”地址rfc_destination='SAPFTP'IMPORTINGhandle=l_handleEXCEPTIONSnot_connected=1OTHERS=2.
查看完整代码 
CALLFUNCTION'FTP_CONNECT'EXPORTINGuser=lv_ftp-uname"用户名字password=l_pswrd“密码host=lv_ftp-host”地址rfc_destination='SAPFTP'IMPORTINGhandle=l_handleEXCEPTIONSnot_connected=1OTHERS=2.
ABAP 基于FTP的SAP与外部系统的文件交互 
CALLFUNCTION'FTP_COMMAND'EXPORTINGhandle=l_handlecommand=ls_cmd*compress=compressTABLESdata=resultEXCEPTIONScommand_error=1tcpip_error=2.
查看完整代码 
CALLFUNCTION'FTP_COMMAND'EXPORTINGhandle=l_handlecommand=ls_cmd*compress=compressTABLESdata=resultEXCEPTIONScommand_error=1tcpip_error=2.
ABAP 外向交货单过账与冲销增强 
DATA:lv_bwkey  TYPE bwkey,     lv_bukrs1 TYPE bukrs,     lv_bukrs2 TYPE bukrs.DATA:ls_xlips  LIKE LINE OF xlips.
查看完整代码 
DATA:lv_bwkey  TYPE bwkey,     lv_bukrs1 TYPE bukrs,     lv_bukrs2 TYPE bukrs.DATA:ls_xlips  LIKE LINE OF xlips.
ABAP 外向交货单过账与冲销增强
查看代码
CLEAR: wa_ylikp,wa_xvbuk,wa_yvbuk,wa_ekko,wa_vbak.  REFRESH: lt_xlips,lt_ylips,lt_ekpo,lt_vbap,lt_vbfa.*获取交货单抬头旧值  READ TABLE ylikp INTO wa_ylikp WITH KEY vbeln = <wa_xlikp>-vbeln.  READ TABLE xvbuk INTO wa_xvbuk WITH KEY vbeln = <wa_xlikp>-vbeln.  READ TABLE yvbuk INTO wa_yvbuk WITH KEY vbeln = <wa_xlikp>-vbeln.*获取交货单行项目  LOOP AT xlips INTO wa_xlips WHERE vbeln = <wa_xlikp>-vbeln.    APPEND wa_xlips TO lt_xlips.  ENDLOOP.*获取交货单行项目旧值  LOOP AT ylips INTO wa_ylips WHE
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
CLEAR: wa_ylikp,wa_xvbuk,wa_yvbuk,wa_ekko,wa_vbak.  REFRESH: lt_xlips,lt_ylips,lt_ekpo,lt_vbap,lt_vbfa.*获取交货单抬头旧值  READ TABLE ylikp INTO wa_ylikp WITH KEY vbeln = <wa_xlikp>-vbeln.  READ TABLE xvbuk INTO wa_xvbuk WITH KEY vbeln = <wa_xlikp>-vbeln.  READ TABLE yvbuk INTO wa_yvbuk WITH KEY vbeln = <wa_xlikp>-vbeln.*获取交货单行项目  LOOP AT xlips INTO wa_xlips WHERE vbeln = <wa_xlikp>-vbeln.    APPEND wa_xlips TO lt_xlips.  ENDLOOP.*获取交货单行项目旧值  LOOP AT ylips INTO wa_ylips WHE
/* ... 已截断，完整代码请查看原文 */
ABAP 外向交货单过账与冲销增强 
METHOD if_ex_le_shp_delivery_proc~delivery_deletion.* 生成过结算链的禁止删除    CHECK is_likp-lfart = 'ZNL1'.    SELECT SINGLE vbeln_vl INTO @DATA(lv_vbeln_vl) FROM ztsd013_h      WHERE vbeln_vl = @is_likp-vbeln      AND current_doc_type <> '1' AND current_doc_type <> '2'      AND bapi_mtype = 'S'.    IF sy-subrc = 0.      "请先删除结算链单据后再删除交货单      MESSAGE e007(zsd).    ENDIF.  ENDMETHOD.
查看完整代码 
METHOD if_ex_le_shp_delivery_proc~delivery_deletion.* 生成过结算链的禁止删除    CHECK is_likp-lfart = 'ZNL1'.    SELECT SINGLE vbeln_vl INTO @DATA(lv_vbeln_vl) FROM ztsd013_h      WHERE vbeln_vl = @is_likp-vbeln      AND current_doc_type <> '1' AND current_doc_type <> '2'      AND bapi_mtype = 'S'.    IF sy-subrc = 0.      "请先删除结算链单据后再删除交货单      MESSAGE e007(zsd).    ENDIF.  ENDMETHOD.
ABAP 外向交货单过账与冲销增强 
METHOD if_ex_le_shp_delivery_proc~item_deletion.*  生成过结算链的禁止删除    CHECK is_likp-lfart = 'ZNL1'.    SELECT SINGLE vbeln_vl INTO @DATA(lv_vbeln_vl) FROM ztsd013_h      WHERE vbeln_vl = @is_likp-vbeln      AND current_doc_type <> '1' AND current_doc_type <> '2'      AND bapi_mtype = 'S'.    IF sy-subrc = 0.      "请先删除结算链单据后再删除交货单      MESSAGE e007(zsd).    ENDIF.
ENDMETHOD.
查看完整代码 
METHOD if_ex_le_shp_delivery_proc~item_deletion.*  生成过结算链的禁止删除    CHECK is_likp-lfart = 'ZNL1'.    SELECT SINGLE vbeln_vl INTO @DATA(lv_vbeln_vl) FROM ztsd013_h      WHERE vbeln_vl = @is_likp-vbeln      AND current_doc_type <> '1' AND current_doc_type <> '2'      AND bapi_mtype = 'S'.    IF sy-subrc = 0.      "请先删除结算链单据后再删除交货单      MESSAGE e007(zsd).    ENDIF.
ENDMETHOD.
ABAP 外向交货单过账与冲销增强
查看代码
METHOD if_ex_le_shp_delivery_proc~delivery_final_check.* 交货单数量禁止为0    DATA: lv_zero     TYPE c,          ls_finchdel TYPE finchdel.
DATA:ls_xlikp TYPE likpvb,         ls_xlips TYPE lipsvb.
LOOP AT it_xlikp INTO ls_xlikp WHERE updkz NE 'D'.      CLEAR lv_zero.      LOOP AT it_xlips INTO ls_xlips                       WHERE vbeln EQ ls_xlikp-vbeln                         AND updkz NE 'D'.        CHECK ls_xlikp-lfart = 'ZNL1'.        IF ls_xlips-lfimg = 0.       
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
METHOD if_ex_le_shp_delivery_proc~delivery_final_check.* 交货单数量禁止为0    DATA: lv_zero     TYPE c,          ls_finchdel TYPE finchdel.
DATA:ls_xlikp TYPE likpvb,         ls_xlips TYPE lipsvb.
LOOP AT it_xlikp INTO ls_xlikp WHERE updkz NE 'D'.      CLEAR lv_zero.      LOOP AT it_xlips INTO ls_xlips                       WHERE vbeln EQ ls_xlikp-vbeln                         AND updkz NE 'D'.        CHECK ls_xlikp-lfart = 'ZNL1'.        IF ls_xlips-lfimg = 0.       
/* ... 已截断，完整代码请查看原文 */
ABAP 外向交货单过账与冲销增强
查看代码
METHOD if_ex_le_shp_delivery_proc~save_and_publish_before_output.    LOOP AT it_xlikp INTO DATA(wa_xlikp).      CHECK wa_xlikp-lfart = 'ZNL1'.      READ TABLE it_ylikp INTO DATA(wa_ylikp) WITH KEY vbeln = wa_xlikp-vbeln.      CHECK sy-subrc = 0.      "冲销检查      IF wa_xlikp-wbstk = 'A' AND wa_ylikp-wbstk = 'C'.        SELECT SINGLE vbeln_vl INTO @DATA(lv_vbeln_vl) FROM ztsd013_h           WHERE vbeln_vl = @wa_xlikp-vbeln           AND current_doc_type <
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
METHOD if_ex_le_shp_delivery_proc~save_and_publish_before_output.    LOOP AT it_xlikp INTO DATA(wa_xlikp).      CHECK wa_xlikp-lfart = 'ZNL1'.      READ TABLE it_ylikp INTO DATA(wa_ylikp) WITH KEY vbeln = wa_xlikp-vbeln.      CHECK sy-subrc = 0.      "冲销检查      IF wa_xlikp-wbstk = 'A' AND wa_ylikp-wbstk = 'C'.        SELECT SINGLE vbeln_vl INTO @DATA(lv_vbeln_vl) FROM ztsd013_h           WHERE vbeln_vl = @wa_xlikp-vbeln           AND current_doc_type <
/* ... 已截断，完整代码请查看原文 */
ABAP 外向交货单过账与冲销增强
查看代码
METHOD if_ex_le_shp_delivery_proc~save_document_prepare.  IF ct_xlips[] IS NOT INITIAL.      SELECT matnr,             a~bwkey,             verpr,             peinh        INTO TABLE @DATA(lt_mbew)        FROM mbew AS a        JOIN t001w AS b ON b~bwkey = a~bwkey        FOR ALL ENTRIES IN @ct_xlips        WHERE matnr = @ct_xlips-matnr          AND b~werks = @ct_xlips-werks.    ENDIF.    LOOP AT ct_xlikp INTO DATA(ls_xlikp).      CHECK ls_xlikp-lfart = 'ZNL1'.      LOOP AT ct_xlip
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
METHOD if_ex_le_shp_delivery_proc~save_document_prepare.  IF ct_xlips[] IS NOT INITIAL.      SELECT matnr,             a~bwkey,             verpr,             peinh        INTO TABLE @DATA(lt_mbew)        FROM mbew AS a        JOIN t001w AS b ON b~bwkey = a~bwkey        FOR ALL ENTRIES IN @ct_xlips        WHERE matnr = @ct_xlips-matnr          AND b~werks = @ct_xlips-werks.    ENDIF.    LOOP AT ct_xlikp INTO DATA(ls_xlikp).      CHECK ls_xlikp-lfart = 'ZNL1'.      LOOP AT ct_xlip
/* ... 已截断，完整代码请查看原文 */
ABAP 外向交货单过账与冲销增强
查看代码
METHOD IF_EX_LE_SHP_DELIVERY_PROC~SAVE_AND_PUBLISH_DOCUMENT. DATA:LT_LIKP   TYPE TABLE OF LIKP,         LS_LIPS   TYPE LIPS,         LT_LIPS_O TYPE TABLE OF LIPS, "门店领用/总部领用 交货单明细行         LT_LIPS_S TYPE TABLE OF LIPS, "销售 交货单明细行         LT_EKKO_O TYPE TABLE OF EKKO, "门店领用/总部领用 采购单         LT_EKKO_S TYPE TABLE OF EKKO, "销售 采购单         LT_EKPO_O TYPE TABLE OF EKPO, "门店领用/总部领用 采购单明细行         LT_EKPO_S TYPE TABLE OF EKPO. "销售 采购单明细行    IF IT_XLIPS[] IS NOT INITIA
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
METHOD IF_EX_LE_SHP_DELIVERY_PROC~SAVE_AND_PUBLISH_DOCUMENT. DATA:LT_LIKP   TYPE TABLE OF LIKP,         LS_LIPS   TYPE LIPS,         LT_LIPS_O TYPE TABLE OF LIPS, "门店领用/总部领用 交货单明细行         LT_LIPS_S TYPE TABLE OF LIPS, "销售 交货单明细行         LT_EKKO_O TYPE TABLE OF EKKO, "门店领用/总部领用 采购单         LT_EKKO_S TYPE TABLE OF EKKO, "销售 采购单         LT_EKPO_O TYPE TABLE OF EKPO, "门店领用/总部领用 采购单明细行         LT_EKPO_S TYPE TABLE OF EKPO. "销售 采购单明细行    IF IT_XLIPS[] IS NOT INITIA
/* ... 已截断，完整代码请查看原文 */
ABAP 多ALV显示封装
查看代码
START-OF-SELECTION.  SELECT * FROM usr21 INTO TABLE @DATA(lt_usr21) UP TO 100 ROWS.  SELECT * FROM adrc INTO TABLE @DATA(lt_adrc) UP TO 100 ROWS.  SELECT * FROM kna1 INTO TABLE @DATA(lt_kna1) UP TO 100 ROWS.  NEW zcl_alv_multi( iv_mode = zcl_alv_multi=>alv_mode-horizontal    iv_title = 'MULTI ALV DEMO01'    it_alvs = VALUE #(    ( title = 'USR21' table = REF #( lt_usr21 ) )    ( title = 'ADRC' table = REF #( lt_adrc ) )    ( title = 'KNA1' table =
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
START-OF-SELECTION.  SELECT * FROM usr21 INTO TABLE @DATA(lt_usr21) UP TO 100 ROWS.  SELECT * FROM adrc INTO TABLE @DATA(lt_adrc) UP TO 100 ROWS.  SELECT * FROM kna1 INTO TABLE @DATA(lt_kna1) UP TO 100 ROWS.  NEW zcl_alv_multi( iv_mode = zcl_alv_multi=>alv_mode-horizontal    iv_title = 'MULTI ALV DEMO01'    it_alvs = VALUE #(    ( title = 'USR21' table = REF #( lt_usr21 ) )    ( title = 'ADRC' table = REF #( lt_adrc ) )    ( title = 'KNA1' table =
/* ... 已截断，完整代码请查看原文 */
ABAP 多ALV显示封装 
iv_mode = zcl_alv_multi=>alv_mode-horizontal
查看完整代码 
iv_mode = zcl_alv_multi=>alv_mode-horizontal
ABAP 多ALV显示封装
查看代码
START-OF-SELECTION.  SELECT * FROM adrc UP TO 100 ROWS INTO TABLE @DATA(lt_table).  SELECT * FROM usr01 UP TO 100 ROWS INTO TABLE @DATA(lt_usr01).  SELECT * FROM usr21 UP TO 100 ROWS INTO TABLE @DATA(lt_usr21).  NEW zcl_alv_multi( iv_mode = zcl_alv_multi=>alv_mode-vertical    iv_title = 'MULTI ALV DEMO02'    it_alvs = VALUE #( ( title = 'ADRC' table = REF #( lt_table ) )    ( title = 'USR01' table = REF #( lt_usr01 ) )    ( title = 'USR21' table =
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
START-OF-SELECTION.  SELECT * FROM adrc UP TO 100 ROWS INTO TABLE @DATA(lt_table).  SELECT * FROM usr01 UP TO 100 ROWS INTO TABLE @DATA(lt_usr01).  SELECT * FROM usr21 UP TO 100 ROWS INTO TABLE @DATA(lt_usr21).  NEW zcl_alv_multi( iv_mode = zcl_alv_multi=>alv_mode-vertical    iv_title = 'MULTI ALV DEMO02'    it_alvs = VALUE #( ( title = 'ADRC' table = REF #( lt_table ) )    ( title = 'USR01' table = REF #( lt_usr01 ) )    ( title = 'USR21' table =
/* ... 已截断，完整代码请查看原文 */
ABAP 多ALV显示封装 
iv_mode = zcl_alv_multi=>alv_mode-vertical
查看完整代码 
iv_mode = zcl_alv_multi=>alv_mode-vertical
ABAP 多ALV显示封装
查看代码
START-OF-SELECTION.  SELECT * FROM adrc UP TO 100 ROWS INTO TABLE @DATA(lt_table).  SELECT * FROM usr01 UP TO 100 ROWS INTO TABLE @DATA(lt_usr01).  SELECT * FROM usr21 UP TO 100 ROWS INTO TABLE @DATA(lt_usr21).  lo_alv_multi = NEW zcl_alv_multi(    iv_mode               = zcl_alv_multi=>alv_mode-vertical    iv_cb_before_show_alv = 'FRM_BEFORE_SHOW_ALV1'    iv_title              = 'MULTI ALV DEMO03'    it_alvs               = VALUE #( ( title = 'ADRC'       
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
START-OF-SELECTION.  SELECT * FROM adrc UP TO 100 ROWS INTO TABLE @DATA(lt_table).  SELECT * FROM usr01 UP TO 100 ROWS INTO TABLE @DATA(lt_usr01).  SELECT * FROM usr21 UP TO 100 ROWS INTO TABLE @DATA(lt_usr21).  lo_alv_multi = NEW zcl_alv_multi(    iv_mode               = zcl_alv_multi=>alv_mode-vertical    iv_cb_before_show_alv = 'FRM_BEFORE_SHOW_ALV1'    iv_title              = 'MULTI ALV DEMO03'    it_alvs               = VALUE #( ( title = 'ADRC'       
/* ... 已截断，完整代码请查看原文 */
ABAP 多ALV显示封装
查看代码
START-OF-SELECTION.  SELECT * FROM adrc UP TO 100 ROWS INTO TABLE @gt_adrc.  SELECT * FROM usr01 UP TO 100 ROWS INTO TABLE @gt_usr01.  SELECT * FROM usr21 UP TO 100 ROWS INTO TABLE @gt_usr21.  lo_alv_multi = NEW zcl_alv_multi(    iv_mode   = zcl_alv_multi=>alv_mode-vertical*   iv_before_show_alv_callback = 'FRM_BEFORE_SHOW_ALV1'    iv_title  = 'MULTI ALV DEMO04'    it_events = VALUE #( ( name = zcl_alv_multi=>events-before_show_alv form = 'FRM_BEFORE_SHOW_ALV
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
START-OF-SELECTION.  SELECT * FROM adrc UP TO 100 ROWS INTO TABLE @gt_adrc.  SELECT * FROM usr01 UP TO 100 ROWS INTO TABLE @gt_usr01.  SELECT * FROM usr21 UP TO 100 ROWS INTO TABLE @gt_usr21.  lo_alv_multi = NEW zcl_alv_multi(    iv_mode   = zcl_alv_multi=>alv_mode-vertical*   iv_before_show_alv_callback = 'FRM_BEFORE_SHOW_ALV1'    iv_title  = 'MULTI ALV DEMO04'    it_events = VALUE #( ( name = zcl_alv_multi=>events-before_show_alv form = 'FRM_BEFORE_SHOW_ALV
/* ... 已截断，完整代码请查看原文 */
ABAP 多屏幕ALVZCL_ALV_MULTI 
CALL FUNCTION  'REUSE_ALV_GRID_DISPLAY_LVC'
查看完整代码 
CALL FUNCTION  'REUSE_ALV_GRID_DISPLAY_LVC'
ABAP 多屏幕ALVZCL_ALV_MULTI 
i_callback_program  =  lv_repid
查看完整代码 
i_callback_program  =  lv_repid
ABAP 多屏幕ALVZCL_ALV_MULTI 
is_variant  =  ls_variant
查看完整代码 
is_variant  =  ls_variant
ABAP 多屏幕ALVZCL_ALV_MULTI 
IF  sy  \-  subrc  <> 0  .
查看完整代码 
IF  sy  \-  subrc  <> 0  .
ABAP 多屏幕ALVZCL_ALV_MULTI 
ENDIF.
查看完整代码 
ENDIF.
ABAP 多屏幕ALVZCL_ALV_MULTI 
is_layout  =  ls_layout
查看完整代码 
is_layout  =  ls_layout
ABAP 多屏幕ALVZCL_ALV_MULTI 
is_variant  =  ls_variant
查看完整代码 
is_variant  =  ls_variant
ABAP 多屏幕ALVZCL_ALV_MULTI 
it_fieldcatalog  =  lt_fcat ）  .
查看完整代码 
it_fieldcatalog  =  lt_fcat ）  .
ABAP 多屏幕ALVZCL_ALV_MULTI 
cl_salv_table  => factory  ( IMPORTING  r_salv_table  =  cl_salv
查看完整代码 
cl_salv_table  => factory  ( IMPORTING  r_salv_table  =  cl_salv
ABAP 多屏幕ALVZCL_ALV_MULTI 
CATCH  cx_salv_msg  .
查看完整代码 
CATCH  cx_salv_msg  .
ABAP 多屏幕ALVZCL_ALV_MULTI 
CATCH  zcx_alv_error  INTO  lcx  .
查看完整代码 
CATCH  zcx_alv_error  INTO  lcx  .
ABAP 多屏幕ALVZCL_ALV_MULTI 
CLASS  cl_alv_event  DEFINITION INHERITING FROM  zcl_alv_event_receiver  .
查看完整代码 
CLASS  cl_alv_event  DEFINITION INHERITING FROM  zcl_alv_event_receiver  .
ABAP 多屏幕ALVZCL_ALV_MULTI 
ENDCLASS.
查看完整代码 
ENDCLASS.
ABAP 多屏幕ALVZCL_ALV_MULTI 
CLASS  cl_alv_event  IMPLEMENTATION.
查看完整代码 
CLASS  cl_alv_event  IMPLEMENTATION.
ABAP 多屏幕ALVZCL_ALV_MULTI 
METHOD  toolbar  .
查看完整代码 
METHOD  toolbar  .
ABAP 多屏幕ALVZCL_ALV_MULTI 
DATA:  ls_toolbar  TYPE  stb_button  .
查看完整代码 
DATA:  ls_toolbar  TYPE  stb_button  .
ABAP 多屏幕ALVZCL_ALV_MULTI 
ls_toolbar  \-  function  =  &1  .
查看完整代码 
ls_toolbar  \-  function  =  &1  .
ABAP 多屏幕ALVZCL_ALV_MULTI 
ls_toolbar  \-  text  =  &2  .
查看完整代码 
ls_toolbar  \-  text  =  &2  .
ABAP 多屏幕ALVZCL_ALV_MULTI 
ls_toolbar  \-  quickinfo  =  &3  .
查看完整代码 
ls_toolbar  \-  quickinfo  =  &3  .
ABAP 多屏幕ALVZCL_ALV_MULTI 
ls_toolbar  \-  icon  =  &4  .
查看完整代码 
ls_toolbar  \-  icon  =  &4  .
ABAP 多屏幕ALVZCL_ALV_MULTI 
APPEND  ls_toolbar  TO  e_object  -> mt_toolbar  .
查看完整代码 
APPEND  ls_toolbar  TO  e_object  -> mt_toolbar  .
ABAP 多屏幕ALVZCL_ALV_MULTI 
ENDMETHOD.
查看完整代码 
ENDMETHOD.
ABAP 多屏幕ALVZCL_ALV_MULTI 
METHOD  user_command  .
查看完整代码 
METHOD  user_command  .
ABAP 多屏幕ALVZCL_ALV_MULTI 
CATCH  zcx_alv_error  INTO DATA(  cx  ).
查看完整代码 
CATCH  zcx_alv_error  INTO DATA(  cx  ).
ABAP 多屏幕ALVZCL_ALV_MULTI 
ENDMETHOD.
查看完整代码 
ENDMETHOD.
ABAP 多屏幕ALVZCL_ALV_MULTI 
METHOD  double_click  .
查看完整代码 
METHOD  double_click  .
ABAP 多屏幕ALVZCL_ALV_MULTI 
DATA(  lt_filter  ) =  set_filter  ( EXPORTING  i_fields  = VALUE #( (  name
查看完整代码 
DATA(  lt_filter  ) =  set_filter  ( EXPORTING  i_fields  = VALUE #( (  name
ABAP 多屏幕ALVZCL_ALV_MULTI 
CATCH  zcx_alv_error  INTO DATA(  cx  ).
查看完整代码 
CATCH  zcx_alv_error  INTO DATA(  cx  ).
ABAP 多屏幕ALVZCL_ALV_MULTI 
ENDMETHOD.
查看完整代码 
ENDMETHOD.
ABAP 多屏幕ALVZCL_ALV_MULTI 
METHOD  hotspot_click  .
查看完整代码 
METHOD  hotspot_click  .
ABAP 多屏幕ALVZCL_ALV_MULTI 
ENDMETHOD.
查看完整代码 
ENDMETHOD.
ABAP 多屏幕ALVZCL_ALV_MULTI 
METHOD  change_fieldcat  .
查看完整代码 
METHOD  change_fieldcat  .
ABAP 多屏幕ALVZCL_ALV_MULTI 
LOOP AT  ct_fcat  ASSIGNING FIELD-SYMBOL(  <ls_fcat> ).
查看完整代码 
LOOP AT  ct_fcat  ASSIGNING FIELD-SYMBOL(  <ls_fcat> ).
ABAP 多屏幕ALVZCL_ALV_MULTI 
<ls_fcat> \-  hotspot  =  abap_true  .
查看完整代码 
<ls_fcat> \-  hotspot  =  abap_true  .
ABAP 多屏幕ALVZCL_ALV_MULTI 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP 多屏幕ALVZCL_ALV_MULTI 
ENDMETHOD.
查看完整代码 
ENDMETHOD.
ABAP 多屏幕ALVZCL_ALV_MULTI 
ENDCLASS.
查看完整代码 
ENDCLASS.
ABAP 多屏幕ALVZCL_ALV_MULTI 
CATCH  zcx_alv_error  INTO DATA(  lcx  ).
查看完整代码 
CATCH  zcx_alv_error  INTO DATA(  lcx  ).
ABAP 多屏幕ALVZCL_ALV_MULTI 
CATCH  zcx_alv_error  INTO  lcx  .
查看完整代码 
CATCH  zcx_alv_error  INTO  lcx  .
ABAP 如何在WEBUI界面打印PDF 
CONCATENATE  'scenario=V&service='  wa_adminh  \-  object_id  INTO  lv_query
查看完整代码 
CONCATENATE  'scenario=V&service='  wa_adminh  \-  object_id  INTO  lv_query
ABAP 如何在WEBUI界面打印PDF
查看代码
1.    METHOD eh_onprint.2.  3.      DATA l_spld TYPE rspopname.4.  5.      DATA :lv_query  TYPE string,6.            lv_title  TYPE string,7.            lv_url    TYPE string,8.            lr_cn     TYPE REF TO cl_bsp_wd_context_node,9.            lr_obj    TYPE REF TO if_bol_bo_property_access,10.            lr_popup  TYPE REF TO if_bsp_wd_popup,11.            ls_params TYPE crmt_gsurlpopup_params.12.  13.      DATA: lr_cn_btadminh TYPE REF TO cl_bsp_wd_context_node,14.            lr_enti
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
1.    METHOD eh_onprint.2.  3.      DATA l_spld TYPE rspopname.4.  5.      DATA :lv_query  TYPE string,6.            lv_title  TYPE string,7.            lv_url    TYPE string,8.            lr_cn     TYPE REF TO cl_bsp_wd_context_node,9.            lr_obj    TYPE REF TO if_bol_bo_property_access,10.            lr_popup  TYPE REF TO if_bsp_wd_popup,11.            ls_params TYPE crmt_gsurlpopup_params.12.  13.      DATA: lr_cn_btadminh TYPE REF TO cl_bsp_wd_context_node,14.            lr_enti
/* ... 已截断，完整代码请查看原文 */
ABAP 如何在WEBUI界面打印PDF
查看代码
1.   METHOD if_http_extension~handle_request.2.     DATA: ls_phio               TYPE skwf_io,3.           lt_file_info          TYPE sdokfilacis,4.           ls_file_info          LIKE LINE OF lt_file_info,5.           lv_file_name          TYPE sdok_filnm,6.           lv_mime_type          TYPE w3conttype,7.           lv_file_size          TYPE sdok_fsize,8.           lt_contents           TYPE sdokcntbins,9.           ls_contents           TYPE sdokcntbin,10.           ls_error          
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
1.   METHOD if_http_extension~handle_request.2.     DATA: ls_phio               TYPE skwf_io,3.           lt_file_info          TYPE sdokfilacis,4.           ls_file_info          LIKE LINE OF lt_file_info,5.           lv_file_name          TYPE sdok_filnm,6.           lv_mime_type          TYPE w3conttype,7.           lv_file_size          TYPE sdok_fsize,8.           lt_contents           TYPE sdokcntbins,9.           ls_contents           TYPE sdokcntbin,10.           ls_error          
/* ... 已截断，完整代码请查看原文 */
ABAP 如何调用BO业务对象方法 
REPORT ztest.INCLUDE <cntn01>."引用宏
DATA: vbak_ref  TYPE swc_object.DATA: container TYPE STANDARD TABLE OF swcont."定义业务对象vbak_ref，类型为VBAK(销售订单),主键key为0000000001(订单编号)swc_create_object vbak_ref 'VBAK' '0000000001'."调用业务对象vbak_ref的DISPLAY(显示)方法swc_call_method vbak_ref 'DISPLAY' container.
查看完整代码 
REPORT ztest.INCLUDE <cntn01>."引用宏
DATA: vbak_ref  TYPE swc_object.DATA: container TYPE STANDARD TABLE OF swcont."定义业务对象vbak_ref，类型为VBAK(销售订单),主键key为0000000001(订单编号)swc_create_object vbak_ref 'VBAK' '0000000001'."调用业务对象vbak_ref的DISPLAY(显示)方法swc_call_method vbak_ref 'DISPLAY' container.
ABAP 如何调用BO业务对象方法 
REPORT ztest.DATA: vbak_ref TYPE swotrtime-object.DATA: container TYPE swconttab.CALL FUNCTION 'SWO_CREATE'  EXPORTING    objtype = 'VBAK'    objkey  = '0000000001'  IMPORTING    object  = vbak_ref.
CALL FUNCTION 'SWO_INVOKE'  EXPORTING    access     = 'C'    object     = vbak_ref    verb       = 'DISPLAY'    persistent = ' '  TABLES    container  = container.
查看完整代码 
REPORT ztest.DATA: vbak_ref TYPE swotrtime-object.DATA: container TYPE swconttab.CALL FUNCTION 'SWO_CREATE'  EXPORTING    objtype = 'VBAK'    objkey  = '0000000001'  IMPORTING    object  = vbak_ref.
CALL FUNCTION 'SWO_INVOKE'  EXPORTING    access     = 'C'    object     = vbak_ref    verb       = 'DISPLAY'    persistent = ' '  TABLES    container  = container.
ABAP 实时发送SAP会计凭证到外部系统 
DATA: lt_bseg TYPE TABLE OF bseg  WITH HEADER LINE.
查看完整代码 
DATA: lt_bseg TYPE TABLE OF bseg  WITH HEADER LINE.
ABAP 实时发送SAP会计凭证到外部系统 
DATA: lt_gb   TYPE TABLE OF zbte_send_bseg_to_gb_s1 WITH HEADER LINE.
查看完整代码 
DATA: lt_gb   TYPE TABLE OF zbte_send_bseg_to_gb_s1 WITH HEADER LINE.
ABAP 实时发送SAP会计凭证到外部系统 
IF updkz = 'I'.
查看完整代码 
IF updkz = 'I'.
ABAP 实时发送SAP会计凭证到外部系统 
LOOP AT t_bseg WHERE hkont IN s_hkont.
查看完整代码 
LOOP AT t_bseg WHERE hkont IN s_hkont.
ABAP 实时发送SAP会计凭证到外部系统 
READ TABLE t_bkpf WITH KEY bukrs = t_bseg-bukrs
查看完整代码 
READ TABLE t_bkpf WITH KEY bukrs = t_bseg-bukrs
ABAP 实时发送SAP会计凭证到外部系统 
APPEND lt_gb.CLEAR lt_gb.
查看完整代码 
APPEND lt_gb.CLEAR lt_gb.
ABAP 实时发送SAP会计凭证到外部系统 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP 实时发送SAP会计凭证到外部系统 
IF i_xbkpf-bktxt    <> i_ybkpf-bktxt    OR
查看完整代码 
IF i_xbkpf-bktxt    <> i_ybkpf-bktxt    OR
ABAP 实时发送SAP会计凭证到外部系统 
SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_bseg
查看完整代码 
SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_bseg
ABAP 实时发送SAP会计凭证到外部系统 
LOOP AT lt_bseg.
查看完整代码 
LOOP AT lt_bseg.
ABAP 实时发送SAP会计凭证到外部系统 
READ TABLE xbseg WITH KEY buzei = lt_bseg-buzei.
查看完整代码 
READ TABLE xbseg WITH KEY buzei = lt_bseg-buzei.
ABAP 实时发送SAP会计凭证到外部系统 
IF sy-subrc = 0.
查看完整代码 
IF sy-subrc = 0.
ABAP 实时发送SAP会计凭证到外部系统 
ENDIF.
查看完整代码 
ENDIF.
ABAP 实时发送SAP会计凭证到外部系统 
APPEND lt_gb.CLEAR lt_gb.
查看完整代码 
APPEND lt_gb.CLEAR lt_gb.
ABAP 实时发送SAP会计凭证到外部系统 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP 实时发送SAP会计凭证到外部系统 
LOOP AT xbseg WHERE hkont IN s_hkont.
查看完整代码 
LOOP AT xbseg WHERE hkont IN s_hkont.
ABAP 实时发送SAP会计凭证到外部系统 
APPEND lt_gb.CLEAR lt_gb.
查看完整代码 
APPEND lt_gb.CLEAR lt_gb.
ABAP 实时发送SAP会计凭证到外部系统 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP 实时发送SAP会计凭证到外部系统 
ENDIF.
查看完整代码 
ENDIF.
ABAP 实时发送SAP会计凭证到外部系统 
ENDIF.
查看完整代码 
ENDIF.
ABAP 实时发送SAP会计凭证到外部系统 
CALL FUNCTION 'ZBTE_PUSH_BSEG_TO_GB' "IN BACKGROUND TASK
查看完整代码 
CALL FUNCTION 'ZBTE_PUSH_BSEG_TO_GB' "IN BACKGROUND TASK
ABAP 实时发送SAP会计凭证到外部系统 
gbtab = lt_gb.
查看完整代码 
gbtab = lt_gb.
ABAP 实时发送SAP会计凭证到外部系统 
DATA: connam TYPE dbcon-con_name VALUE 'EDWP'.
查看完整代码 
DATA: connam TYPE dbcon-con_name VALUE 'EDWP'.
ABAP 实时发送SAP会计凭证到外部系统 
DATA: lt_log TYPE TABLE OF zgbt2 WITH HEADER LINE.
查看完整代码 
DATA: lt_log TYPE TABLE OF zgbt2 WITH HEADER LINE.
ABAP 实时发送SAP会计凭证到外部系统 
DATA: cxserr TYPE REF TO cx_sy_native_sql_error,
查看完整代码 
DATA: cxserr TYPE REF TO cx_sy_native_sql_error,
ABAP 实时发送SAP会计凭证到外部系统 
DATA: BEGIN OF lt_error OCCURS 0,
查看完整代码 
DATA: BEGIN OF lt_error OCCURS 0,
ABAP 实时发送SAP会计凭证到外部系统 
END OF lt_error.
查看完整代码 
END OF lt_error.
ABAP 实时发送SAP会计凭证到外部系统 
LOOP AT gbtab.
查看完整代码 
LOOP AT gbtab.
ABAP 实时发送SAP会计凭证到外部系统 
lt_log-bukrs = gbtab-bukrs.
查看完整代码 
lt_log-bukrs = gbtab-bukrs.
ABAP 实时发送SAP会计凭证到外部系统 
lt_log-belnr = gbtab-belnr.
查看完整代码 
lt_log-belnr = gbtab-belnr.
ABAP 实时发送SAP会计凭证到外部系统 
lt_log-gjahr = gbtab-gjahr.
查看完整代码 
lt_log-gjahr = gbtab-gjahr.
ABAP 实时发送SAP会计凭证到外部系统 
lt_log-buzei = gbtab-buzei.
查看完整代码 
lt_log-buzei = gbtab-buzei.
ABAP 实时发送SAP会计凭证到外部系统 
lt_log-hkont = gbtab-hkont.
查看完整代码 
lt_log-hkont = gbtab-hkont.
ABAP 实时发送SAP会计凭证到外部系统 
lt_log-aedat = sy-datum.
查看完整代码 
lt_log-aedat = sy-datum.
ABAP 实时发送SAP会计凭证到外部系统 
lt_log-aezet = sy-uzeit.
查看完整代码 
lt_log-aezet = sy-uzeit.
ABAP 实时发送SAP会计凭证到外部系统 
lt_log-aenam = sy-uname.
查看完整代码 
lt_log-aenam = sy-uname.
ABAP 实时发送SAP会计凭证到外部系统 
APPEND lt_log.
查看完整代码 
APPEND lt_log.
ABAP 实时发送SAP会计凭证到外部系统 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP 实时发送SAP会计凭证到外部系统 
MODIFY zgbt2 FROM TABLE lt_log.
查看完整代码 
MODIFY zgbt2 FROM TABLE lt_log.
ABAP 实时发送SAP会计凭证到外部系统 
IF commit = 'X'.
查看完整代码 
IF commit = 'X'.
ABAP 实时发送SAP会计凭证到外部系统 
ENDIF.
查看完整代码 
ENDIF.
ABAP 实时发送SAP会计凭证到外部系统 
LOOP AT lt_log.
查看完整代码 
LOOP AT lt_log.
ABAP 实时发送SAP会计凭证到外部系统 
WHERE bukrs = lt_log-bukrs AND
查看完整代码 
WHERE bukrs = lt_log-bukrs AND
ABAP 实时发送SAP会计凭证到外部系统 
belnr = lt_log-belnr AND
查看完整代码 
belnr = lt_log-belnr AND
ABAP 实时发送SAP会计凭证到外部系统 
gjahr = lt_log-gjahr AND
查看完整代码 
gjahr = lt_log-gjahr AND
ABAP 实时发送SAP会计凭证到外部系统 
buzei = lt_log-buzei.
查看完整代码 
buzei = lt_log-buzei.
ABAP 实时发送SAP会计凭证到外部系统 
lt_error-exmsg = excmsg.
查看完整代码 
lt_error-exmsg = excmsg.
ABAP 实时发送SAP会计凭证到外部系统 
APPEND lt_error.
查看完整代码 
APPEND lt_error.
ABAP 实时发送SAP会计凭证到外部系统 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP 实时发送SAP会计凭证到外部系统 
IF lt_error[] IS INITIAL.
查看完整代码 
IF lt_error[] IS INITIAL.
ABAP 实时发送SAP会计凭证到外部系统 
LOOP AT gbtab.
查看完整代码 
LOOP AT gbtab.
ABAP 实时发送SAP会计凭证到外部系统 
IF updkz = 'U'.
查看完整代码 
IF updkz = 'U'.
ABAP 实时发送SAP会计凭证到外部系统 
ENDIF.
查看完整代码 
ENDIF.
ABAP 实时发送SAP会计凭证到外部系统 
IF sy-subrc <> 0.
查看完整代码 
IF sy-subrc <> 0.
ABAP 实时发送SAP会计凭证到外部系统 
ENDIF.
查看完整代码 
ENDIF.
ABAP 实时发送SAP会计凭证到外部系统 
lt_error-exmsg = excmsg.
查看完整代码 
lt_error-exmsg = excmsg.
ABAP 实时发送SAP会计凭证到外部系统 
APPEND lt_error.
查看完整代码 
APPEND lt_error.
ABAP 实时发送SAP会计凭证到外部系统 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP 实时发送SAP会计凭证到外部系统 
ENDIF.
查看完整代码 
ENDIF.
ABAP 实时发送SAP会计凭证到外部系统 
REPORT zgb_resend_docs NO STANDARD PAGE HEADING.
查看完整代码 
REPORT zgb_resend_docs NO STANDARD PAGE HEADING.
ABAP 实时发送SAP会计凭证到外部系统 
DATA: fldct TYPE lvc_t_fcat WITH HEADER LINE,
查看完整代码 
DATA: fldct TYPE lvc_t_fcat WITH HEADER LINE,
ABAP 实时发送SAP会计凭证到外部系统 
DATA: BEGIN OF it_out OCCURS 0,
查看完整代码 
DATA: BEGIN OF it_out OCCURS 0,
ABAP 实时发送SAP会计凭证到外部系统 
FORM getdata.
查看完整代码 
FORM getdata.
ABAP 实时发送SAP会计凭证到外部系统 
SELECT * INTO CORRESPONDING FIELDS OF TABLE it_out
查看完整代码 
SELECT * INTO CORRESPONDING FIELDS OF TABLE it_out
ABAP 实时发送SAP会计凭证到外部系统 
ENDFORM.                    "getdata
查看完整代码 
ENDFORM.                    "getdata
ABAP 实时发送SAP会计凭证到外部系统 
FORM outdata.
查看完整代码 
FORM outdata.
ABAP 实时发送SAP会计凭证到外部系统 
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
查看完整代码 
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
ABAP 实时发送SAP会计凭证到外部系统
查看代码
FUNCTION zbte_send_bseg_to_gb.*"----------------------------------------------------------------------*"*"更新函数模块：*"*"*"局部接口：*"  IMPORTING*"     VALUE(UPDKZ) TYPE  UPDKZ_D OPTIONAL*"     VALUE(I_XBKPF) TYPE  BKPF OPTIONAL*"     VALUE(I_YBKPF) TYPE  BKPF OPTIONAL*"  TABLES*"      T_BKPF STRUCTURE  BKPF OPTIONAL*"      T_BSEG STRUCTURE  BSEG OPTIONAL*"      XBSEG STRUCTURE  FBSEG OPTIONAL*"-----------------------------
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
FUNCTION zbte_send_bseg_to_gb.*"----------------------------------------------------------------------*"*"更新函数模块：*"*"*"局部接口：*"  IMPORTING*"     VALUE(UPDKZ) TYPE  UPDKZ_D OPTIONAL*"     VALUE(I_XBKPF) TYPE  BKPF OPTIONAL*"     VALUE(I_YBKPF) TYPE  BKPF OPTIONAL*"  TABLES*"      T_BKPF STRUCTURE  BKPF OPTIONAL*"      T_BSEG STRUCTURE  BSEG OPTIONAL*"      XBSEG STRUCTURE  FBSEG OPTIONAL*"-----------------------------
/* ... 已截断，完整代码请查看原文 */
ABAP 实时发送SAP会计凭证到外部系统
查看代码
IF updkz = 'I'.    LOOP AT t_bseg WHERE hkont IN s_hkont.      READ TABLE t_bkpf WITH KEY bukrs = t_bseg-bukrs                                 belnr = t_bseg-belnr                                 gjahr = t_bseg-gjahr.
MOVE-CORRESPONDING t_bseg TO lt_gb.      MOVE-CORRESPONDING t_bkpf TO lt_gb.      APPEND lt_gb.CLEAR lt_gb.    ENDLOOP.  ELSEIF updkz = 'U'.    IF i_xbkpf-bktxt    <> i_ybkpf-bktxt    OR       i_xbkpf-xblnr    <> i_ybkpf-xblnr    OR       i_xbk
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
IF updkz = 'I'.    LOOP AT t_bseg WHERE hkont IN s_hkont.      READ TABLE t_bkpf WITH KEY bukrs = t_bseg-bukrs                                 belnr = t_bseg-belnr                                 gjahr = t_bseg-gjahr.
MOVE-CORRESPONDING t_bseg TO lt_gb.      MOVE-CORRESPONDING t_bkpf TO lt_gb.      APPEND lt_gb.CLEAR lt_gb.    ENDLOOP.  ELSEIF updkz = 'U'.    IF i_xbkpf-bktxt    <> i_ybkpf-bktxt    OR       i_xbkpf-xblnr    <> i_ybkpf-xblnr    OR       i_xbk
/* ... 已截断，完整代码请查看原文 */
ABAP 实时发送SAP会计凭证到外部系统 
CHECK lt_gb[] IS NOT INITIAL.  CALL FUNCTION 'ZBTE_PUSH_BSEG_TO_GB' "IN BACKGROUND TASK    EXPORTING      updkz  = updkz      commit = ''    TABLES      gbtab = lt_gb.ENDFUNCTION.
查看完整代码 
CHECK lt_gb[] IS NOT INITIAL.  CALL FUNCTION 'ZBTE_PUSH_BSEG_TO_GB' "IN BACKGROUND TASK    EXPORTING      updkz  = updkz      commit = ''    TABLES      gbtab = lt_gb.ENDFUNCTION.
ABAP 实时发送SAP会计凭证到外部系统
查看代码
FUNCTION zbte_push_bseg_to_gb.*"----------------------------------------------------------------------*"*"Local interface:*"  IMPORTING*"     VALUE(UPDKZ) TYPE  UPDKZ_D OPTIONAL*"     VALUE(COMMIT) TYPE  CHAR1 OPTIONAL*"  TABLES*"      GBTAB STRUCTURE  ZBTE_SEND_BSEG_TO_GB_S1*"----------------------------------------------------------------------  DATA: connam TYPE dbcon-con_name VALUE 'EDWP'.  DATA: lt_log TYPE TABLE OF zgbt2 WITH HEA
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
FUNCTION zbte_push_bseg_to_gb.*"----------------------------------------------------------------------*"*"Local interface:*"  IMPORTING*"     VALUE(UPDKZ) TYPE  UPDKZ_D OPTIONAL*"     VALUE(COMMIT) TYPE  CHAR1 OPTIONAL*"  TABLES*"      GBTAB STRUCTURE  ZBTE_SEND_BSEG_TO_GB_S1*"----------------------------------------------------------------------  DATA: connam TYPE dbcon-con_name VALUE 'EDWP'.  DATA: lt_log TYPE TABLE OF zgbt2 WITH HEA
/* ... 已截断，完整代码请查看原文 */
ABAP 实现ALV页眉页脚
查看代码
DATA:lt_listheader TYPE slis_t_listheader,       ls_listheader TYPE slis_listheader.
CLEAR:ls_listheader.  ls_listheader-typ  = 'H'."标题  ls_listheader-info = '页眉'.  APPEND ls_listheader TO lt_listheader.
CLEAR ls_listheader.  ls_listheader-typ  = 'S'.  ls_listheader-key  = '编制单位:'.  ls_listheader-info = '1100'.  APPEND ls_listheader TO lt_listheader.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA:lt_listheader TYPE slis_t_listheader,       ls_listheader TYPE slis_listheader.
CLEAR:ls_listheader.  ls_listheader-typ  = 'H'."标题  ls_listheader-info = '页眉'.  APPEND ls_listheader TO lt_listheader.
CLEAR ls_listheader.  ls_listheader-typ  = 'S'.  ls_listheader-key  = '编制单位:'.  ls_listheader-info = '1100'.  APPEND ls_listheader TO lt_listheader.
/* ... 已截断，完整代码请查看原文 */
ABAP 实现ALV页眉页脚
查看代码
DATA:lt_listheader TYPE slis_t_listheader,       ls_listheader TYPE slis_listheader.
CLEAR:ls_listheader.  ls_listheader-typ  = 'H'.  ls_listheader-info = '页脚'.  APPEND ls_listheader TO lt_listheader.
CLEAR ls_listheader.  ls_listheader-typ  = 'S'.  ls_listheader-key  = '作者:'.  ls_listheader-info = '斌将军'.  APPEND ls_listheader TO lt_listheader.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA:lt_listheader TYPE slis_t_listheader,       ls_listheader TYPE slis_listheader.
CLEAR:ls_listheader.  ls_listheader-typ  = 'H'.  ls_listheader-info = '页脚'.  APPEND ls_listheader TO lt_listheader.
CLEAR ls_listheader.  ls_listheader-typ  = 'S'.  ls_listheader-key  = '作者:'.  ls_listheader-info = '斌将军'.  APPEND ls_listheader TO lt_listheader.
/* ... 已截断，完整代码请查看原文 */
ABAP 实现ALV页眉页脚 
DATA:gt_event TYPE slis_t_event."事件
查看完整代码 
DATA:gt_event TYPE slis_t_event."事件
ABAP 实现ALV页眉页脚 
FORM frm_get_event.
DATA:lv_frm_top_of_page TYPE slis_formname VALUE 'FRM_TOP_OF_PAGE',"页眉子例程       lv_frm_end_of_list TYPE slis_formname VALUE 'FRM_END_OF_LIST',"页脚子例程       ls_events          TYPE slis_alv_event.
查看完整代码 
FORM frm_get_event.
DATA:lv_frm_top_of_page TYPE slis_formname VALUE 'FRM_TOP_OF_PAGE',"页眉子例程       lv_frm_end_of_list TYPE slis_formname VALUE 'FRM_END_OF_LIST',"页脚子例程       ls_events          TYPE slis_alv_event.
ABAP 实现ALV页眉页脚
查看代码
"查找TOP_OF_PAGE事件，并将回调子例程传输给FORM  READ TABLE gt_event ASSIGNING FIELD-SYMBOL() WITH KEY name = slis_ev_top_of_page.  IF sy-subrc = 0.    -form = lv_frm_top_of_page.  ELSE.    CLEAR:ls_events.    ls_events-form = lv_frm_top_of_page.    ls_events-name = lv_frm_top_of_page.    APPEND ls_events TO gt_event.  ENDIF.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
"查找TOP_OF_PAGE事件，并将回调子例程传输给FORM  READ TABLE gt_event ASSIGNING FIELD-SYMBOL() WITH KEY name = slis_ev_top_of_page.  IF sy-subrc = 0.    -form = lv_frm_top_of_page.  ELSE.    CLEAR:ls_events.    ls_events-form = lv_frm_top_of_page.    ls_events-name = lv_frm_top_of_page.    APPEND ls_events TO gt_event.  ENDIF.
/* ... 已截断，完整代码请查看原文 */
ABAP 实现ALV页眉页脚 
DATA:lv_pos    TYPE i,       lv_text   TYPE sdydo_text_element,       lv_buffer TYPE string.
lv_buffer = ' && '页眉' && ''.
CALL METHOD document->html_insert    EXPORTING      contents = lv_buffer    CHANGING      position = lv_pos.
lv_text = '标题'.  CALL METHOD document->add_text    EXPORTING      text      = lv_text      sap_style = 'HEADING'.
查看完整代码 
DATA:lv_pos    TYPE i,       lv_text   TYPE sdydo_text_element,       lv_buffer TYPE string.
lv_buffer = ' && '页眉' && ''.
CALL METHOD document->html_insert    EXPORTING      contents = lv_buffer    CHANGING      position = lv_pos.
lv_text = '标题'.  CALL METHOD document->add_text    EXPORTING      text      = lv_text      sap_style = 'HEADING'.
ABAP 实现ALV页眉页脚 
CALL METHOD document->add_icon    EXPORTING      sap_icon = 'ICON_CUSTOMER'.
"STRONG是加粗  lv_text = '用户名：'.  CALL METHOD document->add_text    EXPORTING      text         = lv_text      sap_emphasis = 'Strong'.
查看完整代码 
CALL METHOD document->add_icon    EXPORTING      sap_icon = 'ICON_CUSTOMER'.
"STRONG是加粗  lv_text = '用户名：'.  CALL METHOD document->add_text    EXPORTING      text         = lv_text      sap_emphasis = 'Strong'.
ABAP 实现ALV页眉页脚 
lv_text = '斌将军'.  CALL METHOD document->add_text    EXPORTING      text          = lv_text      sap_fontsize  = cl_dd_document=>large      sap_fontstyle = cl_dd_document=>serif      sap_emphasis  = cl_dd_document=>emphasis.
查看完整代码 
lv_text = '斌将军'.  CALL METHOD document->add_text    EXPORTING      text          = lv_text      sap_fontsize  = cl_dd_document=>large      sap_fontstyle = cl_dd_document=>serif      sap_emphasis  = cl_dd_document=>emphasis.
ABAP 实现ALV页眉页脚
查看代码
CALL METHOD document->add_icon    EXPORTING      sap_icon = 'ICON_DATE'.
lv_text = '日期：'.  CALL METHOD document->add_text    EXPORTING      text         = lv_text      sap_emphasis = 'Strong'.
CALL METHOD document->add_gap    EXPORTING      width = 2.
lv_text = '20240420'.  CALL METHOD document->add_text    EXPORTING      text      = lv_text      sap_style = 'Key'.
CALL METHOD document->add_gap    EXPORTING      width = 10.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
CALL METHOD document->add_icon    EXPORTING      sap_icon = 'ICON_DATE'.
lv_text = '日期：'.  CALL METHOD document->add_text    EXPORTING      text         = lv_text      sap_emphasis = 'Strong'.
CALL METHOD document->add_gap    EXPORTING      width = 2.
lv_text = '20240420'.  CALL METHOD document->add_text    EXPORTING      text      = lv_text      sap_style = 'Key'.
CALL METHOD document->add_gap    EXPORTING      width = 10.
/* ... 已截断，完整代码请查看原文 */
ABAP 实现ALV页眉页脚 
ENDFORM.                    "HTML_TOP_OF_PAGE"--------------------@斌将军--------------------
查看完整代码 
ENDFORM.                    "HTML_TOP_OF_PAGE"--------------------@斌将军--------------------
ABAP 导出SAP单个表或者多表JOIN的数据 
SELECT mara~matnr       mara~meins       mara~matkl       makt~maktx       marc~dispo       mard~werks       mard~lgort       mard~labst  FROM mara INNER JOIN marc ON marc~matnr = mara~matnr            INNER JOIN mard ON mard~matnr = marc~matnr AND                               mard~werks = marc~werks            LEFT  JOIN makt ON makt~matnr = mara~matnr AND                               makt~spras = sy-langu  WHERE marc~werks LIKE '6%'.
查看完整代码 
SELECT mara~matnr       mara~meins       mara~matkl       makt~maktx       marc~dispo       mard~werks       mard~lgort       mard~labst  FROM mara INNER JOIN marc ON marc~matnr = mara~matnr            INNER JOIN mard ON mard~matnr = marc~matnr AND                               mard~werks = marc~werks            LEFT  JOIN makt ON makt~matnr = mara~matnr AND                               makt~spras = sy-langu  WHERE marc~werks LIKE '6%'.
ABAP 导出SAP单个表或者多表JOIN的数据
查看代码
TABLES: dd03l,dfies,ddseselopt.DATA: gt_fldct TYPE lvc_t_fcat,      gt_fldcd TYPE lvc_t_fcat,      gv_title TYPE lvc_title,      gs_slayt TYPE lvc_s_layo,      gv_whstr TYPE string,      gv_xstr  TYPE xstring,      char255  TYPE char255,      gv_prog  TYPE char8.DATA: gt_dd03 TYPE TABLE OF dd03p WITH HEADER LINE.DATA: gt_dynp TYPE TABLE OF dynpread WITH HEADER LINE.DATA: gt_flds TYPE TABLE OF rffld WITH HEADER LINE.DATA: gx_root TYPE REF TO cx_root,      gv_emsg TYPE char200.DATA: gr_out  
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
TABLES: dd03l,dfies,ddseselopt.DATA: gt_fldct TYPE lvc_t_fcat,      gt_fldcd TYPE lvc_t_fcat,      gv_title TYPE lvc_title,      gs_slayt TYPE lvc_s_layo,      gv_whstr TYPE string,      gv_xstr  TYPE xstring,      char255  TYPE char255,      gv_prog  TYPE char8.DATA: gt_dd03 TYPE TABLE OF dd03p WITH HEADER LINE.DATA: gt_dynp TYPE TABLE OF dynpread WITH HEADER LINE.DATA: gt_flds TYPE TABLE OF rffld WITH HEADER LINE.DATA: gx_root TYPE REF TO cx_root,      gv_emsg TYPE char200.DATA: gr_out  
/* ... 已截断，完整代码请查看原文 */
ABAP 工单批量关闭 
APPEND  gt_order  .
查看完整代码 
APPEND  gt_order  .
ABAP 工单批量关闭 
CALL FUNCTION  'BAPI_PRODORD_COMPLETE_TECH'
查看完整代码 
CALL FUNCTION  'BAPI_PRODORD_COMPLETE_TECH'
ABAP 工单批量关闭 
lv_check  =  'S'  .
查看完整代码 
lv_check  =  'S'  .
ABAP 工单批量关闭 
LOOP AT  gt_detail_return  WHERE type CA  'EAX'  .
lv_message  =  lv_message && gt_detail_return  \-  message  .
lv_check  =  'E'  .
ENDLOOP  .
IF  lv_check  =  'E'  .
CALL FUNCTION  'BAPI_TRANSACTION_ROLLBACK'  .
查看完整代码 
LOOP AT  gt_detail_return  WHERE type CA  'EAX'  .
lv_message  =  lv_message && gt_detail_return  \-  message  .
lv_check  =  'E'  .
ENDLOOP  .
IF  lv_check  =  'E'  .
CALL FUNCTION  'BAPI_TRANSACTION_ROLLBACK'  .
ABAP 工单批量关闭 
CALL FUNCTION  'BAPI_TRANSACTION_COMMIT'
查看完整代码 
CALL FUNCTION  'BAPI_TRANSACTION_COMMIT'
ABAP 工单批量关闭 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP 带参数的CDS 
"获取库存变动  SELECT a~matnr,         a~werks,         a~menge_rk,         a~netwr_rk,         a~menge_ck,         a~netwr_ck    FROM zcdsvfi058_mseg( in_begdate = @gv_begdate, in_enddate = @gv_enddate ) AS a    JOIN @gt_data AS b ON a~werks = b~werks AND a~matnr = b~matnr  INTO TABLE @DATA(lt_mseg).
查看完整代码 
"获取库存变动  SELECT a~matnr,         a~werks,         a~menge_rk,         a~netwr_rk,         a~menge_ck,         a~netwr_ck    FROM zcdsvfi058_mseg( in_begdate = @gv_begdate, in_enddate = @gv_enddate ) AS a    JOIN @gt_data AS b ON a~werks = b~werks AND a~matnr = b~matnr  INTO TABLE @DATA(lt_mseg).
ABAP 带参数的CDS 
SELECT matnr,       werks,       menge_rk,       netwr_rk,       menge_ck,       netwr_ck    FROM zcdsfi058_mseg('20230701','20230731')    WHERE werks = 'W100'
查看完整代码 
SELECT matnr,       werks,       menge_rk,       netwr_rk,       menge_ck,       netwr_ck    FROM zcdsfi058_mseg('20230701','20230731')    WHERE werks = 'W100'
ABAP 应收账款账龄报表IDCNAR增加自定义字段
查看代码
""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""&q
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""&q
/* ... 已截断，完整代码请查看原文 */
ABAP 应收账款账龄报表IDCNAR增加自定义字段
查看代码
""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""&q
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""&q
/* ... 已截断，完整代码请查看原文 */
ABAP 应收账款账龄报表IDCNAR增加自定义字段
查看代码
METHOD if_idcn_ar_aging~post_selection_control.    IF ct_content_header[] IS NOT INITIAL.      SELECT prctr,             ltext        INTO TABLE @DATA(lt_cepct)        FROM cepct        FOR ALL ENTRIES IN @ct_content_header        WHERE prctr = @ct_content_header-zz01          AND spras = @sy-langu.      SORT lt_cepct BY prctr.      IF sy-subrc = 0.        LOOP AT ct_content_header ASSIGNING FIELD-SYMBOL(<fs_header>).          READ TABLE lt_cepct INTO DATA(ls_cepct) WITH KEY prctr = 
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
METHOD if_idcn_ar_aging~post_selection_control.    IF ct_content_header[] IS NOT INITIAL.      SELECT prctr,             ltext        INTO TABLE @DATA(lt_cepct)        FROM cepct        FOR ALL ENTRIES IN @ct_content_header        WHERE prctr = @ct_content_header-zz01          AND spras = @sy-langu.      SORT lt_cepct BY prctr.      IF sy-subrc = 0.        LOOP AT ct_content_header ASSIGNING FIELD-SYMBOL(<fs_header>).          READ TABLE lt_cepct INTO DATA(ls_cepct) WITH KEY prctr = 
/* ... 已截断，完整代码请查看原文 */
ABAP 建议收藏ABAP随笔EXCEL4批量导入推荐 
_lv_filename = p_file._
查看完整代码 
_lv_filename = p_file._
ABAP 建议收藏ABAP随笔EXCEL4批量导入推荐 
CALL  _ _ METHOD  _ _ zcl_document_jxzhu=>import_document_from_frontend "  _ _
调用方法获取  _ _ Excel  _ _ 数据  _ _ _ _ EXPORTING  _ _ pi_filename = lv_filename "
查看完整代码 
CALL  _ _ METHOD  _ _ zcl_document_jxzhu=>import_document_from_frontend "  _ _
调用方法获取  _ _ Excel  _ _ 数据  _ _ _ _ EXPORTING  _ _ pi_filename = lv_filename "
ABAP 建议收藏ABAP随笔EXCEL4批量导入推荐 
pt_tab = lt_zmmt001  _ _ _ _ EXCEPTIONS  _ _ file_open_error =  _ _ 1  _ _
查看完整代码 
pt_tab = lt_zmmt001  _ _ _ _ EXCEPTIONS  _ _ file_open_error =  _ _ 1  _ _
ABAP 建议收藏ABAP随笔EXCEL4批量导入推荐 
cl_demo_output=>display( lt_zmmt001 ).  _
查看完整代码 
cl_demo_output=>display( lt_zmmt001 ).  _
ABAP 建议收藏ABAP随笔EXCEL4批量导入推荐 
TYPES: BEGIN OF columninfo,
查看完整代码 
TYPES: BEGIN OF columninfo,
ABAP 建议收藏ABAP随笔EXCEL4批量导入推荐 
IF check_structure = abap_on.
查看完整代码 
IF check_structure = abap_on.
ABAP 建议收藏ABAP随笔EXCEL4批量导入推荐 
APPEND INITIAL LINE TO columnfromfile
查看完整代码 
APPEND INITIAL LINE TO columnfromfile
ABAP 建议收藏ABAP随笔EXCEL4批量导入推荐 
IF line_exists( tablecomponents[ name = cellvalue ] ).
查看完整代码 
IF line_exists( tablecomponents[ name = cellvalue ] ).
ABAP 建议收藏ABAP随笔EXCEL4批量导入推荐 
ENDIF.
查看完整代码 
ENDIF.
ABAP 建议收藏ABAP随笔EXCEL4批量导入推荐 
ENDDO.
IF error_text IS NOT INITIAL.
查看完整代码 
ENDDO.
IF error_text IS NOT INITIAL.
ABAP 建议收藏ABAP随笔EXCEL4批量导入推荐 
ENDIF.
ENDIF.
查看完整代码 
ENDIF.
ENDIF.
ABAP 建议收藏ABAP随笔EXCEL4批量导入推荐 
APPEND INITIAL LINE TO pt_tab ASSIGNING
查看完整代码 
APPEND INITIAL LINE TO pt_tab ASSIGNING
ABAP 建议收藏ABAP随笔EXCEL4批量导入推荐 
LOOP AT columnfromfile
查看完整代码 
LOOP AT columnfromfile
ABAP 建议收藏ABAP随笔EXCEL4批量导入推荐 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP 建议收藏ABAP随笔EXCEL4批量导入推荐 
APPEND INITIAL LINE TO pt_tab ASSIGNING <currentrow>.
查看完整代码 
APPEND INITIAL LINE TO pt_tab ASSIGNING <currentrow>.
ABAP 弹出ALV的几种方法ALVPOPUP 
DATA: go_alv TYPE REF TO cl_salv_table,
查看完整代码 
DATA: go_alv TYPE REF TO cl_salv_table,
ABAP 弹出ALV的几种方法ALVPOPUP 
DATA: itab TYPE STANDARD TABLE OF t001.
查看完整代码 
DATA: itab TYPE STANDARD TABLE OF t001.
ABAP 弹出ALV的几种方法ALVPOPUP 
DATA: cxroot TYPE REF TO cx_root,
查看完整代码 
DATA: cxroot TYPE REF TO cx_root,
ABAP 弹出ALV的几种方法ALVPOPUP 
SELECT * FROM t001 INTO TABLE itab .
查看完整代码 
SELECT * FROM t001 INTO TABLE itab .
ABAP 弹出ALV的几种方法ALVPOPUP 
cl_salv_table=>factory(
查看完整代码 
cl_salv_table=>factory(
ABAP 弹出ALV的几种方法ALVPOPUP 
r_salv_table = go_alv
查看完整代码 
r_salv_table = go_alv
ABAP 弹出ALV的几种方法ALVPOPUP 
t_table = itab[] ).
查看完整代码 
t_table = itab[] ).
ABAP 弹出ALV的几种方法ALVPOPUP 
IF go_alv IS BOUND.
查看完整代码 
IF go_alv IS BOUND.
ABAP 弹出ALV的几种方法ALVPOPUP 
ENDIF.
查看完整代码 
ENDIF.
ABAP 弹出ALV的几种方法ALVPOPUP 
DATA: go_grid TYPE REF TO cl_rs_alv_grid_popup,
查看完整代码 
DATA: go_grid TYPE REF TO cl_rs_alv_grid_popup,
ABAP 弹出ALV的几种方法ALVPOPUP 
SELECT * FROM t001 INTO TABLE itab .
查看完整代码 
SELECT * FROM t001 INTO TABLE itab .
ABAP 弹出ALV的几种方法ALVPOPUP 
CALL METHOD go_grid->show_data
查看完整代码 
CALL METHOD go_grid->show_data
ABAP 弹出ALV的几种方法ALVPOPUP 
i_t_data = itab[].
查看完整代码 
i_t_data = itab[].
ABAP 弹出ALV的几种方法ALVPOPUP 
SELECT  *  FROM  t001  INTO  TABLE  itab  .
查看完整代码 
SELECT  *  FROM  t001  INTO  TABLE  itab  .
ABAP 弹出ALV的几种方法ALVPOPUP 
CALL  FUNCTION  'REUSE_ALV_POPUP_TO_SELECT'
查看完整代码 
CALL  FUNCTION  'REUSE_ALV_POPUP_TO_SELECT'
ABAP 弹出ALV的几种方法ALVPOPUP 
t_outtab  =  itab
查看完整代码 
t_outtab  =  itab
ABAP 总账会计凭证自动拆分未生效问题处理
查看代码
CALL FUNCTION 'SYSTEM_CALLSTACK'    EXPORTING      max_level = 0    IMPORTING      callstack = lt_callstack.
*&---1. 发票输出凭证拆分  LOOP AT t_bkpf TRANSPORTING NO FIELDS WHERE bktxt = '零售公司应收' OR bktxt = '门店分公司应付'.    EXIT.  ENDLOOP.  IF sy-subrc = 0.    lv_flag_split = abap_true.  ENDIF.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
CALL FUNCTION 'SYSTEM_CALLSTACK'    EXPORTING      max_level = 0    IMPORTING      callstack = lt_callstack.
*&---1. 发票输出凭证拆分  LOOP AT t_bkpf TRANSPORTING NO FIELDS WHERE bktxt = '零售公司应收' OR bktxt = '门店分公司应付'.    EXIT.  ENDLOOP.  IF sy-subrc = 0.    lv_flag_split = abap_true.  ENDIF.
/* ... 已截断，完整代码请查看原文 */
ABAP 批量处理Excel导入模板11支持多Sheet页
查看代码
REPORT z_tab_test04.*&=====================================================================**& CREATE date:  2021.09.08*& created by:   tab-zhu (微信公众号：tab_jxzhu)*&=====================================================================*DATA:BEGIN OF gs_excel,       matnr        TYPE mara-matnr,       maktx        TYPE makt-maktx,       meins        TYPE mara-meins,       creationdate TYPE datum,       creationtime TYPE uzeit,     END OF gs_excel.DATA gt_excel LIKE TABLE OF gs_
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
REPORT z_tab_test04.*&=====================================================================**& CREATE date:  2021.09.08*& created by:   tab-zhu (微信公众号：tab_jxzhu)*&=====================================================================*DATA:BEGIN OF gs_excel,       matnr        TYPE mara-matnr,       maktx        TYPE makt-maktx,       meins        TYPE mara-meins,       creationdate TYPE datum,       creationtime TYPE uzeit,     END OF gs_excel.DATA gt_excel LIKE TABLE OF gs_
/* ... 已截断，完整代码请查看原文 */
ABAP 批量处理Excel导入模板11支持多Sheet页
查看代码
PARAMETERS:p_file TYPE rlgrap-filename OBLIGATORY MEMORY ID mi.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.  "  CALL METHOD zcl_tab_doc=>file_open_dialog_default    CHANGING      ct_file_table           = lt_files      c_rc                    = l_rc    EXCEPTIONS      file_open_dialog_failed = 1      cntl_error              = 2      error_no_gui            = 3      not_support_by_gui      = 4      OTHERS                  = 5.  READ TABLE lt_files INTO DATA(ls_files) INDEX 1.  
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
PARAMETERS:p_file TYPE rlgrap-filename OBLIGATORY MEMORY ID mi.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.  "  CALL METHOD zcl_tab_doc=>file_open_dialog_default    CHANGING      ct_file_table           = lt_files      c_rc                    = l_rc    EXCEPTIONS      file_open_dialog_failed = 1      cntl_error              = 2      error_no_gui            = 3      not_support_by_gui      = 4      OTHERS                  = 5.  READ TABLE lt_files INTO DATA(ls_files) INDEX 1.  
/* ... 已截断，完整代码请查看原文 */
ABAP 批量处理Excel导入模板11支持多Sheet页
查看代码
READ TABLE lt_tabc INTO DATA(ls_tabc) WITH KEY sheetname = 'Sheet1'.  IF sy-subrc EQ 0.    CALL METHOD lr_excel->excel_convert_table      EXPORTING*       i_separator            = CL_ABAP_CHAR_UTILITIES=>HORIZONTAL_TAB        is_table               = ls_tabc        i_repid                = 'Z_TAB_TEST04'        i_special_process      = 'FRM_SPECIAL_PROCESS'      CHANGING        ct_table               = gt_excel_sheet1      EXCEPTIONS        context_conve
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
READ TABLE lt_tabc INTO DATA(ls_tabc) WITH KEY sheetname = 'Sheet1'.  IF sy-subrc EQ 0.    CALL METHOD lr_excel->excel_convert_table      EXPORTING*       i_separator            = CL_ABAP_CHAR_UTILITIES=>HORIZONTAL_TAB        is_table               = ls_tabc        i_repid                = 'Z_TAB_TEST04'        i_special_process      = 'FRM_SPECIAL_PROCESS'      CHANGING        ct_table               = gt_excel_sheet1      EXCEPTIONS        context_conve
/* ... 已截断，完整代码请查看原文 */
ABAP 批量处理Excel导入模板11支持多Sheet页
查看代码
READ TABLE lt_tabc INTO ls_tabc WITH KEY sheetname = 'Sheet2'.  IF sy-subrc EQ 0.    CALL METHOD lr_excel->excel_convert_table      EXPORTING*       i_separator            = CL_ABAP_CHAR_UTILITIES=>HORIZONTAL_TAB        is_table               = ls_tabc        i_repid                = 'Z_TAB_TEST04'        i_special_process      = 'FRM_SPECIAL_PROCESS'      CHANGING        ct_table               = gt_excel_sheet2      EXCEPTIONS        context_convert_fai
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
READ TABLE lt_tabc INTO ls_tabc WITH KEY sheetname = 'Sheet2'.  IF sy-subrc EQ 0.    CALL METHOD lr_excel->excel_convert_table      EXPORTING*       i_separator            = CL_ABAP_CHAR_UTILITIES=>HORIZONTAL_TAB        is_table               = ls_tabc        i_repid                = 'Z_TAB_TEST04'        i_special_process      = 'FRM_SPECIAL_PROCESS'      CHANGING        ct_table               = gt_excel_sheet2      EXCEPTIONS        context_convert_fai
/* ... 已截断，完整代码请查看原文 */
ABAP 批量处理Excel导入模板11支持多Sheet页 
LOOP AT gt_excel_sheet1 INTO gs_excel_sheet1.    READ TABLE gt_excel_sheet2 INTO gs_excel_sheet2 WITH KEY matnr = gs_excel_sheet1-matnr BINARY SEARCH.    IF sy-subrc EQ 0.      gs_excel-maktx = gs_excel_sheet2-maktx.    ENDIF.    MOVE-CORRESPONDING gs_excel_sheet1 TO gs_excel.    APPEND gs_excel TO gt_excel.    CLEAR gs_excel.  ENDLOOP.
查看完整代码 
LOOP AT gt_excel_sheet1 INTO gs_excel_sheet1.    READ TABLE gt_excel_sheet2 INTO gs_excel_sheet2 WITH KEY matnr = gs_excel_sheet1-matnr BINARY SEARCH.    IF sy-subrc EQ 0.      gs_excel-maktx = gs_excel_sheet2-maktx.    ENDIF.    MOVE-CORRESPONDING gs_excel_sheet1 TO gs_excel.    APPEND gs_excel TO gt_excel.    CLEAR gs_excel.  ENDLOOP.
ABAP 批量处理Excel导入模板11支持多Sheet页
查看代码
TRY.      cl_salv_table=>factory(        IMPORTING          r_salv_table = go_alv        CHANGING          t_table      = gt_excel[] ).
CATCH cx_salv_msg.  ENDTRY.  lr_functions = go_alv->get_functions( ).  lr_functions->set_all( 'X' ).  CHECK go_alv IS BOUND.  go_alv->display( ).
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
TRY.      cl_salv_table=>factory(        IMPORTING          r_salv_table = go_alv        CHANGING          t_table      = gt_excel[] ).
CATCH cx_salv_msg.  ENDTRY.  lr_functions = go_alv->get_functions( ).  lr_functions->set_all( 'X' ).  CHECK go_alv IS BOUND.  go_alv->display( ).
/* ... 已截断，完整代码请查看原文 */
ABAP 批量对比系统间开发对象差异 
REPORT zvercheck NO STANDARD PAGE HEADING.
查看完整代码 
REPORT zvercheck NO STANDARD PAGE HEADING.
ABAP 批量对比系统间开发对象差异 
TABLES: sci_dynp,versobj_alias.
查看完整代码 
TABLES: sci_dynp,versobj_alias.
ABAP 批量对比系统间开发对象差异 
DATA: gt_fldct TYPE lvc_t_fcat,
查看完整代码 
DATA: gt_fldct TYPE lvc_t_fcat,
ABAP 批量对比系统间开发对象差异 
DATA: gt_syst TYPE tmscsyslst_typ,
查看完整代码 
DATA: gt_syst TYPE tmscsyslst_typ,
ABAP 批量对比系统间开发对象差异 
DATA: gt_ko100 TYPE TABLE OF ko100,
查看完整代码 
DATA: gt_ko100 TYPE TABLE OF ko100,
ABAP 批量对比系统间开发对象差异 
DATA: BEGIN OF gs_out,
查看完整代码 
DATA: BEGIN OF gs_out,
ABAP 批量对比系统间开发对象差异 
DATA: gt_out LIKE TABLE OF gs_out.
查看完整代码 
DATA: gt_out LIKE TABLE OF gs_out.
ABAP 批量对比系统间开发对象差异 
DATA: gr_ext TYPE RANGE OF sci_dynp-i_obj_t. "排除类型
查看完整代码 
DATA: gr_ext TYPE RANGE OF sci_dynp-i_obj_t. "排除类型
ABAP 批量对比系统间开发对象差异 
PARAMETERS: p_dest TYPE versdest MEMORY ID rfc,
查看完整代码 
PARAMETERS: p_dest TYPE versdest MEMORY ID rfc,
ABAP 批量对比系统间开发对象差异 
PARAMETERS: p_same AS CHECKBOX DEFAULT 'X',
查看完整代码 
PARAMETERS: p_same AS CHECKBOX DEFAULT 'X',
ABAP 批量对比系统间开发对象差异 
APPEND 'EEQAVAS' TO gr_ext.
查看完整代码 
APPEND 'EEQAVAS' TO gr_ext.
ABAP 批量对比系统间开发对象差异 
APPEND 'EEQTOBJ' TO gr_ext.
查看完整代码 
APPEND 'EEQTOBJ' TO gr_ext.
ABAP 批量对比系统间开发对象差异 
APPEND 'EEQSTOB' TO gr_ext.
查看完整代码 
APPEND 'EEQSTOB' TO gr_ext.
ABAP 批量对比系统间开发对象差异 
CALL FUNCTION 'TRINT_OBJECT_TABLE'
查看完整代码 
CALL FUNCTION 'TRINT_OBJECT_TABLE'
ABAP 批量对比系统间开发对象差异 
CALL FUNCTION 'TMS_CI_GET_SYSTEMLIST'
查看完整代码 
CALL FUNCTION 'TMS_CI_GET_SYSTEMLIST'
ABAP 批量对比系统间开发对象差异 
LOOP AT gt_syst INTO gs_syst.
查看完整代码 
LOOP AT gt_syst INTO gs_syst.
ABAP 批量对比系统间开发对象差异 
APPEND gs_vrmv TO gt_vrmv.
查看完整代码 
APPEND gs_vrmv TO gt_vrmv.
ABAP 批量对比系统间开发对象差异 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP 批量对比系统间开发对象差异 
CALL FUNCTION 'VRM_SET_VALUES'
查看完整代码 
CALL FUNCTION 'VRM_SET_VALUES'
ABAP 批量对比系统间开发对象差异 
CALL FUNCTION 'RS_HELP_HANDLING'
查看完整代码 
CALL FUNCTION 'RS_HELP_HANDLING'
ABAP 批量对比系统间开发对象差异 
CALL FUNCTION 'RS_HELP_HANDLING'
查看完整代码 
CALL FUNCTION 'RS_HELP_HANDLING'
ABAP 批量对比系统间开发对象差异 
CALL FUNCTION 'REPOSITORY_INFO_SYSTEM_F4'
查看完整代码 
CALL FUNCTION 'REPOSITORY_INFO_SYSTEM_F4'
ABAP 批量对比系统间开发对象差异 
CALL FUNCTION 'F4_DD_ALLTYPES'
查看完整代码 
CALL FUNCTION 'F4_DD_ALLTYPES'
ABAP 批量对比系统间开发对象差异 
CALL FUNCTION 'TR_F4_REQUESTS'
查看完整代码 
CALL FUNCTION 'TR_F4_REQUESTS'
ABAP 批量对比系统间开发对象差异 
CALL FUNCTION 'TRINT_PGMID_OBJECT_SELECT_F4'
查看完整代码 
CALL FUNCTION 'TRINT_PGMID_OBJECT_SELECT_F4'
ABAP 批量对比系统间开发对象差异 
IF sy-ucomm = 'ONLI'.
查看完整代码 
IF sy-ucomm = 'ONLI'.
ABAP 批量对比系统间开发对象差异 
IF p_dest = '' AND p_syst = ''.
查看完整代码 
IF p_dest = '' AND p_syst = ''.
ABAP 批量对比系统间开发对象差异 
READ TABLE gt_syst INTO gs_syst WITH KEY sysnam = p_syst.
查看完整代码 
READ TABLE gt_syst INTO gs_syst WITH KEY sysnam = p_syst.
ABAP 批量对比系统间开发对象差异 
ENDIF.
查看完整代码 
ENDIF.
ABAP 批量对比系统间开发对象差异 
ENDIF.
查看完整代码 
ENDIF.
ABAP 批量对比系统间开发对象差异 
FORM get_objects.
查看完整代码 
FORM get_objects.
ABAP 批量对比系统间开发对象差异 
IF s_prog[] IS NOT INITIAL.
查看完整代码 
IF s_prog[] IS NOT INITIAL.
ABAP 批量对比系统间开发对象差异 
SELECT pgmid object obj_name devclass author
查看完整代码 
SELECT pgmid object obj_name devclass author
ABAP 批量对比系统间开发对象差异 
LOOP AT lt_progs INTO ls_progs.
查看完整代码 
LOOP AT lt_progs INTO ls_progs.
ABAP 批量对比系统间开发对象差异 
CALL FUNCTION 'GET_INCLUDETAB'
查看完整代码 
CALL FUNCTION 'GET_INCLUDETAB'
ABAP 批量对比系统间开发对象差异 
progname = ls_progs-obj_name
查看完整代码 
progname = ls_progs-obj_name
ABAP 批量对比系统间开发对象差异 
incltab  = lt_incl.
查看完整代码 
incltab  = lt_incl.
ABAP 批量对比系统间开发对象差异 
SELECT pgmid object obj_name devclass author
查看完整代码 
SELECT pgmid object obj_name devclass author
ABAP 批量对比系统间开发对象差异 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP 批量对比系统间开发对象差异 
APPEND LINES OF lt_progs TO gt_out.
查看完整代码 
APPEND LINES OF lt_progs TO gt_out.
ABAP 批量对比系统间开发对象差异 
ENDIF.
查看完整代码 
ENDIF.
ABAP 批量对比系统间开发对象差异 
IF s_fugr[] IS NOT INITIAL.
查看完整代码 
IF s_fugr[] IS NOT INITIAL.
ABAP 批量对比系统间开发对象差异 
SELECT pgmid object obj_name devclass author
查看完整代码 
SELECT pgmid object obj_name devclass author
ABAP 批量对比系统间开发对象差异 
ENDIF.
查看完整代码 
ENDIF.
ABAP 批量对比系统间开发对象差异 
IF s_clas[] IS NOT INITIAL.
查看完整代码 
IF s_clas[] IS NOT INITIAL.
ABAP 批量对比系统间开发对象差异 
SELECT pgmid object obj_name devclass author
查看完整代码 
SELECT pgmid object obj_name devclass author
ABAP 批量对比系统间开发对象差异 
ENDIF.
查看完整代码 
ENDIF.
ABAP 批量对比系统间开发对象差异 
IF s_ddic[] IS NOT INITIAL.
查看完整代码 
IF s_ddic[] IS NOT INITIAL.
ABAP 批量对比系统间开发对象差异 
SELECT pgmid object obj_name devclass author
查看完整代码 
SELECT pgmid object obj_name devclass author
ABAP 批量对比系统间开发对象差异 
ENDIF.
查看完整代码 
ENDIF.
ABAP 批量对比系统间开发对象差异 
IF s_tran[] IS NOT INITIAL.
查看完整代码 
IF s_tran[] IS NOT INITIAL.
ABAP 批量对比系统间开发对象差异 
SELECT * INTO TABLE lt_e070 FROM e070
查看完整代码 
SELECT * INTO TABLE lt_e070 FROM e070
ABAP 批量对比系统间开发对象差异 
IF sy-subrc = 0.
查看完整代码 
IF sy-subrc = 0.
ABAP 批量对比系统间开发对象差异 
SELECT pgmid object obj_name
查看完整代码 
SELECT pgmid object obj_name
ABAP 批量对比系统间开发对象差异 
LOOP AT lt_e071 INTO ls_e071.
查看完整代码 
LOOP AT lt_e071 INTO ls_e071.
ABAP 批量对比系统间开发对象差异 
CALL FUNCTION 'TR_CHECK_TYPE'
查看完整代码 
CALL FUNCTION 'TR_CHECK_TYPE'
ABAP 批量对比系统间开发对象差异 
wi_e071  = ls_e071
查看完整代码 
wi_e071  = ls_e071
ABAP 批量对比系统间开发对象差异 
we_tadir = ls_tadir.
查看完整代码 
we_tadir = ls_tadir.
ABAP 批量对比系统间开发对象差异 
SELECT SINGLE * INTO ls_tadir FROM tadir
查看完整代码 
SELECT SINGLE * INTO ls_tadir FROM tadir
ABAP 批量对比系统间开发对象差异 
gs_out-pgmid     = ls_e071-pgmid.
查看完整代码 
gs_out-pgmid     = ls_e071-pgmid.
ABAP 批量对比系统间开发对象差异 
gs_out-object    = ls_e071-object.
查看完整代码 
gs_out-object    = ls_e071-object.
ABAP 批量对比系统间开发对象差异 
gs_out-obj_name  = ls_e071-obj_name.
查看完整代码 
gs_out-obj_name  = ls_e071-obj_name.
ABAP 批量对比系统间开发对象差异 
gs_out-devclass  = ls_tadir-devclass.
查看完整代码 
gs_out-devclass  = ls_tadir-devclass.
ABAP 批量对比系统间开发对象差异 
gs_out-author    = ls_tadir-author.
查看完整代码 
gs_out-author    = ls_tadir-author.
ABAP 批量对比系统间开发对象差异 
APPEND gs_out TO gt_out.
查看完整代码 
APPEND gs_out TO gt_out.
ABAP 批量对比系统间开发对象差异 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP 批量对比系统间开发对象差异 
ENDIF.
查看完整代码 
ENDIF.
ABAP 批量对比系统间开发对象差异 
ENDIF.
查看完整代码 
ENDIF.
ABAP 批量对比系统间开发对象差异 
IF s_pckg[] IS NOT INITIAL.
查看完整代码 
IF s_pckg[] IS NOT INITIAL.
ABAP 批量对比系统间开发对象差异 
SELECT pgmid object obj_name devclass author
查看完整代码 
SELECT pgmid object obj_name devclass author
ABAP 批量对比系统间开发对象差异 
ENDIF.
查看完整代码 
ENDIF.
ABAP 批量对比系统间开发对象差异 
IF gt_out IS INITIAL.
查看完整代码 
IF gt_out IS INITIAL.
ABAP 批量对比系统间开发对象差异 
ENDIF.
查看完整代码 
ENDIF.
ABAP 批量对比系统间开发对象差异 
ENDFORM.                    "get_objects
查看完整代码 
ENDFORM.                    "get_objects
ABAP 批量对比系统间开发对象差异 
FORM expand_objects.
查看完整代码 
FORM expand_objects.
ABAP 批量对比系统间开发对象差异 
DATA: ls_e071    TYPE e071,
查看完整代码 
DATA: ls_e071    TYPE e071,
ABAP 批量对比系统间开发对象差异 
LOOP AT gt_out INTO gs_out.
查看完整代码 
LOOP AT gt_out INTO gs_out.
ABAP 批量对比系统间开发对象差异 
ls_object-author   = gs_out-author.
查看完整代码 
ls_object-author   = gs_out-author.
ABAP 批量对比系统间开发对象差异 
ls_object-devclass = gs_out-devclass.
查看完整代码 
ls_object-devclass = gs_out-devclass.
ABAP 批量对比系统间开发对象差异 
ls_e071-pgmid    = gs_out-pgmid.
查看完整代码 
ls_e071-pgmid    = gs_out-pgmid.
ABAP 批量对比系统间开发对象差异 
ls_e071-object   = gs_out-object.
查看完整代码 
ls_e071-object   = gs_out-object.
ABAP 批量对比系统间开发对象差异 
ls_e071-obj_name = gs_out-obj_name.
查看完整代码 
ls_e071-obj_name = gs_out-obj_name.
ABAP 批量对比系统间开发对象差异 
CALL FUNCTION 'SVRS_RESOLVE_E071_OBJ'
查看完整代码 
CALL FUNCTION 'SVRS_RESOLVE_E071_OBJ'
ABAP 批量对比系统间开发对象差异 
e071_obj        = ls_e071
查看完整代码 
e071_obj        = ls_e071
ABAP 批量对比系统间开发对象差异 
obj_tab         = lt_vrso
查看完整代码 
obj_tab         = lt_vrso
ABAP 批量对比系统间开发对象差异 
IF sy-subrc = 0.
查看完整代码 
IF sy-subrc = 0.
ABAP 批量对比系统间开发对象差异 
LOOP AT lt_vrso INTO ls_vrso WHERE objtype NE 'DOCU'.
查看完整代码 
LOOP AT lt_vrso INTO ls_vrso WHERE objtype NE 'DOCU'.
ABAP 批量对比系统间开发对象差异 
ls_ver_obj-objtype = ls_vrso-objtype.
查看完整代码 
ls_ver_obj-objtype = ls_vrso-objtype.
ABAP 批量对比系统间开发对象差异 
ls_ver_obj-objname = ls_vrso-objname.
查看完整代码 
ls_ver_obj-objname = ls_vrso-objname.
ABAP 批量对比系统间开发对象差异 
ls_ver_obj-versno  = '00000'.
查看完整代码 
ls_ver_obj-versno  = '00000'.
ABAP 批量对比系统间开发对象差异 
CALL FUNCTION 'SVRS_GET_VERSION_LOCAL'
查看完整代码 
CALL FUNCTION 'SVRS_GET_VERSION_LOCAL'
ABAP 批量对比系统间开发对象差异 
object             = ls_ver_obj
查看完整代码 
object             = ls_ver_obj
ABAP 批量对比系统间开发对象差异
查看代码
TABLES: sci_dynp,versobj_alias.DATA: gt_fldct TYPE lvc_t_fcat,      gs_slayt TYPE lvc_s_layo.DATA: gt_syst TYPE tmscsyslst_typ,      gs_syst TYPE tmscsyslst,      gt_vrmv TYPE vrm_values,      gs_vrmv TYPE vrm_value.DATA: gt_ko100 TYPE TABLE OF ko100,      gs_ko100 TYPE ko100.DATA: BEGIN OF gs_out,        pgmid    TYPE e071-pgmid,        object   TYPE e071-object,        obj_name TYPE e071-obj_name,        devclass TYPE tadir-devclass,        author   TYPE tadir-author,        objtxt   TYP
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
TABLES: sci_dynp,versobj_alias.DATA: gt_fldct TYPE lvc_t_fcat,      gs_slayt TYPE lvc_s_layo.DATA: gt_syst TYPE tmscsyslst_typ,      gs_syst TYPE tmscsyslst,      gt_vrmv TYPE vrm_values,      gs_vrmv TYPE vrm_value.DATA: gt_ko100 TYPE TABLE OF ko100,      gs_ko100 TYPE ko100.DATA: BEGIN OF gs_out,        pgmid    TYPE e071-pgmid,        object   TYPE e071-object,        obj_name TYPE e071-obj_name,        devclass TYPE tadir-devclass,        author   TYPE tadir-author,        objtxt   TYP
/* ... 已截断，完整代码请查看原文 */
ABAP 批量对比系统间开发对象差异
查看代码
CALL FUNCTION 'TRINT_OBJECT_TABLE'    EXPORTING      iv_complete  = 'X'    TABLES      tt_types_out = gt_ko100.  SORT gt_ko100 BY object.
CALL FUNCTION 'TMS_CI_GET_SYSTEMLIST'    EXPORTING      iv_only_active = 'X'    TABLES      tt_syslst      = gt_syst.  LOOP AT gt_syst INTO gs_syst.    gs_vrmv-key  = gs_syst-sysnam.    gs_vrmv-text = gs_syst-systxt.    APPEND gs_vrmv TO gt_vrmv.  ENDLOOP.  CALL FUNCTION 'VRM_SET_VALUES'    EXPORTING     
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
CALL FUNCTION 'TRINT_OBJECT_TABLE'    EXPORTING      iv_complete  = 'X'    TABLES      tt_types_out = gt_ko100.  SORT gt_ko100 BY object.
CALL FUNCTION 'TMS_CI_GET_SYSTEMLIST'    EXPORTING      iv_only_active = 'X'    TABLES      tt_syslst      = gt_syst.  LOOP AT gt_syst INTO gs_syst.    gs_vrmv-key  = gs_syst-sysnam.    gs_vrmv-text = gs_syst-systxt.    APPEND gs_vrmv TO gt_vrmv.  ENDLOOP.  CALL FUNCTION 'VRM_SET_VALUES'    EXPORTING     
/* ... 已截断，完整代码请查看原文 */
ABAP 批量开物料账期的程序 
REPORT  zmmpv  NO STANDARD PAGE  HEADING  .
查看完整代码 
REPORT  zmmpv  NO STANDARD PAGE  HEADING  .
ABAP 批量开物料账期的程序 
END OF  itab_log  .
查看完整代码 
END OF  itab_log  .
ABAP 批量开物料账期的程序 
SELECT SINGLE  *  FROM  marv
查看完整代码 
SELECT SINGLE  *  FROM  marv
ABAP 批量开物料账期的程序 
IF  sy  \-  subrc  =  0  .
查看完整代码 
IF  sy  \-  subrc  =  0  .
ABAP 批量开物料账期的程序 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP 批量开物料账期的程序 
IF  p_frdat  IS INITIAL OR  p_frdat  =  ''  OR
查看完整代码 
IF  p_frdat  IS INITIAL OR  p_frdat  =  ''  OR
ABAP 批量开物料账期的程序 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP 批量开物料账期的程序 
SELECT SINGLE  *  FROM  t000
查看完整代码 
SELECT SINGLE  *  FROM  t000
ABAP 批量开物料账期的程序 
IF  sy  \-  subrc  =  0  .
查看完整代码 
IF  sy  \-  subrc  =  0  .
ABAP 批量开物料账期的程序 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP 批量开物料账期的程序 
LOOP AT  itab_log  .
查看完整代码 
LOOP AT  itab_log  .
ABAP 批量开物料账期的程序 
ENDLOOP  .
查看完整代码 
ENDLOOP  .
ABAP 批量开物料账期的程序 
FORM  bdc  .
查看完整代码 
FORM  bdc  .
ABAP 批量开物料账期的程序 
LOOP AT  messtab  .
CALL FUNCTION  'MESSAGE_TEXT_BUILD'
查看完整代码 
LOOP AT  messtab  .
CALL FUNCTION  'MESSAGE_TEXT_BUILD'
ABAP 批量开物料账期的程序 
message_text_output  =  itab_log  \-  message  .
APPEND  itab_log  .
查看完整代码 
message_text_output  =  itab_log  \-  message  .
APPEND  itab_log  .
ABAP 批量开物料账期的程序 
ENDLOOP  .
ENDFORM  .  "bdc
查看完整代码 
ENDLOOP  .
ENDFORM  .  "bdc
ABAP 批量开物料账期的程序 
FORM  bdc_dynpro  USING program dynpro  .
查看完整代码 
FORM  bdc_dynpro  USING program dynpro  .
ABAP 批量开物料账期的程序 
APPEND  bdcdata  .
ENDFORM  .  "BDC_DYNPRO
查看完整代码 
APPEND  bdcdata  .
ENDFORM  .  "BDC_DYNPRO
ABAP 批量开物料账期的程序 
FORM  bdc_field  USING  fnam fval  .
查看完整代码 
FORM  bdc_field  USING  fnam fval  .
ABAP 批量开物料账期的程序 
APPEND  bdcdata  .
ENDFORM  .  "BDC_FIELD
查看完整代码 
APPEND  bdcdata  .
ENDFORM  .  "BDC_FIELD
ABAP 批量维护角色的权限对象 
FORM  save  .
查看完整代码 
FORM  save  .
ABAP 批量维护角色的权限对象 
END OF  lt_agr_name  .
查看完整代码 
END OF  lt_agr_name  .
ABAP 批量维护角色的权限对象 
LOOP AT  <fs_out> INTO  <fs_out_wa> .
查看完整代码 
LOOP AT  <fs_out> INTO  <fs_out_wa> .
ABAP 批量维护角色的权限对象 
ENDLOOP  .
查看完整代码 
ENDLOOP  .
ABAP 批量维护角色的权限对象 
LOOP AT  lt_agr_name  .
查看完整代码 
LOOP AT  lt_agr_name  .
ABAP 批量维护角色的权限对象 
CALL FUNCTION  'ENQUEUE_E_AGR_DEF'
查看完整代码 
CALL FUNCTION  'ENQUEUE_E_AGR_DEF'
ABAP 批量维护角色的权限对象 
agr_name  =  lt_agr_name  \-  agr_name
查看完整代码 
agr_name  =  lt_agr_name  \-  agr_name
ABAP 批量维护角色的权限对象 
IF  sy  \-  subrc <> 0  .
查看完整代码 
IF  sy  \-  subrc <> 0  .
ABAP 批量维护角色的权限对象 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP 批量维护角色的权限对象 
SELECT SINGLE  *  FROM  agr_1016
WHERE  agr_name  =  lt_agr_name  \-  agr_name  .
IF  agr_1016  \-  profile  IS INITIAL  .
查看完整代码 
SELECT SINGLE  *  FROM  agr_1016
WHERE  agr_name  =  lt_agr_name  \-  agr_name  .
IF  agr_1016  \-  profile  IS INITIAL  .
ABAP 批量维护角色的权限对象 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP 批量维护角色的权限对象 
SELECT SINGLE  *  FROM  agr_1250
WHERE  agr_name  =  lt_agr_name  \-  agr_name  AND
查看完整代码 
SELECT SINGLE  *  FROM  agr_1250
WHERE  agr_name  =  lt_agr_name  \-  agr_name  AND
ABAP 批量维护角色的权限对象 
SELECT MAX  (  auth  )  INTO  xuauth
查看完整代码 
SELECT MAX  (  auth  )  INTO  xuauth
ABAP 批量维护角色的权限对象 
WHERE  agr_name  =  lt_agr_name  \-  agr_name  .
IF  agr_1250  IS INITIAL  .
IF  xuauth  IS INITIAL  .
查看完整代码 
WHERE  agr_name  =  lt_agr_name  \-  agr_name  .
IF  agr_1250  IS INITIAL  .
IF  xuauth  IS INITIAL  .
ABAP 批量维护角色的权限对象 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP 批量维护角色的权限对象 
CALL FUNCTION  'PRGN_1250_READ_AUTH_DATA'
查看完整代码 
CALL FUNCTION  'PRGN_1250_READ_AUTH_DATA'
ABAP 批量维护角色的权限对象 
activity_group  =  lt_agr_name  \-  agr_name
查看完整代码 
activity_group  =  lt_agr_name  \-  agr_name
ABAP 批量维护角色的权限对象 
auth_data  =  lt_1250
查看完整代码 
auth_data  =  lt_1250
ABAP 批量维护角色的权限对象 
lt_1250  \-  object  =  p_objct  .
lt_1250  \-  auth  =  xuauth  .
lt_1250  \-  modified  =  'U'  .
查看完整代码 
lt_1250  \-  object  =  p_objct  .
lt_1250  \-  auth  =  xuauth  .
lt_1250  \-  modified  =  'U'  .
ABAP 批量维护角色的权限对象 
ELSEIF  lt_agr_name  \-  newline  =  'X'  .
查看完整代码 
ELSEIF  lt_agr_name  \-  newline  =  'X'  .
ABAP 批量维护角色的权限对象 
CALL FUNCTION  'PRGN_1250_READ_AUTH_DATA'
查看完整代码 
CALL FUNCTION  'PRGN_1250_READ_AUTH_DATA'
ABAP 批量维护角色的权限对象 
activity_group  =  lt_agr_name  \-  agr_name
查看完整代码 
activity_group  =  lt_agr_name  \-  agr_name
ABAP 批量维护角色的权限对象 
auth_data  =  lt_1250
查看完整代码 
auth_data  =  lt_1250
ABAP 批量维护角色的权限对象 
lt_1250  \-  object  =  p_objct  .
lt_1250  \-  auth  =  xuauth  .
lt_1250  \-  modified  =  'U'  .
查看完整代码 
lt_1250  \-  object  =  p_objct  .
lt_1250  \-  auth  =  xuauth  .
lt_1250  \-  modified  =  'U'  .
ABAP 批量维护角色的权限对象 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP 批量维护角色的权限对象 
CALL FUNCTION  'PRGN_1251_READ_FIELD_VALUES'
查看完整代码 
CALL FUNCTION  'PRGN_1251_READ_FIELD_VALUES'
ABAP 批量维护角色的权限对象 
activity_group  =  lt_agr_name  \-  agr_name
查看完整代码 
activity_group  =  lt_agr_name  \-  agr_name
ABAP 批量维护角色的权限对象 
field_values  =  lt_1251
查看完整代码 
field_values  =  lt_1251
ABAP 批量维护角色的权限对象 
* whstr = `agr_name = lt_agr_name-agr_name`. "  早期  ECC  版本不支持  LOOP ..WHERE (whstr).
LOOP AT  <fs_out> INTO  <fs_out_wa> .
查看完整代码 
* whstr = `agr_name = lt_agr_name-agr_name`. "  早期  ECC  版本不支持  LOOP ..WHERE (whstr).
LOOP AT  <fs_out> INTO  <fs_out_wa> .
ABAP 批量维护角色的权限对象 
CHECK  <fs_fld> =  lt_agr_name  \-  agr_name  .
查看完整代码 
CHECK  <fs_fld> =  lt_agr_name  \-  agr_name  .
ABAP 批量维护角色的权限对象 
READ TABLE  fldct  INDEX  sy  \-  index  .
IF  sy  \-  subrc <> 0  .
查看完整代码 
READ TABLE  fldct  INDEX  sy  \-  index  .
IF  sy  \-  subrc <> 0  .
ABAP 批量维护角色的权限对象 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP 批量维护角色的权限对象 
lt_1251  \-  object  =  p_objct  .
lt_1251  \-  auth  =  xuauth  .
lt_1251  \-  field  =  fldct  \-  fieldname  .
lt_1251  \-  low  =  <fs_fld> .
SELECT SINGLE  *  FROM  usorg  WHERE field  =  fldct  \-  fieldname  .
IF  sy  \-  subrc  =  0  AND  p_usorg  =  'X'  .
lt_1251  \-  modified  =  'S'  .
查看完整代码 
lt_1251  \-  object  =  p_objct  .
lt_1251  \-  auth  =  xuauth  .
lt_1251  \-  field  =  fldct  \-  fieldname  .
lt_1251  \-  low  =  <fs_fld> .
SELECT SINGLE  *  FROM  usorg  WHERE field  =  fldct  \-  fieldname  .
IF  sy  \-  subrc  =  0  AND  p_usorg  =  'X'  .
lt_1251  \-  modified  =  'S'  .
ABAP 批量维护角色的权限对象 
lt_1251  \-  modified  =  'M'  .
查看完整代码 
lt_1251  \-  modified  =  'M'  .
ABAP 批量维护角色的权限对象 
lt_1251  \-  modified  =  'U'  .
ENDIF  .
查看完整代码 
lt_1251  \-  modified  =  'U'  .
ENDIF  .
ABAP 批量维护角色的权限对象 
ENDDO  .
ENDLOOP  .
查看完整代码 
ENDDO  .
ENDLOOP  .
ABAP 批量维护角色的权限对象 
IF  lt_1250[]  IS NOT INITIAL  .
CALL FUNCTION  'PRGN_1250_SAVE_AUTH_DATA'
查看完整代码 
IF  lt_1250[]  IS NOT INITIAL  .
CALL FUNCTION  'PRGN_1250_SAVE_AUTH_DATA'
ABAP 批量维护角色的权限对象 
activity_group  =  lt_agr_name  \-  agr_name
查看完整代码 
activity_group  =  lt_agr_name  \-  agr_name
ABAP 批量维护角色的权限对象 
auth_data  =  lt_1250  .
ENDIF  .
查看完整代码 
auth_data  =  lt_1250  .
ENDIF  .
ABAP 批量维护角色的权限对象 
CALL FUNCTION  'PRGN_1251_SAVE_FIELD_VALUES'
查看完整代码 
CALL FUNCTION  'PRGN_1251_SAVE_FIELD_VALUES'
ABAP 批量维护角色的权限对象 
activity_group  =  lt_agr_name  \-  agr_name
查看完整代码 
activity_group  =  lt_agr_name  \-  agr_name
ABAP 批量维护角色的权限对象 
field_values  =  lt_1251  .
查看完整代码 
field_values  =  lt_1251  .
ABAP 批量维护角色的权限对象 
CALL FUNCTION  'PRGN_UPDATE_DATABASE'  .
查看完整代码 
CALL FUNCTION  'PRGN_UPDATE_DATABASE'  .
ABAP 批量维护角色的权限对象 
CALL FUNCTION  'DEQUEUE_E_AGR_DEF'
查看完整代码 
CALL FUNCTION  'DEQUEUE_E_AGR_DEF'
ABAP 批量维护角色的权限对象 
agr_name  =  lt_agr_name  \-  agr_name  .
查看完整代码 
agr_name  =  lt_agr_name  \-  agr_name  .
ABAP 批量维护角色的权限对象 
CALL FUNCTION  'PRGN_AUTO_GENERATE_PROFILE_NEW'
查看完整代码 
CALL FUNCTION  'PRGN_AUTO_GENERATE_PROFILE_NEW'
ABAP 批量维护角色的权限对象 
activity_group  =  lt_agr_name  \-  agr_name
查看完整代码 
activity_group  =  lt_agr_name  \-  agr_name
ABAP 批量维护角色的权限对象 
org_levels_with_star  =  'X'
查看完整代码 
org_levels_with_star  =  'X'
ABAP 批量维护角色的权限对象 
IF  sy  \-  subrc <> 0  .
查看完整代码 
IF  sy  \-  subrc <> 0  .
ABAP 批量维护角色的权限对象 
ENDIF  .
ENDLOOP  .
查看完整代码 
ENDIF  .
ENDLOOP  .
ABAP 批量维护角色的权限对象 
CALL FUNCTION  'SUSR_DISPLAY_LOG'
查看完整代码 
CALL FUNCTION  'SUSR_DISPLAY_LOG'
ABAP 批量维护角色的权限对象 
ENDFORM  .  " SAVE
查看完整代码 
ENDFORM  .  " SAVE
ABAP 搜索帮助增强数据去重
查看代码
FUNCTION zshlp_exit_brand_val.*"----------------------------------------------------------------------*"*"本地接口：*"  TABLES*"      SHLP_TAB TYPE  SHLP_DESCT*"      RECORD_TAB STRUCTURE  SEAHLPRES*"  CHANGING*"     REFERENCE(SHLP) TYPE  SHLP_DESCR*"     REFERENCE(CALLCONTROL) LIKE  DDSHF4CTRL STRUCTURE  DDSHF4CTRL*"----------------------------------------------------------------------
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
FUNCTION zshlp_exit_brand_val.*"----------------------------------------------------------------------*"*"本地接口：*"  TABLES*"      SHLP_TAB TYPE  SHLP_DESCT*"      RECORD_TAB STRUCTURE  SEAHLPRES*"  CHANGING*"     REFERENCE(SHLP) TYPE  SHLP_DESCR*"     REFERENCE(CALLCONTROL) LIKE  DDSHF4CTRL STRUCTURE  DDSHF4CTRL*"----------------------------------------------------------------------
/* ... 已截断，完整代码请查看原文 */
ABAP 搞死SAP系统系列让PO系统宕机 
SELECT ROWnum ,exord,flag FROM DANIANG.Zttemp
查看完整代码 
SELECT ROWnum ,exord,flag FROM DANIANG.Zttemp
ABAP 效率优化嵌套循环中的一个小坑
查看代码
TYPES:BEGIN OF ty_character,class TYPE klah-class, "分类编码atnam TYPE cabn-atnam, "特性编码atbez TYPE cabnt-atbez, "特性名称END OF ty_character.DATA: gt_character TYPE SORTED TABLE OF ty_character WITH NON-UNIQUE KEY class atnam.LOOP AT gt_makt INTO DATA(ls_makt)."第一种LV_CLASS的定义方法  DATA(lv_class) = 'C' && ls_makt-matkl.      "第二种LV_CLASS的定义方法，进行了类型转换  DATA(lv_class) = CONV klah-class( 'C' && ls_makt-matkl ).
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
TYPES:BEGIN OF ty_character,class TYPE klah-class, "分类编码atnam TYPE cabn-atnam, "特性编码atbez TYPE cabnt-atbez, "特性名称END OF ty_character.DATA: gt_character TYPE SORTED TABLE OF ty_character WITH NON-UNIQUE KEY class atnam.LOOP AT gt_makt INTO DATA(ls_makt)."第一种LV_CLASS的定义方法  DATA(lv_class) = 'C' && ls_makt-matkl.      "第二种LV_CLASS的定义方法，进行了类型转换  DATA(lv_class) = CONV klah-class( 'C' && ls_makt-matkl ).
/* ... 已截断，完整代码请查看原文 */
ABAP 效率优化批量读取长文本 
lt_text_headers = CORRESPONDING #( it_longtext[] ).  MODIFY lt_text_headers FROM VALUE #( tdspras = sy-langu ) TRANSPORTING tdspras WHERE tdspras = ''.
CALL FUNCTION 'READ_TEXT_TABLE'    IMPORTING      text_table   = lt_text_table    TABLES      text_headers = lt_text_headers.
查看完整代码 
lt_text_headers = CORRESPONDING #( it_longtext[] ).  MODIFY lt_text_headers FROM VALUE #( tdspras = sy-langu ) TRANSPORTING tdspras WHERE tdspras = ''.
CALL FUNCTION 'READ_TEXT_TABLE'    IMPORTING      text_table   = lt_text_table    TABLES      text_headers = lt_text_headers.
ABAP 效率优化批量读取长文本 
MOVE-CORRESPONDING <ls_text_table>-header TO it_longtext.    LOOP AT <ls_text_table>-lines ASSIGNING FIELD-SYMBOL(<ls_line>).      it_longtext-longtext = it_longtext-longtext && <ls_line>-tdline.    ENDLOOP.    APPEND it_longtext.  ENDLOOP.ENDFORM.
查看完整代码 
MOVE-CORRESPONDING <ls_text_table>-header TO it_longtext.    LOOP AT <ls_text_table>-lines ASSIGNING FIELD-SYMBOL(<ls_line>).      it_longtext-longtext = it_longtext-longtext && <ls_line>-tdline.    ENDLOOP.    APPEND it_longtext.  ENDLOOP.ENDFORM.
ABAP 查找数据库表内包含的特殊字符 
REPORT zcheckspecialhex NO STANDARD PAGE HEADING .
查看完整代码 
REPORT zcheckspecialhex NO STANDARD PAGE HEADING .
ABAP 查找数据库表内包含的特殊字符 
TABLES: dd02v,dd03l,tadir,sscrfields.
查看完整代码 
TABLES: dd02v,dd03l,tadir,sscrfields.
ABAP 查找数据库表内包含的特殊字符 
DATA: fldct  TYPE lvc_t_fcat WITH HEADER LINE,
查看完整代码 
DATA: fldct  TYPE lvc_t_fcat WITH HEADER LINE,
ABAP 查找数据库表内包含的特殊字符 
DATA: set_str TYPE string,
查看完整代码 
DATA: set_str TYPE string,
ABAP 查找数据库表内包含的特殊字符 
DATA: cxroot  TYPE REF TO cx_root,
查看完整代码 
DATA: cxroot  TYPE REF TO cx_root,
ABAP 查找数据库表内包含的特殊字符 
DATA: paraname  TYPE char40,
查看完整代码 
DATA: paraname  TYPE char40,
ABAP 查找数据库表内包含的特殊字符 
DATA: logtname TYPE tablename VALUE 'ZCSL'.
查看完整代码 
DATA: logtname TYPE tablename VALUE 'ZCSL'.
ABAP 查找数据库表内包含的特殊字符 
DATA: BEGIN OF wa_value ,
查看完整代码 
DATA: BEGIN OF wa_value ,
ABAP 查找数据库表内包含的特殊字符 
END OF wa_value.
查看完整代码 
END OF wa_value.
ABAP 查找数据库表内包含的特殊字符 
DATA: BEGIN OF it_flds OCCURS 0 ,
查看完整代码 
DATA: BEGIN OF it_flds OCCURS 0 ,
ABAP 查找数据库表内包含的特殊字符 
DATA: BEGIN OF wa_log,
查看完整代码 
DATA: BEGIN OF wa_log,
ABAP 查找数据库表内包含的特殊字符 
END OF wa_log.
查看完整代码 
END OF wa_log.
ABAP 查找数据库表内包含的特殊字符 
DATA: it_fkey LIKE TABLE OF it_flds WITH HEADER LINE.
查看完整代码 
DATA: it_fkey LIKE TABLE OF it_flds WITH HEADER LINE.
ABAP 查找数据库表内包含的特殊字符 
DATA: it_fnok LIKE TABLE OF it_flds WITH HEADER LINE.
查看完整代码 
DATA: it_fnok LIKE TABLE OF it_flds WITH HEADER LINE.
ABAP 查找数据库表内包含的特殊字符 
DATA: it_dd03 TYPE TABLE OF dd03p   WITH HEADER LINE.
查看完整代码 
DATA: it_dd03 TYPE TABLE OF dd03p   WITH HEADER LINE.
ABAP 查找数据库表内包含的特殊字符 
DATA: rf_tabl TYPE REF TO data,
查看完整代码 
DATA: rf_tabl TYPE REF TO data,
ABAP 查找数据库表内包含的特殊字符 
PARAMETERS: p_tname TYPE tabname16 MEMORY ID dtb .
查看完整代码 
PARAMETERS: p_tname TYPE tabname16 MEMORY ID dtb .
ABAP 查找数据库表内包含的特殊字符 
PARAMETERS: p_hchar TYPE char18 DEFAULT '0000'.
查看完整代码 
PARAMETERS: p_hchar TYPE char18 DEFAULT '0000'.
ABAP 查找数据库表内包含的特殊字符 
SELECTION-SCREEN COMMENT (30) ctxt3 FOR FIELD pr_rep MODIF ID a.
查看完整代码 
SELECTION-SCREEN COMMENT (30) ctxt3 FOR FIELD pr_rep MODIF ID a.
ABAP 查找数据库表内包含的特殊字符 
SELECTION-SCREEN COMMENT (14) ctxt6 FOR FIELD p_conv MODIF ID a.
查看完整代码 
SELECTION-SCREEN COMMENT (14) ctxt6 FOR FIELD p_conv MODIF ID a.
ABAP 查找数据库表内包含的特殊字符 
SELECTION-SCREEN COMMENT (12) ctxt5 FOR FIELD pr_clr MODIF ID a.
查看完整代码 
SELECTION-SCREEN COMMENT (12) ctxt5 FOR FIELD pr_clr MODIF ID a.
ABAP 查找数据库表内包含的特殊字符 
PARAMETERS: p_fval TYPE char255 .
查看完整代码 
PARAMETERS: p_fval TYPE char255 .
ABAP 查找数据库表内包含的特殊字符 
PARAMETERS: p_uptab TYPE tabname16 OBLIGATORY.
查看完整代码 
PARAMETERS: p_uptab TYPE tabname16 OBLIGATORY.
ABAP 查找数据库表内包含的特殊字符 
PARAMETERS: p_upfld TYPE fieldname VISIBLE LENGTH 10 OBLIGATORY .
查看完整代码 
PARAMETERS: p_upfld TYPE fieldname VISIBLE LENGTH 10 OBLIGATORY .
ABAP 查找数据库表内包含的特殊字符 
PARAMETERS: p_upval TYPE string VISIBLE LENGTH 24 LOWER CASE.
查看完整代码 
PARAMETERS: p_upval TYPE string VISIBLE LENGTH 24 LOWER CASE.
ABAP 查找数据库表内包含的特殊字符 
PARAMETERS: p_astxt AS CHECKBOX DEFAULT 'X'.
查看完整代码 
PARAMETERS: p_astxt AS CHECKBOX DEFAULT 'X'.
ABAP 查找数据库表内包含的特殊字符 
PARAMETERS: p_upwhe TYPE string LOWER CASE OBLIGATORY.
查看完整代码 
PARAMETERS: p_upwhe TYPE string LOWER CASE OBLIGATORY.
ABAP 查找数据库表内包含的特殊字符 
SELECT SINGLE ddtext INTO ctxtl
查看完整代码 
SELECT SINGLE ddtext INTO ctxtl
ABAP 查找数据库表内包含的特殊字符 
LOOP AT SCREEN.
查看完整代码 
LOOP AT SCREEN.
ABAP 查找数据库表内包含的特殊字符 
IF p_update = ''.
查看完整代码 
IF p_update = ''.
ABAP 查找数据库表内包含的特殊字符 
IF screen-group1 CA 'A'.
查看完整代码 
IF screen-group1 CA 'A'.
ABAP 查找数据库表内包含的特殊字符 
ENDIF.
查看完整代码 
ENDIF.
ABAP 查找数据库表内包含的特殊字符 
ENDIF.
查看完整代码 
ENDIF.
ABAP 查找数据库表内包含的特殊字符 
IF screen-name CS 'P_PROIND'.
查看完整代码 
IF screen-name CS 'P_PROIND'.
ABAP 查找数据库表内包含的特殊字符 
ENDIF.
查看完整代码 
ENDIF.
ABAP 查找数据库表内包含的特殊字符 
MODIFY SCREEN.
查看完整代码 
MODIFY SCREEN.
ABAP 查找数据库表内包含的特殊字符 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP 查找数据库表内包含的特殊字符 
IF sy-dynnr = '1100'.
查看完整代码 
IF sy-dynnr = '1100'.
ABAP 查找数据库表内包含的特殊字符 
LOOP AT SCREEN.
查看完整代码 
LOOP AT SCREEN.
ABAP 查找数据库表内包含的特殊字符 
MODIFY SCREEN.
查看完整代码 
MODIFY SCREEN.
ABAP 查找数据库表内包含的特殊字符 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP 查找数据库表内包含的特殊字符 
ENDIF.
查看完整代码 
ENDIF.
ABAP 查找数据库表内包含的特殊字符 
IF sy-dynnr = '1200'.
查看完整代码 
IF sy-dynnr = '1200'.
ABAP 查找数据库表内包含的特殊字符 
ENDIF.
查看完整代码 
ENDIF.
ABAP 查找数据库表内包含的特殊字符 
SELECT SINGLE * FROM tadir
查看完整代码 
SELECT SINGLE * FROM tadir
ABAP 查找数据库表内包含的特殊字符 
CALL FUNCTION 'POPUP_TO_CONFIRM'
查看完整代码 
CALL FUNCTION 'POPUP_TO_CONFIRM'
ABAP 查找数据库表内包含的特殊字符 
default_button = 'A'
查看完整代码 
default_button = 'A'
ABAP 查找数据库表内包含的特殊字符 
IF cflag <> '1'.
查看完整代码 
IF cflag <> '1'.
ABAP 查找数据库表内包含的特殊字符 
ENDIF.
查看完整代码 
ENDIF.
ABAP 查找数据库表内包含的特殊字符 
FORM checkinput.
查看完整代码 
FORM checkinput.
ABAP 查找数据库表内包含的特殊字符 
SELECT SINGLE * FROM dd02v WHERE tabname = logtname.
查看完整代码 
SELECT SINGLE * FROM dd02v WHERE tabname = logtname.
ABAP 查找数据库表内包含的特殊字符 
IF sy-subrc <> 0 AND p_update = 'X'.
查看完整代码 
IF sy-subrc <> 0 AND p_update = 'X'.
ABAP 查找数据库表内包含的特殊字符 
ENDIF.
查看完整代码 
ENDIF.
ABAP 查找数据库表内包含的特殊字符 
IF p_tname IS INITIAL.
查看完整代码 
IF p_tname IS INITIAL.
ABAP 查找数据库表内包含的特殊字符 
ENDIF.
查看完整代码 
ENDIF.
ABAP 查找数据库表内包含的特殊字符 
IF tmpint <> 0.
查看完整代码 
IF tmpint <> 0.
ABAP 查找数据库表内包含的特殊字符 
ENDIF.
查看完整代码 
ENDIF.
ABAP 查找数据库表内包含的特殊字符 
IF p_hchar CN '0123456789ABCDEF '.
查看完整代码 
IF p_hchar CN '0123456789ABCDEF '.
ABAP 树状导航程序的最后一次更新
查看代码
TABLES:zum1.CLASS lcl_receiver DEFINITION DEFERRED.DATA: go_container TYPE REF TO cl_gui_custom_container,      go_spliter   TYPE REF TO cl_gui_splitter_container,      go_cont_tree TYPE REF TO cl_gui_container,      go_cont_imag TYPE REF TO cl_gui_container,      go_tree      TYPE REF TO cl_gui_alv_tree,      go_grid      TYPE REF TO cl_gui_alv_grid,      go_dragdrop  TYPE REF TO cl_dragdrop,      go_toolbar   TYPE REF TO cl_gui_toolbar,      go_picture   TYPE REF TO cl_gui_picture,      
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
TABLES:zum1.CLASS lcl_receiver DEFINITION DEFERRED.DATA: go_container TYPE REF TO cl_gui_custom_container,      go_spliter   TYPE REF TO cl_gui_splitter_container,      go_cont_tree TYPE REF TO cl_gui_container,      go_cont_imag TYPE REF TO cl_gui_container,      go_tree      TYPE REF TO cl_gui_alv_tree,      go_grid      TYPE REF TO cl_gui_alv_grid,      go_dragdrop  TYPE REF TO cl_dragdrop,      go_toolbar   TYPE REF TO cl_gui_toolbar,      go_picture   TYPE REF TO cl_gui_picture,      
/* ... 已截断，完整代码请查看原文 */
ABAP 树状导航程序的最后一次更新
查看代码
SELECT-OPTIONS: s_nodid FOR zum1-nodid NO INTERVALS.SELECT-OPTIONS: s_exnod FOR zum1-nodid NO INTERVALS.PARAMETERS: p_objid TYPE w3objid DEFAULT 'ENJOYSAP_LOGO',            p_title TYPE cua_tit_tx DEFAULT '可配置树状导航'(t00),            p_auchk AS CHECKBOX DEFAULT 'X',            p_chang AS CHECKBOX DEFAULT 'X',            p_ddrop AS CHECKBOX DEFAULT 'X',            p_exall AS CHECKBOX DEFAULT 'X'.SELECTION-SCREEN SKIP.PARAMETERS var T
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
SELECT-OPTIONS: s_nodid FOR zum1-nodid NO INTERVALS.SELECT-OPTIONS: s_exnod FOR zum1-nodid NO INTERVALS.PARAMETERS: p_objid TYPE w3objid DEFAULT 'ENJOYSAP_LOGO',            p_title TYPE cua_tit_tx DEFAULT '可配置树状导航'(t00),            p_auchk AS CHECKBOX DEFAULT 'X',            p_chang AS CHECKBOX DEFAULT 'X',            p_ddrop AS CHECKBOX DEFAULT 'X',            p_exall AS CHECKBOX DEFAULT 'X'.SELECTION-SCREEN SKIP.PARAMETERS var T
/* ... 已截断，完整代码请查看原文 */
ABAP 正则匹配CL_ABAP_MATCHER类使用方法
查看代码
DATA(text) = '(240)1007712(10)0001212585(21)10'.REPLACE ALL OCCURRENCES OF ')' IN text WITH '-'.REPLACE ALL OCCURRENCES OF '(' IN text WITH '-'.SPLIT text AT '-' INTO DATA(lv_dummy1)                       DATA(lv_dummy2)                       DATA(lv_str1)                       DATA(lv_dummy3)                       DATA(lv_str2)                       DATA(lv_dummy4)                       DATA(lv_str3).cl_demo_output=>display( |
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA(text) = '(240)1007712(10)0001212585(21)10'.REPLACE ALL OCCURRENCES OF ')' IN text WITH '-'.REPLACE ALL OCCURRENCES OF '(' IN text WITH '-'.SPLIT text AT '-' INTO DATA(lv_dummy1)                       DATA(lv_dummy2)                       DATA(lv_str1)                       DATA(lv_dummy3)                       DATA(lv_str2)                       DATA(lv_dummy4)                       DATA(lv_str3).cl_demo_output=>display( |
/* ... 已截断，完整代码请查看原文 */
ABAP 正则匹配CL_ABAP_MATCHER类使用方法 
DATA(text) = '(240)1007712(10)0001212585(21)10'.DATA(regex) = '\(\w+\)(\w+)\(\w+\)(\w+)\(\w+\)(\w+)'.DATA(matcher) = cl_abap_regex=>create_pcre( pattern = regex     )->create_matcher( text = text ).IF matcher->match( ).  DATA(lv_str1) = matcher->get_submatch( 1 ).  DATA(lv_str2) = matcher->get_submatch( 2 ).  DATA(lv_str3) = matcher->get_submatch( 3 ).  cl_demo_output=>display( |str1:{ lv_str1 } str2:{ lv_str2 } str3:{ lv_str3 }| ).ENDIF.
查看完整代码 
DATA(text) = '(240)1007712(10)0001212585(21)10'.DATA(regex) = '\(\w+\)(\w+)\(\w+\)(\w+)\(\w+\)(\w+)'.DATA(matcher) = cl_abap_regex=>create_pcre( pattern = regex     )->create_matcher( text = text ).IF matcher->match( ).  DATA(lv_str1) = matcher->get_submatch( 1 ).  DATA(lv_str2) = matcher->get_submatch( 2 ).  DATA(lv_str3) = matcher->get_submatch( 3 ).  cl_demo_output=>display( |str1:{ lv_str1 } str2:{ lv_str2 } str3:{ lv_str3 }| ).ENDIF.
ABAP 物料主数据屏幕增强1自建表方式 
DATA:ls_rmmg1 TYPE rmmg1,       lv_matnr TYPE mara-matnr,       lv_werks TYPE marc-werks.
查看完整代码 
DATA:ls_rmmg1 TYPE rmmg1,       lv_matnr TYPE mara-matnr,       lv_werks TYPE marc-werks.
ABAP 物料主数据屏幕增强1自建表方式
查看代码
IF sy-tcode = 'MM02' OR sy-tcode = 'MM03'.    GET PARAMETER ID 'MAT' FIELD lv_matnr.    GET PARAMETER ID 'WRK' FIELD lv_werks.
IF lv_werks IS INITIAL.
"因工厂的参数ID获取不到，可以直接用指针方式获取      ASSIGN ('(SAPLMGD1)RMMG1') TO.      MOVE-CORRESPONDING TO ls_rmmg1 .      lv_werks = ls_rmmg1-werks.    ENDIF.    zmmt_marc01-matnr = lv_matnr.    zmmt_marc01-werks = lv_werks.    SELECT SINGLE      *    FROM zmmt_marc01    WHERE matnr = zmmt_marc01-matnr  
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
IF sy-tcode = 'MM02' OR sy-tcode = 'MM03'.    GET PARAMETER ID 'MAT' FIELD lv_matnr.    GET PARAMETER ID 'WRK' FIELD lv_werks.
IF lv_werks IS INITIAL.
"因工厂的参数ID获取不到，可以直接用指针方式获取      ASSIGN ('(SAPLMGD1)RMMG1') TO.      MOVE-CORRESPONDING TO ls_rmmg1 .      lv_werks = ls_rmmg1-werks.    ENDIF.    zmmt_marc01-matnr = lv_matnr.    zmmt_marc01-werks = lv_werks.    SELECT SINGLE      *    FROM zmmt_marc01    WHERE matnr = zmmt_marc01-matnr  
/* ... 已截断，完整代码请查看原文 */
ABAP 物料主数据屏幕增强2标准表方式 
LOOP AT SCREEN.    IF screen-name = 'MARC-ZGMP'.      IF marc-werks = '3060'."        screen-active = '1'.      ELSE.        screen-active = '0'.      ENDIF.      MODIFY SCREEN.    ENDIF.  ENDLOOP.ENDMODULE."--------------------@斌将军--------------------
查看完整代码 
LOOP AT SCREEN.    IF screen-name = 'MARC-ZGMP'.      IF marc-werks = '3060'."        screen-active = '1'.      ELSE.        screen-active = '0'.      ENDIF.      MODIFY SCREEN.    ENDIF.  ENDLOOP.ENDMODULE."--------------------@斌将军--------------------
ABAP 猜一猜SELECTMAX时数据不存在SUBRC是多少 
SELECT  MAX  (  zvalue  )  INTO  @DATA  (  lv_zvalue1  )  FROM  ysl01  WHERE
查看完整代码 
SELECT  MAX  (  zvalue  )  INTO  @DATA  (  lv_zvalue1  )  FROM  ysl01  WHERE
ABAP 猜一猜SELECTMAX时数据不存在SUBRC是多少 
DATA  (  lv_sy1  )  =  sy  .
查看完整代码 
DATA  (  lv_sy1  )  =  sy  .
ABAP 猜一猜SELECTMAX时数据不存在SUBRC是多少 
SELECT  MAX  (  zvalue  )  INTO  @DATA  (  lv_zvalue2  )  FROM  ysl01  WHERE
查看完整代码 
SELECT  MAX  (  zvalue  )  INTO  @DATA  (  lv_zvalue2  )  FROM  ysl01  WHERE
ABAP 猜一猜SELECTMAX时数据不存在SUBRC是多少 
DATA  (  lv_sy2  )  =  sy  .
查看完整代码 
DATA  (  lv_sy2  )  =  sy  .
ABAP 猜一猜SELECTMAX时数据不存在SUBRC是多少 
IF  <lv_value1> <> <lv_value2> .
查看完整代码 
IF  <lv_value1> <> <lv_value2> .
ABAP 猜一猜SELECTMAX时数据不存在SUBRC是多少 
DATA  (  lv_flag  )  =  'X'  .
ENDIF  .
ENDDO  .
查看完整代码 
DATA  (  lv_flag  )  =  'X'  .
ENDIF  .
ENDDO  .
ABAP 猜一猜SELECTMAX时数据不存在SUBRC是多少 
IF  lv_flag  =  ''  .
查看完整代码 
IF  lv_flag  =  ''  .
ABAP 猜一猜SELECTMAX时数据不存在SUBRC是多少 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP 猜一猜SELECTMAX时数据不存在SUBRC是多少 
SELECT  SINGLE  zvalue  INTO  @DATA  (  lv_zvalue2  )
查看完整代码 
SELECT  SINGLE  zvalue  INTO  @DATA  (  lv_zvalue2  )
ABAP 生产订单修改记录报表
查看代码
FUNCTION zpp_co02_log.*"----------------------------------------------------------------------*"*"本地接口：*"  TABLES*"      HEADER_TABLE STRUCTURE  CAUFVDB*"      HEADER_TABLE_OLD STRUCTURE  CAUFVDB*"      POSITION_TABLE STRUCTURE  AFPOB*"      POSITION_TABLE_OLD STRUCTURE  AAFPO*"      SEQUENCE_TABLE STRUCTURE  AFFLB*"      SEQUENCE_TABLE_OLD STRUCTURE  AAFFL*"      OPERATION_TABLE STRUCTURE  AFVGB*"      OPERATION_TABLE_OLD_AFVC ST
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
FUNCTION zpp_co02_log.*"----------------------------------------------------------------------*"*"本地接口：*"  TABLES*"      HEADER_TABLE STRUCTURE  CAUFVDB*"      HEADER_TABLE_OLD STRUCTURE  CAUFVDB*"      POSITION_TABLE STRUCTURE  AFPOB*"      POSITION_TABLE_OLD STRUCTURE  AAFPO*"      SEQUENCE_TABLE STRUCTURE  AFFLB*"      SEQUENCE_TABLE_OLD STRUCTURE  AAFFL*"      OPERATION_TABLE STRUCTURE  AFVGB*"      OPERATION_TABLE_OLD_AFVC ST
/* ... 已截断，完整代码请查看原文 */
ABAP 生产订单相关增强
查看代码
"-----------------------------------------@斌将军--------------------------------------------IF gv_activity = 'X'.    DATA:lt_list TYPE vrm_values,         ls_list TYPE vrm_value.
SELECT      werks,"工厂      zlxbs,"订单类型      zlxbsms"订单类型文本 (30 个字符)    FROM zXX    INTO TABLE @DATA(lt_ddlx)    WHERE werks = @gv_werks.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
"-----------------------------------------@斌将军--------------------------------------------IF gv_activity = 'X'.    DATA:lt_list TYPE vrm_values,         ls_list TYPE vrm_value.
SELECT      werks,"工厂      zlxbs,"订单类型      zlxbsms"订单类型文本 (30 个字符)    FROM zXX    INTO TABLE @DATA(lt_ddlx)    WHERE werks = @gv_werks.
/* ... 已截断，完整代码请查看原文 */
ABAP 生产订单相关增强
查看代码
READ TABLE CAUFVTA INDEX 1.IF CAUFVTA-WERKS = 'XXXX'.  IF AFVGTAB[] IS NOT INITIAL.    SELECT      OBJTY,"资源的对象类型      OBJID,"资源的对象 ID      ARBPL"工作中心    FROM CRHD    INTO TABLE @DATA(LT_CRHD)    FOR ALL ENTRIES IN @AFVGTAB    WHERE OBJID = @AFVGTAB-ARBID.
IF LT_CRHD IS NOT INITIAL.    "获取配置表对应的库存地点      SELECT        *      FROM ZXXX      INTO TABLE @DATA(LT_XBC)      FOR ALL ENTRIES IN @LT_CRHD      WHERE ARBPL = @LT_CRHD-ARBPL        AND WERKS = @CAUFVTA-WE
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
READ TABLE CAUFVTA INDEX 1.IF CAUFVTA-WERKS = 'XXXX'.  IF AFVGTAB[] IS NOT INITIAL.    SELECT      OBJTY,"资源的对象类型      OBJID,"资源的对象 ID      ARBPL"工作中心    FROM CRHD    INTO TABLE @DATA(LT_CRHD)    FOR ALL ENTRIES IN @AFVGTAB    WHERE OBJID = @AFVGTAB-ARBID.
IF LT_CRHD IS NOT INITIAL.    "获取配置表对应的库存地点      SELECT        *      FROM ZXXX      INTO TABLE @DATA(LT_XBC)      FOR ALL ENTRIES IN @LT_CRHD      WHERE ARBPL = @LT_CRHD-ARBPL        AND WERKS = @CAUFVTA-WE
/* ... 已截断，完整代码请查看原文 */
ABAP 维护视图使用介绍
查看代码
METHOD add_audit.    FIELD-SYMBOLS:<fs> TYPE any.    ASSIGN COMPONENT 'ERNAM' OF STRUCTURE cs_data TO <fs>.    IF sy-subrc = 0 AND <fs> IS INITIAL.      <fs> = sy-uname.      ASSIGN COMPONENT 'ERDAT' OF STRUCTURE cs_data TO <fs>.      IF sy-subrc = 0.        <fs> = sy-datum.      ENDIF.      ASSIGN COMPONENT 'ERZET' OF STRUCTURE cs_data TO <fs>.      IF sy-subrc = 0.        <fs> = sy-uzeit.      ENDIF.    ELSE.  
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
METHOD add_audit.    FIELD-SYMBOLS:<fs> TYPE any.    ASSIGN COMPONENT 'ERNAM' OF STRUCTURE cs_data TO <fs>.    IF sy-subrc = 0 AND <fs> IS INITIAL.      <fs> = sy-uname.      ASSIGN COMPONENT 'ERDAT' OF STRUCTURE cs_data TO <fs>.      IF sy-subrc = 0.        <fs> = sy-datum.      ENDIF.      ASSIGN COMPONENT 'ERZET' OF STRUCTURE cs_data TO <fs>.      IF sy-subrc = 0.        <fs> = sy-uzeit.      ENDIF.    ELSE.  
/* ... 已截断，完整代码请查看原文 */
ABAP 维护视图使用介绍
查看代码
CALL FUNCTION 'VIEW_MAINTENANCE_CALL'      EXPORTING        action                       = 'S'        view_name                    = 'V_TCURR'*      TABLES*        dba_sellist                  = dba_sellist      EXCEPTIONS        client_reference             = 1        foreign_lock                 = 2        invalid_action               = 3        no_clientindependent_auth    = 4        no_database_function         = 5        no_editor_function           = 6  
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
CALL FUNCTION 'VIEW_MAINTENANCE_CALL'      EXPORTING        action                       = 'S'        view_name                    = 'V_TCURR'*      TABLES*        dba_sellist                  = dba_sellist      EXCEPTIONS        client_reference             = 1        foreign_lock                 = 2        invalid_action               = 3        no_clientindependent_auth    = 4        no_database_function         = 5        no_editor_function           = 6  
/* ... 已截断，完整代码请查看原文 */
ABAP 维护视图使用介绍 
DATA:lt_dba_sellist TYPE STANDARD TABLE OF vimsellist,       ls_dba_sellist TYPE vimsellist.
CALL FUNCTION 'VIEW_RANGETAB_TO_SELLIST'      EXPORTING        fieldname          = 'GDATU'        append_conjunction = 'AND'      TABLES        sellist            = lt_dba_sellist        rangetab           = s_GDATU.  E
查看完整代码 
DATA:lt_dba_sellist TYPE STANDARD TABLE OF vimsellist,       ls_dba_sellist TYPE vimsellist.
CALL FUNCTION 'VIEW_RANGETAB_TO_SELLIST'      EXPORTING        fieldname          = 'GDATU'        append_conjunction = 'AND'      TABLES        sellist            = lt_dba_sellist        rangetab           = s_GDATU.  E
ABAP 聊聊SAP内存和ABAP内存 
lv_matnr = '2000000585'.
查看完整代码 
lv_matnr = '2000000585'.
ABAP 聊聊更新表时的隐式提交 
ls_091-werks = '1001'.
MODIFY ztsd0091 FROM ls_091.
IF sy-subrc EQ 0.
ENDIF."--------------------@斌将军--------------------
查看完整代码 
ls_091-werks = '1001'.
MODIFY ztsd0091 FROM ls_091.
IF sy-subrc EQ 0.
ENDIF."--------------------@斌将军--------------------
ABAP 自开发表变更历史记录 
TYPES:tt_changenr TYPE STANDARD TABLE OF cdhdr-changenr WITH EMPTY KEY.
查看完整代码 
TYPES:tt_changenr TYPE STANDARD TABLE OF cdhdr-changenr WITH EMPTY KEY.
ABAP 自开发表变更历史记录 
METHOD save_multi.    CHECK it_ztmara[] IS NOT INITIAL.    SORT it_ztmara BY matnr.    DELETE ADJACENT DUPLICATES FROM it_ztmara COMPARING matnr.    LOOP AT it_ztmara INTO DATA(ls_ztmara).      DATA(rv_changenr) = save_single( ls_ztmara ).      IF rv_changenr IS NOT INITIAL.        APPEND rv_changenr TO rt_changenr.      ENDIF.      CLEAR rv_changenr.    ENDLOOP.  ENDMETHOD.
查看完整代码 
METHOD save_multi.    CHECK it_ztmara[] IS NOT INITIAL.    SORT it_ztmara BY matnr.    DELETE ADJACENT DUPLICATES FROM it_ztmara COMPARING matnr.    LOOP AT it_ztmara INTO DATA(ls_ztmara).      DATA(rv_changenr) = save_single( ls_ztmara ).      IF rv_changenr IS NOT INITIAL.        APPEND rv_changenr TO rt_changenr.      ENDIF.      CLEAR rv_changenr.    ENDLOOP.  ENDMETHOD.
ABAP 自开发表变更历史记录 
METHOD save_single.    "  Code snippets to be used with COPY+PASTE    "  uncomment the needed parts    "  change names if needed
查看完整代码 
METHOD save_single.    "  Code snippets to be used with COPY+PASTE    "  uncomment the needed parts    "  change names if needed
ABAP 自开发表变更历史记录 
" Begin of dynamic DATA part for class ZCL_ZTMARA_CHDO    "   table with the NEW content of: ZTMARA    DATA xztmara TYPE zcl_ztmara_chdo=>tt_ztmara.    "   table with the OLD content of: ZTMARA    DATA yztmara TYPE zcl_ztmara_chdo=>tt_ztmara.    "   change indicator for table: ZTMARA    DATA upd_ztmara TYPE if_chdo_object_tools_rel=>ty_cdchngindh.
"     Change Number of Document    DATA changenumber TYPE if_chdo_object_tools_rel=>ty_cdchangenr.
查看完整代码 
" Begin of dynamic DATA part for class ZCL_ZTMARA_CHDO    "   table with the NEW content of: ZTMARA    DATA xztmara TYPE zcl_ztmara_chdo=>tt_ztmara.    "   table with the OLD content of: ZTMARA    DATA yztmara TYPE zcl_ztmara_chdo=>tt_ztmara.    "   change indicator for table: ZTMARA    DATA upd_ztmara TYPE if_chdo_object_tools_rel=>ty_cdchngindh.
"     Change Number of Document    DATA changenumber TYPE if_chdo_object_tools_rel=>ty_cdchangenr.
ABAP 自开发表变更历史记录
查看代码
*----------------- 这部分为自己新增逻辑 BEGIN------------------*    CHECK is_ztmara IS NOT INITIAL.    DATA ls_yztmara TYPE ztmara.    objectid = is_ztmara-matnr.    tcode = sy-tcode.    utime = sy-uzeit.    udate = sy-datum.    username = sy-uname.*   查原记录    SELECT SINGLE *        INTO ls_yztmara        FROM ztmara        WHERE matnr = is_ztmara-matnr.    upd_ztmara = COND #( WHEN is_ztmara-kz IS NOT INITIAL THEN is_ztmara-kz WHEN sy-subrc = 0 THEN 'U' ELSE 'I' ).    "添加新记
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
*----------------- 这部分为自己新增逻辑 BEGIN------------------*    CHECK is_ztmara IS NOT INITIAL.    DATA ls_yztmara TYPE ztmara.    objectid = is_ztmara-matnr.    tcode = sy-tcode.    utime = sy-uzeit.    udate = sy-datum.    username = sy-uname.*   查原记录    SELECT SINGLE *        INTO ls_yztmara        FROM ztmara        WHERE matnr = is_ztmara-matnr.    upd_ztmara = COND #( WHEN is_ztmara-kz IS NOT INITIAL THEN is_ztmara-kz WHEN sy-subrc = 0 THEN 'U' ELSE 'I' ).    "添加新记
/* ... 已截断，完整代码请查看原文 */
ABAP 自开发表变更历史记录
查看代码
REPORT ztestchdo.DATA lt_ztmara TYPE STANDARD TABLE OF ztmara.DATA ls_ztmara TYPE ztmara.lt_ztmara = VALUE #( (  matnr = 'M001RS' color = '红' size1 = 'S' ztag_price = '100' )                     (  matnr = 'M001RM' color = '红' size1 = 'M' ztag_price = '100' )                     (  matnr = 'M001RL' color = '红' size1 = 'L' ztag_price = '100' ) ).
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
REPORT ztestchdo.DATA lt_ztmara TYPE STANDARD TABLE OF ztmara.DATA ls_ztmara TYPE ztmara.lt_ztmara = VALUE #( (  matnr = 'M001RS' color = '红' size1 = 'S' ztag_price = '100' )                     (  matnr = 'M001RM' color = '红' size1 = 'M' ztag_price = '100' )                     (  matnr = 'M001RL' color = '红' size1 = 'L' ztag_price = '100' ) ).
/* ... 已截断，完整代码请查看原文 */
ABAP 自适应的销售价格查询程序 
REPORT zgetsdprice NO STANDARD PAGE HEADING.
查看完整代码 
REPORT zgetsdprice NO STANDARD PAGE HEADING.
ABAP 自适应的销售价格查询程序 
TABLES: sscrfields,komg,tvko,dfies,komk,komp,komv,konp.
查看完整代码 
TABLES: sscrfields,komg,tvko,dfies,komk,komp,komv,konp.
ABAP 自适应的销售价格查询程序 
DATA: fldct TYPE lvc_t_fcat WITH HEADER LINE,
查看完整代码 
DATA: fldct TYPE lvc_t_fcat WITH HEADER LINE,
ABAP 自适应的销售价格查询程序 
DATA: BEGIN OF dfaultkey,
查看完整代码 
DATA: BEGIN OF dfaultkey,
ABAP 自适应的销售价格查询程序 
DATA: BEGIN OF it_t682 OCCURS 0,
查看完整代码 
DATA: BEGIN OF it_t682 OCCURS 0,
ABAP 自适应的销售价格查询程序 
DATA: BEGIN OF it_kschl OCCURS 0,
查看完整代码 
DATA: BEGIN OF it_kschl OCCURS 0,
ABAP 自适应的销售价格查询程序 
DATA: BEGIN OF it_kotab OCCURS 0,
查看完整代码 
DATA: BEGIN OF it_kotab OCCURS 0,
ABAP 自适应的销售价格查询程序 
DATA: BEGIN OF it_zifna OCCURS 0,
查看完整代码 
DATA: BEGIN OF it_zifna OCCURS 0,
ABAP 自适应的销售价格查询程序 
DATA: BEGIN OF it_tabs OCCURS 0,
查看完整代码 
DATA: BEGIN OF it_tabs OCCURS 0,
ABAP 自适应的销售价格查询程序 
DATA: BEGIN OF it_lstbox1 OCCURS 0,
查看完整代码 
DATA: BEGIN OF it_lstbox1 OCCURS 0,
ABAP 自适应的销售价格查询程序 
DATA: it_lstbox2 LIKE TABLE OF it_lstbox1 WITH HEADER LINE.
查看完整代码 
DATA: it_lstbox2 LIKE TABLE OF it_lstbox1 WITH HEADER LINE.
ABAP 自适应的销售价格查询程序 
DATA: stable TYPE TABLE OF rsparams WITH HEADER LINE.
查看完整代码 
DATA: stable TYPE TABLE OF rsparams WITH HEADER LINE.
ABAP 自适应的销售价格查询程序 
DATA: it_komv TYPE TABLE OF komv WITH HEADER LINE,
查看完整代码 
DATA: it_komv TYPE TABLE OF komv WITH HEADER LINE,
ABAP 自适应的销售价格查询程序 
DATA: BEGIN OF it_cdhdr OCCURS 0,
查看完整代码 
DATA: BEGIN OF it_cdhdr OCCURS 0,
ABAP 自适应的销售价格查询程序 
DATA: BEGIN OF it_knumh OCCURS 0,
查看完整代码 
DATA: BEGIN OF it_knumh OCCURS 0,
ABAP 自适应的销售价格查询程序 
DATA: BEGIN OF it_makt OCCURS 0,
查看完整代码 
DATA: BEGIN OF it_makt OCCURS 0,
ABAP 自适应的销售价格查询程序 
DATA: hs_makt LIKE HASHED TABLE OF it_makt
查看完整代码 
DATA: hs_makt LIKE HASHED TABLE OF it_makt
ABAP 自适应的销售价格查询程序 
DATA: BEGIN OF it_tvkot OCCURS 0,
查看完整代码 
DATA: BEGIN OF it_tvkot OCCURS 0,
ABAP 自适应的销售价格查询程序 
DATA: hs_tvkot LIKE HASHED TABLE OF it_tvkot
查看完整代码 
DATA: hs_tvkot LIKE HASHED TABLE OF it_tvkot
ABAP 自适应的销售价格查询程序 
DATA: BEGIN OF it_kna1 OCCURS 0,
查看完整代码 
DATA: BEGIN OF it_kna1 OCCURS 0,
ABAP 自适应的销售价格查询程序 
DATA: hs_kna1 LIKE HASHED TABLE OF it_kna1
查看完整代码 
DATA: hs_kna1 LIKE HASHED TABLE OF it_kna1
ABAP 自适应的销售价格查询程序 
DATA: rf_kotab TYPE REF TO data.
查看完整代码 
DATA: rf_kotab TYPE REF TO data.
ABAP 自适应的销售价格查询程序 
DATA: rf_out    TYPE REF TO data,
查看完整代码 
DATA: rf_out    TYPE REF TO data,
ABAP 自适应的销售价格查询程序 
DATA: flag,
查看完整代码 
DATA: flag,
ABAP 自适应的销售价格查询程序 
PARAMETERS: d_kschl TYPE kschl AS LISTBOX VISIBLE LENGTH 18.
查看完整代码 
PARAMETERS: d_kschl TYPE kschl AS LISTBOX VISIBLE LENGTH 18.
ABAP 自适应的销售价格查询程序 
PARAMETERS: d_konm  AS CHECKBOX .
查看完整代码 
PARAMETERS: d_konm  AS CHECKBOX .
ABAP 自适应的销售价格查询程序 
PARAMETERS: d_cdhdr AS CHECKBOX .
查看完整代码 
PARAMETERS: d_cdhdr AS CHECKBOX .
ABAP 自适应的销售价格查询程序 
PARAMETERS: p_kschl TYPE kschl AS LISTBOX VISIBLE LENGTH 18 OBLIGATORY USER-COMMAND ucomm1,
查看完整代码 
PARAMETERS: p_kschl TYPE kschl AS LISTBOX VISIBLE LENGTH 18 OBLIGATORY USER-COMMAND ucomm1,
ABAP 自适应的销售价格查询程序 
SELECT-OPTIONS datbi   FOR komg-sdate NO-EXTENSION DEFAULT sy-datum TO sy-datum.
查看完整代码 
SELECT-OPTIONS datbi   FOR komg-sdate NO-EXTENSION DEFAULT sy-datum TO sy-datum.
ABAP 自适应的销售价格查询程序 
PARAMETERS: p_konm  AS CHECKBOX DEFAULT 'X'.
查看完整代码 
PARAMETERS: p_konm  AS CHECKBOX DEFAULT 'X'.
ABAP 自适应的销售价格查询程序 
PARAMETERS: p_cdhdr AS CHECKBOX .
查看完整代码 
PARAMETERS: p_cdhdr AS CHECKBOX .
ABAP 自适应的销售价格查询程序 
CALL FUNCTION 'RS_REFRESH_FROM_SELECTOPTIONS'
查看完整代码 
CALL FUNCTION 'RS_REFRESH_FROM_SELECTOPTIONS'
ABAP 自适应的销售价格查询程序 
IF sy-subrc <> 0.
查看完整代码 
IF sy-subrc <> 0.
ABAP 自适应的销售价格查询程序 
ENDIF.
查看完整代码 
ENDIF.
ABAP 自适应的销售价格查询程序 
LOOP AT it_zifna.
查看完整代码 
LOOP AT it_zifna.
ABAP 自适应的销售价格查询程序 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP 自适应的销售价格查询程序 
CALL FUNCTION 'VRM_SET_VALUES'
查看完整代码 
CALL FUNCTION 'VRM_SET_VALUES'
ABAP 自适应的销售价格查询程序 
CALL FUNCTION 'VRM_SET_VALUES'
查看完整代码 
CALL FUNCTION 'VRM_SET_VALUES'
ABAP 自适应的销售价格查询程序 
CALL FUNCTION 'VRM_SET_VALUES'
查看完整代码 
CALL FUNCTION 'VRM_SET_VALUES'
ABAP 自适应的销售价格查询程序 
LOOP AT SCREEN.
查看完整代码 
LOOP AT SCREEN.
ABAP 自适应的销售价格查询程序 
LOOP AT it_zifna.
查看完整代码 
LOOP AT it_zifna.
ABAP 自适应的销售价格查询程序 
IF screen-name CS it_zifna-zifna .
查看完整代码 
IF screen-name CS it_zifna-zifna .
ABAP 自适应的销售价格查询程序 
ENDIF.
查看完整代码 
ENDIF.
ABAP 自适应的销售价格查询程序 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP 自适应的销售价格查询程序 
IF flag <> 'X'.
查看完整代码 
IF flag <> 'X'.
ABAP 自适应的销售价格查询程序 
MODIFY SCREEN.
查看完整代码 
MODIFY SCREEN.
ABAP 自适应的销售价格查询程序 
ENDIF.
查看完整代码 
ENDIF.
ABAP 自适应的销售价格查询程序 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP 自适应的销售价格查询程序 
FORM get_kotab.
查看完整代码 
FORM get_kotab.
ABAP 自适应的销售价格查询程序 
SELECT t685~kschl
查看完整代码 
SELECT t685~kschl
ABAP 自适应的销售价格查询程序 
LOOP AT it_t682.
查看完整代码 
LOOP AT it_t682.
ABAP 自适应的销售价格查询程序 
MODIFY it_t682.
查看完整代码 
MODIFY it_t682.
ABAP 自适应的销售价格查询程序 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP 自适应的销售价格查询程序 
LOOP AT it_kschl.
查看完整代码 
LOOP AT it_kschl.
ABAP 自适应的销售价格查询程序 
IF sy-subrc <> 0.
查看完整代码 
IF sy-subrc <> 0.
ABAP 自适应的销售价格查询程序 
ENDIF.
查看完整代码 
ENDIF.
ABAP 自适应的销售价格查询程序 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP 自适应的销售价格查询程序 
ENDFORM.                    "get_kotab
查看完整代码 
ENDFORM.                    "get_kotab
ABAP 自适应的销售价格查询程序 
FORM fill_listbox USING method.
查看完整代码 
FORM fill_listbox USING method.
ABAP 自适应的销售价格查询程序 
IF method CS 'A'.
查看完整代码 
IF method CS 'A'.
ABAP 自适应的销售价格查询程序 
LOOP AT it_kschl.
查看完整代码 
LOOP AT it_kschl.
ABAP 自适应的销售价格查询程序 
IF p_kschl = ''.
查看完整代码 
IF p_kschl = ''.
ABAP 自适应的销售价格查询程序 
ENDIF.
查看完整代码 
ENDIF.
ABAP 自适应的销售价格查询程序 
IF it_kschl-kschl = d_kschl .
查看完整代码 
IF it_kschl-kschl = d_kschl .
ABAP 自适应的销售价格查询程序 
ENDIF.
查看完整代码 
ENDIF.
ABAP 自适应的销售价格查询程序 
APPEND it_lstbox1.
查看完整代码 
APPEND it_lstbox1.
ABAP 自适应的销售价格查询程序 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP 自适应的销售价格查询程序 
ENDIF.
查看完整代码 
ENDIF.
ABAP 自适应的销售价格查询程序 
IF method CS 'B'.
查看完整代码 
IF method CS 'B'.
ABAP 自适应的销售价格查询程序 
LOOP AT it_kotab WHERE kschl = p_kschl.
查看完整代码 
LOOP AT it_kotab WHERE kschl = p_kschl.
ABAP 自适应的销售价格查询程序 
IF p_kotab IS INITIAL.
查看完整代码 
IF p_kotab IS INITIAL.
ABAP 自适应的销售价格查询程序 
ENDIF.
查看完整代码 
ENDIF.
ABAP 自适应的销售价格查询程序 
APPEND it_lstbox2.
查看完整代码 
APPEND it_lstbox2.
ABAP 自适应的销售价格查询程序 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP 自适应的销售价格查询程序 
ENDIF.
查看完整代码 
ENDIF.
ABAP 自适应的销售价格查询程序 
IF method CS 'C'.
查看完整代码 
IF method CS 'C'.
ABAP 自适应的销售价格查询程序 
IF p_kotab = ''.
查看完整代码 
IF p_kotab = ''.
ABAP 自适应的销售价格查询程序 
LOOP AT it_t682 WHERE kschl = p_kschl .
查看完整代码 
LOOP AT it_t682 WHERE kschl = p_kschl .
ABAP 自适应的销售价格查询程序 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP 自适应的销售价格查询程序 
LOOP AT it_t682 WHERE kschl = p_kschl AND
查看完整代码 
LOOP AT it_t682 WHERE kschl = p_kschl AND
ABAP 自适应的销售价格查询程序 
APPEND it_t682-zifna TO it_zifna.
查看完整代码 
APPEND it_t682-zifna TO it_zifna.
ABAP 自适应的销售价格查询程序 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP 自适应的销售价格查询程序 
ENDIF.
查看完整代码 
ENDIF.
ABAP 自适应的销售价格查询程序 
ENDIF.
查看完整代码 
ENDIF.
ABAP 自适应的销售价格查询程序 
ENDFORM.                    "fill_listbox
查看完整代码 
ENDFORM.                    "fill_listbox
ABAP 自适应的销售价格查询程序 
FORM create_itab.
查看完整代码 
FORM create_itab.
ABAP 自适应的销售价格查询程序 
IF p_kotab = ''.
查看完整代码 
IF p_kotab = ''.
ABAP 自适应的销售价格查询程序 
LOOP AT it_t682 WHERE kschl = p_kschl .
查看完整代码 
LOOP AT it_t682 WHERE kschl = p_kschl .
ABAP 自适应的销售价格查询程序 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP 自适应的销售价格查询程序 
LOOP AT it_t682 WHERE kschl = p_kschl AND
查看完整代码 
LOOP AT it_t682 WHERE kschl = p_kschl AND
ABAP 自适应的销售价格查询程序 
APPEND it_t682-zifna TO it_zifna.
查看完整代码 
APPEND it_t682-zifna TO it_zifna.
ABAP 自适应的销售价格查询程序 
ENDLOOP.
查看完整代码 
ENDLOOP.
ABAP 自适应的销售价格查询程序 
ENDIF.
查看完整代码 
ENDIF.
ABAP 获取SM12锁列表
查看代码
DATA: gt_list TYPE if_enq_admin=>lock_list."DATA(go_admin) = NEW cl_enq_admin( iv_restrictions = '' ) ##NEEDED.go_admin->if_enq_admin~get_locks(         EXPORTING           iv_process_type   = if_enq_admin=>type_server           iv_name           = ``           iv_argument       = ``           iv_client         = CONV #( sy-mandt )           iv_username       = ``           iv_owner          = `*`           iv_max_entries    = 100000         IMPORTING           et_l
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA: gt_list TYPE if_enq_admin=>lock_list."DATA(go_admin) = NEW cl_enq_admin( iv_restrictions = '' ) ##NEEDED.go_admin->if_enq_admin~get_locks(         EXPORTING           iv_process_type   = if_enq_admin=>type_server           iv_name           = ``           iv_argument       = ``           iv_client         = CONV #( sy-mandt )           iv_username       = ``           iv_owner          = `*`           iv_max_entries    = 100000         IMPORTING           et_l
/* ... 已截断，完整代码请查看原文 */
ABAP 获取标准报表CJI3的ALV数据 
TYPES:BEGIN OF ty_alv,        objid  TYPE kaep_coac-objid,"编辑的格式中的对象        wtgbtr TYPE kaep_coac-wtgbtr,"交易货币中的总值      END OF ty_alv.
查看完整代码 
TYPES:BEGIN OF ty_alv,        objid  TYPE kaep_coac-objid,"编辑的格式中的对象        wtgbtr TYPE kaep_coac-wtgbtr,"交易货币中的总值      END OF ty_alv.
ABAP 获取标准报表CJI3的ALV数据 
DATA:lt_alv TYPE TABLE OF ty_alv,     ls_alv TYPE ty_alv.
查看完整代码 
DATA:lt_alv TYPE TABLE OF ty_alv,     ls_alv TYPE ty_alv.
ABAP 获取标准报表CJI3的ALV数据 
"运行时不显示，只获取ALV数据cl_salv_bs_runtime_info=>set( display = abap_false                              metadata = abap_false                              data  = abap_true ).
查看完整代码 
"运行时不显示，只获取ALV数据cl_salv_bs_runtime_info=>set( display = abap_false                              metadata = abap_false                              data  = abap_true ).
ABAP 获取标准报表CJI3的ALV数据 
TRY .    cl_salv_bs_runtime_info=>get_data_ref("获取数据      IMPORTING r_data = ls_cji3 ).
查看完整代码 
TRY .    cl_salv_bs_runtime_info=>get_data_ref("获取数据      IMPORTING r_data = ls_cji3 ).
ABAP 获取标准报表CJI3的ALV数据 
CATCH  cx_salv_bs_sc_runtime_info.    MESSAGE '无法获取ALV数据' TYPE  'E'.ENDTRY.
cl_salv_bs_runtime_info=>clear_all( ).
查看完整代码 
CATCH  cx_salv_bs_sc_runtime_info.    MESSAGE '无法获取ALV数据' TYPE  'E'.ENDTRY.
cl_salv_bs_runtime_info=>clear_all( ).
ABAP 获取销售订单定价条件
查看代码
REPORT ztest.TYPE-POOLS: slis.DATA: ls_komk TYPE komk,      ls_komp TYPE komp,      lt_komv TYPE STANDARD TABLE OF komv,      ls_knvv TYPE knvv.DATA:  lv_kalvg TYPE tvak-kalvg.DATA: lv_auart  TYPE vbak-auart,      lv_vkorg  TYPE vbak-vkorg,      lv_vtweg  TYPE vbak-vtweg,      lv_spart  TYPE vbak-spart,      lv_kunnr  TYPE vbak-kunnr,      lv_matnr  TYPE vbap-matnr,      lv_werks  TYPE vbap-werks,      lv_kwmeng TYPE vbap-kwmeng.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
REPORT ztest.TYPE-POOLS: slis.DATA: ls_komk TYPE komk,      ls_komp TYPE komp,      lt_komv TYPE STANDARD TABLE OF komv,      ls_knvv TYPE knvv.DATA:  lv_kalvg TYPE tvak-kalvg.DATA: lv_auart  TYPE vbak-auart,      lv_vkorg  TYPE vbak-vkorg,      lv_vtweg  TYPE vbak-vtweg,      lv_spart  TYPE vbak-spart,      lv_kunnr  TYPE vbak-kunnr,      lv_matnr  TYPE vbap-matnr,      lv_werks  TYPE vbap-werks,      lv_kwmeng TYPE vbap-kwmeng.
/* ... 已截断，完整代码请查看原文 */
ABAP 获取销售订单定价条件
查看代码
METHOD pricing_so.    DATA: ls_komk TYPE komk,          ls_komp TYPE komp,          lt_komv TYPE STANDARD TABLE OF komv,          ls_knvv TYPE knvv.    DATA:      lv_kalvg TYPE tvak-kalvg.
"销售组织对应的公司代码    SELECT SINGLE bukrs INTO @ls_komk-bukrs FROM tvko WHERE vkorg =  @iv_vkorg.    "根据订单类型获取用于定价过程确定的凭证分类    SELECT SINGLE kalvg INTO @lv_kalvg FROM tvak WHERE auart = @iv_auart.    "根据客户和销售范围获取用于定价过程确定的客户分类/客户组/客户价格组    SELECT SINGLE * INTO @ls_knvv FROM knvv      WHERE kunnr 
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
METHOD pricing_so.    DATA: ls_komk TYPE komk,          ls_komp TYPE komp,          lt_komv TYPE STANDARD TABLE OF komv,          ls_knvv TYPE knvv.    DATA:      lv_kalvg TYPE tvak-kalvg.
"销售组织对应的公司代码    SELECT SINGLE bukrs INTO @ls_komk-bukrs FROM tvko WHERE vkorg =  @iv_vkorg.    "根据订单类型获取用于定价过程确定的凭证分类    SELECT SINGLE kalvg INTO @lv_kalvg FROM tvak WHERE auart = @iv_auart.    "根据客户和销售范围获取用于定价过程确定的客户分类/客户组/客户价格组    SELECT SINGLE * INTO @ls_knvv FROM knvv      WHERE kunnr 
/* ... 已截断，完整代码请查看原文 */
ABAP 获取销售订单定价条件 
lt_komv = zcl_common=>pricing_so( iv_auart = lv_auart                                  iv_kunnr = lv_kunnr                                  iv_vkorg = lv_vkorg                                  iv_vtweg = lv_vtweg                                  iv_spart = lv_spart                                  iv_matnr = lv_matnr                                  iv_werks = lv_werks                                   ).
查看完整代码 
lt_komv = zcl_common=>pricing_so( iv_auart = lv_auart                                  iv_kunnr = lv_kunnr                                  iv_vkorg = lv_vkorg                                  iv_vtweg = lv_vtweg                                  iv_spart = lv_spart                                  iv_matnr = lv_matnr                                  iv_werks = lv_werks                                   ).
ABAP 获取长文本二三事
查看代码
TYPES:BEGIN OF ty_ltext,        tdname TYPE stxl-tdname,        tdid   TYPE stxl-tdid,        ltext  TYPE string,      END OF ty_ltext.
TYPES:BEGIN OF ty_string,        line TYPE char255,      END OF ty_string.
DATA:lt_tline    TYPE TABLE OF tline,     ls_tline    TYPE tline,     lt_stxl_raw TYPE TABLE OF ty_stxl_raw,     ls_stxl_raw TYPE ty_stxl_raw,     lt_ltext    TYPE TABLE OF ty_ltext,     ls_ltext    TYPE ty_ltext,     lt_string   TYPE TABLE OF ty_string.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
TYPES:BEGIN OF ty_ltext,        tdname TYPE stxl-tdname,        tdid   TYPE stxl-tdid,        ltext  TYPE string,      END OF ty_ltext.
TYPES:BEGIN OF ty_string,        line TYPE char255,      END OF ty_string.
DATA:lt_tline    TYPE TABLE OF tline,     ls_tline    TYPE tline,     lt_stxl_raw TYPE TABLE OF ty_stxl_raw,     ls_stxl_raw TYPE ty_stxl_raw,     lt_ltext    TYPE TABLE OF ty_ltext,     ls_ltext    TYPE ty_ltext,     lt_string   TYPE TABLE OF ty_string.
/* ... 已截断，完整代码请查看原文 */
ABAP 获取长文本二三事
查看代码
REFRESH:lt_stxl_raw,lt_tline,lt_string.  CLEAR:ls_stxl_raw.  ls_stxl_raw-clustr = ls_stxl-clustr.  ls_stxl_raw-clustd = ls_stxl-clustd.  APPEND ls_stxl_raw TO lt_stxl_raw.
"对长文本进行解码  IMPORT tline = lt_tline FROM INTERNAL TABLE lt_stxl_raw.
"对特殊符号的转换  CALL FUNCTION 'CONVERT_ITF_TO_STREAM_TEXT'    TABLES      itf_text    = lt_tline      text_stream = lt_string.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
REFRESH:lt_stxl_raw,lt_tline,lt_string.  CLEAR:ls_stxl_raw.  ls_stxl_raw-clustr = ls_stxl-clustr.  ls_stxl_raw-clustd = ls_stxl-clustd.  APPEND ls_stxl_raw TO lt_stxl_raw.
"对长文本进行解码  IMPORT tline = lt_tline FROM INTERNAL TABLE lt_stxl_raw.
"对特殊符号的转换  CALL FUNCTION 'CONVERT_ITF_TO_STREAM_TEXT'    TABLES      itf_text    = lt_tline      text_stream = lt_string.
/* ... 已截断，完整代码请查看原文 */
ABAP 解除SM12锁 
DATA: lt_list TYPE if_enq_admin=>lock_list. "获取所有锁对象  DATA: lt_remove_locks TYPE if_enq_admin=>remove_lock_list. "待移除锁列表  STATICS go_admin TYPE REF TO cl_enq_admin.  DATA: lv_vbeln TYPE vbeln_va.  DATA: lv_timestamp TYPE int8.  DATA: lv_locktime TYPE int8.  DATA: lv_time TYPE string.
查看完整代码 
DATA: lt_list TYPE if_enq_admin=>lock_list. "获取所有锁对象  DATA: lt_remove_locks TYPE if_enq_admin=>remove_lock_list. "待移除锁列表  STATICS go_admin TYPE REF TO cl_enq_admin.  DATA: lv_vbeln TYPE vbeln_va.  DATA: lv_timestamp TYPE int8.  DATA: lv_locktime TYPE int8.  DATA: lv_time TYPE string.
ABAP 解除SM12锁
查看代码
"获取当前时区的时间戳  CONVERT DATE sy-datum          TIME sy-uzeit          INTO TIME STAMP DATA(ts) TIME ZONE sy-zonlo.  "获取UTC日期和时间  CONVERT TIME STAMP ts TIME ZONE 'UTC'          INTO DATE DATA(date) TIME DATA(time).  "获取UTC时间戳  cl_pco_utility=>convert_abap_timestamp_to_java( EXPORTING iv_date = date iv_time = time                                              IMPORTING ev_timestamp = lv_time ).  "到秒的时间  lv_timestamp = lv_time.  lv_timestamp /= 1000.  IF NOT go_ad
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
"获取当前时区的时间戳  CONVERT DATE sy-datum          TIME sy-uzeit          INTO TIME STAMP DATA(ts) TIME ZONE sy-zonlo.  "获取UTC日期和时间  CONVERT TIME STAMP ts TIME ZONE 'UTC'          INTO DATE DATA(date) TIME DATA(time).  "获取UTC时间戳  cl_pco_utility=>convert_abap_timestamp_to_java( EXPORTING iv_date = date iv_time = time                                              IMPORTING ev_timestamp = lv_time ).  "到秒的时间  lv_timestamp = lv_time.  lv_timestamp /= 1000.  IF NOT go_ad
/* ... 已截断，完整代码请查看原文 */
ABAP 讲义V0 
IF the account is not of A,D,K,V then it is defaulted as S General Ledger.
查看完整代码 
IF the account is not of A,D,K,V then it is defaulted as S General Ledger.
ABAP 读取SMW0中txt文件并解决乱码问题
查看代码
REPORT ytest001.
DATA: lv_codepage_numc TYPE cpcodepage,      lv_encoding      TYPE abap_encoding,      lt_mime          TYPE TABLE OF w3mime,      ls_mime          TYPE w3mime,      lv_filesize      TYPE i,      lv_xstring       TYPE xstring,      ls_key           TYPE wwwdatatab.
DATA:lv_string TYPE string,     lv_length TYPE i.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
REPORT ytest001.
DATA: lv_codepage_numc TYPE cpcodepage,      lv_encoding      TYPE abap_encoding,      lt_mime          TYPE TABLE OF w3mime,      ls_mime          TYPE w3mime,      lv_filesize      TYPE i,      lv_xstring       TYPE xstring,      ls_key           TYPE wwwdatatab.
DATA:lv_string TYPE string,     lv_length TYPE i.
/* ... 已截断，完整代码请查看原文 */
ABAP 递归函数实现省市区多级联动搜索帮助
查看代码
REFRESH gt_return.      CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'        EXPORTING          retfield        = lv_fieldname1          dynpprog        = sy-repid          dynpnr          = sy-dynnr          dynprofield     = lv_fieldname2          value_org       = 'S'          display         = 'F'        TABLES          value_tab       = <lt_f4table>          return_tab      = gt_return        EXCEPTIONS          parameter_error = 1          no_values
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
REFRESH gt_return.      CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'        EXPORTING          retfield        = lv_fieldname1          dynpprog        = sy-repid          dynpnr          = sy-dynnr          dynprofield     = lv_fieldname2          value_org       = 'S'          display         = 'F'        TABLES          value_tab       = <lt_f4table>          return_tab      = gt_return        EXCEPTIONS          parameter_error = 1          no_values
/* ... 已截断，完整代码请查看原文 */
ABAP 递归函数实现省市区多级联动搜索帮助
查看代码
lv_fieldname = 'ZZDEADSTREET'.              lv_dynprofld = 'ZZDEADSTREET'.              REFRESH gt_return.              CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'                EXPORTING                  retfield        = lv_fieldname                  dynpprog        = sy-repid                  dynpnr          = sy-dynnr                  dynprofield     = lv_dynprofld                  value_org       = 'S'                  display         = '
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
lv_fieldname = 'ZZDEADSTREET'.              lv_dynprofld = 'ZZDEADSTREET'.              REFRESH gt_return.              CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'                EXPORTING                  retfield        = lv_fieldname                  dynpprog        = sy-repid                  dynpnr          = sy-dynnr                  dynprofield     = lv_dynprofld                  value_org       = 'S'                  display         = '
/* ... 已截断，完整代码请查看原文 */
ABAP 递归函数实现省市区多级联动搜索帮助 
DATA:lt_return TYPE STANDARD TABLE OF ddshretval,       ls_return TYPE ddshretval.
DATA:lv_next_field TYPE dfies-fieldname,       lv_next_level TYPE int4,       lv_fieldname  TYPE dfies-fieldname,       lv_dynprofld  TYPE help_info-dynprofld.
查看完整代码 
DATA:lt_return TYPE STANDARD TABLE OF ddshretval,       ls_return TYPE ddshretval.
DATA:lv_next_field TYPE dfies-fieldname,       lv_next_level TYPE int4,       lv_fieldname  TYPE dfies-fieldname,       lv_dynprofld  TYPE help_info-dynprofld.
ABAP 递归函数实现省市区多级联动搜索帮助
查看代码
lv_fieldname = pv_fieldname.  lv_dynprofld = pv_fieldname.  CONDENSE:lv_fieldname,lv_dynprofld NO-GAPS.  lv_next_level = pv_level.  "根据层级，查询当前层级的数据集，并赋值下一层的字段名  CASE lv_next_level.    WHEN 1."第1层 省      SELECT        land1,        bland AS zzdeadregion,        bezei      FROM t005u      INTO TABLE @DATA(lt_t005u)      WHERE land1 EQ 'CN'        AND spras EQ @sy-langu.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
lv_fieldname = pv_fieldname.  lv_dynprofld = pv_fieldname.  CONDENSE:lv_fieldname,lv_dynprofld NO-GAPS.  lv_next_level = pv_level.  "根据层级，查询当前层级的数据集，并赋值下一层的字段名  CASE lv_next_level.    WHEN 1."第1层 省      SELECT        land1,        bland AS zzdeadregion,        bezei      FROM t005u      INTO TABLE @DATA(lt_t005u)      WHERE land1 EQ 'CN'        AND spras EQ @sy-langu.
/* ... 已截断，完整代码请查看原文 */
ABAP 递归函数实现省市区多级联动搜索帮助
查看代码
"调用搜索帮助函数  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'    EXPORTING      retfield        = lv_fieldname      dynpprog        = sy-repid      dynpnr          = sy-dynnr      dynprofield     = lv_dynprofld      value_org       = 'S'      display         = 'F'    TABLES      value_tab       = <gt_f4table>      return_tab      = lt_return    EXCEPTIONS      parameter_error = 1      no_values_found = 2      OTHERS          = 3.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
"调用搜索帮助函数  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'    EXPORTING      retfield        = lv_fieldname      dynpprog        = sy-repid      dynpnr          = sy-dynnr      dynprofield     = lv_dynprofld      value_org       = 'S'      display         = 'F'    TABLES      value_tab       = <gt_f4table>      return_tab      = lt_return    EXCEPTIONS      parameter_error = 1      no_values_found = 2      OTHERS          = 3.
/* ... 已截断，完整代码请查看原文 */
ABAP 递归函数实现省市区多级联动搜索帮助
查看代码
READ TABLE gt_cjso_alv ASSIGNING <fs_cjso_alv> INDEX pv_row_no-row_id.  "获取对应数据集  CASE pv_fieldname.    WHEN 'ZZDEADREGION'."送货地址-省      PERFORM frm_callback_f4 USING 1 'ZZDEADREGION' CHANGING <fs_cjso_alv>.    WHEN 'ZZDEADCITY'."送货地址-市      PERFORM frm_callback_f4 USING 2 'ZZDEADCITY' CHANGING <fs_cjso_alv>.    WHEN 'ZZDEADSTREET'."送货地址-区县      PERFORM frm_callback_f4 USING 3 'ZZDEADSTREET' C
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
READ TABLE gt_cjso_alv ASSIGNING <fs_cjso_alv> INDEX pv_row_no-row_id.  "获取对应数据集  CASE pv_fieldname.    WHEN 'ZZDEADREGION'."送货地址-省      PERFORM frm_callback_f4 USING 1 'ZZDEADREGION' CHANGING <fs_cjso_alv>.    WHEN 'ZZDEADCITY'."送货地址-市      PERFORM frm_callback_f4 USING 2 'ZZDEADCITY' CHANGING <fs_cjso_alv>.    WHEN 'ZZDEADSTREET'."送货地址-区县      PERFORM frm_callback_f4 USING 3 'ZZDEADSTREET' C
/* ... 已截断，完整代码请查看原文 */
ABAP 递归函数实现省市区多级联动搜索帮助 
ENDFORM."--------------------@斌将军--------------------
查看完整代码 
ENDFORM."--------------------@斌将军--------------------
ABAP 邮箱发送SMARTFORMS转PDF附件
查看代码
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'  EXPORTING    FORMNAME           = 'ZTEST001'  IMPORTING    FM_NAME            = LV_FMNAME  EXCEPTIONS    NO_FORM            = 1    NO_FUNCTION_MODULE = 2    OTHERS             = 3.IF SY-SUBRC <> 0.  MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO  WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.ENDIF.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'  EXPORTING    FORMNAME           = 'ZTEST001'  IMPORTING    FM_NAME            = LV_FMNAME  EXCEPTIONS    NO_FORM            = 1    NO_FUNCTION_MODULE = 2    OTHERS             = 3.IF SY-SUBRC <> 0.  MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO  WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.ENDIF.
/* ... 已截断，完整代码请查看原文 */
ABAP 邮箱发送SMARTFORMS转PDF附件
查看代码
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'  EXPORTING    DOCUMENT_DATA              = LS_DOC_CHNG  " 邮件属性    PUT_IN_OUTBOX              = ''    COMMIT_WORK                = 'X'  TABLES    PACKING_LIST               = GT_OBJPACK  " 邮件内容    CONTENTS_BIN               = GT_OBJBIN   " 附件内容（二进制）    CONTENTS_TXT               = GT_OBJTXT   " 邮件内容（直接填入）    RECEIVERS                  = GT_RECLIST  " 收件箱地址  EXCEPTIONS    TOO_MANY_RECEIVERS  
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'  EXPORTING    DOCUMENT_DATA              = LS_DOC_CHNG  " 邮件属性    PUT_IN_OUTBOX              = ''    COMMIT_WORK                = 'X'  TABLES    PACKING_LIST               = GT_OBJPACK  " 邮件内容    CONTENTS_BIN               = GT_OBJBIN   " 附件内容（二进制）    CONTENTS_TXT               = GT_OBJTXT   " 邮件内容（直接填入）    RECEIVERS                  = GT_RECLIST  " 收件箱地址  EXCEPTIONS    TOO_MANY_RECEIVERS  
/* ... 已截断，完整代码请查看原文 */
ABAP 采购信息记录维护
查看代码
DATA: lv_flag      TYPE char1,      ls_eina      TYPE mewieina,      ls_eine      TYPE mewieine,      ls_einax     TYPE mewieinax,      ls_einex     TYPE mewieinex,      lt_txt       TYPE mewipirtext_t,      ls_txt       TYPE mewipirtext,      lt_validity  TYPE TABLE OF mewivalidity,      ls_validity  TYPE  mewivalidity,      lt_condition TYPE TABLE OF mewicondition,      ls_condition TYPE  mewicondition,      lt_value     TYPE TABLE OF mewiscaleval,      ls_value     TYPE  mewiscaleval,  
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA: lv_flag      TYPE char1,      ls_eina      TYPE mewieina,      ls_eine      TYPE mewieine,      ls_einax     TYPE mewieinax,      ls_einex     TYPE mewieinex,      lt_txt       TYPE mewipirtext_t,      ls_txt       TYPE mewipirtext,      lt_validity  TYPE TABLE OF mewivalidity,      ls_validity  TYPE  mewivalidity,      lt_condition TYPE TABLE OF mewicondition,      ls_condition TYPE  mewicondition,      lt_value     TYPE TABLE OF mewiscaleval,      ls_value     TYPE  mewiscaleval,  
/* ... 已截断，完整代码请查看原文 */
ABAP 采购订单创建修改审批增强ME21NME22NME28ME29N
查看代码
LOOP AT items_data INTO item_data.**  First get Item Object, Second fill item data    "获取行对象      item_obj = item_data-item.    "获取行字段值      CALL METHOD item_obj->get_data        RECEIVING          re_data = item.    "获取行长文本      REFRESH ex_textlines.      CALL METHOD item_obj->if_longtexts_mm~get_text        EXPORTING          im_tdid      = im_tdid        IMPORTING          ex_textlines = ex_textlines.ENDLOOP."-----------------------------@斌将军-------------------
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
LOOP AT items_data INTO item_data.**  First get Item Object, Second fill item data    "获取行对象      item_obj = item_data-item.    "获取行字段值      CALL METHOD item_obj->get_data        RECEIVING          re_data = item.    "获取行长文本      REFRESH ex_textlines.      CALL METHOD item_obj->if_longtexts_mm~get_text        EXPORTING          im_tdid      = im_tdid        IMPORTING          ex_textlines = ex_textlines.ENDLOOP."-----------------------------@斌将军-------------------
/* ... 已截断，完整代码请查看原文 */
ABAP 采购订单创建修改审批增强ME21NME22NME28ME29N 
LOOP AT schedules_data INTO schedule_data.        schedule_obj = schedule_data-schedule.        CALL METHOD schedule_obj->get_data          RECEIVING            re_data = schedule.      ENDLOOP."-----------------------------@斌将军-----------------------------
查看完整代码 
LOOP AT schedules_data INTO schedule_data.        schedule_obj = schedule_data-schedule.        CALL METHOD schedule_obj->get_data          RECEIVING            re_data = schedule.      ENDLOOP."-----------------------------@斌将军-----------------------------
ABAP 采购订单的确认控制
查看代码
DATA:lv_check   TYPE char1,     lv_message TYPE char200.
lv_ebeln = '4100001501'."采购凭证编号
CLEAR:ls_header.ls_header-doc_number = lv_ebeln."采购凭证编号
CLEAR ls_item.ls_item-item_no = '00010'."行项目ls_item-canceled = ''."拒绝标识APPEND ls_item TO lt_item.
CLEAR ls_itemx.ls_itemx-item_no = '00010'."行项目ls_itemx-canceled = 'X'.APPEND ls_itemx TO lt_itemx.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA:lv_check   TYPE char1,     lv_message TYPE char200.
lv_ebeln = '4100001501'."采购凭证编号
CLEAR:ls_header.ls_header-doc_number = lv_ebeln."采购凭证编号
CLEAR ls_item.ls_item-item_no = '00010'."行项目ls_item-canceled = ''."拒绝标识APPEND ls_item TO lt_item.
CLEAR ls_itemx.ls_itemx-item_no = '00010'."行项目ls_itemx-canceled = 'X'.APPEND ls_itemx TO lt_itemx.
/* ... 已截断，完整代码请查看原文 */
ABAP 销售发票输出配置及示例代码 
REPORT zfif001.
INCLUDE rle_delnote_data_declare .
查看完整代码 
REPORT zfif001.
INCLUDE rle_delnote_data_declare .
ABAP 销售发票输出配置及示例代码 
FORM frm_entry USING ent_retco                     ent_screen.
DATA: lv_vbeln TYPE vbeln_vf.
lv_vbeln = nast-objky+0(10).
查看完整代码 
FORM frm_entry USING ent_retco                     ent_screen.
DATA: lv_vbeln TYPE vbeln_vf.
lv_vbeln = nast-objky+0(10).
ABAP 销售发票输出配置及示例代码
查看代码
ENDFORM.*&---------------------------------------------------------------------**& FORM FRM_PROCESS*&---------------------------------------------------------------------**&*&---------------------------------------------------------------------**& -->  P1        TEXT*& <--  P2        TEXT*&---------------------------------------------------------------------*FORM frm_process USING uv_vbeln TYPE vbeln_vf CHANGING retco TYPE sy-subrc.  DATA: lt_vbrp  TYP
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
ENDFORM.*&---------------------------------------------------------------------**& FORM FRM_PROCESS*&---------------------------------------------------------------------**&*&---------------------------------------------------------------------**& -->  P1        TEXT*& <--  P2        TEXT*&---------------------------------------------------------------------*FORM frm_process USING uv_vbeln TYPE vbeln_vf CHANGING retco TYPE sy-subrc.  DATA: lt_vbrp  TYP
/* ... 已截断，完整代码请查看原文 */
ABAP 销售发票输出配置及示例代码
查看代码
SELECT *    INTO TABLE lt_vbrp    FROM vbrp   WHERE vbeln = uv_vbeln.
SELECT SINGLE *    INTO ls_vbrk    FROM vbrk   WHERE vbeln = uv_vbeln.
SELECT *   INTO TABLE lt_prcd   FROM prcd_elements  WHERE knumv = ls_vbrk-knumv AND        kschl = 'Z010' AND        kwert <> 0 and        kinak = ''.  SORT lt_prcd BY knumv kposn.  IF sy-subrc <> 0.    PERFORM frm_save_log USING '00'                                 '001'                             
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
SELECT *    INTO TABLE lt_vbrp    FROM vbrp   WHERE vbeln = uv_vbeln.
SELECT SINGLE *    INTO ls_vbrk    FROM vbrk   WHERE vbeln = uv_vbeln.
SELECT *   INTO TABLE lt_prcd   FROM prcd_elements  WHERE knumv = ls_vbrk-knumv AND        kschl = 'Z010' AND        kwert <> 0 and        kinak = ''.  SORT lt_prcd BY knumv kposn.  IF sy-subrc <> 0.    PERFORM frm_save_log USING '00'                                 '001'                             
/* ... 已截断，完整代码请查看原文 */
ABAP 销售发票输出配置及示例代码
查看代码
IF lv_error IS INITIAL.    "直接过账    PERFORM frm_post TABLES lt_vbrp                            lt_prcd                            lt_prcd1                     USING  ls_vbrk                            'X'                     CHANGING lv_error.  ENDIF.
IF lv_error IS INITIAL.    CLEAR retco.  ELSE.    retco = 1.  ENDIF.ENDFORM.*&---------------------------------------------------------------------**& FORM FRM_SAVE_LOG*&---------------------------------------------
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
IF lv_error IS INITIAL.    "直接过账    PERFORM frm_post TABLES lt_vbrp                            lt_prcd                            lt_prcd1                     USING  ls_vbrk                            'X'                     CHANGING lv_error.  ENDIF.
IF lv_error IS INITIAL.    CLEAR retco.  ELSE.    retco = 1.  ENDIF.ENDFORM.*&---------------------------------------------------------------------**& FORM FRM_SAVE_LOG*&---------------------------------------------
/* ... 已截断，完整代码请查看原文 */
ABAP 销售发票输出配置及示例代码 
IF uv_post = ''.    "模拟检查    CLEAR lt_return[].    CALL FUNCTION 'BAPI_ACC_DOCUMENT_CHECK'      EXPORTING        documentheader = ls_documentheader      TABLES        accountgl      = lt_accountgl        accountpayable = lt_accountpayable        currencyamount = lt_currencyamount        extension2     = lt_extension2        criteria       = lt_criteria        return         = lt_return.  ELSE.    "凭证过账    CLEAR
查看完整代码 
IF uv_post = ''.    "模拟检查    CLEAR lt_return[].    CALL FUNCTION 'BAPI_ACC_DOCUMENT_CHECK'      EXPORTING        documentheader = ls_documentheader      TABLES        accountgl      = lt_accountgl        accountpayable = lt_accountpayable        currencyamount = lt_currencyamount        extension2     = lt_extension2        criteria       = lt_criteria        return         = lt_return.  ELSE.    "凭证过账    CLEAR
ABAP 销售订单增加自定义小计字段
查看代码
FORM frm_kond_basis_909.    DATA: ls_a903 TYPE a903,        lt_a903 TYPE TABLE OF a903.    DATA: ls_konp TYPE konp,        lt_konp TYPE TABLE OF konp.    DATA: lv_bukrs TYPE bukrs,    DATA: lv_vkorg TYPE vkorg.    DATA: lv_kunnr TYPE kunnr.           SELECT SINGLE a~vkorg b~bukrs INTO ( lv_vkorg, lv_bukrs ) FROM t001w AS a JOIN t001k AS b ON a~bwkey = b~bwkey  WHERE a~werks = komp-werks.    CHECK lv_bukrs <> komk-bukrs.    lv_kunnr = |{ komk-bukrs ALPHA = IN }|.           IF lt_konp[
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
FORM frm_kond_basis_909.    DATA: ls_a903 TYPE a903,        lt_a903 TYPE TABLE OF a903.    DATA: ls_konp TYPE konp,        lt_konp TYPE TABLE OF konp.    DATA: lv_bukrs TYPE bukrs,    DATA: lv_vkorg TYPE vkorg.    DATA: lv_kunnr TYPE kunnr.           SELECT SINGLE a~vkorg b~bukrs INTO ( lv_vkorg, lv_bukrs ) FROM t001w AS a JOIN t001k AS b ON a~bwkey = b~bwkey  WHERE a~werks = komp-werks.    CHECK lv_bukrs <> komk-bukrs.    lv_kunnr = |{ komk-bukrs ALPHA = IN }|.           IF lt_konp[
/* ... 已截断，完整代码请查看原文 */
ABAP 销售订单增加自定义小计字段 
READ TABLE lt_konp INTO ls_konp INDEX 1.    IF sy-subrc = 0.      xkomv-kbetr = ls_konp-kbetr.      "公司间售价 = 吊牌价*公司间折扣      komp-zzkzwi7 =  komp-kzwi3 * ls_konp-kbetr / 100000.    ENDIF.ENDFORM.
查看完整代码 
READ TABLE lt_konp INTO ls_konp INDEX 1.    IF sy-subrc = 0.      xkomv-kbetr = ls_konp-kbetr.      "公司间售价 = 吊牌价*公司间折扣      komp-zzkzwi7 =  komp-kzwi3 * ls_konp-kbetr / 100000.    ENDIF.ENDFORM.
ABAP 销售订单增加自定义小计字段
查看代码
FORM frm_kond_basis_910.  DATA: ls_a002 TYPE a002,        lt_a002 TYPE TABLE OF a002.  DATA: ls_konp TYPE konp,        lt_konp TYPE TABLE OF konp.  DATA: lv_bukrs TYPE bukrs,        lv_vkorg TYPE vkorg.  DATA: lv_kunnr TYPE kunnr.  DATA: lv_taxkd TYPE knvi-taxkd.
SELECT SINGLE bukrs INTO lv_bukrs FROM tvko WHERE vkorg = komk-vkorg.  CHECK sy-subrc = 0.  lv_kunnr = |{ lv_bukrs ALPHA = IN }|.
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
FORM frm_kond_basis_910.  DATA: ls_a002 TYPE a002,        lt_a002 TYPE TABLE OF a002.  DATA: ls_konp TYPE konp,        lt_konp TYPE TABLE OF konp.  DATA: lv_bukrs TYPE bukrs,        lv_vkorg TYPE vkorg.  DATA: lv_kunnr TYPE kunnr.  DATA: lv_taxkd TYPE knvi-taxkd.
SELECT SINGLE bukrs INTO lv_bukrs FROM tvko WHERE vkorg = komk-vkorg.  CHECK sy-subrc = 0.  lv_kunnr = |{ lv_bukrs ALPHA = IN }|.
/* ... 已截断，完整代码请查看原文 */
ABAP 销售订单增加自定义小计字段
查看代码
FORM USEREXIT_XKOMV_BEWERTEN_END."""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
FORM USEREXIT_XKOMV_BEWERTEN_END."""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
/* ... 已截断，完整代码请查看原文 */
ABAP 销售订单增加自定义小计字段 
READ TABLE xkomv WITH KEY kschl = gkomv_key-kschl.CHECK sy-subrc = 0 AND xkomv-kdiff <> 0.
查看完整代码 
READ TABLE xkomv WITH KEY kschl = gkomv_key-kschl.CHECK sy-subrc = 0 AND xkomv-kdiff <> 0.
ABAP 销售订单增强 
IF us_vbakkom-kostl IS NOT INITIAL.    vbak-kostl = us_vbakkom-kostl.  ENDIF.ENDENHANCEMENT.*$*$-End:   (1)---------------------------------------------------------------------------------$*$*
查看完整代码 
IF us_vbakkom-kostl IS NOT INITIAL.    vbak-kostl = us_vbakkom-kostl.  ENDIF.ENDENHANCEMENT.*$*$-End:   (1)---------------------------------------------------------------------------------$*$*
ABAP 销售订单增强
查看代码
DATA: lt_ztsd_auart_conf TYPE TABLE OF ztsd_auart_conf,        ls_ztsd_auart_conf TYPE ztsd_auart_conf.
IF vbak-auart = 'ZEC4' OR vbak-auart = 'ZER4' OR vbak-kunnr = 'Z004'.    IF vbak-vkorg IS NOT INITIAL.      SELECT SINGLE prctr        INTO vbap-prctr        FROM ztsd_auart_conf       WHERE vkorg = vbak-vkorg.      xvbap-prctr = vbap-prctr.    ENDIF.  ENDIF.ENDENHANCEMENT.*$*$-End:   (1)-----------------------------------------------------------------------
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
DATA: lt_ztsd_auart_conf TYPE TABLE OF ztsd_auart_conf,        ls_ztsd_auart_conf TYPE ztsd_auart_conf.
IF vbak-auart = 'ZEC4' OR vbak-auart = 'ZER4' OR vbak-kunnr = 'Z004'.    IF vbak-vkorg IS NOT INITIAL.      SELECT SINGLE prctr        INTO vbap-prctr        FROM ztsd_auart_conf       WHERE vkorg = vbak-vkorg.      xvbap-prctr = vbap-prctr.    ENDIF.  ENDIF.ENDENHANCEMENT.*$*$-End:   (1)-----------------------------------------------------------------------
/* ... 已截断，完整代码请查看原文 */
ABAP 销售订单增强
查看代码
""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""&q
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""&q
/* ... 已截断，完整代码请查看原文 */
ABAP 问题解决SLT同步日期格式字段 
SELECT *
查看完整代码 
SELECT *
ABAP 问题解决SLT同步日期格式字段 
IF USER = 'MDGMIDUAT' THEN
查看完整代码 
IF USER = 'MDGMIDUAT' THEN
ABAP 问题解决SLT同步日期格式字段 
IF USER = 'MDGMIDUAT' THEN
查看完整代码 
IF USER = 'MDGMIDUAT' THEN
ABAP 问题解决SLT同步日期格式字段 
IF USER = 'MDGMIDUAT' THEN
查看完整代码 
IF USER = 'MDGMIDUAT' THEN
ABAP 问题解决SLT同步日期格式字段 
IF USER = 'MDGMIDUAT' THEN
查看完整代码 
IF USER = 'MDGMIDUAT' THEN
ABAP 问题解决SLT同步日期格式字段 
IF USER = 'MDGMIDUAT' THEN
查看完整代码 
IF USER = 'MDGMIDUAT' THEN
ABAP 问题解决之采购订单自动舍入数量 
FORM MEPO_ITEM_FILL_ROUND 开头增强, 根据自定义配置表ZTBC065判断是否跳过后续的舍入逻辑.
查看完整代码 
FORM MEPO_ITEM_FILL_ROUND 开头增强, 根据自定义配置表ZTBC065判断是否跳过后续的舍入逻辑.
ABAP 防止程序重复执行 
CALL FUNCTION  'ENQUEUE_ESRDIRE'
查看完整代码 
CALL FUNCTION  'ENQUEUE_ESRDIRE'
ABAP 防止程序重复执行 
IF  sy  \-  subrc <> 0  .
查看完整代码 
IF  sy  \-  subrc <> 0  .
ABAP 防止程序重复执行 
ENDIF  .
查看完整代码 
ENDIF  .
ABAP 随笔ME53N增加按钮调用URL 
IF SY-TCODE EQ 'ME52N' OR SY-TCODE = 'ME53N'.
查看完整代码 
IF SY-TCODE EQ 'ME52N' OR SY-TCODE = 'ME53N'.
ABAP 随笔ME53N增加按钮调用URL 
READ TABLE l_transaction_oaurl->my_data ASSIGNING FIELD-SYMBOL(<fs_oaurl>) INDEX 1.
IF <fs_oaurl>-doc_key IS NOT INITIAL."这里doc_key是PR Number
查看完整代码 
READ TABLE l_transaction_oaurl->my_data ASSIGNING FIELD-SYMBOL(<fs_oaurl>) INDEX 1.
IF <fs_oaurl>-doc_key IS NOT INITIAL."这里doc_key是PR Number
ABAP 随笔ME53N增加按钮调用URL 
lv_url = 'www.baidu.com'.
查看完整代码 
lv_url = 'www.baidu.com'.
ABAP 随笔ME53N增加按钮调用URL 
CALL METHOD cl_gui_frontend_services=>execute
查看完整代码 
CALL METHOD cl_gui_frontend_services=>execute
ABAP 随笔ME53N增加按钮调用URL 
document = lv_url
查看完整代码 
document = lv_url
ABAP 随笔ME53N增加按钮调用URL 
IF sy-subrc NE 0.
查看完整代码 
IF sy-subrc NE 0.
ABAP 随笔ME53N增加按钮调用URL 
ENDIF.
查看完整代码 
ENDIF.
ABAP 随笔ME53N增加按钮调用URL 
ENDIF.
ENDIF.
查看完整代码 
ENDIF.
ENDIF.
ABAP 隐式提交的引申之DBSAPLUW 
CLEAR:ls_dbluw.ls_dbluw-werks = '1001'.ls_dbluw-werks = '1002'.APPEND ls_dbluw TO lt_dbluw.
查看完整代码 
CLEAR:ls_dbluw.ls_dbluw-werks = '1001'.ls_dbluw-werks = '1002'.APPEND ls_dbluw TO lt_dbluw.
ABAP 隐式提交的引申之DBSAPLUW 
"2、更新UPDATE ztluw01 SET werks = '1003' WHERE werks = '1002'.*DATA(lv_error) = 1 / 0."发生错误IF sy-subrc NE 0.  ROLLBACK WORK.ENDIF.
查看完整代码 
"2、更新UPDATE ztluw01 SET werks = '1003' WHERE werks = '1002'.*DATA(lv_error) = 1 / 0."发生错误IF sy-subrc NE 0.  ROLLBACK WORK.ENDIF.
ABAP 隐式提交的引申之DBSAPLUW 
"--------------------@斌将军--------------------CLEAR:ls_dbluw.ls_dbluw-werks = '1001'.
查看完整代码 
"--------------------@斌将军--------------------CLEAR:ls_dbluw.ls_dbluw-werks = '1001'.
ABAP 隐式提交的引申之DBSAPLUW 
CLEAR:ls_dbluw.ls_dbluw-werks = '1002'."-----DB LUW 开始-----"2、插入INSERT ztluw01 FROM ls_dbluw."模拟失败，导致回滚ROLLBACK WORK."-----DB LUW 结束-----"--------------------@斌将军--------------------
查看完整代码 
CLEAR:ls_dbluw.ls_dbluw-werks = '1002'."-----DB LUW 开始-----"2、插入INSERT ztluw01 FROM ls_dbluw."模拟失败，导致回滚ROLLBACK WORK."-----DB LUW 结束-----"--------------------@斌将军--------------------
ABAP 隐式提交的引申之DBSAPLUW 
CLEAR:ls_dbluw.ls_dbluw-werks = '1002'."-----DB LUW 开始-----"2、插入INSERT ztluw01 FROM ls_dbluw."模拟失败，导致回滚"COMMIT WORK.ROLLBACK WORK."-----DB LUW 结束-----"--------------------@斌将军--------------------
查看完整代码 
CLEAR:ls_dbluw.ls_dbluw-werks = '1002'."-----DB LUW 开始-----"2、插入INSERT ztluw01 FROM ls_dbluw."模拟失败，导致回滚"COMMIT WORK.ROLLBACK WORK."-----DB LUW 结束-----"--------------------@斌将军--------------------
ABAP 隐式提交的引申之DBSAPLUW 
DATA:lt_dbluw TYPE TABLE OF ztluw01,     ls_dbluw TYPE ztluw01.
CLEAR:ls_dbluw.ls_dbluw-werks = '1001'."1、插入INSERT ztluw01 FROM ls_dbluw.
ENDFUNCTION."--------------------@斌将军--------------------
查看完整代码 
DATA:lt_dbluw TYPE TABLE OF ztluw01,     ls_dbluw TYPE ztluw01.
CLEAR:ls_dbluw.ls_dbluw-werks = '1001'."1、插入INSERT ztluw01 FROM ls_dbluw.
ENDFUNCTION."--------------------@斌将军--------------------
ABAP 验证登录用户账密 
TABLES:rc70d.
DATA:gv_sign_result TYPE char1,     gv_screen_keep TYPE char1. "保持弹框
DATA:r_ucomm   LIKE sy-ucomm,     ok_code   TYPE sy-ucomm,     save_code TYPE sy-ucomm.
查看完整代码 
TABLES:rc70d.
DATA:gv_sign_result TYPE char1,     gv_screen_keep TYPE char1. "保持弹框
DATA:r_ucomm   LIKE sy-ucomm,     ok_code   TYPE sy-ucomm,     save_code TYPE sy-ucomm.
ABAP 验证登录用户账密
查看代码
IF gv_sign_result = 'S'.  MESSAGE '校验成功' TYPE 'S'.ENDIF.*&---------------------------------------------------------------------**& Module STATUS_9000 OUTPUT*&---------------------------------------------------------------------**&*&---------------------------------------------------------------------*MODULE status_9000 OUTPUT.  SET PF-STATUS 'PW_ENTER'.  SET TITLEBAR '001'.ENDMODULE.*&--------------------------------
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
IF gv_sign_result = 'S'.  MESSAGE '校验成功' TYPE 'S'.ENDIF.*&---------------------------------------------------------------------**& Module STATUS_9000 OUTPUT*&---------------------------------------------------------------------**&*&---------------------------------------------------------------------*MODULE status_9000 OUTPUT.  SET PF-STATUS 'PW_ENTER'.  SET TITLEBAR '001'.ENDMODULE.*&--------------------------------
/* ... 已截断，完整代码请查看原文 */
ABAP 验证登录用户账密 
DATA: lt_row  TYPE lvc_t_row,        lt_roid TYPE lvc_t_roid,        ls_row  TYPE lvc_s_row.
查看完整代码 
DATA: lt_row  TYPE lvc_t_row,        lt_roid TYPE lvc_t_roid,        ls_row  TYPE lvc_s_row.
ABAP 验证登录用户账密 
DATA:go_system_signature TYPE REF TO cl_ssft_system_signature.  DATA:lv_signer   TYPE sig_signer,       lv_password TYPE ssfpw,       lv_message  TYPE char255.
查看完整代码 
DATA:go_system_signature TYPE REF TO cl_ssft_system_signature.  DATA:lv_signer   TYPE sig_signer,       lv_password TYPE ssfpw,       lv_message  TYPE char255.
ABAP 验证登录用户账密
查看代码
lv_signer = rc70d-signer.  lv_password = rc70d-password.
CREATE OBJECT go_system_signature.
CALL METHOD go_system_signature->if_ssft_system_signature~check_password    EXPORTING      if_signer        = lv_signer      if_ask_pwd       = '' "不弹出弹框      if_password      = lv_password    EXCEPTIONS      canceled_by_user = 1      password_invalid = 2      password_expired = 3      profile_locked   = 4      system_error     = 5      rfc_error        = 6      profile_error    = 
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
lv_signer = rc70d-signer.  lv_password = rc70d-password.
CREATE OBJECT go_system_signature.
CALL METHOD go_system_signature->if_ssft_system_signature~check_password    EXPORTING      if_signer        = lv_signer      if_ask_pwd       = '' "不弹出弹框      if_password      = lv_password    EXCEPTIONS      canceled_by_user = 1      password_invalid = 2      password_expired = 3      profile_locked   = 4      system_error     = 5      rfc_error        = 6      profile_error    = 
/* ... 已截断，完整代码请查看原文 */

JavaScript 1 段

JavaScript 使用ADMIN快速应用程序工具生成BSP应用 
lr_axt_md = cl_axt_tables_metadata=>get_instance( iv_table_id ).
查看完整代码 
lr_axt_md = cl_axt_tables_metadata=>get_instance( iv_table_id ).

Other 841 段

Other ABAP - Payment Advice Sent through mail Via PDF Attachment 
INCLUDE zbbdclib.                      "Added for ITH
查看完整代码 
INCLUDE zbbdclib.                      "Added for ITH
Other ABAP - Payment Advice Sent through mail Via PDF Attachment 
INCLUDE STRUCTURE tbtcp.
查看完整代码 
INCLUDE STRUCTURE tbtcp.
Other ABAP - Payment Advice Sent through mail Via PDF Attachment 
END OF t_t042i,
查看完整代码 
END OF t_t042i,
Other ABAP - Payment Advice Sent through mail Via PDF Attachment 
END OF t_reguh,
查看完整代码 
END OF t_reguh,
Other ABAP - Payment Advice Sent through mail Via PDF Attachment 
END OF t_tstamp,
查看完整代码 
END OF t_tstamp,
Other ABAP - Payment Advice Sent through mail Via PDF Attachment 
END OF t_tsp01,
查看完整代码 
END OF t_tsp01,
Other ABAP - Payment Advice Sent through mail Via PDF Attachment 
END OF t_buffer.
查看完整代码 
END OF t_buffer.
Other ABAP - Payment Advice Sent through mail Via PDF Attachment 
INCLUDE STRUCTURE tline.
查看完整代码 
INCLUDE STRUCTURE tline.
Other ABAP - Payment Advice Sent through mail Via PDF Attachment 
INCLUDE STRUCTURE bdcmsgcoll.
查看完整代码 
INCLUDE STRUCTURE bdcmsgcoll.
Other ABAP - Payment Advice Sent through mail Via PDF Attachment 
INCLUDE STRUCTURE reguh.
查看完整代码 
INCLUDE STRUCTURE reguh.
Other ABAP - Payment Advice Sent through mail Via PDF Attachment 
INCLUDE STRUCTURE regup.
查看完整代码 
INCLUDE STRUCTURE regup.
Other ABAP - Payment Advice Sent through mail Via PDF Attachment 
CONSTANTS:
查看完整代码 
CONSTANTS:
Other ABAP - Payment Advice Sent through mail Via PDF Attachment 
SELECTION-SCREEN BEGIN OF BLOCK a0 WITH FRAME TITLE text-002.
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK a0 WITH FRAME TITLE text-002.
Other ABAP - Payment Advice Sent through mail Via PDF Attachment 
SELECTION-SCREEN END OF BLOCK a0.
查看完整代码 
SELECTION-SCREEN END OF BLOCK a0.
Other ABAP - Payment Advice Sent through mail Via PDF Attachment 
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE c_co1.
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE c_co1.
Other ABAP - Payment Advice Sent through mail Via PDF Attachment 
SELECTION-SCREEN END OF BLOCK b1.
查看完整代码 
SELECTION-SCREEN END OF BLOCK b1.
Other ABAP - Payment Advice Sent through mail Via PDF Attachment 
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE c_co2.
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE c_co2.
Other ABAP - Payment Advice Sent through mail Via PDF Attachment 
SELECTION-SCREEN BEGIN OF LINE.
查看完整代码 
SELECTION-SCREEN BEGIN OF LINE.
Other ABAP - Payment Advice Sent through mail Via PDF Attachment 
SELECTION-SCREEN COMMENT 01(31) c_print.
查看完整代码 
SELECTION-SCREEN COMMENT 01(31) c_print.
Other ABAP - Payment Advice Sent through mail Via PDF Attachment 
SELECTION-SCREEN POSITION POS_LOW.
查看完整代码 
SELECTION-SCREEN POSITION POS_LOW.
Other ABAP - Payment Advice Sent through mail Via PDF Attachment 
SELECTION-SCREEN END OF LINE.
查看完整代码 
SELECTION-SCREEN END OF LINE.
Other ABAP - Payment Advice Sent through mail Via PDF Attachment 
SELECTION-SCREEN END OF BLOCK b3.
查看完整代码 
SELECTION-SCREEN END OF BLOCK b3.
Other ABAP - Payment Advice Sent through mail Via PDF Attachment 
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
Other ABAP - Payment Advice Sent through mail Via PDF Attachment 
SELECTION-SCREEN END OF BLOCK b2.
查看完整代码 
SELECTION-SCREEN END OF BLOCK b2.
Other ABAP tips Checking existence within an internal table 
TRY.
查看完整代码 
TRY.
Other ABAP tips Checking existence within an internal table 
ENDTRY.
查看完整代码 
ENDTRY.
Other ABAPCL_OBJECT_COLLECTION工具类 
METHODS  get_area
查看完整代码 
METHODS  get_area
Other ABAPCL_OBJECT_COLLECTION工具类 
ENDINTERFACE  .
查看完整代码 
ENDINTERFACE  .
Other ABAPCL_OBJECT_COLLECTION工具类 
METHODS  constructor
查看完整代码 
METHODS  constructor
Other ABAPCL_OBJECT_COLLECTION工具类 
METHODS  constructor
查看完整代码 
METHODS  constructor
Other ABAPCL_OBJECT_COLLECTION工具类 
METHODS  constructor
查看完整代码 
METHODS  constructor
Other ABAPCL_OBJECT_COLLECTION工具类 
END  OF  ty_shape  .
查看完整代码 
END  OF  ty_shape  .
Other ABAPOOALVcontextmenurequest事件 
END OF  gty_spfli_incl  .
查看完整代码 
END OF  gty_spfli_incl  .
Other ABAPOOALVcontextmenurequest事件 
INCLUDE TYPE  spfli  .
INCLUDE TYPE  gty_spfli_incl  .
查看完整代码 
INCLUDE TYPE  spfli  .
INCLUDE TYPE  gty_spfli_incl  .
Other ABAPOOALVcontextmenurequest事件 
END OF  gs_spfli  ,
查看完整代码 
END OF  gs_spfli  ,
Other ABAPOOALVcontextmenurequest事件 
ENDCASE  .
查看完整代码 
ENDCASE  .
Other ABAPOOALVdatachangeddatachangedfinished事件 
END OF  gty_spfli_incl  .
查看完整代码 
END OF  gty_spfli_incl  .
Other ABAPOOALVdatachangeddatachangedfinished事件 
INCLUDE TYPE  spfli  .
INCLUDE TYPE  gty_spfli_incl  .
查看完整代码 
INCLUDE TYPE  spfli  .
INCLUDE TYPE  gty_spfli_incl  .
Other ABAPOOALVdatachangeddatachangedfinished事件 
END OF  gs_spfli  ,
查看完整代码 
END OF  gs_spfli  ,
Other ABAPOOALVmenubuttonbuttonclick事件 
END OF  gty_spfli_incl  .
查看完整代码 
END OF  gty_spfli_incl  .
Other ABAPOOALVmenubuttonbuttonclick事件 
INCLUDE TYPE  spfli  .
INCLUDE TYPE  gty_spfli_incl  .
查看完整代码 
INCLUDE TYPE  spfli  .
INCLUDE TYPE  gty_spfli_incl  .
Other ABAPOOALVmenubuttonbuttonclick事件 
END OF  gs_spfli  ,
查看完整代码 
END OF  gs_spfli  ,
Other ABAPOOALVondragondrop事件 
END OF  gty_spfli_incl  .
查看完整代码 
END OF  gty_spfli_incl  .
Other ABAPOOALVondragondrop事件 
INCLUDE TYPE  spfli  .
INCLUDE TYPE  gty_spfli_incl  .
查看完整代码 
INCLUDE TYPE  spfli  .
INCLUDE TYPE  gty_spfli_incl  .
Other ABAPOOALVondragondrop事件 
END OF  gs_spfli  ,
查看完整代码 
END OF  gs_spfli  ,
Other ABAPOOALVondragondrop事件 
ENDCASE  .
查看完整代码 
ENDCASE  .
Other ABAPOOALV下拉列表 
END OF  gty_spfli_incl  .
查看完整代码 
END OF  gty_spfli_incl  .
Other ABAPOOALV下拉列表 
INCLUDE TYPE  spfli  .
INCLUDE TYPE  gty_spfli_incl  .
查看完整代码 
INCLUDE TYPE  spfli  .
INCLUDE TYPE  gty_spfli_incl  .
Other ABAPOOALV下拉列表 
END OF  gs_spfli  ,
查看完整代码 
END OF  gs_spfli  ,
Other ABAPOOALV可编辑列行单元格 
END OF  gty_spfli_incl  .
查看完整代码 
END OF  gty_spfli_incl  .
Other ABAPOOALV可编辑列行单元格 
INCLUDE TYPE  spfli  .
INCLUDE TYPE  gty_spfli_incl  .
查看完整代码 
INCLUDE TYPE  spfli  .
INCLUDE TYPE  gty_spfli_incl  .
Other ABAPOOALV可编辑列行单元格 
END OF  gs_spfli  ,
查看完整代码 
END OF  gs_spfli  ,
Other ABAPOOALV固定列鼠标悬停文本 
END OF  gty_spfli_incl  .
查看完整代码 
END OF  gty_spfli_incl  .
Other ABAPOOALV固定列鼠标悬停文本 
INCLUDE TYPE  spfli  .
INCLUDE TYPE  gty_spfli_incl  .
查看完整代码 
INCLUDE TYPE  spfli  .
INCLUDE TYPE  gty_spfli_incl  .
Other ABAPOOALV固定列鼠标悬停文本 
END OF  gs_spfli  ,
查看完整代码 
END OF  gs_spfli  ,
Other ABAPOOALV布局刷新 
END OF  gty_spfli_incl  .
查看完整代码 
END OF  gty_spfli_incl  .
Other ABAPOOALV布局刷新 
INCLUDE TYPE  spfli  .
INCLUDE TYPE  gty_spfli_incl  .
查看完整代码 
INCLUDE TYPE  spfli  .
INCLUDE TYPE  gty_spfli_incl  .
Other ABAPOOALV布局刷新 
END OF  gs_spfli  ,
查看完整代码 
END OF  gs_spfli  ,
Other ABAPOOALV布局刷新 
ENDCASE  .
查看完整代码 
ENDCASE  .
Other ABAPOOALV应用程序工具栏 
END OF  gty_spfli_incl  .
查看完整代码 
END OF  gty_spfli_incl  .
Other ABAPOOALV应用程序工具栏 
INCLUDE TYPE  spfli  .
INCLUDE TYPE  gty_spfli_incl  .
查看完整代码 
INCLUDE TYPE  spfli  .
INCLUDE TYPE  gty_spfli_incl  .
Other ABAPOOALV应用程序工具栏 
END OF  gs_spfli  ,
查看完整代码 
END OF  gs_spfli  ,
Other ABAPOOALV搜索帮助 
END OF  gty_spfli_incl  .
查看完整代码 
END OF  gty_spfli_incl  .
Other ABAPOOALV搜索帮助 
INCLUDE TYPE  spfli  .
INCLUDE TYPE  gty_spfli_incl  .
查看完整代码 
INCLUDE TYPE  spfli  .
INCLUDE TYPE  gty_spfli_incl  .
Other ABAPOOALV搜索帮助 
END OF  gs_spfli  ,
查看完整代码 
END OF  gs_spfli  ,
Other ABAPOOALV样式列行单元格 
END OF  gty_spfli_incl  .
查看完整代码 
END OF  gty_spfli_incl  .
Other ABAPOOALV样式列行单元格 
INCLUDE TYPE  spfli  .
INCLUDE TYPE  gty_spfli_incl  .
查看完整代码 
INCLUDE TYPE  spfli  .
INCLUDE TYPE  gty_spfli_incl  .
Other ABAPOOALV样式列行单元格 
END OF  gs_spfli  ,
查看完整代码 
END OF  gs_spfli  ,
Other ABAPOOALV超链接 
END OF  gty_spfli_incl  .
查看完整代码 
END OF  gty_spfli_incl  .
Other ABAPOOALV超链接 
INCLUDE TYPE  spfli  .
INCLUDE TYPE  gty_spfli_incl  .
查看完整代码 
INCLUDE TYPE  spfli  .
INCLUDE TYPE  gty_spfli_incl  .
Other ABAPOOALV超链接 
END OF  gs_spfli  ,
查看完整代码 
END OF  gs_spfli  ,
Other ABAPOOALV超链接 
ENDCASE  .
查看完整代码 
ENDCASE  .
Other ABAPOOALV隐藏列修改列标题添加图标列调整列位置 
END OF  gty_spfli_incl  .
查看完整代码 
END OF  gty_spfli_incl  .
Other ABAPOOALV隐藏列修改列标题添加图标列调整列位置 
INCLUDE TYPE  spfli  .
INCLUDE TYPE  gty_spfli_incl  .
查看完整代码 
INCLUDE TYPE  spfli  .
INCLUDE TYPE  gty_spfli_incl  .
Other ABAPOOALV隐藏列修改列标题添加图标列调整列位置 
END OF  gs_spfli  ,
查看完整代码 
END OF  gs_spfli  ,
Other ABAPOOALV颜色列行单元格 
END OF  gty_spfli_incl  .
查看完整代码 
END OF  gty_spfli_incl  .
Other ABAPOOALV颜色列行单元格 
INCLUDE TYPE  spfli  .
INCLUDE TYPE  gty_spfli_incl  .
查看完整代码 
INCLUDE TYPE  spfli  .
INCLUDE TYPE  gty_spfli_incl  .
Other ABAPOOALV颜色列行单元格 
END OF  gs_spfli  ,
查看完整代码 
END OF  gs_spfli  ,
Other ABAPSALV刷新弹框 
ENDCASE  .
查看完整代码 
ENDCASE  .
Other ABAPSALV刷新弹框 
ENDCASE  .
查看完整代码 
ENDCASE  .
Other ABAPSALV刷新弹框 
END OF  gty_spfli_incl  .
查看完整代码 
END OF  gty_spfli_incl  .
Other ABAPSALV刷新弹框 
INCLUDE TYPE  spfli  .
INCLUDE TYPE  gty_spfli_incl  .
查看完整代码 
INCLUDE TYPE  spfli  .
INCLUDE TYPE  gty_spfli_incl  .
Other ABAPSALV刷新弹框 
END OF  gs_spfli  ,
查看完整代码 
END OF  gs_spfli  ,
Other ABAPSALV刷新弹框 
METHODS  on_link_click  "单击（热点）
查看完整代码 
METHODS  on_link_click  "单击（热点）
Other ABAPSALV刷新弹框 
METHODS  on_added_function  "新增按钮点击
查看完整代码 
METHODS  on_added_function  "新增按钮点击
Other ABAPSALV合计小计 
SELECTION-SCREEN BEGIN OF BLOCK  b1  WITH FRAME TITLE  t1  .
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN COMMENT  1  (  79  )  day01  .
SELECTION-SCREEN END OF LINE  .
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK  b1  WITH FRAME TITLE  t1  .
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN COMMENT  1  (  79  )  day01  .
SELECTION-SCREEN END OF LINE  .
Other ABAPSALV合计小计 
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN COMMENT  1  (  79  )  day06  .
SELECTION-SCREEN END OF LINE  .
查看完整代码 
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN COMMENT  1  (  79  )  day06  .
SELECTION-SCREEN END OF LINE  .
Other ABAPSALV合计小计 
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN COMMENT  1  (  79  )  day08  .
SELECTION-SCREEN END OF LINE  .
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN COMMENT  1  (  79  )  day09  .
SELECTION-SCREEN END OF LINE  .
SELECTION-SCREEN END OF BLOCK  b1  .
查看完整代码 
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN COMMENT  1  (  79  )  day08  .
SELECTION-SCREEN END OF LINE  .
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN COMMENT  1  (  79  )  day09  .
SELECTION-SCREEN END OF LINE  .
SELECTION-SCREEN END OF BLOCK  b1  .
Other ABAPSALV合计小计 
SELECTION-SCREEN BEGIN OF BLOCK  b2  WITH FRAME TITLE  t2  .
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK  b2  WITH FRAME TITLE  t2  .
Other ABAPSALV合计小计 
SELECTION-SCREEN END OF BLOCK  b2  .
查看完整代码 
SELECTION-SCREEN END OF BLOCK  b2  .
Other ABAPSALV固定列鼠标悬停文本 
SELECTION-SCREEN BEGIN OF BLOCK  b1  WITH FRAME TITLE  t1  .
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN COMMENT  01  (  54  )  day01  .
SELECTION-SCREEN COMMENT  59  (  54  )  day14  .
SELECTION-SCREEN END OF LINE  .
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN COMMENT  01  (  54  )  day02  .
SELECTION-SCREEN COMMENT  59  (  54  )  day15  .
...
查看完整代码
查看代码
SELECTION-SCREEN BEGIN OF BLOCK  b1  WITH FRAME TITLE  t1  .
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN COMMENT  01  (  54  )  day01  .
SELECTION-SCREEN COMMENT  59  (  54  )  day14  .
SELECTION-SCREEN END OF LINE  .
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN COMMENT  01  (  54  )  day02  .
SELECTION-SCREEN COMMENT  59  (  54  )  day15  .
SELECTION-SCREEN END OF LINE  .
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN COMMENT  01  (  54  )  day03  .
/* ... 已截断，完整代码请查看原文 */
Other ABAPSALV固定列鼠标悬停文本 
SELECTION-SCREEN END OF BLOCK  b1  .
查看完整代码 
SELECTION-SCREEN END OF BLOCK  b1  .
Other ABAPSALV固定列鼠标悬停文本 
SELECTION-SCREEN BEGIN OF BLOCK  b2  WITH FRAME TITLE  t2  .
SELECTION-SCREEN BEGIN OF LINE  .
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK  b2  WITH FRAME TITLE  t2  .
SELECTION-SCREEN BEGIN OF LINE  .
Other ABAPSALV固定列鼠标悬停文本 
SELECTION-SCREEN COMMENT  03  (  54  )  c01  FOR FIELD  p_day01  .
查看完整代码 
SELECTION-SCREEN COMMENT  03  (  54  )  c01  FOR FIELD  p_day01  .
Other ABAPSALV固定列鼠标悬停文本 
SELECTION-SCREEN COMMENT  59  (  54  )  c14  FOR FIELD  p_day14  .
SELECTION-SCREEN END OF LINE  .
查看完整代码 
SELECTION-SCREEN COMMENT  59  (  54  )  c14  FOR FIELD  p_day14  .
SELECTION-SCREEN END OF LINE  .
Other ABAPSALV固定列鼠标悬停文本 
SELECTION-SCREEN BEGIN OF LINE  .
查看完整代码 
SELECTION-SCREEN BEGIN OF LINE  .
Other ABAPSALV固定列鼠标悬停文本 
SELECTION-SCREEN COMMENT  03  (  54  )  c02  FOR FIELD  p_day02  .
查看完整代码 
SELECTION-SCREEN COMMENT  03  (  54  )  c02  FOR FIELD  p_day02  .
Other ABAPSALV固定列鼠标悬停文本 
SELECTION-SCREEN COMMENT  59  (  54  )  c15  FOR FIELD  p_day15  .
SELECTION-SCREEN END OF LINE  .
查看完整代码 
SELECTION-SCREEN COMMENT  59  (  54  )  c15  FOR FIELD  p_day15  .
SELECTION-SCREEN END OF LINE  .
Other ABAPSALV固定列鼠标悬停文本 
SELECTION-SCREEN BEGIN OF LINE  .
查看完整代码 
SELECTION-SCREEN BEGIN OF LINE  .
Other ABAPSALV固定列鼠标悬停文本 
SELECTION-SCREEN COMMENT  03  (  54  )  c03  FOR FIELD  p_day03  .
查看完整代码 
SELECTION-SCREEN COMMENT  03  (  54  )  c03  FOR FIELD  p_day03  .
Other ABAPSALV固定列鼠标悬停文本 
SELECTION-SCREEN COMMENT  59  (  54  )  c16  FOR FIELD  p_day16  .
SELECTION-SCREEN END OF LINE  .
查看完整代码 
SELECTION-SCREEN COMMENT  59  (  54  )  c16  FOR FIELD  p_day16  .
SELECTION-SCREEN END OF LINE  .
Other ABAPSALV固定列鼠标悬停文本 
SELECTION-SCREEN BEGIN OF LINE  .
查看完整代码 
SELECTION-SCREEN BEGIN OF LINE  .
Other ABAPSALV固定列鼠标悬停文本 
SELECTION-SCREEN COMMENT  03  (  54  )  c04  FOR FIELD  p_day04  .
查看完整代码 
SELECTION-SCREEN COMMENT  03  (  54  )  c04  FOR FIELD  p_day04  .
Other ABAPSALV固定列鼠标悬停文本 
SELECTION-SCREEN COMMENT  59  (  54  )  c17  FOR FIELD  p_day17  .
SELECTION-SCREEN END OF LINE  .
查看完整代码 
SELECTION-SCREEN COMMENT  59  (  54  )  c17  FOR FIELD  p_day17  .
SELECTION-SCREEN END OF LINE  .
Other ABAPSALV固定列鼠标悬停文本 
SELECTION-SCREEN END OF BLOCK  b2  .
查看完整代码 
SELECTION-SCREEN END OF BLOCK  b2  .
Other ABAPSALV固定列鼠标悬停文本 
END OF  gty_spfli_incl  .
查看完整代码 
END OF  gty_spfli_incl  .
Other ABAPSALV固定列鼠标悬停文本 
INCLUDE TYPE  spfli  .
INCLUDE TYPE  gty_spfli_incl  .
查看完整代码 
INCLUDE TYPE  spfli  .
INCLUDE TYPE  gty_spfli_incl  .
Other ABAPSALV固定列鼠标悬停文本 
END OF  gs_spfli  ,
查看完整代码 
END OF  gs_spfli  ,
Other ABAPSALV基本显示外观设置列设置 
SELECTION-SCREEN BEGIN OF BLOCK  b1  WITH FRAME TITLE  t1  .
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN COMMENT  1  (  79  )  day01  .
SELECTION-SCREEN END OF LINE  .
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN COMMENT  1  (  79  )  day02  .
SELECTION-SCREEN END OF LINE  .
SELECTION-SCREEN BEGIN OF LINE  .
...
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK  b1  WITH FRAME TITLE  t1  .
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN COMMENT  1  (  79  )  day01  .
SELECTION-SCREEN END OF LINE  .
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN COMMENT  1  (  79  )  day02  .
SELECTION-SCREEN END OF LINE  .
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN COMMENT  1  (  79  )  day03  .
SELECTION-SCREEN END OF LINE  .
SELECTION-SCREEN END OF BLOCK  b1  .
Other ABAPSALV基本显示外观设置列设置 
SELECTION-SCREEN BEGIN OF BLOCK  b2  WITH FRAME TITLE  t2  .
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK  b2  WITH FRAME TITLE  t2  .
Other ABAPSALV基本显示外观设置列设置 
SELECTION-SCREEN END OF BLOCK  b2  .
查看完整代码 
SELECTION-SCREEN END OF BLOCK  b2  .
Other ABAPSALV按钮设置布局设置 
SELECTION-SCREEN BEGIN OF BLOCK  b1  WITH FRAME TITLE  t1  .
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN COMMENT  1  (  79  )  day01  .
SELECTION-SCREEN END OF LINE  .
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK  b1  WITH FRAME TITLE  t1  .
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN COMMENT  1  (  79  )  day01  .
SELECTION-SCREEN END OF LINE  .
Other ABAPSALV按钮设置布局设置 
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN COMMENT  1  (  79  )  day04  .
SELECTION-SCREEN END OF LINE  .
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN COMMENT  1  (  79  )  day05  .
SELECTION-SCREEN END OF LINE  .
SELECTION-SCREEN END OF BLOCK  b1  .
查看完整代码 
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN COMMENT  1  (  79  )  day04  .
SELECTION-SCREEN END OF LINE  .
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN COMMENT  1  (  79  )  day05  .
SELECTION-SCREEN END OF LINE  .
SELECTION-SCREEN END OF BLOCK  b1  .
Other ABAPSALV按钮设置布局设置 
SELECTION-SCREEN BEGIN OF BLOCK  b2  WITH FRAME TITLE  t2  .
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK  b2  WITH FRAME TITLE  t2  .
Other ABAPSALV按钮设置布局设置 
SELECTION-SCREEN END OF BLOCK  b2  .
查看完整代码 
SELECTION-SCREEN END OF BLOCK  b2  .
Other ABAPSALV排序过滤 
SELECTION-SCREEN BEGIN OF BLOCK  b1  WITH FRAME TITLE  t1  .
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN COMMENT  1  (  79  )  day01  .
SELECTION-SCREEN END OF LINE  .
SELECTION-SCREEN BEGIN OF LINE  .
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK  b1  WITH FRAME TITLE  t1  .
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN COMMENT  1  (  79  )  day01  .
SELECTION-SCREEN END OF LINE  .
SELECTION-SCREEN BEGIN OF LINE  .
Other ABAPSALV排序过滤 
SELECTION-SCREEN COMMENT  1  (  79  )  day06  .
SELECTION-SCREEN END OF LINE  .
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN COMMENT  1  (  79  )  day07  .
SELECTION-SCREEN END OF LINE  .
SELECTION-SCREEN END OF BLOCK  b1  .
查看完整代码 
SELECTION-SCREEN COMMENT  1  (  79  )  day06  .
SELECTION-SCREEN END OF LINE  .
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN COMMENT  1  (  79  )  day07  .
SELECTION-SCREEN END OF LINE  .
SELECTION-SCREEN END OF BLOCK  b1  .
Other ABAPSALV排序过滤 
SELECTION-SCREEN BEGIN OF BLOCK  b2  WITH FRAME TITLE  t2  .
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK  b2  WITH FRAME TITLE  t2  .
Other ABAPSALV排序过滤 
SELECTION-SCREEN END OF BLOCK  b2  .
查看完整代码 
SELECTION-SCREEN END OF BLOCK  b2  .
Other ABAPSALV数据读取不限于SALV 
TRY  .
查看完整代码 
TRY  .
Other ABAPSALV数据读取不限于SALV 
END OF  gty_spfli_incl  .
查看完整代码 
END OF  gty_spfli_incl  .
Other ABAPSALV数据读取不限于SALV 
INCLUDE TYPE  spfli  .
INCLUDE TYPE  gty_spfli_incl  .
查看完整代码 
INCLUDE TYPE  spfli  .
INCLUDE TYPE  gty_spfli_incl  .
Other ABAPSALV数据读取不限于SALV 
END OF  gs_spfli  ,
查看完整代码 
END OF  gs_spfli  ,
Other ABAPSALV数据读取不限于SALV 
METHODS  on_link_click  "单击（热点）
查看完整代码 
METHODS  on_link_click  "单击（热点）
Other ABAPSALV数据读取不限于SALV 
METHODS  on_added_function  "新增按钮点击
查看完整代码 
METHODS  on_added_function  "新增按钮点击
Other ABAPSALV数据读取不限于SALV 
TRY  .
查看完整代码 
TRY  .
Other ABAPSALV数据读取不限于SALV 
SELECTION-SCREEN END OF BLOCK  b1  .
查看完整代码 
SELECTION-SCREEN END OF BLOCK  b1  .
Other ABAPSALV数据读取不限于SALV 
SELECTION-SCREEN BEGIN OF BLOCK  b2  WITH FRAME TITLE  f2  .
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK  b2  WITH FRAME TITLE  f2  .
Other ABAPSALV样式列行单元格 
END OF  gty_spfli_incl  .
查看完整代码 
END OF  gty_spfli_incl  .
Other ABAPSALV样式列行单元格 
INCLUDE TYPE  spfli  .
INCLUDE TYPE  gty_spfli_incl  .
查看完整代码 
INCLUDE TYPE  spfli  .
INCLUDE TYPE  gty_spfli_incl  .
Other ABAPSALV样式列行单元格 
END OF  gs_spfli  ,
查看完整代码 
END OF  gs_spfli  ,
Other ABAPSALV选择模式触发事件 
METHODS  on_link_click  "单击（热点）
查看完整代码 
METHODS  on_link_click  "单击（热点）
Other ABAPSALV选择模式触发事件 
METHODS  on_double_click  "双击
查看完整代码 
METHODS  on_double_click  "双击
Other ABAPSALV选择模式触发事件 
METHODS  on_added_function  "新增按钮点击
查看完整代码 
METHODS  on_added_function  "新增按钮点击
Other ABAPSALV选择模式触发事件 
SELECTION-SCREEN BEGIN OF BLOCK  b1  WITH FRAME TITLE  t1  .
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN COMMENT  1  (  79  )  day01  .
SELECTION-SCREEN END OF LINE  .
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN COMMENT  1  (  79  )  day02  .
SELECTION-SCREEN END OF LINE  .
SELECTION-SCREEN BEGIN OF LINE  .
...
查看完整代码
查看代码
SELECTION-SCREEN BEGIN OF BLOCK  b1  WITH FRAME TITLE  t1  .
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN COMMENT  1  (  79  )  day01  .
SELECTION-SCREEN END OF LINE  .
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN COMMENT  1  (  79  )  day02  .
SELECTION-SCREEN END OF LINE  .
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN COMMENT  1  (  79  )  day03  .
SELECTION-SCREEN END OF LINE  .
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN COMMENT  1  (  79  )  day04  .
/* ... 已截断，完整代码请查看原文 */
Other ABAPSALV选择模式触发事件 
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN COMMENT  1  (  79  )  day12  .
SELECTION-SCREEN END OF LINE  .
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN COMMENT  1  (  79  )  day13  .
SELECTION-SCREEN END OF LINE  .
SELECTION-SCREEN END OF BLOCK  b1  .
查看完整代码 
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN COMMENT  1  (  79  )  day12  .
SELECTION-SCREEN END OF LINE  .
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN COMMENT  1  (  79  )  day13  .
SELECTION-SCREEN END OF LINE  .
SELECTION-SCREEN END OF BLOCK  b1  .
Other ABAPSALV选择模式触发事件 
SELECTION-SCREEN BEGIN OF BLOCK  b2  WITH FRAME TITLE  t2  .
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK  b2  WITH FRAME TITLE  t2  .
Other ABAPSALV选择模式触发事件 
SELECTION-SCREEN END OF BLOCK  b2  .
查看完整代码 
SELECTION-SCREEN END OF BLOCK  b2  .
Other ABAPSALV隐藏列修改列标题添加图标列调整列位置 
SELECTION-SCREEN BEGIN OF BLOCK  b1  WITH FRAME TITLE  t1  .
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN COMMENT  01  (  54  )  day01  .
SELECTION-SCREEN COMMENT  59  (  54  )  day14  .
SELECTION-SCREEN END OF LINE  .
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN COMMENT  01  (  54  )  day02  .
SELECTION-SCREEN COMMENT  59  (  54  )  day15  .
...
查看完整代码
查看代码
SELECTION-SCREEN BEGIN OF BLOCK  b1  WITH FRAME TITLE  t1  .
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN COMMENT  01  (  54  )  day01  .
SELECTION-SCREEN COMMENT  59  (  54  )  day14  .
SELECTION-SCREEN END OF LINE  .
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN COMMENT  01  (  54  )  day02  .
SELECTION-SCREEN COMMENT  59  (  54  )  day15  .
SELECTION-SCREEN END OF LINE  .
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN COMMENT  1  (  54  )  day03  .
/* ... 已截断，完整代码请查看原文 */
Other ABAPSALV隐藏列修改列标题添加图标列调整列位置 
SELECTION-SCREEN END OF BLOCK  b1  .
查看完整代码 
SELECTION-SCREEN END OF BLOCK  b1  .
Other ABAPSALV隐藏列修改列标题添加图标列调整列位置 
SELECTION-SCREEN BEGIN OF BLOCK  b2  WITH FRAME TITLE  t2  .
SELECTION-SCREEN BEGIN OF LINE  .
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK  b2  WITH FRAME TITLE  t2  .
SELECTION-SCREEN BEGIN OF LINE  .
Other ABAPSALV隐藏列修改列标题添加图标列调整列位置 
SELECTION-SCREEN COMMENT  03  (  54  )  c01  FOR FIELD  p_day01  .
查看完整代码 
SELECTION-SCREEN COMMENT  03  (  54  )  c01  FOR FIELD  p_day01  .
Other ABAPSALV隐藏列修改列标题添加图标列调整列位置 
SELECTION-SCREEN COMMENT  59  (  54  )  c14  FOR FIELD  p_day14  .
SELECTION-SCREEN END OF LINE  .
查看完整代码 
SELECTION-SCREEN COMMENT  59  (  54  )  c14  FOR FIELD  p_day14  .
SELECTION-SCREEN END OF LINE  .
Other ABAPSALV隐藏列修改列标题添加图标列调整列位置 
SELECTION-SCREEN BEGIN OF LINE  .
查看完整代码 
SELECTION-SCREEN BEGIN OF LINE  .
Other ABAPSALV隐藏列修改列标题添加图标列调整列位置 
SELECTION-SCREEN COMMENT  03  (  54  )  c02  FOR FIELD  p_day02  .
查看完整代码 
SELECTION-SCREEN COMMENT  03  (  54  )  c02  FOR FIELD  p_day02  .
Other ABAPSALV隐藏列修改列标题添加图标列调整列位置 
SELECTION-SCREEN COMMENT  59  (  54  )  c15  FOR FIELD  p_day15  .
SELECTION-SCREEN END OF LINE  .
查看完整代码 
SELECTION-SCREEN COMMENT  59  (  54  )  c15  FOR FIELD  p_day15  .
SELECTION-SCREEN END OF LINE  .
Other ABAPSALV隐藏列修改列标题添加图标列调整列位置 
SELECTION-SCREEN BEGIN OF LINE  .
查看完整代码 
SELECTION-SCREEN BEGIN OF LINE  .
Other ABAPSALV隐藏列修改列标题添加图标列调整列位置 
SELECTION-SCREEN COMMENT  03  (  54  )  c03  FOR FIELD  p_day03  .
SELECTION-SCREEN END OF LINE  .
查看完整代码 
SELECTION-SCREEN COMMENT  03  (  54  )  c03  FOR FIELD  p_day03  .
SELECTION-SCREEN END OF LINE  .
Other ABAPSALV隐藏列修改列标题添加图标列调整列位置 
SELECTION-SCREEN END OF BLOCK  b2  .
查看完整代码 
SELECTION-SCREEN END OF BLOCK  b2  .
Other ABAPSALV隐藏列修改列标题添加图标列调整列位置 
END OF  gty_spfli_incl  .
查看完整代码 
END OF  gty_spfli_incl  .
Other ABAPSALV隐藏列修改列标题添加图标列调整列位置 
INCLUDE TYPE  spfli  .
INCLUDE TYPE  gty_spfli_incl  .
查看完整代码 
INCLUDE TYPE  spfli  .
INCLUDE TYPE  gty_spfli_incl  .
Other ABAPSALV隐藏列修改列标题添加图标列调整列位置 
END OF  gs_spfli  ,
查看完整代码 
END OF  gs_spfli  ,
Other ABAPSALV颜色列行单元格 
END OF  gty_spfli_incl  .
查看完整代码 
END OF  gty_spfli_incl  .
Other ABAPSALV颜色列行单元格 
INCLUDE TYPE  spfli  .
INCLUDE TYPE  gty_spfli_incl  .
查看完整代码 
INCLUDE TYPE  spfli  .
INCLUDE TYPE  gty_spfli_incl  .
Other ABAPSALV颜色列行单元格 
END OF  gs_spfli  ,
查看完整代码 
END OF  gs_spfli  ,
Other ABAPSE16N增强功能效果演示 
END
查看完整代码 
END
Other ABAPSM30删除前检查 
LOOP  AT  extract  .
查看完整代码 
LOOP  AT  extract  .
Other ABAP使用异步远程RFC实现并行处理 
ENDFUNCTION."--------------------@斌将军--------------------
查看完整代码 
ENDFUNCTION."--------------------@斌将军--------------------
Other ABAP开发中的画蛇添足现象 
SELECTION没有区别，所以  毫无使用的必要了。
查看完整代码 
SELECTION没有区别，所以  毫无使用的必要了。
Other ABAP按条件锁定报表防止程序同一时间重复运行 
CALL  FUNCTION  'ENQUEUE_ESINDX'
查看完整代码 
CALL  FUNCTION  'ENQUEUE_ESINDX'
Other ABAP新语法BASE 
END OF  gty_student  ,
查看完整代码 
END OF  gty_student  ,
Other ABAP新语法CORRESPONDING 
END OF  gty_student  ,
查看完整代码 
END OF  gty_student  ,
Other ABAP新语法CORRESPONDING 
END OF  gty_teacher  ,
查看完整代码 
END OF  gty_teacher  ,
Other ABAP新语法FILTER 
END OF  gty_student  .
查看完整代码 
END OF  gty_student  .
Other ABAP新语法FOR 
END OF  gty_student  ,
查看完整代码 
END OF  gty_student  ,
Other ABAP新语法FOR 
END OF line  ,
查看完整代码 
END OF line  ,
Other ABAP新语法GROUPBY 
END OF  gty_student  ,
查看完整代码 
END OF  gty_student  ,
Other ABAP新语法ITABidxITABkey 
END OF  gty_student  .
查看完整代码 
END OF  gty_student  .
Other ABAP新语法ITABidxITABkey 
ENDTRY  .
查看完整代码 
ENDTRY  .
Other ABAP新语法LET 
END OF  gty_student  ,
查看完整代码 
END OF  gty_student  ,
Other ABAP新语法LET 
END OF  gty_school  ,
查看完整代码 
END OF  gty_school  ,
Other ABAP新语法LET 
END OF  lty_let  .
查看完整代码 
END OF  lty_let  .
Other ABAP新语法OPENSQLPart1 
END OF  gty_student  ,
查看完整代码 
END OF  gty_student  ,
Other ABAP新语法OPENSQLPart2 
END OF  gty_student  ,
查看完整代码 
END OF  gty_student  ,
Other ABAP新语法OPENSQLPart2 
END AS case  ,
查看完整代码 
END AS case  ,
Other ABAP新语法OPENSQLPart2 
END AS  case2  ,
查看完整代码 
END AS  case2  ,
Other ABAP新语法OPENSQLPart3 
END OF  gty_student  ,
查看完整代码 
END OF  gty_student  ,
Other ABAP新语法OPENSQLPart4 
END OF  gty_student  ,
查看完整代码 
END OF  gty_student  ,
Other ABAP新语法REDUCE 
END OF  gty_student  ,
查看完整代码 
END OF  gty_student  ,
Other ABAP新语法REDUCE 
END OF  lty_reduce  ,
查看完整代码 
END OF  lty_reduce  ,
Other ABAP新语法SEGMENT 
CATCH  cx_sy_strg_par_val  INTO DATA  (  exc  ).
查看完整代码 
CATCH  cx_sy_strg_par_val  INTO DATA  (  exc  ).
Other ABAP新语法SEGMENT 
ENDTRY  .
查看完整代码 
ENDTRY  .
Other ABAP新语法SEGMENT 
CATCH  cx_sy_strg_par_val  INTO  exc  .
查看完整代码 
CATCH  cx_sy_strg_par_val  INTO  exc  .
Other ABAP新语法SEGMENT 
ENDTRY  .
ENDDO  .
查看完整代码 
ENDTRY  .
ENDDO  .
Other ABAP新语法VALUE 
END OF  gty_student  .
查看完整代码 
END OF  gty_student  .
Other ABAP新语法构建演示数据 
END OF  gty_student  .
查看完整代码 
END OF  gty_student  .
Other ABAP每日随笔day3值转化和赋值 
END OF ty_mara.
查看完整代码 
END OF ty_mara.
Other ABAP每日随笔day3值转化和赋值 
END OF ty_makt.
查看完整代码 
END OF ty_makt.
Other ABAP选择屏幕多步骤计算模版 
SELECTION-SCREEN BEGIN OF BLOCK  b1  WITH FRAME TITLE  t1  .
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK  b1  WITH FRAME TITLE  t1  .
Other ABAP选择屏幕多步骤计算模版 
SELECTION-SCREEN END OF BLOCK  b1  .
查看完整代码 
SELECTION-SCREEN END OF BLOCK  b1  .
Other ABAP选择屏幕多步骤计算模版 
SELECTION-SCREEN BEGIN OF BLOCK  b2  WITH FRAME TITLE  t2  .
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK  b2  WITH FRAME TITLE  t2  .
Other ABAP选择屏幕多步骤计算模版 
SELECTION-SCREEN SKIP  .
查看完整代码 
SELECTION-SCREEN SKIP  .
Other ABAP选择屏幕多步骤计算模版 
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN  PUSHBUTTON  01  (  12  )  btn1  USER-COMMAND  fbtn1  .  "
查看完整代码 
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN  PUSHBUTTON  01  (  12  )  btn1  USER-COMMAND  fbtn1  .  "
Other ABAP选择屏幕多步骤计算模版 
SELECTION-SCREEN  PUSHBUTTON  15  (  12  )  btn2  USER-COMMAND  fbtn2  .  "
查看完整代码 
SELECTION-SCREEN  PUSHBUTTON  15  (  12  )  btn2  USER-COMMAND  fbtn2  .  "
Other ABAP选择屏幕多步骤计算模版 
SELECTION-SCREEN END OF LINE  .
SELECTION-SCREEN END OF BLOCK  b2  .
查看完整代码 
SELECTION-SCREEN END OF LINE  .
SELECTION-SCREEN END OF BLOCK  b2  .
Other ABAP选择屏幕多步骤计算模版 
SELECTION-SCREEN BEGIN OF BLOCK  b3  WITH FRAME TITLE  t3  .
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN COMMENT  1  (  79  )  warning1  .
SELECTION-SCREEN END OF LINE  .
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN COMMENT  1  (  79  )  warning2  .
SELECTION-SCREEN END OF LINE  .
SELECTION-SCREEN BEGIN OF LINE  .
...
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK  b3  WITH FRAME TITLE  t3  .
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN COMMENT  1  (  79  )  warning1  .
SELECTION-SCREEN END OF LINE  .
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN COMMENT  1  (  79  )  warning2  .
SELECTION-SCREEN END OF LINE  .
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN COMMENT  1  (  79  )  warning3  .
SELECTION-SCREEN END OF LINE  .
SELECTION-SCREEN END OF BLOCK  b3  .
Other ABAP选择屏幕多步骤计算模版 
ENDCASE  .
查看完整代码 
ENDCASE  .
Other ABAP选择屏幕展开折叠屏幕元素 
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN  PUSHBUTTON  1  (  4  )  btn1  USER-COMMAND  fbtn1 VISIBLE
查看完整代码 
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN  PUSHBUTTON  1  (  4  )  btn1  USER-COMMAND  fbtn1 VISIBLE
Other ABAP选择屏幕展开折叠屏幕元素 
SELECTION-SCREEN COMMENT  4  (  6  )  txt1  .
SELECTION-SCREEN END OF LINE  .
查看完整代码 
SELECTION-SCREEN COMMENT  4  (  6  )  txt1  .
SELECTION-SCREEN END OF LINE  .
Other ABAP选择屏幕展开折叠屏幕元素 
SELECTION-SCREEN SKIP  1  .
查看完整代码 
SELECTION-SCREEN SKIP  1  .
Other ABAP选择屏幕展开折叠屏幕元素 
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN  PUSHBUTTON  1  (  4  )  btn2  USER-COMMAND  fbtn2 VISIBLE
查看完整代码 
SELECTION-SCREEN BEGIN OF LINE  .
SELECTION-SCREEN  PUSHBUTTON  1  (  4  )  btn2  USER-COMMAND  fbtn2 VISIBLE
Other ABAP选择屏幕展开折叠屏幕元素 
SELECTION-SCREEN COMMENT  4  (  6  )  txt2  .
SELECTION-SCREEN END OF LINE  .
查看完整代码 
SELECTION-SCREEN COMMENT  4  (  6  )  txt2  .
SELECTION-SCREEN END OF LINE  .
Other ABAP选择屏幕显示隐藏屏幕元素 
SELECTION-SCREEN BEGIN OF BLOCK  b1  WITH FRAME TITLE  f1  .
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK  b1  WITH FRAME TITLE  f1  .
Other ABAP选择屏幕显示隐藏屏幕元素 
SELECTION-SCREEN END OF BLOCK  b1  .
查看完整代码 
SELECTION-SCREEN END OF BLOCK  b1  .
Other ABAP选择屏幕显示隐藏屏幕元素 
SELECTION-SCREEN END OF BLOCK  b2  .
查看完整代码 
SELECTION-SCREEN END OF BLOCK  b2  .
Other ABAP选择屏幕添加新按钮 
SELECTION-SCREEN FUNCTION KEY  1  .
查看完整代码 
SELECTION-SCREEN FUNCTION KEY  1  .
Other ABAP选择屏幕添加新按钮 
ENDCASE  .
查看完整代码 
ENDCASE  .
Other ABAP选择屏幕添加新按钮 
SELECTION-SCREEN FUNCTION KEY  1  .
SELECTION-SCREEN FUNCTION KEY  2  .
查看完整代码 
SELECTION-SCREEN FUNCTION KEY  1  .
SELECTION-SCREEN FUNCTION KEY  2  .
Other ABAP选择屏幕添加新按钮 
END-OF-DEFINITION  .
查看完整代码 
END-OF-DEFINITION  .
Other ABAP选择屏幕添加新按钮 
ENDCASE  .
查看完整代码 
ENDCASE  .
Other ABAP选择屏幕页签展示 
SELECTION-SCREEN END OF SCREEN  100  .
查看完整代码 
SELECTION-SCREEN END OF SCREEN  100  .
Other ABAP选择屏幕页签展示 
SELECTION-SCREEN END OF SCREEN  200  .
查看完整代码 
SELECTION-SCREEN END OF SCREEN  200  .
Other ABAP选择屏幕页签展示 
SELECTION-SCREEN  :
查看完整代码 
SELECTION-SCREEN  :
Other ABAP选择屏幕页签展示 
END OF BLOCK  mytab  .
查看完整代码 
END OF BLOCK  mytab  .
Other ABAP选择屏幕页签展示 
ENDCASE  .
查看完整代码 
ENDCASE  .
Other ABAP随笔ALV上的下拉框 
END OF  ty_data  .
查看完整代码 
END OF  ty_data  .
Other ABAP随笔ALV上的下拉框 
END-OF-DEFINITION  .
查看完整代码 
END-OF-DEFINITION  .
Other ABAP随笔EXCEL3批量导入突破标准函数的9999行 
ENDWHILE  .
查看完整代码 
ENDWHILE  .
Other ABAP随笔EXCEL操作笔记1Excel模板下载 
SELECTION-SCREEN  :  FUNCTION KEY  1  .  "  按钮在标题行
SELECTION-SCREEN  PUSHBUTTON  02  (  10  )  TEXT  \-  001  USER-COMMAND  pb1
查看完整代码 
SELECTION-SCREEN  :  FUNCTION KEY  1  .  "  按钮在标题行
SELECTION-SCREEN  PUSHBUTTON  02  (  10  )  TEXT  \-  001  USER-COMMAND  pb1
Other ABAP随笔EXCEL操作笔记1Excel模板下载 
ENDCASE  .
查看完整代码 
ENDCASE  .
Other ABAP随笔EXCEL笔记2批量导入 
END OF ty_zmmt001.
查看完整代码 
END OF ty_zmmt001.
Other ABAP随笔EXCEL笔记5批量导出SAP_CONVERT_TO_XLS_FORMAT 
END OF  lty_excel  .
查看完整代码 
END OF  lty_excel  .
Other ABAP随笔EXCEL笔记7批量导出CL_XLSX_DOCUMENT 
TRY  .
查看完整代码 
TRY  .
Other ABAP随笔EXCEL笔记7批量导出CL_XLSX_DOCUMENT 
CATCH  cx_openxml_format  INTO DATA  (  openxml_format_exception  ).
查看完整代码 
CATCH  cx_openxml_format  INTO DATA  (  openxml_format_exception  ).
Other ABAP随笔EXCEL笔记7批量导出CL_XLSX_DOCUMENT 
CATCH  cx_openxml_not_found  INTO DATA  (  openxml_not_found_exception  ).
查看完整代码 
CATCH  cx_openxml_not_found  INTO DATA  (  openxml_not_found_exception  ).
Other ABAP随笔EXCEL笔记7批量导出CL_XLSX_DOCUMENT 
CATCH  cx_openxml_not_allowed  INTO DATA  (  openxml_not_allowed_exception  ).
查看完整代码 
CATCH  cx_openxml_not_allowed  INTO DATA  (  openxml_not_allowed_exception  ).
Other ABAP随笔EXCEL笔记7批量导出CL_XLSX_DOCUMENT 
ENDTRY  .  _ *  将  16  进制转化为内表  _
查看完整代码 
ENDTRY  .  _ *  将  16  进制转化为内表  _
Other ABAP随笔SM30常见增强操作自动带描述等 
ENDCHAIN.
查看完整代码 
ENDCHAIN.
Other ABAP随笔SM30常见增强操作自动带描述等 
ENDMODULE.
查看完整代码 
ENDMODULE.
Other ABAP随笔smartforms打印及PDF转化 
END OF ty_data.
查看完整代码 
END OF ty_data.
Other ABAP随笔smartforms打印及PDF转化 
INCLUDE z_smartforms_cls.
查看完整代码 
INCLUDE z_smartforms_cls.
Other ABAP随笔smartforms打印及PDF转化 
END-OF-SELECTION.
查看完整代码 
END-OF-SELECTION.
Other ABAP随笔smartforms打印及PDF转化 
CREATE OBJECT gr_alv.
查看完整代码 
CREATE OBJECT gr_alv.
Other ABAP随笔smartforms打印及PDF转化 
CALL SCREEN 9000.
查看完整代码 
CALL SCREEN 9000.
Other ABAP随笔smartforms打印及PDF转化 
END-OF-DEFINITION.
查看完整代码 
END-OF-DEFINITION.
Other ABAP随笔smartforms打印及PDF转化 
ENDMODULE.
查看完整代码 
ENDMODULE.
Other ABAP随笔smartforms打印及PDF转化 
ENDCASE.
查看完整代码 
ENDCASE.
Other ABAP随笔smartforms打印及PDF转化 
ENDMODULE.
查看完整代码 
ENDMODULE.
Other ABAP随笔smartforms打印及PDF转化 
ENDCASE.
查看完整代码 
ENDCASE.
Other ABAP随笔入门简单ALV附单元格颜色控制 
END  OF  gty_data  .
查看完整代码 
END  OF  gty_data  .
Other ABAP随笔入门简单ALV附单元格颜色控制 
END-OF-DEFINITION  .
查看完整代码 
END-OF-DEFINITION  .
Other ABAP随笔关于ECC后台server读取Excel方案的想法 
END OF gt_tab.
查看完整代码 
END OF gt_tab.
Other ABAP随笔关于ECC后台server读取Excel方案的想法 
ENDTRY.
ENDCASE.
查看完整代码 
ENDTRY.
ENDCASE.
Other ABAP随笔关于ECC后台server读取Excel方案的想法 
ENDWHILE.
查看完整代码 
ENDWHILE.
Other ABAP随笔新语法corresponding 
END OF ty_data1,
查看完整代码 
END OF ty_data1,
Other ABAP随笔新语法corresponding 
END OF ty_data2.
查看完整代码 
END OF ty_data2.
Other ABAP随笔新语法corresponding 
END OF ty_data,
查看完整代码 
END OF ty_data,
Other ABAP随笔新语法corresponding 
END OF information,
查看完整代码 
END OF information,
Other ABAP随笔新语法corresponding 
END OF customer_oa,
查看完整代码 
END OF customer_oa,
Other ABAP随笔新语法corresponding 
END OF info,
查看完整代码 
END OF info,
Other ABAP随笔新语法corresponding 
END OF customer_sap.
查看完整代码 
END OF customer_sap.
Other ABAP随笔物料主数据界面增强 
END OF  ty_zmmt001  .
查看完整代码 
END OF  ty_zmmt001  .
Other ABAP随笔物料主数据界面增强 
ENDMODULE  .
查看完整代码 
ENDMODULE  .
Other ABAP随笔物料主数据界面增强 
ENDMODULE  .
查看完整代码 
ENDMODULE  .
Other ABAP随笔物料主数据界面增强页签增强 
ENDMODULE.
查看完整代码 
ENDMODULE.
Other ABAP随笔通过api获取新冠数据 
lr_data  =  /ui2/cl_json  => generate  (  json  =  json_result  )  .
查看完整代码 
lr_data  =  /ui2/cl_json  => generate  (  json  =  json_result  )  .
Other ABAP随笔通过api获取新冠数据 
END  OF  gs_data  .
查看完整代码 
END  OF  gs_data  .
Other ABAP随笔面试回忆望大家需求不增人天飙升 
CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.
查看完整代码 
CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.
Other ABAP随笔面试回忆望大家需求不增人天飙升 
END-OF-SELECTION.
查看完整代码 
END-OF-SELECTION.
Other ABAP零碎知识2 
CALL其他程序的子程序并先给全局变量赋值：
查看完整代码 
CALL其他程序的子程序并先给全局变量赋值：
Other ABAP零碎知识6 
FUNCTION-POOL ztest01. "MESSAGE-ID ..
查看完整代码 
FUNCTION-POOL ztest01. "MESSAGE-ID ..
Other ABAP零碎知识6 
ENDDO.
查看完整代码 
ENDDO.
Other ABAP高级调试功能 
CALL Dialog
查看完整代码 
CALL Dialog
Other ALSM_EXCEL_TO_INTERNAL_TABLE 
CALL FUNCTION ‘ALSM_EXCEL_TO_INTERNAL_TABLE’
查看完整代码 
CALL FUNCTION ‘ALSM_EXCEL_TO_INTERNAL_TABLE’
Other ALSM_EXCEL_TO_INTERNAL_TABLE 
LOOP
查看完整代码 
LOOP
Other ALSM_EXCEL_TO_INTERNAL_TABLE 
ENDCASE
查看完整代码 
ENDCASE
Other ALSM_EXCEL_TO_INTERNAL_TABLE 
END AT
查看完整代码 
END AT
Other ALSM_EXCEL_TO_INTERNAL_TABLE 
CALL FUNCTION ‘LVC_FIELDCATALOG_MERGE’
查看完整代码 
CALL FUNCTION ‘LVC_FIELDCATALOG_MERGE’
Other ALSM_EXCEL_TO_INTERNAL_TABLE 
CALL FUNCTION ‘ALSM_EXCEL_TO_INTERNAL_TABLE’
查看完整代码 
CALL FUNCTION ‘ALSM_EXCEL_TO_INTERNAL_TABLE’
Other ALSM_EXCEL_TO_INTERNAL_TABLE 
ENDAT.
查看完整代码 
ENDAT.
Other ALSM_EXCEL_TO_INTERNAL_TABLE 
ENDAT.
查看完整代码 
ENDAT.
Other ALV drilldown report to ME23N 
END OF t_ekko.
查看完整代码 
END OF t_ekko.
Other ALV drilldown report to ME23N 
CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.
查看完整代码 
CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.
Other ALV drilldown report to ME23N 
ENDCASE.
查看完整代码 
ENDCASE.
Other ALV 
TRY.
查看完整代码 
TRY.
Other ALV 
ENDTRY.
查看完整代码 
ENDTRY.
Other Activating Generic Object Services Toolbar in SAP Objects 
CREATE OBJECT LR_GOS_MANAGER
查看完整代码 
CREATE OBJECT LR_GOS_MANAGER
Other Activating Generic Object Services Toolbar in SAP Objects 
CREATE OBJECT LR_GOS_MANAGER
查看完整代码 
CREATE OBJECT LR_GOS_MANAGER
Other Add a Selection Screen to a Table Maintenance Dialog 
REPORT  z_maintain_mytable.
查看完整代码 
REPORT  z_maintain_mytable.
Other Add a Selection Screen to a Table Maintenance Dialog 
CALL FUNCTION ‘VIEW_RANGETAB_TO_SELLIST’
查看完整代码 
CALL FUNCTION ‘VIEW_RANGETAB_TO_SELLIST’
Other Add a Selection Screen to a Table Maintenance Dialog 
END-OF-DEFINITION.
查看完整代码 
END-OF-DEFINITION.
Other Add a Selection Screen to a Table Maintenance Dialog 
APPEND selection TO selections.
查看完整代码 
APPEND selection TO selections.
Other Add a Selection Screen to a Table Maintenance Dialog 
END-OF-DEFINITION.
查看完整代码 
END-OF-DEFINITION.
Other Add a Selection Screen to a Table Maintenance Dialog 
CALL FUNCTION ‘VIEW_MAINTENANCE_CALL’
查看完整代码 
CALL FUNCTION ‘VIEW_MAINTENANCE_CALL’
Other Adding Incompletion log entries to Incompletion Log Internal Table XVBUV 
APPEND xvbuv.
查看完整代码 
APPEND xvbuv.
Other Adding multiple messages in MIGO transaction via MB_CHECK_LINE_BADI 
METHOD if_ex_mb_migo_badi~pai_detail.
查看完整代码 
METHOD if_ex_mb_migo_badi~pai_detail.
Other Adding multiple messages in MIGO transaction via MB_CHECK_LINE_BADI 
METHOD if_ex_mb_migo_badi~reset.
查看完整代码 
METHOD if_ex_mb_migo_badi~reset.
Other Alternative to READ_TEXT Function Module (No more FM needed) 
END OF TY_STXL.
查看完整代码 
END OF TY_STXL.
Other Alternative to READ_TEXT Function Module (No more FM needed) 
END OF TY_STXL_RAW.
查看完整代码 
END OF TY_STXL_RAW.
Other Alternative to READ_TEXT Function Module (No more FM needed) 
ENDSELECT.
查看完整代码 
ENDSELECT.
Other Application Server and GUI Files using CL_RSAN_UT_FILES 
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME.
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME.
Other Application Server and GUI Files using CL_RSAN_UT_FILES 
SELECTION-SCREEN END OF BLOCK B1.
查看完整代码 
SELECTION-SCREEN END OF BLOCK B1.
Other Application Server and GUI Files using CL_RSAN_UT_FILES 
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME.
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME.
Other Application Server and GUI Files using CL_RSAN_UT_FILES 
SELECTION-SCREEN END OF BLOCK B2.
查看完整代码 
SELECTION-SCREEN END OF BLOCK B2.
Other Automatic Payment Advice by email 
FUNCTION ZSAMPLE_PROCESS_00002050.
查看完整代码 
FUNCTION ZSAMPLE_PROCESS_00002050.
Other Automatic Payment Advice by email 
ENDFUNCTION.
查看完整代码 
ENDFUNCTION.
Other BAPI to clear posting 
APPEND LDS_FTCLEAR TO P_LDT_FTCLEAR.
查看完整代码 
APPEND LDS_FTCLEAR TO P_LDT_FTCLEAR.
Other BAPI to clear posting 
APPEND LDS_FTPOST TO P_LDT_FTPOST.
查看完整代码 
APPEND LDS_FTPOST TO P_LDT_FTPOST.
Other BAPI to clear posting 
CALL FUNCTION ‘POSTING_INTERFACE_START’
查看完整代码 
CALL FUNCTION ‘POSTING_INTERFACE_START’
Other BAPI to clear posting 
FUNCTION_INVALID   = 2
查看完整代码 
FUNCTION_INVALID   = 2
Other BAPI to clear posting 
CALL FUNCTION ‘POSTING_INTERFACE_CLEARING’
查看完整代码 
CALL FUNCTION ‘POSTING_INTERFACE_CLEARING’
Other BAPI to clear posting 
CALL FUNCTION ‘POSTING_INTERFACE_END’
查看完整代码 
CALL FUNCTION ‘POSTING_INTERFACE_END’
Other BAPI to clear posting 
APPEND LDS_FTCLEAR TO P_LDT_FTCLEAR.
查看完整代码 
APPEND LDS_FTCLEAR TO P_LDT_FTCLEAR.
Other BAPI to clear posting 
APPEND LDS_FTCLEAR TO P_LDT_FTCLEAR.
查看完整代码 
APPEND LDS_FTCLEAR TO P_LDT_FTCLEAR.
Other BAdI MB_MIGO_BADI 
METHOD if_ex_mb_migo_badi~pai_detail.
查看完整代码 
METHOD if_ex_mb_migo_badi~pai_detail.
Other BAdI MB_MIGO_BADI 
METHOD if_ex_mb_migo_badi~reset.
查看完整代码 
METHOD if_ex_mb_migo_badi~reset.
Other BAdI MB_MIGO_BADI 
METHOD if_ex_mb_migo_badi~mode_set.
查看完整代码 
METHOD if_ex_mb_migo_badi~mode_set.
Other BDC XK01 
END OF record.
查看完整代码 
END OF record.
Other BDC XK01 
ENDON.
查看完整代码 
ENDON.
Other BDC XK01 
ENDAT.
查看完整代码 
ENDAT.
Other BDC XK01 
ENDON.
查看完整代码 
ENDON.
Other BDC XK01 
CALL TRANSACTION 'ME21' USING bdcdat MODE 'A'.
查看完整代码 
CALL TRANSACTION 'ME21' USING bdcdat MODE 'A'.
Other BDC XK01 
END OF IT_DUMMY.
查看完整代码 
END OF IT_DUMMY.
Other BDC XK01 
END OF IT_XK01,
查看完整代码 
END OF IT_XK01,
Other BDC XK01 
END OF IT_BANK.
查看完整代码 
END OF IT_BANK.
Other BDC XK01 
CALL TRANSACTION 'XK01' USING IT_BDCDATA
查看完整代码 
CALL TRANSACTION 'XK01' USING IT_BDCDATA
Other BIS系统客户化开发如何检测数据中潜在的不规范行为 
END
查看完整代码 
END
Other BP供应商主数据新增页签增强 
ENDFUNCTION.
查看完整代码 
ENDFUNCTION.
Other BP供应商主数据新增页签增强 
ENDFUNCTION."--------------------@斌将军--------------------
查看完整代码 
ENDFUNCTION."--------------------@斌将军--------------------
Other BP客户增强保存时增加校验事件DCHCK 
FUNCTION  zbp_bupa_event_dchck  .
查看完整代码 
FUNCTION  zbp_bupa_event_dchck  .
Other BP客户增强保存时增加校验事件DCHCK 
ENDFUNCTION  .
查看完整代码 
ENDFUNCTION  .
Other BP新增页签增强 
ENDFUNCTION."--------------------@斌将军--------------------
查看完整代码 
ENDFUNCTION."--------------------@斌将军--------------------
Other BP新增页签增强 
ENDFUNCTION."--------------------@斌将军--------------------
查看完整代码 
ENDFUNCTION."--------------------@斌将军--------------------
Other BP新增页签增强 
ENDFUNCTION."--------------------@斌将军--------------------
查看完整代码 
ENDFUNCTION."--------------------@斌将军--------------------
Other BP新增页签增强 
ENDFUNCTION.
查看完整代码 
ENDFUNCTION.
Other Build Custom Selection Screens for Extended Table Maintenance (2) 
SELECTION-SCREEN: BEGIN OF SCREEN 10.
查看完整代码 
SELECTION-SCREEN: BEGIN OF SCREEN 10.
Other Build Custom Selection Screens for Extended Table Maintenance (2) 
SELECTION-SCREEN: END OF SCREEN 10.
查看完整代码 
SELECTION-SCREEN: END OF SCREEN 10.
Other Build Custom Selection Screens for Extended Table Maintenance (2) 
FORM custom_selscreen.
查看完整代码 
FORM custom_selscreen.
Other Build Custom Selection Screens for Extended Table Maintenance (2) 
CALL SCREEN 10 STARTING AT 20 10.
查看完整代码 
CALL SCREEN 10 STARTING AT 20 10.
Other Build Custom Selection Screens for Extended Table Maintenance (2) 
INCLUDE TYPE zmytable.
查看完整代码 
INCLUDE TYPE zmytable.
Other Build Custom Selection Screens for Extended Table Maintenance (2) 
INCLUDE TYPE vimtbflags.
查看完整代码 
INCLUDE TYPE vimtbflags.
Other Build Custom Selection Screens for Extended Table Maintenance (2) 
LOOP AT total.
查看完整代码 
LOOP AT total.
Other Build Custom Selection Screens for Extended Table Maintenance (2) 
SELECTION-SCREEN BEGIN OF SCREEN 10.
查看完整代码 
SELECTION-SCREEN BEGIN OF SCREEN 10.
Other Build Custom Selection Screens for Extended Table Maintenance (2) 
SELECTION-SCREEN END OF SCREEN 10.
查看完整代码 
SELECTION-SCREEN END OF SCREEN 10.
Other Build Custom Selection Screens for Extended Table Maintenance (2) 
FORM custom_selscreen.
查看完整代码 
FORM custom_selscreen.
Other Build Custom Selection Screens for Extended Table Maintenance (2) 
CALL SCREEN 10 STARTING AT 20 10.
查看完整代码 
CALL SCREEN 10 STARTING AT 20 10.
Other Build Custom Selection Screens for Extended Table Maintenance (2) 
INCLUDE TYPE zmytable.
查看完整代码 
INCLUDE TYPE zmytable.
Other Build Custom Selection Screens for Extended Table Maintenance (2) 
INCLUDE TYPE vimtbflags.
查看完整代码 
INCLUDE TYPE vimtbflags.
Other Build Custom Selection Screens for Extended Table Maintenance (2) 
LOOP AT total.
查看完整代码 
LOOP AT total.
Other Build Custom Selection Screens for Extended Table Maintenance 
SELECTION-SCREEN BEGIN OF SCREEN 10.
查看完整代码 
SELECTION-SCREEN BEGIN OF SCREEN 10.
Other Build Custom Selection Screens for Extended Table Maintenance 
SELECTION-SCREEN END OF SCREEN 10.
查看完整代码 
SELECTION-SCREEN END OF SCREEN 10.
Other Build Custom Selection Screens for Extended Table Maintenance 
FORM custom_selscreen.
查看完整代码 
FORM custom_selscreen.
Other Build Custom Selection Screens for Extended Table Maintenance 
CALL SCREEN 10 STARTING AT 30 10.
查看完整代码 
CALL SCREEN 10 STARTING AT 30 10.
Other Build Custom Selection Screens for Extended Table Maintenance 
INCLUDE TYPE zt811f.
INCLUDE TYPE vimtbflags.
查看完整代码 
INCLUDE TYPE zt811f.
INCLUDE TYPE vimtbflags.
Other Build Custom Selection Screens for Extended Table Maintenance 
LOOP AT total.
查看完整代码 
LOOP AT total.
Other Build Custom Selection Screens for Extended Table Maintenance 
LOOP AT total.
查看完整代码 
LOOP AT total.
Other Build Custom Selection Screens for Extended Table Maintenance 
SELECTION-SCREEN: BEGIN OF SCREEN 10.
查看完整代码 
SELECTION-SCREEN: BEGIN OF SCREEN 10.
Other Build Custom Selection Screens for Extended Table Maintenance 
SELECTION-SCREEN: END OF SCREEN 10.
查看完整代码 
SELECTION-SCREEN: END OF SCREEN 10.
Other Build Custom Selection Screens for Extended Table Maintenance 
FORM custom_selscreen.
查看完整代码 
FORM custom_selscreen.
Other Build Custom Selection Screens for Extended Table Maintenance 
CALL SCREEN 10 STARTING AT 20 10.
查看完整代码 
CALL SCREEN 10 STARTING AT 20 10.
Other Build Custom Selection Screens for Extended Table Maintenance 
INCLUDE TYPE zmytable.
查看完整代码 
INCLUDE TYPE zmytable.
Other Build Custom Selection Screens for Extended Table Maintenance 
INCLUDE TYPE vimtbflags.
查看完整代码 
INCLUDE TYPE vimtbflags.
Other Build Custom Selection Screens for Extended Table Maintenance 
LOOP AT total.
查看完整代码 
LOOP AT total.
Other Build Custom Selection Screens for Extended Table Maintenance 
SELECTION-SCREEN BEGIN OF SCREEN 10.
查看完整代码 
SELECTION-SCREEN BEGIN OF SCREEN 10.
Other Build Custom Selection Screens for Extended Table Maintenance 
SELECTION-SCREEN END OF SCREEN 10.
查看完整代码 
SELECTION-SCREEN END OF SCREEN 10.
Other Build Custom Selection Screens for Extended Table Maintenance 
FORM custom_selscreen.
查看完整代码 
FORM custom_selscreen.
Other Build Custom Selection Screens for Extended Table Maintenance 
CALL SCREEN 10 STARTING AT 20 10.
查看完整代码 
CALL SCREEN 10 STARTING AT 20 10.
Other Build Custom Selection Screens for Extended Table Maintenance 
INCLUDE TYPE zmytable.
查看完整代码 
INCLUDE TYPE zmytable.
Other Build Custom Selection Screens for Extended Table Maintenance 
INCLUDE TYPE vimtbflags.
查看完整代码 
INCLUDE TYPE vimtbflags.
Other Build Custom Selection Screens for Extended Table Maintenance 
LOOP AT total.
查看完整代码 
LOOP AT total.
Other Build Custom Selection Screens for Extended Table Maintenance 
REPORT  z_maintain_mytable.
查看完整代码 
REPORT  z_maintain_mytable.
Other Build Custom Selection Screens for Extended Table Maintenance 
CALL FUNCTION ‘VIEW_RANGETAB_TO_SELLIST’
查看完整代码 
CALL FUNCTION ‘VIEW_RANGETAB_TO_SELLIST’
Other Build Custom Selection Screens for Extended Table Maintenance 
END-OF-DEFINITION.
查看完整代码 
END-OF-DEFINITION.
Other Build Custom Selection Screens for Extended Table Maintenance 
APPEND selection TO selections.
查看完整代码 
APPEND selection TO selections.
Other Build Custom Selection Screens for Extended Table Maintenance 
END-OF-DEFINITION.
查看完整代码 
END-OF-DEFINITION.
Other Build Custom Selection Screens for Extended Table Maintenance 
CALL FUNCTION ‘VIEW_MAINTENANCE_CALL’
查看完整代码 
CALL FUNCTION ‘VIEW_MAINTENANCE_CALL’
Other Building an SAP Query with ABAP Code 
END-OF-SELECTION :
查看完整代码 
END-OF-SELECTION :
Other Building an SAP Query with ABAP Code 
END-OF-SELECTION ( After List )
查看完整代码 
END-OF-SELECTION ( After List )
Other Building an SAP Query with ABAP Code 
END-OF-SELECTION :
查看完整代码 
END-OF-SELECTION :
Other Control Break Statements in SAP ABAP 
REPORT  ZCEVENTS NO STANDARD PAGE HEADING.
查看完整代码 
REPORT  ZCEVENTS NO STANDARD PAGE HEADING.
Other Control Break Statements in SAP ABAP 
END OF TY_MARC.
查看完整代码 
END OF TY_MARC.
Other Control Break Statements in SAP ABAP 
END OF TY_MARC1.
查看完整代码 
END OF TY_MARC1.
Other Control Break Statements in SAP ABAP 
ENDAT.
查看完整代码 
ENDAT.
Other Control Break Statements in SAP ABAP 
ENDON.
查看完整代码 
ENDON.
Other Control Break Statements in SAP ABAP 
ENDAT.
查看完整代码 
ENDAT.
Other Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
END OF ty_mod.
查看完整代码 
END OF ty_mod.
Other Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
INCLUDE STRUCTURE vimdesc.
查看完整代码 
INCLUDE STRUCTURE vimdesc.
Other Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
INCLUDE STRUCTURE vimnamtab.
查看完整代码 
INCLUDE STRUCTURE vimnamtab.
Other Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
SELECTION-SCREEN BEGIN OF BLOCK bb WITH FRAME TITLE text-100.
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK bb WITH FRAME TITLE text-100.
Other Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
SELECTION-SCREEN SKIP 2.
查看完整代码 
SELECTION-SCREEN SKIP 2.
Other Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
SELECTION-SCREEN BEGIN OF LINE.
查看完整代码 
SELECTION-SCREEN BEGIN OF LINE.
Other Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
SELECTION-SCREEN PUSHBUTTON 20(10) text-101 USER-COMMAND b1. "Display
查看完整代码 
SELECTION-SCREEN PUSHBUTTON 20(10) text-101 USER-COMMAND b1. "Display
Other Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
SELECTION-SCREEN PUSHBUTTON 36(10) text-102 USER-COMMAND b2. "Change
查看完整代码 
SELECTION-SCREEN PUSHBUTTON 36(10) text-102 USER-COMMAND b2. "Change
Other Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
SELECTION-SCREEN END OF LINE.
查看完整代码 
SELECTION-SCREEN END OF LINE.
Other Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
SELECTION-SCREEN END OF BLOCK bb.
查看完整代码 
SELECTION-SCREEN END OF BLOCK bb.
Other Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
CALL SCREEN 9001.
查看完整代码 
CALL SCREEN 9001.
Other Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
CALL SCREEN 9001.
查看完整代码 
CALL SCREEN 9001.
Other Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
ENDCASE.
查看完整代码 
ENDCASE.
Other Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
METHODS: handle_data_changed
查看完整代码 
METHODS: handle_data_changed
Other Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
CREATE OBJECT gr_event_handler .
查看完整代码 
CREATE OBJECT gr_event_handler .
Other Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
TRY.
查看完整代码 
TRY.
Other Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
ENDDO.
查看完整代码 
ENDDO.
Other Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
CREATE OBJECT g_custom_container
查看完整代码 
CREATE OBJECT g_custom_container
Other Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
CREATE OBJECT grid1
查看完整代码 
CREATE OBJECT grid1
Other Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
CATCH cx_sy_create_data_error.
查看完整代码 
CATCH cx_sy_create_data_error.
Other Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
ENDTRY.
查看完整代码 
ENDTRY.
Other Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
ENDMODULE.                 " STATUS_9001  OUTPUT
查看完整代码 
ENDMODULE.                 " STATUS_9001  OUTPUT
Other Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
ENDCASE.
查看完整代码 
ENDCASE.
Other Create Modify and Delete entries dynamically from any custom table by using Object Oriented ALV 
ENDMODULE.                 " USER_COMMAND_9001  INPUT
查看完整代码 
ENDMODULE.                 " USER_COMMAND_9001  INPUT
Other Create Table Maintenance via ALV Grid 
REPORT  YVFM0031    LINE-SIZE 200
查看完整代码 
REPORT  YVFM0031    LINE-SIZE 200
Other Create Table Maintenance via ALV Grid 
INCLUDE YVFM0031TOP.
INCLUDE YVFM0031CLS.
INCLUDE YVFM0031SCR.
INCLUDE YVFM0031O01.
INCLUDE YVFM0031F01.
INCLUDE YVFM0031I01.
INCLUDE YVFM0031E01.
查看完整代码 
INCLUDE YVFM0031TOP.
INCLUDE YVFM0031CLS.
INCLUDE YVFM0031SCR.
INCLUDE YVFM0031O01.
INCLUDE YVFM0031F01.
INCLUDE YVFM0031I01.
INCLUDE YVFM0031E01.
Other Create Table Maintenance via ALV Grid 
INCLUDE <ICON>.
查看完整代码 
INCLUDE <ICON>.
Other Create Table Maintenance via ALV Grid 
END OF T_XPROT.
查看完整代码 
END OF T_XPROT.
Other Create Table Maintenance via ALV Grid 
INCLUDE STRUCTURE YVCNPMMV.
查看完整代码 
INCLUDE STRUCTURE YVCNPMMV.
Other Create Table Maintenance via ALV Grid 
METHODS:
查看完整代码 
METHODS:
Other Create Table Maintenance via ALV Grid 
SELECTION-SCREEN BEGIN OF BLOCK BL1 WITH FRAME TITLE TEXT-001.
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK BL1 WITH FRAME TITLE TEXT-001.
Other Create Table Maintenance via ALV Grid 
SELECTION-SCREEN END OF BLOCK BL1.
查看完整代码 
SELECTION-SCREEN END OF BLOCK BL1.
Other Create Table Maintenance via ALV Grid 
ENDMODULE. " status_0200 OUTPUT
查看完整代码 
ENDMODULE. " status_0200 OUTPUT
Other Create Table Maintenance via ALV Grid 
ENDDO.
查看完整代码 
ENDDO.
Other Create Table Maintenance via ALV Grid 
CREATE OBJECT GK_CON
查看完整代码 
CREATE OBJECT GK_CON
Other Create Table Maintenance via ALV Grid 
CREATE OBJECT GK_CON_SP
查看完整代码 
CREATE OBJECT GK_CON_SP
Other Create Table Maintenance via ALV Grid 
CREATE OBJECT GK_GRID
查看完整代码 
CREATE OBJECT GK_GRID
Other Create Table Maintenance via ALV Grid 
CREATE OBJECT GK_GRID_PRO
查看完整代码 
CREATE OBJECT GK_GRID_PRO
Other Create Table Maintenance via ALV Grid 
CREATE OBJECT EVENT_RECEIVER.
查看完整代码 
CREATE OBJECT EVENT_RECEIVER.
Other Data Migration Of Production Orders 
SELECTION SCREEN
查看完整代码 
SELECTION SCREEN
Other EBS与Fusion的信用控制逻辑有什么不同 
END
查看完整代码 
END
Other EBS与RocketMQ交互 
END
查看完整代码 
END
Other ECCS4升级项目ABAP分享 
REPORT在表TRDIR中，FUNCTION在TFDIR中，TFDIF中模式字段为R的为RFC
查看完整代码 
REPORT在表TRDIR中，FUNCTION在TFDIR中，TFDIF中模式字段为R的为RFC
Other Easy ways to create and populate range tables in ABAP 7.4 onwards 
lr_bukrs_01 = VALUE lr_bukrs_type(
查看完整代码 
lr_bukrs_01 = VALUE lr_bukrs_type(
Other Easy ways to create and populate range tables in ABAP 7.4 onwards 
lr_bukrs_01 = VALUE lr_bukrs_type(
查看完整代码 
lr_bukrs_01 = VALUE lr_bukrs_type(
Other Easy ways to create and populate range tables in ABAP 7.4 onwards 
END-OF-DEFINITION.
查看完整代码 
END-OF-DEFINITION.
Other Easy ways to create and populate range tables in ABAP 7.4 onwards 
lr_bukrs_01 = VALUE lr_bukrs_type(
查看完整代码 
lr_bukrs_01 = VALUE lr_bukrs_type(
Other Easy ways to create and populate range tables in ABAP 7.4 onwards 
END-OF-DEFINITION.
查看完整代码 
END-OF-DEFINITION.
Other Easy ways to create and populate range tables in ABAP 7.4 onwards 
DATA(burks_range) = VALUE lr_bukrs_type( sign = 'I' option = 'EQ'
查看完整代码 
DATA(burks_range) = VALUE lr_bukrs_type( sign = 'I' option = 'EQ'
Other Enhancing SAP standard transactions FBL3NFBL1NFBL5N with extra fields in the output list via BTE 
FUNCTION zfi_fm_fbl3n.
查看完整代码 
FUNCTION zfi_fm_fbl3n.
Other Enhancing SAP standard transactions FBL3NFBL1NFBL5N with extra fields 
FUNCTION zfi_fm_fbl3n.
查看完整代码 
FUNCTION zfi_fm_fbl3n.
Other FAGLL03H增加自定义字段一
查看代码
METHODS add_text_field      IMPORTING        !id_tabname          TYPE pivb_db_tabname OPTIONAL        !id_primary_field    TYPE pivb_field_dbname        !id_domname          TYPE domname OPTIONAL        !id_fieldname        TYPE pivb_field_dbname OPTIONAL        !id_db_name          TYPE pivb_field_dbname OPTIONAL        !id_language_key     TYPE boole_d OPTIONAL        !id_language_field   TYPE pivb_field_dbname OPTIONAL      CHANGING        !ct_secondary_fields TYPE pivb_secondary_field
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
METHODS add_text_field      IMPORTING        !id_tabname          TYPE pivb_db_tabname OPTIONAL        !id_primary_field    TYPE pivb_field_dbname        !id_domname          TYPE domname OPTIONAL        !id_fieldname        TYPE pivb_field_dbname OPTIONAL        !id_db_name          TYPE pivb_field_dbname OPTIONAL        !id_language_key     TYPE boole_d OPTIONAL        !id_language_field   TYPE pivb_field_dbname OPTIONAL      CHANGING        !ct_secondary_fields TYPE pivb_secondary_field
/* ... 已截断，完整代码请查看原文 */
Other FB05 through FM, POSTING_INTERFACE_CLEARING 
APPEND LDS_FTCLEAR TO P_LDT_FTCLEAR.
查看完整代码 
APPEND LDS_FTCLEAR TO P_LDT_FTCLEAR.
Other FB05 through FM, POSTING_INTERFACE_CLEARING 
APPEND LDS_FTPOST TO P_LDT_FTPOST.
查看完整代码 
APPEND LDS_FTPOST TO P_LDT_FTPOST.
Other FB05 through FM, POSTING_INTERFACE_CLEARING 
CALL FUNCTION ‘POSTING_INTERFACE_START’
查看完整代码 
CALL FUNCTION ‘POSTING_INTERFACE_START’
Other FB05 through FM, POSTING_INTERFACE_CLEARING 
FUNCTION_INVALID   = 2
查看完整代码 
FUNCTION_INVALID   = 2
Other FB05 through FM, POSTING_INTERFACE_CLEARING 
CALL FUNCTION ‘POSTING_INTERFACE_CLEARING’
查看完整代码 
CALL FUNCTION ‘POSTING_INTERFACE_CLEARING’
Other FB05 through FM, POSTING_INTERFACE_CLEARING 
CALL FUNCTION ‘POSTING_INTERFACE_END’
查看完整代码 
CALL FUNCTION ‘POSTING_INTERFACE_END’
Other FB05 through FM, POSTING_INTERFACE_CLEARING 
APPEND LDS_FTCLEAR TO P_LDT_FTCLEAR.
查看完整代码 
APPEND LDS_FTCLEAR TO P_LDT_FTCLEAR.
Other FB05 through FM, POSTING_INTERFACE_CLEARING 
APPEND LDS_FTCLEAR TO P_LDT_FTCLEAR.
查看完整代码 
APPEND LDS_FTCLEAR TO P_LDT_FTCLEAR.
Other GOS会计凭证上传附件 
INCLUDE <cntn01>.
查看完整代码 
INCLUDE <cntn01>.
Other GOS会计凭证上传附件 
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE TEXT-002.
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE TEXT-002.
Other GOS会计凭证上传附件 
SELECTION-SCREEN END OF BLOCK blk1.
查看完整代码 
SELECTION-SCREEN END OF BLOCK blk1.
Other How to Read an Uploaded Excel File in SAP ABAP 
TRY.
查看完整代码 
TRY.
Other How to Read an Uploaded Excel File in SAP ABAP 
CATCH cx_root INTO DATA(e_error_message).
查看完整代码 
CATCH cx_root INTO DATA(e_error_message).
Other How to Read an Uploaded Excel File in SAP ABAP 
ENDTRY.
查看完整代码 
ENDTRY.
Other How to Read an Uploaded Excel File in SAP ABAP 
TRY.
查看完整代码 
TRY.
Other How to Read an Uploaded Excel File in SAP ABAP 
CATCH cx_root INTO DATA(e_error_message).
查看完整代码 
CATCH cx_root INTO DATA(e_error_message).
Other How to Read an Uploaded Excel File in SAP ABAP 
ENDTRY.
查看完整代码 
ENDTRY.
Other How to attach documents to any custom program using Generic Object Services 
CREATE OBJECT MANAGER
查看完整代码 
CREATE OBJECT MANAGER
Other How to attach documents to any custom program using Generic Object Services 
CREATE OBJECT MANAGER
查看完整代码 
CREATE OBJECT MANAGER
Other How to attach documents to any custom program using Generic Object Services 
CALL SCREEN '0100'.
查看完整代码 
CALL SCREEN '0100'.
Other How to attach documents to any custom program using Generic Object Services 
CREATE OBJECT MANAGER
查看完整代码 
CREATE OBJECT MANAGER
Other How to attach documents to any custom program using Generic Object Services 
CREATE OBJECT MANAGER
查看完整代码 
CREATE OBJECT MANAGER
Other How to attach documents to any custom program using Generic Object Services 
ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPUT
查看完整代码 
ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPUT
Other How to implement GOS for standard transaction VA01VA02VA03 
ENDCASE.
查看完整代码 
ENDCASE.
Other How to implement GOS for standard transaction VA01VA02VA03 
ENDCASE.
查看完整代码 
ENDCASE.
Other How to split a string into 4 strings of equal length in ABAP 
CATCH /iwfnd/cx_cof INTO DATA(lx_cof).
查看完整代码 
CATCH /iwfnd/cx_cof INTO DATA(lx_cof).
Other How to split a string into 4 strings of equal length in ABAP 
TRY.
查看完整代码 
TRY.
Other How to split a string into 4 strings of equal length in ABAP 
CATCH cx_sy_range_out_of_bounds INTO DATA(lx_too_long).
查看完整代码 
CATCH cx_sy_range_out_of_bounds INTO DATA(lx_too_long).
Other How to split a string into 4 strings of equal length in ABAP 
ENDTRY.
查看完整代码 
ENDTRY.
Other How to split a string into 4 strings of equal length in ABAP 
END OF ty_longtext.
查看完整代码 
END OF ty_longtext.
Other How to split a string into 4 strings of equal length in ABAP 
CATCH /iwfnd/cx_cof INTO DATA(lx_cof).
查看完整代码 
CATCH /iwfnd/cx_cof INTO DATA(lx_cof).
Other How to split a string into 4 strings of equal length in ABAP 
END OF ty_longtext.
查看完整代码 
END OF ty_longtext.
Other How to split a string into 4 strings of equal length in ABAP 
TRY.
查看完整代码 
TRY.
Other How to split a string into 4 strings of equal length in ABAP 
CATCH cx_sy_range_out_of_bounds INTO DATA(lx_too_long).
查看完整代码 
CATCH cx_sy_range_out_of_bounds INTO DATA(lx_too_long).
Other How to split a string into 4 strings of equal length in ABAP 
ENDTRY.
查看完整代码 
ENDTRY.
Other Implementing Search Help Exits 
CALLCONTROL              TYPE                                       DDSHF4CTRL
查看完整代码 
CALLCONTROL              TYPE                                       DDSHF4CTRL
Other Implementing Search Help Exits 
CALLCONTROL - Structure containing the current step of the search help process.
查看完整代码 
CALLCONTROL - Structure containing the current step of the search help process.
Other Implementing Search Help Exits 
END OF gt_kna1.
查看完整代码 
END OF gt_kna1.
Other KE24N增加自定义字段
查看代码
METHODS add_text_field      IMPORTING        !id_tabname          TYPE pivb_db_tabname OPTIONAL        !id_primary_field    TYPE pivb_field_dbname        !id_domname          TYPE domname OPTIONAL        !id_fieldname        TYPE pivb_field_dbname OPTIONAL        !id_db_name          TYPE pivb_field_dbname OPTIONAL        !id_language_key     TYPE boole_d OPTIONAL        !id_language_field   TYPE pivb_field_dbname OPTIONAL      CHANGING        !ct_secondary_fields TYPE pivb_secondary_field
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
METHODS add_text_field      IMPORTING        !id_tabname          TYPE pivb_db_tabname OPTIONAL        !id_primary_field    TYPE pivb_field_dbname        !id_domname          TYPE domname OPTIONAL        !id_fieldname        TYPE pivb_field_dbname OPTIONAL        !id_db_name          TYPE pivb_field_dbname OPTIONAL        !id_language_key     TYPE boole_d OPTIONAL        !id_language_field   TYPE pivb_field_dbname OPTIONAL      CHANGING        !ct_secondary_fields TYPE pivb_secondary_field
/* ... 已截断，完整代码请查看原文 */
Other MB51自定义字段增强 
ENDENHANCEMENT.*$*$-End:   (1)---------------------------------------------------------------------------------$*$*
查看完整代码 
ENDENHANCEMENT.*$*$-End:   (1)---------------------------------------------------------------------------------$*$*
Other MB52增强 
ENDENHANCEMENT.
查看完整代码 
ENDENHANCEMENT.
Other MDG使用API创建变更请求 
ENDTRY  .
查看完整代码 
ENDTRY  .
Other MDG使用API创建变更请求 
CATCH  cx_usmd_gov_api  .
查看完整代码 
CATCH  cx_usmd_gov_api  .
Other MDG使用API创建变更请求 
ENDTRY  .
查看完整代码 
ENDTRY  .
Other MDG使用API创建变更请求 
ENDTRY  .
查看完整代码 
ENDTRY  .
Other MDG使用API创建变更请求 
ENDTRY  .
查看完整代码 
ENDTRY  .
Other MDG使用API创建变更请求 
ENDTRY  .
查看完整代码 
ENDTRY  .
Other MDG使用API创建变更请求 
CATCH  cx_usmd_gov_api_core_error cx_usmd_gov_api  .
查看完整代码 
CATCH  cx_usmd_gov_api_core_error cx_usmd_gov_api  .
Other MDG使用API创建变更请求 
ENDTRY  .
查看完整代码 
ENDTRY  .
Other MDG使用API创建变更请求 
TRY  .
查看完整代码 
TRY  .
Other MDG使用API创建变更请求 
CATCH  cx_usmd_gov_api_core_error  INTO  lr_error  .
查看完整代码 
CATCH  cx_usmd_gov_api_core_error  INTO  lr_error  .
Other MDG使用API创建变更请求 
ENDTRY  .
查看完整代码 
ENDTRY  .
Other MDG使用API创建变更请求 
ENDTRY  .
查看完整代码 
ENDTRY  .
Other MOVECORRESPONDING内表 
END OF  it_in  .
查看完整代码 
END OF  it_in  .
Other MOVECORRESPONDING内表 
END OF  it_out  .
查看完整代码 
END OF  it_out  .
Other OBJECT ORIENTED ALV Guide - CUSTOM CONTAINER 
CALL SCREEN 100.
查看完整代码 
CALL SCREEN 100.
Other OBJECT ORIENTED ALV Guide - CUSTOM CONTAINER 
ENDCASE.
查看完整代码 
ENDCASE.
Other OBJECT ORIENTED ALV Guide - CUSTOM CONTAINER 
ENDMODULE.&---------------------------------------------------------------------
查看完整代码 
ENDMODULE.&---------------------------------------------------------------------
Other OBJECT ORIENTED ALV Guide - CUSTOM CONTAINER 
CREATE OBJECT R_CONTAINER
查看完整代码 
CREATE OBJECT R_CONTAINER
Other OBJECT ORIENTED ALV Guide - CUSTOM CONTAINER 
ENDMODULE.
查看完整代码 
ENDMODULE.
Other OracleeBS中如何让eBTax根据销售订单类型确定税率 
END
查看完整代码 
END
Other PF项目的故事 
END
查看完整代码 
END
Other PO Item Conditions Non Editable 
CALL METHOD im_item->get_conditions
查看完整代码 
CALL METHOD im_item->get_conditions
Other PO Item Conditions Non Editable 
METHOD: IF_EX_ME_PURCHDOC_POSTED~POSTED
查看完整代码 
METHOD: IF_EX_ME_PURCHDOC_POSTED~POSTED
Other PO中的消息映射的标准Function和用户定义FunctionUDF 
FUNCTION实现方法
查看完整代码 
FUNCTION实现方法
Other RFC Programming in ABAP 
FUNCTION...DESTINATION statement. The DESTINATION parameter tells the SAP
查看完整代码 
FUNCTION...DESTINATION statement. The DESTINATION parameter tells the SAP
Other RabbitMQ使用HTTPAPI发送消息 
FUNCTION zfj_json_mq_convert.*"----------------------------------------------------------------------*"*"本地接口：*"  IMPORTING*"     VALUE(PA
查看完整代码 
FUNCTION zfj_json_mq_convert.*"----------------------------------------------------------------------*"*"本地接口：*"  IMPORTING*"     VALUE(PA
Other Reading price conditions dynamically from condition tables (2) 
ENDSELECT.
查看完整代码 
ENDSELECT.
Other Reading price conditions dynamically from condition tables 
ENDSELECT.
查看完整代码 
ENDSELECT.
Other SAP ABAP Advanced Cookbook 2012 
ENDWHILE.
查看完整代码 
ENDWHILE.
Other SAP Enhancement of standard search helps 
APPEND r_bukrs.
查看完整代码 
APPEND r_bukrs.
Other SAP Enhancement of standard search helps 
APPEND r_altkt.
查看完整代码 
APPEND r_altkt.
Other SAP GOS document download 
INCLUDE rsdbcom4.
查看完整代码 
INCLUDE rsdbcom4.
Other SAP GOS document download 
INCLUDE rsdbc1xx.
查看完整代码 
INCLUDE rsdbc1xx.
Other SAP GOS document download 
INCLUDE rssocons.
查看完整代码 
INCLUDE rssocons.
Other SAP GOS document download 
CONSTANTS: gc_separator TYPE char4 VALUE '(&&)',            "#EC NOTEXT
查看完整代码 
CONSTANTS: gc_separator TYPE char4 VALUE '(&&)',            "#EC NOTEXT
Other SAP GOS document download 
CONSTANTS: gc_def_path TYPE text40 VALUE 'C:\temp\',        "#EC NOTEXT
查看完整代码 
CONSTANTS: gc_def_path TYPE text40 VALUE 'C:\temp\',        "#EC NOTEXT
Other SAP GOS document download 
END OF ty_attach,
查看完整代码 
END OF ty_attach,
Other SAP GOS document download 
SELECTION-SCREEN: BEGIN OF BLOCK obj WITH FRAME TITLE text-obj.
查看完整代码 
SELECTION-SCREEN: BEGIN OF BLOCK obj WITH FRAME TITLE text-obj.
Other SAP GOS document download 
SELECTION-SCREEN: END OF BLOCK obj.
查看完整代码 
SELECTION-SCREEN: END OF BLOCK obj.
Other SAP GOS document download 
SELECTION-SCREEN: BEGIN OF BLOCK b01 WITH FRAME TITLE text-b01.
查看完整代码 
SELECTION-SCREEN: BEGIN OF BLOCK b01 WITH FRAME TITLE text-b01.
Other SAP GOS document download 
SELECTION-SCREEN: SKIP,
查看完整代码 
SELECTION-SCREEN: SKIP,
Other SAP GOS document download 
SELECTION-SCREEN: COMMENT (30) seltab FOR FIELD p_table,
查看完整代码 
SELECTION-SCREEN: COMMENT (30) seltab FOR FIELD p_table,
Other SAP GOS document download 
SELECTION-SCREEN: PUSHBUTTON 65(4) selopt USER-COMMAND sel,
查看完整代码 
SELECTION-SCREEN: PUSHBUTTON 65(4) selopt USER-COMMAND sel,
Other SAP GOS document download 
END OF LINE.
查看完整代码 
END OF LINE.
Other SAP GOS document download 
SELECTION-SCREEN: END OF BLOCK b01.
查看完整代码 
SELECTION-SCREEN: END OF BLOCK b01.
Other SAP GOS document download 
SELECTION-SCREEN: BEGIN OF BLOCK b03 WITH FRAME TITLE text-b03.
查看完整代码 
SELECTION-SCREEN: BEGIN OF BLOCK b03 WITH FRAME TITLE text-b03.
Other SAP GOS document download 
SELECTION-SCREEN: SKIP.
查看完整代码 
SELECTION-SCREEN: SKIP.
Other SAP GOS document download 
SELECTION-SCREEN: END OF BLOCK b03.
查看完整代码 
SELECTION-SCREEN: END OF BLOCK b03.
Other SAP GOS document download 
FORMAT RESET.
查看完整代码 
FORMAT RESET.
Other SAP Note 2873609 - Credit Memo Net Due Date 
ENDSELECT.
查看完整代码 
ENDSELECT.
Other SAPBP中的地址页签中地区城市街道如何实现各个字段搜索帮助 
END
查看完整代码 
END
Other SAPHR开发简介 
END-OF-SELECTION 输出展示
查看完整代码 
END-OF-SELECTION 输出展示
Other SAPPOworkfow 
CONSTANTS:
查看完整代码 
CONSTANTS:
Other SAPUI5故障排除的方法有哪些 
END
查看完整代码 
END
Other SAP升级项目文本字段在Query展示为空如何解 
END
查看完整代码 
END
Other SAP取汇率接口OB08 
FUNCTION  ZRFC_OA_004  .
查看完整代码 
FUNCTION  ZRFC_OA_004  .
Other SAP取汇率接口OB08 
END  OF  gs_tcurr  .
查看完整代码 
END  OF  gs_tcurr  .
Other SAP取汇率接口OB08 
LOOP  AT  gt_tcurr  INTO  gs_tcurr  .
CALL  FUNCTION  'CONVERSION_EXIT_INVDT_OUTPUT'
查看完整代码 
LOOP  AT  gt_tcurr  INTO  gs_tcurr  .
CALL  FUNCTION  'CONVERSION_EXIT_INVDT_OUTPUT'
Other SAP取汇率接口OB08 
CALL  FUNCTION  'CONVERT_DATE_TO_INTERNAL'
查看完整代码 
CALL  FUNCTION  'CONVERT_DATE_TO_INTERNAL'
Other SAP取汇率接口OB08 
ENDFUNCTION  .
查看完整代码 
ENDFUNCTION  .
Other SAP小技巧记录报表程序的执行日志 
INCLUDE zenh_10068.
查看完整代码 
INCLUDE zenh_10068.
Other SAP工具箱增强限制BWEXCEL用户登陆行为 
TRY.
查看完整代码 
TRY.
Other SAP工具箱增强限制BWEXCEL用户登陆行为 
CREATE OBJECT server_info.
查看完整代码 
CREATE OBJECT server_info.
Other SAP工具箱增强限制BWEXCEL用户登陆行为 
CATCH cx_ssi_no_auth.
查看完整代码 
CATCH cx_ssi_no_auth.
Other SAP工具箱增强限制BWEXCEL用户登陆行为 
ENDTRY.
查看完整代码 
ENDTRY.
Other SAP工具箱给程序添加并发后台处理 
INCLUDE zbc_multi_job_01. "选择屏幕后,定义后台执行按钮INCLUDE zbc_multi_job_02.
查看完整代码 
INCLUDE zbc_multi_job_01. "选择屏幕后,定义后台执行按钮INCLUDE zbc_multi_job_02.
Other SAP工具箱通用ALV行转列 
CALL METHOD
查看完整代码 
CALL METHOD
Other SAP浅谈Rest接口应用接收篇 
END OF TY_NAME_MAPPING ,
查看完整代码 
END OF TY_NAME_MAPPING ,
Other SD外向交货单 
METHOD：ACTIVATE_TAB_PAGE 添加页签
查看完整代码 
METHOD：ACTIVATE_TAB_PAGE 添加页签
Other SET HANDLER FOR CLICK 
lr_selections = gr_table->get_selections( ).
查看完整代码 
lr_selections = gr_table->get_selections( ).
Other SM30 Disable Delete Icon Add Custom Button 
INCLUDE STRUCTURE ztest_pf_status.
查看完整代码 
INCLUDE STRUCTURE ztest_pf_status.
Other SM30 Disable Delete Icon Add Custom Button 
INCLUDE STRUCTURE vimflagtab.
查看完整代码 
INCLUDE STRUCTURE vimflagtab.
Other SM30 Disable Delete Icon Add Custom Button 
CALL FUNCTION 'POPUP_TO_INFORM'
查看完整代码 
CALL FUNCTION 'POPUP_TO_INFORM'
Other SM30 Disable Delete Icon Add Custom Button 
ENDCASE.
查看完整代码 
ENDCASE.
Other SM30 Disable Delete Icon Add Custom Button 
ENDMODULE.                 " CUSTOM_PF_BUTTON  INPUT
查看完整代码 
ENDMODULE.                 " CUSTOM_PF_BUTTON  INPUT
Other SM30 查询 排序 导入 等功能的使用 
ENDMODULE.                    "hide_position_button OUTPUT
查看完整代码 
ENDMODULE.                    "hide_position_button OUTPUT
Other SM30 查询 排序 导入 等功能的使用 
ENDMODULE.                 " SEARCH_TABLE  INPUT
查看完整代码 
ENDMODULE.                 " SEARCH_TABLE  INPUT
Other SM30 查询 排序 导入 等功能的使用 
ep_table        = lr_table.
查看完整代码 
ep_table        = lr_table.
Other Sample codes for BDC 
SELECTION-SCREEN BEGIN OF BLOCK bk1 WITH FRAME TITLE title1.
SELECTION-SCREEN COMMENT 1(10) txt_01.
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK bk1 WITH FRAME TITLE title1.
SELECTION-SCREEN COMMENT 1(10) txt_01.
Other Sample codes for BDC 
SELECTION-SCREEN END OF BLOCK bk1.
查看完整代码 
SELECTION-SCREEN END OF BLOCK bk1.
Other Sample codes for BDC 
CALL FUNCTION 'GUI_UPLOAD'
查看完整代码 
CALL FUNCTION 'GUI_UPLOAD'
Other Sample codes for BDC 
CALL TRANSACTION 'PA30' USING it_bdcdata
查看完整代码 
CALL TRANSACTION 'PA30' USING it_bdcdata
Other Sample codes for BDC 
FORM select_input_file_name.
CALL FUNCTION 'F4_FILENAME'
查看完整代码 
FORM select_input_file_name.
CALL FUNCTION 'F4_FILENAME'
Other Sample codes for BDC 
FORM bdc_dynpro USING prog scr.
查看完整代码 
FORM bdc_dynpro USING prog scr.
Other Sample codes for BDC 
FORM bdc_field USING fnam fval.
查看完整代码 
FORM bdc_field USING fnam fval.
Other Sample codes for BDC 
FORM BDC_BATCH_INPUT_SESSION.
查看完整代码 
FORM BDC_BATCH_INPUT_SESSION.
Other Sample codes for BDC 
CALL FUNCTION 'BDC_OPEN_GROUP'
查看完整代码 
CALL FUNCTION 'BDC_OPEN_GROUP'
Other Sample codes for BDC 
CALL FUNCTION 'BDC_INSERT'
查看完整代码 
CALL FUNCTION 'BDC_INSERT'
Other Sample codes for BDC 
CALL FUNCTION 'BDC_CLOSE_GROUP'.
查看完整代码 
CALL FUNCTION 'BDC_CLOSE_GROUP'.
Other Stock Inconsistency 
REPORTS with SE38 :
查看完整代码 
REPORTS with SE38 :
Other Troubleshooting Guide for Message 108 in Pricing Analysis 
FORM   XKOMV_FUELLEN
查看完整代码 
FORM   XKOMV_FUELLEN
Other Unzip & Read files with ABAP class CL_ABAP_ZIP 
REPORT ztest_unzip.
查看完整代码 
REPORT ztest_unzip.
Other Unzip & Read files with ABAP class CL_ABAP_ZIP 
CLASS application DEFINITION.
查看完整代码 
CLASS application DEFINITION.
Other Unzip & Read files with ABAP class CL_ABAP_ZIP 
CLASS-METHODS: execute,
查看完整代码 
CLASS-METHODS: execute,
Other Unzip & Read files with ABAP class CL_ABAP_ZIP 
CLASS application IMPLEMENTATION.
METHOD execute.
查看完整代码 
CLASS application IMPLEMENTATION.
METHOD execute.
Other Unzip & Read files with ABAP class CL_ABAP_ZIP 
APPEND l_out TO t_out.
查看完整代码 
APPEND l_out TO t_out.
Other VI02 shipment cost transfer 
FUNCTION  TP_AC_EXTENSION
查看完整代码 
FUNCTION  TP_AC_EXTENSION
Other Validation & Substitution comparison tool 
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
Other Validation & Substitution comparison tool 
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
Other Validation & Substitution comparison tool 
SELECTION-SCREEN END OF BLOCK b2.
查看完整代码 
SELECTION-SCREEN END OF BLOCK b2.
Other Validation & Substitution comparison tool 
SELECTION-SCREEN END OF BLOCK b1.
查看完整代码 
SELECTION-SCREEN END OF BLOCK b1.
Other Validation & Substitution comparison tool 
CLASS-METHODS:
查看完整代码 
CLASS-METHODS:
Other Validation & Substitution comparison tool 
END OF ty_subst_cond.
查看完整代码 
END OF ty_subst_cond.
Other Validation & Substitution comparison tool 
END OF ty_subst_sust.
查看完整代码 
END OF ty_subst_sust.
Other Validation & Substitution comparison tool 
END OF ty_subst_cond_out.
查看完整代码 
END OF ty_subst_cond_out.
Other Validation & Substitution comparison tool 
END OF ty_subst_sust_out.
查看完整代码 
END OF ty_subst_sust_out.
Other Validation & Substitution comparison tool 
END OF ty_valid_cond.
查看完整代码 
END OF ty_valid_cond.
Other Validation & Substitution comparison tool 
END OF valid_cond_out_type.
查看完整代码 
END OF valid_cond_out_type.
Other Validation & Substitution comparison tool 
END OF ty_valid_chk.
查看完整代码 
END OF ty_valid_chk.
Other Validation & Substitution comparison tool 
END OF ty_valid_chk_out.
查看完整代码 
END OF ty_valid_chk_out.
Other Validation & Substitution comparison tool 
CLASS-METHODS:
查看完整代码 
CLASS-METHODS:
Other [dump]调用转换时发生CX_SY_CONVERSION_DATA_LOSS异常 
CALL TRANSFORMATION yxml_it_ipc_xls
查看完整代码 
CALL TRANSFORMATION yxml_it_ipc_xls
Other handle-double-click-on-alv-by-cl_salv_table-events 
METHODS : hndl_double_click FOR EVENT double_click
查看完整代码 
METHODS : hndl_double_click FOR EVENT double_click
Other handle-double-click-on-alv-by-cl_salv_table-events 
CLASS-METHODS : main IMPORTING
查看完整代码 
CLASS-METHODS : main IMPORTING
Other handle-double-click-on-alv-by-cl_salv_table-events 
INCLUDE TYPE sflight.
查看完整代码 
INCLUDE TYPE sflight.
Other handle-double-click-on-alv-by-cl_salv_table-events 
CLASS-DATA : lt           TYPE TABLE OF ty_flight,
查看完整代码 
CLASS-DATA : lt           TYPE TABLE OF ty_flight,
Other handle-double-click-on-alv-by-cl_salv_table-events 
TRY.
查看完整代码 
TRY.
Other handle-double-click-on-alv-by-cl_salv_table-events 
TRY.
查看完整代码 
TRY.
Other handle-double-click-on-alv-by-cl_salv_table-events 
ENDTRY.
查看完整代码 
ENDTRY.
Other handle-double-click-on-alv-by-cl_salv_table-events 
TRY.
查看完整代码 
TRY.
Other handle-double-click-on-alv-by-cl_salv_table-events 
ENDTRY.
查看完整代码 
ENDTRY.
Other handle-double-click-on-alv-by-cl_salv_table-events 
TRY.
查看完整代码 
TRY.
Other handle-double-click-on-alv-by-cl_salv_table-events 
ENDTRY.
查看完整代码 
ENDTRY.
Other handle-double-click-on-alv-by-cl_salv_table-events 
TRY.
查看完整代码 
TRY.
Other handle-double-click-on-alv-by-cl_salv_table-events 
ENDTRY.
查看完整代码 
ENDTRY.
Other handle-double-click-on-alv-by-cl_salv_table-events 
ENDTRY.
查看完整代码 
ENDTRY.
Other handle-double-click-on-alv-by-cl_salv_table-events 
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
Other handle-double-click-on-alv-by-cl_salv_table-events 
SELECTION-SCREEN END OF BLOCK b1.
查看完整代码 
SELECTION-SCREEN END OF BLOCK b1.
Other handle-double-click-on-alv-by-cl_salv_table-events 
REPORT  ykc_oops_alv                            .
查看完整代码 
REPORT  ykc_oops_alv                            .
Other handle-double-click-on-alv-by-cl_salv_table-events 
END OF it_tab.
查看完整代码 
END OF it_tab.
Other handle-double-click-on-alv-by-cl_salv_table-events 
METHODS:
查看完整代码 
METHODS:
Other handle-double-click-on-alv-by-cl_salv_table-events 
CREATE OBJECT ref_container
查看完整代码 
CREATE OBJECT ref_container
Other handle-double-click-on-alv-by-cl_salv_table-events 
CREATE OBJECT ref_grid
查看完整代码 
CREATE OBJECT ref_grid
Other handle-double-click-on-alv-by-cl_salv_table-events 
ENDCASE.
查看完整代码 
ENDCASE.
Other hide-selection-screen-based-on-radio-button 
SELECTION-SCREEN BEGIN OF BLOCK search_block WITH FRAME TITLE text-001.
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK search_block WITH FRAME TITLE text-001.
Other hide-selection-screen-based-on-radio-button 
SELECTION-SCREEN END OF BLOCK search_block.
查看完整代码 
SELECTION-SCREEN END OF BLOCK search_block.
Other hide-selection-screen-based-on-radio-button 
SELECTION-SCREEN BEGIN OF BLOCK flight_block WITH FRAME TITLE text-002.
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK flight_block WITH FRAME TITLE text-002.
Other hide-selection-screen-based-on-radio-button 
SELECTION-SCREEN END OF BLOCK flight_block.
查看完整代码 
SELECTION-SCREEN END OF BLOCK flight_block.
Other hide-selection-screen-based-on-radio-button 
SELECTION-SCREEN BEGIN OF BLOCK customid_block WITH FRAME TITLE text-002.
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK customid_block WITH FRAME TITLE text-002.
Other hide-selection-screen-based-on-radio-button 
SELECTION-SCREEN END OF BLOCK customid_block.
查看完整代码 
SELECTION-SCREEN END OF BLOCK customid_block.
Other hide-selection-screen-based-on-radio-button 
SELECTION-SCREEN BEGIN OF BLOCK search_block WITH FRAME TITLE TEXT-001.
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK search_block WITH FRAME TITLE TEXT-001.
Other hide-selection-screen-based-on-radio-button 
SELECTION-SCREEN END OF BLOCK search_block.
查看完整代码 
SELECTION-SCREEN END OF BLOCK search_block.
Other hide-selection-screen-based-on-radio-button 
SELECTION-SCREEN BEGIN OF BLOCK flight_block WITH FRAME TITLE TEXT-002.
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK flight_block WITH FRAME TITLE TEXT-002.
Other hide-selection-screen-based-on-radio-button 
SELECTION-SCREEN END OF BLOCK flight_block.
查看完整代码 
SELECTION-SCREEN END OF BLOCK flight_block.
Other hide-selection-screen-based-on-radio-button 
SELECTION-SCREEN BEGIN OF BLOCK customid_block WITH FRAME TITLE TEXT-003.
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK customid_block WITH FRAME TITLE TEXT-003.
Other hide-selection-screen-based-on-radio-button 
SELECTION-SCREEN END OF BLOCK customid_block.
查看完整代码 
SELECTION-SCREEN END OF BLOCK customid_block.
Other hide-selection-screen-based-on-radio-button 
SELECTION-SCREEN BEGIN OF BLOCK search_block WITH FRAME TITLE text-001.
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK search_block WITH FRAME TITLE text-001.
Other hide-selection-screen-based-on-radio-button 
SELECTION-SCREEN END OF BLOCK search_block.
查看完整代码 
SELECTION-SCREEN END OF BLOCK search_block.
Other hide-selection-screen-based-on-radio-button 
SELECTION-SCREEN BEGIN OF BLOCK flight_block WITH FRAME TITLE text-002.
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK flight_block WITH FRAME TITLE text-002.
Other hide-selection-screen-based-on-radio-button 
SELECTION-SCREEN END OF BLOCK flight_block.
查看完整代码 
SELECTION-SCREEN END OF BLOCK flight_block.
Other hide-selection-screen-based-on-radio-button 
SELECTION-SCREEN BEGIN OF BLOCK customid_block WITH FRAME TITLE text-002.
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK customid_block WITH FRAME TITLE text-002.
Other hide-selection-screen-based-on-radio-button 
SELECTION-SCREEN END OF BLOCK customid_block.
查看完整代码 
SELECTION-SCREEN END OF BLOCK customid_block.
Other hide-selection-screen-based-on-radio-button 
SELECTION-SCREEN BEGIN OF BLOCK search_block WITH FRAME TITLE TEXT-001.
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK search_block WITH FRAME TITLE TEXT-001.
Other hide-selection-screen-based-on-radio-button 
SELECTION-SCREEN END OF BLOCK search_block.
查看完整代码 
SELECTION-SCREEN END OF BLOCK search_block.
Other hide-selection-screen-based-on-radio-button 
SELECTION-SCREEN BEGIN OF BLOCK flight_block WITH FRAME TITLE TEXT-002.
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK flight_block WITH FRAME TITLE TEXT-002.
Other hide-selection-screen-based-on-radio-button 
SELECTION-SCREEN END OF BLOCK flight_block.
查看完整代码 
SELECTION-SCREEN END OF BLOCK flight_block.
Other hide-selection-screen-based-on-radio-button 
SELECTION-SCREEN BEGIN OF BLOCK customid_block WITH FRAME TITLE TEXT-003.
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK customid_block WITH FRAME TITLE TEXT-003.
Other hide-selection-screen-based-on-radio-button 
SELECTION-SCREEN END OF BLOCK customid_block.
查看完整代码 
SELECTION-SCREEN END OF BLOCK customid_block.
Other send email with attachment 
CREATE OBJECT L_DOCUMENT.
查看完整代码 
CREATE OBJECT L_DOCUMENT.
Other 个人OOALV模版加快你的ALV开发 
CALL SCREEN 9000.
查看完整代码 
CALL SCREEN 9000.
Other 个人TREEALV模版加快你的开发 
END-OF-SELECTION.
查看完整代码 
END-OF-SELECTION.
Other 个人TREEALV模版加快你的开发 
CALL SCREEN 9000.
查看完整代码 
CALL SCREEN 9000.
Other 个人TREEALV模版加快你的开发 
ENDMODULE.                             " PBO  OUTPUT
查看完整代码 
ENDMODULE.                             " PBO  OUTPUT
Other 你问我答汉得欧洲篇 
END
查看完整代码 
END
Other 使用ADMIN快速应用程序工具生成BSP应用 
eo_query = lr_query_node
查看完整代码 
eo_query = lr_query_node
Other 使用ADMIN快速应用程序工具生成BSP应用 
lr_query_service ?=lr_query_node->collection_wrapper->get_current( ).
查看完整代码 
lr_query_service ?=lr_query_node->collection_wrapper->get_current( ).
Other 使用ADMIN快速应用程序工具生成BSP应用 
lr_query_service->get_property_as_value( EXPORTING iv_attr_name ='MAX_HITS'
查看完整代码 
lr_query_service->get_property_as_value( EXPORTING iv_attr_name ='MAX_HITS'
Other 使用ADMIN快速应用程序工具生成BSP应用 
lr_param_col = lr_query_service->get_selection_params( ).
查看完整代码 
lr_param_col = lr_query_service->get_selection_params( ).
Other 使用ADMIN快速应用程序工具生成BSP应用 
ENDWHILE.
查看完整代码 
ENDWHILE.
Other 使用ADMIN快速应用程序工具生成BSP应用 
lr_query_service->check_selection_params( EXPORTINGiv_filter_empty_params =
查看完整代码 
lr_query_service->check_selection_params( EXPORTINGiv_filter_empty_params =
Other 使用ADMIN快速应用程序工具生成BSP应用 
lr_query_service->adjust_selection_params( IMPORTINGet_params_to_be_adjusted =
查看完整代码 
lr_query_service->adjust_selection_params( IMPORTINGet_params_to_be_adjusted =
Other 使用ADMIN快速应用程序工具生成BSP应用 
lr_msg_srv ?=me->view_manager->get_message_service( ).
查看完整代码 
lr_msg_srv ?=me->view_manager->get_message_service( ).
Other 使用ADMIN快速应用程序工具生成BSP应用 
CREATE OBJECT lr_result.
查看完整代码 
CREATE OBJECT lr_result.
Other 使用ADMIN快速应用程序工具生成BSP应用 
iv_entity = lr_entity.
查看完整代码 
iv_entity = lr_entity.
Other 使用ADMIN快速应用程序工具生成BSP应用 
ev_size = lr_result->if_bol_bo_col~size( ).
查看完整代码 
ev_size = lr_result->if_bol_bo_col~size( ).
Other 使用ADMIN快速应用程序工具生成BSP应用 
ENDFUNCTION.
查看完整代码 
ENDFUNCTION.
Other 使用RFC跳过权限校验的方法 
ENDFUNCTION."--------------------@斌将军--------------------
查看完整代码 
ENDFUNCTION."--------------------@斌将军--------------------
Other 做接口XML和JSON的选择以及处理XML的几个函数
查看代码
FUNCTION zxml_data_to_string .*"----------------------------------------------------------------------*"*"局部接口：*"  IMPORTING*"     REFERENCE(DATA) TYPE  ANY*"     REFERENCE(CASE) TYPE  C OPTIONAL*"     REFERENCE(PRETTY) TYPE  C OPTIONAL*"     REFERENCE(ROOTNAME) TYPE  STRING DEFAULT 'BOOT'*"     REFERENCE(CHARACTER_SET) TYPE  STRING DEFAULT 'UTF-8'*"     REFERENCE(DCXMLINIT) TYPE  DCXMLINIT DEFAULT 'N'*"  
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
FUNCTION zxml_data_to_string .*"----------------------------------------------------------------------*"*"局部接口：*"  IMPORTING*"     REFERENCE(DATA) TYPE  ANY*"     REFERENCE(CASE) TYPE  C OPTIONAL*"     REFERENCE(PRETTY) TYPE  C OPTIONAL*"     REFERENCE(ROOTNAME) TYPE  STRING DEFAULT 'BOOT'*"     REFERENCE(CHARACTER_SET) TYPE  STRING DEFAULT 'UTF-8'*"     REFERENCE(DCXMLINIT) TYPE  DCXMLINIT DEFAULT 'N'*"  
/* ... 已截断，完整代码请查看原文 */
Other 做接口XML和JSON的选择以及处理XML的几个函数 
ENDFUNCTION.
查看完整代码 
ENDFUNCTION.
Other 做接口XML和JSON的选择以及处理XML的几个函数
查看代码
FUNCTION zxml_string_rebuild .*"----------------------------------------------------------------------*"*"局部接口：*"  IMPORTING*"     REFERENCE(XMLIN) TYPE  STRING*"     REFERENCE(CASE) TYPE  C OPTIONAL*"     REFERENCE(PRETTY) TYPE  C OPTIONAL*"     REFERENCE(CHARACTER_SET) TYPE  STRING DEFAULT 'UTF-8'*"  EXPORTING*"     VALUE(XMLOUT) TYPE  STRING*"     VALUE(XMLOUTX) TYPE  XSTRING*"     VALUE(CDATA) TYPE  RSTT_T_STRINGS*&q
/* ... 已截断，完整代码请查看原文 */
查看完整代码
查看代码
FUNCTION zxml_string_rebuild .*"----------------------------------------------------------------------*"*"局部接口：*"  IMPORTING*"     REFERENCE(XMLIN) TYPE  STRING*"     REFERENCE(CASE) TYPE  C OPTIONAL*"     REFERENCE(PRETTY) TYPE  C OPTIONAL*"     REFERENCE(CHARACTER_SET) TYPE  STRING DEFAULT 'UTF-8'*"  EXPORTING*"     VALUE(XMLOUT) TYPE  STRING*"     VALUE(XMLOUTX) TYPE  XSTRING*"     VALUE(CDATA) TYPE  RSTT_T_STRINGS*&q
/* ... 已截断，完整代码请查看原文 */
Other 先退货再发货报存储地点不存在问题处理 
FUNCTION mard_clear_update_buffer.*"----------------------------------------------------------------------*"*"Local Interface:*"  IMPORTING*"     REFERENCE(IT_MATNR) TYPE  CMD_BS_MAT_T_MAT_ID OPTIONAL*"     REFERENCE(IV_CLEAR_ALL_FLAG) TYPE  BOOLEAN DEFAULT SPACE*"----------------------------------------------------------------------
查看完整代码 
FUNCTION mard_clear_update_buffer.*"----------------------------------------------------------------------*"*"Local Interface:*"  IMPORTING*"     REFERENCE(IT_MATNR) TYPE  CMD_BS_MAT_T_MAT_ID OPTIONAL*"     REFERENCE(IV_CLEAR_ALL_FLAG) TYPE  BOOLEAN DEFAULT SPACE*"----------------------------------------------------------------------
Other 先退货再发货报存储地点不存在问题处理 
ENDFUNCTION.
查看完整代码 
ENDFUNCTION.
Other 关于印度GST税在SAP系统中调整税额的专用TCODEJ1IGJV 
END
查看完整代码 
END
Other 原来上了班是这样 
END
查看完整代码 
END
Other 咨询的艺术 
END
查看完整代码 
END
Other 固定点运算对计算结果的影响原因分析 
FUNCTION zfm_sd_calculate.*"----------------------------------------------------------------------*"*"本地接口：*"  IMPORTING*"     REFERENCE(IV_P1) TYPE  P*"     REFERENCE(IV_P2) TYPE  P*"     REFERENCE(IV_OP) TYPE  C*"  EXPORTING*"     REFERENCE(RV) TYPE  P*"----------------------------------------------------------------------
查看完整代码 
FUNCTION zfm_sd_calculate.*"----------------------------------------------------------------------*"*"本地接口：*"  IMPORTING*"     REFERENCE(IV_P1) TYPE  P*"     REFERENCE(IV_P2) TYPE  P*"     REFERENCE(IV_OP) TYPE  C*"  EXPORTING*"     REFERENCE(RV) TYPE  P*"----------------------------------------------------------------------
Other 固定点运算对计算结果的影响原因分析 
ENDFUNCTION.
查看完整代码 
ENDFUNCTION.
Other 在自定义SCREEN使用选择屏幕 
CALL  SUBSCREEN subs1 INCLUDING sy  \-  repid  '1001'  .
查看完整代码 
CALL  SUBSCREEN subs1 INCLUDING sy  \-  repid  '1001'  .
Other 在自定义SCREEN使用选择屏幕 
CALL  SUBSCREEN subs1  .
查看完整代码 
CALL  SUBSCREEN subs1  .
Other 基于FTP的SAP与外部系统的文件交互 
CALLFUNCTION'SCMS_TEXT_TO_BINARY'EXPORTINGencoding='8400'IMPORTINGoutput_length=lenTABLEStext_tab=I_TABbinary_tab=data_tabEXCEPTIONSfailed=1OTHERS=2.
查看完整代码 
CALLFUNCTION'SCMS_TEXT_TO_BINARY'EXPORTINGencoding='8400'IMPORTINGoutput_length=lenTABLEStext_tab=I_TABbinary_tab=data_tabEXCEPTIONSfailed=1OTHERS=2.
Other 基于FTP的SAP与外部系统的文件交互 
CALLFUNCTION'FTP_COMMAND'EXPORTINGhandle=l_handlecommand='binary'"'binary'"TABLESdata=resultEXCEPTIONStcpip_error=1command_error=2data_error=3.
查看完整代码 
CALLFUNCTION'FTP_COMMAND'EXPORTINGhandle=l_handlecommand='binary'"'binary'"TABLESdata=resultEXCEPTIONStcpip_error=1command_error=2data_error=3.
Other 基于FTP的SAP与外部系统的文件交互 
CALLFUNCTION'FTP_R3_TO_SERVER'EXPORTINGhandle=l_handlefname=i_filenameblob_length=lenTABLESblob=data_tabEXCEPTIONStcpip_error=1command_error=2data_error=3.
查看完整代码 
CALLFUNCTION'FTP_R3_TO_SERVER'EXPORTINGhandle=l_handlefname=i_filenameblob_length=lenTABLESblob=data_tabEXCEPTIONStcpip_error=1command_error=2data_error=3.
Other 基于FTP的SAP与外部系统的文件交互 
CALLFUNCTION'FTP_DISCONNECT'EXPORTINGhandle=l_handle.
查看完整代码 
CALLFUNCTION'FTP_DISCONNECT'EXPORTINGhandle=l_handle.
Other 基于FTP的SAP与外部系统的文件交互 
CALLFUNCTION'RFC_CONNECTION_CLOSE'EXPORTINGdestination=‘SAPFTP’EXCEPTIONSOTHERS=1.
查看完整代码 
CALLFUNCTION'RFC_CONNECTION_CLOSE'EXPORTINGdestination=‘SAPFTP’EXCEPTIONSOTHERS=1.
Other 多屏幕ALVZCL_ALV_MULTI 
TRY.
查看完整代码 
TRY.
Other 多屏幕ALVZCL_ALV_MULTI 
ENDTRY.
查看完整代码 
ENDTRY.
Other 多屏幕ALVZCL_ALV_MULTI 
TRY.
查看完整代码 
TRY.
Other 多屏幕ALVZCL_ALV_MULTI 
ENDTRY.
查看完整代码 
ENDTRY.
Other 多屏幕ALVZCL_ALV_MULTI 
METHODS  double_click  REDEFINITION.  "双击
查看完整代码 
METHODS  double_click  REDEFINITION.  "双击
Other 多屏幕ALVZCL_ALV_MULTI 
METHODS  user_command  REDEFINITION.  "点击按钮后
查看完整代码 
METHODS  user_command  REDEFINITION.  "点击按钮后
Other 多屏幕ALVZCL_ALV_MULTI 
METHODS  toolbar  REDEFINITION.  "按钮
查看完整代码 
METHODS  toolbar  REDEFINITION.  "按钮
Other 多屏幕ALVZCL_ALV_MULTI 
METHODS  hotspot_click  REDEFINITION.  "单击
查看完整代码 
METHODS  hotspot_click  REDEFINITION.  "单击
Other 多屏幕ALVZCL_ALV_MULTI 
METHODS  change_fieldcat  REDEFINITION.  "更改  fieldcat
查看完整代码 
METHODS  change_fieldcat  REDEFINITION.  "更改  fieldcat
Other 多屏幕ALVZCL_ALV_MULTI 
END-OF-DEFINITION.
查看完整代码 
END-OF-DEFINITION.
Other 多屏幕ALVZCL_ALV_MULTI 
ENDCASE.
查看完整代码 
ENDCASE.
Other 多屏幕ALVZCL_ALV_MULTI 
TRY.
查看完整代码 
TRY.
Other 多屏幕ALVZCL_ALV_MULTI 
ENDTRY.
查看完整代码 
ENDTRY.
Other 多屏幕ALVZCL_ALV_MULTI 
ENDCASE.
查看完整代码 
ENDCASE.
Other 多屏幕ALVZCL_ALV_MULTI 
TRY.
查看完整代码 
TRY.
Other 多屏幕ALVZCL_ALV_MULTI 
ENDTRY.
查看完整代码 
ENDTRY.
Other 多屏幕ALVZCL_ALV_MULTI 
ENDCASE.
查看完整代码 
ENDCASE.
Other 多屏幕ALVZCL_ALV_MULTI 
CALL TRANSACTION  'VA03'  AND SKIP FIRST SCREEN.
查看完整代码 
CALL TRANSACTION  'VA03'  AND SKIP FIRST SCREEN.
Other 多屏幕ALVZCL_ALV_MULTI 
ENDCASE.
查看完整代码 
ENDCASE.
Other 多屏幕ALVZCL_ALV_MULTI 
ENDCASE.
查看完整代码 
ENDCASE.
Other 多屏幕ALVZCL_ALV_MULTI 
ENDCASE.
查看完整代码 
ENDCASE.
Other 多屏幕ALVZCL_ALV_MULTI 
TRY.
查看完整代码 
TRY.
Other 多屏幕ALVZCL_ALV_MULTI 
ENDTRY.
查看完整代码 
ENDTRY.
Other 多屏幕ALVZCL_ALV_MULTI 
TRY.
查看完整代码 
TRY.
Other 多屏幕ALVZCL_ALV_MULTI 
ENDTRY.
查看完整代码 
ENDTRY.
Other 多屏幕ALVZCL_ALV_MULTI 
ENDCASE.
查看完整代码 
ENDCASE.
Other 大修理期间物料价格差异的后续处理 
END
查看完整代码 
END
Other 如何对业务流程进行DDD领域设计分析DDD包含什么在系统架构落地体现在哪些方面 
END
查看完整代码 
END
Other 如何通过票据平台管理应收票据流转业务 
END
查看完整代码 
END
Other 安吉indahouse 
END..
查看完整代码 
END..
Other 实时发送SAP会计凭证到外部系统 
FUNCTION zbte_send_bseg_to_gb.
查看完整代码 
FUNCTION zbte_send_bseg_to_gb.
Other 实时发送SAP会计凭证到外部系统 
ENDFUNCTION.
查看完整代码 
ENDFUNCTION.
Other 实时发送SAP会计凭证到外部系统 
FUNCTION zbte_push_bseg_to_gb.
查看完整代码 
FUNCTION zbte_push_bseg_to_gb.
Other 实时发送SAP会计凭证到外部系统 
TRY .
查看完整代码 
TRY .
Other 实时发送SAP会计凭证到外部系统 
ENDEXEC.
查看完整代码 
ENDEXEC.
Other 实时发送SAP会计凭证到外部系统 
CATCH cx_sy_native_sql_error INTO cxserr.
查看完整代码 
CATCH cx_sy_native_sql_error INTO cxserr.
Other 实时发送SAP会计凭证到外部系统 
ENDTRY.
查看完整代码 
ENDTRY.
Other 实时发送SAP会计凭证到外部系统 
TRY.
查看完整代码 
TRY.
Other 实时发送SAP会计凭证到外部系统 
ENDEXEC.
查看完整代码 
ENDEXEC.
Other 实时发送SAP会计凭证到外部系统 
ENDEXEC.
查看完整代码 
ENDEXEC.
Other 实时发送SAP会计凭证到外部系统 
ENDEXEC.
查看完整代码 
ENDEXEC.
Other 实时发送SAP会计凭证到外部系统 
CATCH cx_sy_native_sql_error INTO cxserr.
查看完整代码 
CATCH cx_sy_native_sql_error INTO cxserr.
Other 实时发送SAP会计凭证到外部系统 
ENDTRY.
查看完整代码 
ENDTRY.
Other 实时发送SAP会计凭证到外部系统 
ENDFUNCTION.
查看完整代码 
ENDFUNCTION.
Other 实时发送SAP会计凭证到外部系统 
END OF it_out.
查看完整代码 
END OF it_out.
Other 实时发送SAP会计凭证到外部系统 
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE t01.
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE t01.
Other 实时发送SAP会计凭证到外部系统 
SELECTION-SCREEN END OF BLOCK b1.
查看完整代码 
SELECTION-SCREEN END OF BLOCK b1.
Other 对平淡生活的一次越狱泰山 
END
查看完整代码 
END
Other 工资所属期工资发放期税款所属期和税款申报期的区别是什么 
END
查看完整代码 
END
Other 干货SAP业务顾问也会的增强标准字段文本修改的4种方法 
END
查看完整代码 
END
Other 建议收藏ABAP随笔EXCEL4批量导入推荐 
END OF columninfo.
查看完整代码 
END OF columninfo.
Other 建议收藏ABAP随笔EXCEL4批量导入推荐 
ENDWHILE.
查看完整代码 
ENDWHILE.
Other 建议收藏ABAP随笔EXCEL4批量导入推荐 
ENDDO.
查看完整代码 
ENDDO.
Other 建议收藏ABAP随笔EXCEL4批量导入推荐 
ENDWHILE.
ENDCASE.
查看完整代码 
ENDWHILE.
ENDCASE.
Other 弹出ALV的几种方法ALVPOPUP 
TRY.
查看完整代码 
TRY.
Other 弹出ALV的几种方法ALVPOPUP 
CATCH cx_root INTO cxroot.
查看完整代码 
CATCH cx_root INTO cxroot.
Other 弹出ALV的几种方法ALVPOPUP 
ENDTRY.
查看完整代码 
ENDTRY.
Other 弹出ALV的几种方法ALVPOPUP 
CALL SCREEN 100.
查看完整代码 
CALL SCREEN 100.
Other 弹出ALV的几种方法ALVPOPUP 
CREATE OBJECT go_grid
查看完整代码 
CREATE OBJECT go_grid
Other 弹出ALV的几种方法ALVPOPUP 
ENDMODULE. " STATUS_0100 OUTPUT
查看完整代码 
ENDMODULE. " STATUS_0100 OUTPUT
Other 我们的新起点从FarmingtonHills到AnnArbor777大楼 
END.
查看完整代码 
END.
Other 批量对比系统间开发对象差异 
END OF gs_out.
查看完整代码 
END OF gs_out.
Other 批量对比系统间开发对象差异 
SELECTION-SCREEN BEGIN OF BLOCK b01 WITH FRAME TITLE btxt1.
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK b01 WITH FRAME TITLE btxt1.
Other 批量对比系统间开发对象差异 
SELECTION-SCREEN END OF BLOCK b01.
查看完整代码 
SELECTION-SCREEN END OF BLOCK b01.
Other 批量对比系统间开发对象差异 
SELECTION-SCREEN BEGIN OF BLOCK b02 WITH FRAME TITLE btxt2.
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK b02 WITH FRAME TITLE btxt2.
Other 批量对比系统间开发对象差异 
SELECTION-SCREEN END OF BLOCK b02.
查看完整代码 
SELECTION-SCREEN END OF BLOCK b02.
Other 批量对比系统间开发对象差异 
SELECTION-SCREEN BEGIN OF BLOCK b03 WITH FRAME TITLE btxt3.
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK b03 WITH FRAME TITLE btxt3.
Other 批量对比系统间开发对象差异 
SELECTION-SCREEN END OF BLOCK b03.
查看完整代码 
SELECTION-SCREEN END OF BLOCK b03.
Other 批量对比系统间开发对象差异 
SELECTION-SCREEN BEGIN OF BLOCK b04 WITH FRAME TITLE btxt4.
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK b04 WITH FRAME TITLE btxt4.
Other 批量对比系统间开发对象差异 
SELECTION-SCREEN END OF BLOCK b04.
查看完整代码 
SELECTION-SCREEN END OF BLOCK b04.
Other 批量对比系统间开发对象差异 
ENDSELECT.
查看完整代码 
ENDSELECT.
Other 批量对比系统间开发对象差异 
APPENDING CORRESPONDING FIELDS OF TABLE gt_out
查看完整代码 
APPENDING CORRESPONDING FIELDS OF TABLE gt_out
Other 批量对比系统间开发对象差异 
APPENDING CORRESPONDING FIELDS OF TABLE gt_out
查看完整代码 
APPENDING CORRESPONDING FIELDS OF TABLE gt_out
Other 批量对比系统间开发对象差异 
APPENDING CORRESPONDING FIELDS OF TABLE gt_out
查看完整代码 
APPENDING CORRESPONDING FIELDS OF TABLE gt_out
Other 批量对比系统间开发对象差异 
APPENDING CORRESPONDING FIELDS OF TABLE gt_out
查看完整代码 
APPENDING CORRESPONDING FIELDS OF TABLE gt_out
Other 批量开物料账期的程序 
INCLUDE STRUCTURE  bdcmsgcoll  .
查看完整代码 
INCLUDE STRUCTURE  bdcmsgcoll  .
Other 批量开物料账期的程序 
ENDON  .
查看完整代码 
ENDON  .
Other 批量开物料账期的程序 
ENDWHILE  .
查看完整代码 
ENDWHILE  .
Other 批量开物料账期的程序 
CALL TRANSACTION  'MMPV'  USING  bdcdata
查看完整代码 
CALL TRANSACTION  'MMPV'  USING  bdcdata
Other 查找数据库表内包含的特殊字符 
END OF it_flds.
查看完整代码 
END OF it_flds.
Other 查找数据库表内包含的特殊字符 
SELECTION-SCREEN FUNCTION KEY 1.
查看完整代码 
SELECTION-SCREEN FUNCTION KEY 1.
Other 查找数据库表内包含的特殊字符 
SELECTION-SCREEN FUNCTION KEY 2.
查看完整代码 
SELECTION-SCREEN FUNCTION KEY 2.
Other 查找数据库表内包含的特殊字符 
SELECTION-SCREEN FUNCTION KEY 3.
查看完整代码 
SELECTION-SCREEN FUNCTION KEY 3.
Other 查找数据库表内包含的特殊字符 
SELECTION-SCREEN FUNCTION KEY 4.
查看完整代码 
SELECTION-SCREEN FUNCTION KEY 4.
Other 查找数据库表内包含的特殊字符 
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE t01.
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE t01.
Other 查找数据库表内包含的特殊字符 
SELECTION-SCREEN BEGIN OF LINE.
查看完整代码 
SELECTION-SCREEN BEGIN OF LINE.
Other 查找数据库表内包含的特殊字符 
SELECTION-SCREEN COMMENT (31) ctxt0 FOR FIELD p_tname .
查看完整代码 
SELECTION-SCREEN COMMENT (31) ctxt0 FOR FIELD p_tname .
Other 查找数据库表内包含的特殊字符 
SELECTION-SCREEN COMMENT 52(31) ctxtl  .
查看完整代码 
SELECTION-SCREEN COMMENT 52(31) ctxtl  .
Other 查找数据库表内包含的特殊字符 
SELECTION-SCREEN END OF LINE.
查看完整代码 
SELECTION-SCREEN END OF LINE.
Other 查找数据库表内包含的特殊字符 
SELECTION-SCREEN BEGIN OF LINE.
查看完整代码 
SELECTION-SCREEN BEGIN OF LINE.
Other 查找数据库表内包含的特殊字符 
SELECTION-SCREEN COMMENT (31) ctxt1 FOR FIELD p_hchar .
查看完整代码 
SELECTION-SCREEN COMMENT (31) ctxt1 FOR FIELD p_hchar .
Other 查找数据库表内包含的特殊字符 
SELECTION-SCREEN PUSHBUTTON 52(9) but03 USER-COMMAND space .
查看完整代码 
SELECTION-SCREEN PUSHBUTTON 52(9) but03 USER-COMMAND space .
Other 查找数据库表内包含的特殊字符 
SELECTION-SCREEN PUSHBUTTON 62(9) but04 USER-COMMAND newline .
查看完整代码 
SELECTION-SCREEN PUSHBUTTON 62(9) but04 USER-COMMAND newline .
Other 查找数据库表内包含的特殊字符 
SELECTION-SCREEN PUSHBUTTON 72(9) but00 USER-COMMAND minchar .
查看完整代码 
SELECTION-SCREEN PUSHBUTTON 72(9) but00 USER-COMMAND minchar .
Other 查找数据库表内包含的特殊字符 
SELECTION-SCREEN END OF LINE.
查看完整代码 
SELECTION-SCREEN END OF LINE.
Other 查找数据库表内包含的特殊字符 
SELECTION-SCREEN BEGIN OF LINE.
查看完整代码 
SELECTION-SCREEN BEGIN OF LINE.
Other 查找数据库表内包含的特殊字符 
SELECTION-SCREEN PUSHBUTTON 52(9) but02 USER-COMMAND tab .
查看完整代码 
SELECTION-SCREEN PUSHBUTTON 52(9) but02 USER-COMMAND tab .
Other 查找数据库表内包含的特殊字符 
SELECTION-SCREEN PUSHBUTTON 62(9) but05 USER-COMMAND cr_lf .
查看完整代码 
SELECTION-SCREEN PUSHBUTTON 62(9) but05 USER-COMMAND cr_lf .
Other 查找数据库表内包含的特殊字符 
SELECTION-SCREEN PUSHBUTTON 72(9) but01 USER-COMMAND maxchar .
查看完整代码 
SELECTION-SCREEN PUSHBUTTON 72(9) but01 USER-COMMAND maxchar .
Other 查找数据库表内包含的特殊字符 
SELECTION-SCREEN END OF LINE.
查看完整代码 
SELECTION-SCREEN END OF LINE.
Other 查找数据库表内包含的特殊字符 
SELECTION-SCREEN END OF BLOCK b1.
查看完整代码 
SELECTION-SCREEN END OF BLOCK b1.
Other 查找数据库表内包含的特殊字符 
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE t02.
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE t02.
Other 查找数据库表内包含的特殊字符 
SELECTION-SCREEN BEGIN OF LINE.
查看完整代码 
SELECTION-SCREEN BEGIN OF LINE.
Other 查找数据库表内包含的特殊字符 
SELECTION-SCREEN POSITION 4.
查看完整代码 
SELECTION-SCREEN POSITION 4.
Other 查找数据库表内包含的特殊字符 
SELECTION-SCREEN END OF LINE.
查看完整代码 
SELECTION-SCREEN END OF LINE.
Other 查找数据库表内包含的特殊字符 
SELECTION-SCREEN BEGIN OF LINE.
查看完整代码 
SELECTION-SCREEN BEGIN OF LINE.
Other 查找数据库表内包含的特殊字符 
SELECTION-SCREEN POSITION 4.
查看完整代码 
SELECTION-SCREEN POSITION 4.
Other 查找数据库表内包含的特殊字符 
SELECTION-SCREEN END OF LINE.
查看完整代码 
SELECTION-SCREEN END OF LINE.
Other 查找数据库表内包含的特殊字符 
SELECTION-SCREEN END OF BLOCK b2.
查看完整代码 
SELECTION-SCREEN END OF BLOCK b2.
Other 查找数据库表内包含的特殊字符 
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE t03.
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE t03.
Other 查找数据库表内包含的特殊字符 
SELECTION-SCREEN COMMENT /1(79): txt1,txt2,txt3,txt4,txt5,txt6,txt7,txt8.
查看完整代码 
SELECTION-SCREEN COMMENT /1(79): txt1,txt2,txt3,txt4,txt5,txt6,txt7,txt8.
Other 查找数据库表内包含的特殊字符 
SELECTION-SCREEN END OF BLOCK b3.
查看完整代码 
SELECTION-SCREEN END OF BLOCK b3.
Other 查找数据库表内包含的特殊字符 
SELECTION-SCREEN BEGIN OF SCREEN 1100 AS WINDOW .
查看完整代码 
SELECTION-SCREEN BEGIN OF SCREEN 1100 AS WINDOW .
Other 查找数据库表内包含的特殊字符 
SELECTION-SCREEN BEGIN OF LINE.
查看完整代码 
SELECTION-SCREEN BEGIN OF LINE.
Other 查找数据库表内包含的特殊字符 
SELECTION-SCREEN COMMENT (8) ctxt7 FOR FIELD p_fval.
查看完整代码 
SELECTION-SCREEN COMMENT (8) ctxt7 FOR FIELD p_fval.
Other 查找数据库表内包含的特殊字符 
SELECTION-SCREEN END OF LINE.
查看完整代码 
SELECTION-SCREEN END OF LINE.
Other 查找数据库表内包含的特殊字符 
SELECTION-SCREEN END OF SCREEN 1100.
查看完整代码 
SELECTION-SCREEN END OF SCREEN 1100.
Other 查找数据库表内包含的特殊字符 
SELECTION-SCREEN BEGIN OF SCREEN 1200 AS WINDOW .
查看完整代码 
SELECTION-SCREEN BEGIN OF SCREEN 1200 AS WINDOW .
Other 查找数据库表内包含的特殊字符 
SELECTION-SCREEN BEGIN OF LINE.
查看完整代码 
SELECTION-SCREEN BEGIN OF LINE.
Other 查找数据库表内包含的特殊字符 
SELECTION-SCREEN COMMENT (6) ctxt8 FOR FIELD p_fval.
查看完整代码 
SELECTION-SCREEN COMMENT (6) ctxt8 FOR FIELD p_fval.
Other 查找数据库表内包含的特殊字符 
SELECTION-SCREEN END OF LINE.
查看完整代码 
SELECTION-SCREEN END OF LINE.
Other 查找数据库表内包含的特殊字符 
SELECTION-SCREEN BEGIN OF LINE.
查看完整代码 
SELECTION-SCREEN BEGIN OF LINE.
Other 查找数据库表内包含的特殊字符 
SELECTION-SCREEN COMMENT (6) ctxt9 FOR FIELD p_fval.
查看完整代码 
SELECTION-SCREEN COMMENT (6) ctxt9 FOR FIELD p_fval.
Other 查找数据库表内包含的特殊字符 
SELECTION-SCREEN COMMENT (3) ctxta FOR FIELD p_upval.
查看完整代码 
SELECTION-SCREEN COMMENT (3) ctxta FOR FIELD p_upval.
Other 查找数据库表内包含的特殊字符 
SELECTION-SCREEN COMMENT (6) ctxtc FOR FIELD p_astxt.
查看完整代码 
SELECTION-SCREEN COMMENT (6) ctxtc FOR FIELD p_astxt.
Other 查找数据库表内包含的特殊字符 
SELECTION-SCREEN END OF LINE.
查看完整代码 
SELECTION-SCREEN END OF LINE.
Other 查找数据库表内包含的特殊字符 
SELECTION-SCREEN BEGIN OF LINE.
查看完整代码 
SELECTION-SCREEN BEGIN OF LINE.
Other 查找数据库表内包含的特殊字符 
SELECTION-SCREEN COMMENT (6) ctxtb FOR FIELD p_fval.
查看完整代码 
SELECTION-SCREEN COMMENT (6) ctxtb FOR FIELD p_fval.
Other 查找数据库表内包含的特殊字符 
SELECTION-SCREEN END OF LINE.
查看完整代码 
SELECTION-SCREEN END OF LINE.
Other 查找数据库表内包含的特殊字符 
SELECTION-SCREEN END OF SCREEN 1200.
查看完整代码 
SELECTION-SCREEN END OF SCREEN 1200.
Other 查找数据库表内包含的特殊字符 
CALL SELECTION-SCREEN 1200 STARTING AT 32 6 .
查看完整代码 
CALL SELECTION-SCREEN 1200 STARTING AT 32 6 .
Other 查找数据库表内包含的特殊字符 
ENDCASE.
查看完整代码 
ENDCASE.
Other 物料主数据屏幕增强1自建表方式 
ENDMODULE."--------------------@斌将军--------------------
查看完整代码 
ENDMODULE."--------------------@斌将军--------------------
Other 物料主数据屏幕增强1自建表方式 
ENDMODULE."--------------------@斌将军--------------------
查看完整代码 
ENDMODULE."--------------------@斌将军--------------------
Other 离职时员工工资如何结算 
END
查看完整代码 
END
Other 聊聊SAP内存和ABAP内存 
CALL TRANSACTION 'MM03'." AND SKIP FIRST SCREEN."--------------------@斌将军--------------------
查看完整代码 
CALL TRANSACTION 'MM03'." AND SKIP FIRST SCREEN."--------------------@斌将军--------------------
Other 聊聊更新表时的隐式提交 
SELECT能查询到更新的1009
查看完整代码 
SELECT能查询到更新的1009
Other 自开发表变更历史记录 
CLASS-METHODS save_single      IMPORTING        !is_ztmara         TYPE ty_ztmara      RETURNING        VALUE(rv_changenr) TYPE cdhdr-changenr .  CLASS-METHODS save_multi    IMPORTING      VALUE(it_ztmara)   TYPE tt_ztmara    RETURNING      VALUE(rt_changenr) TYPE tt_changenr .
查看完整代码 
CLASS-METHODS save_single      IMPORTING        !is_ztmara         TYPE ty_ztmara      RETURNING        VALUE(rv_changenr) TYPE cdhdr-changenr .  CLASS-METHODS save_multi    IMPORTING      VALUE(it_ztmara)   TYPE tt_ztmara    RETURNING      VALUE(rt_changenr) TYPE tt_changenr .
Other 自适应的销售价格查询程序 
END OF dfaultkey.
查看完整代码 
END OF dfaultkey.
Other 自适应的销售价格查询程序 
END OF it_t682.
查看完整代码 
END OF it_t682.
Other 自适应的销售价格查询程序 
END OF it_kschl.
查看完整代码 
END OF it_kschl.
Other 自适应的销售价格查询程序 
END OF it_kotab.
查看完整代码 
END OF it_kotab.
Other 自适应的销售价格查询程序 
END OF it_zifna.
查看完整代码 
END OF it_zifna.
Other 自适应的销售价格查询程序 
END OF it_tabs.
查看完整代码 
END OF it_tabs.
Other 自适应的销售价格查询程序 
END OF it_lstbox1.
查看完整代码 
END OF it_lstbox1.
Other 自适应的销售价格查询程序 
END OF it_cdhdr.
查看完整代码 
END OF it_cdhdr.
Other 自适应的销售价格查询程序 
END OF it_knumh.
查看完整代码 
END OF it_knumh.
Other 自适应的销售价格查询程序 
END OF it_makt.
查看完整代码 
END OF it_makt.
Other 自适应的销售价格查询程序 
END OF it_tvkot.
查看完整代码 
END OF it_tvkot.
Other 自适应的销售价格查询程序 
END OF it_kna1.
查看完整代码 
END OF it_kna1.
Other 自适应的销售价格查询程序 
SELECTION-SCREEN FUNCTION KEY 1.
查看完整代码 
SELECTION-SCREEN FUNCTION KEY 1.
Other 自适应的销售价格查询程序 
SELECTION-SCREEN BEGIN OF SCREEN 1001 AS WINDOW .
查看完整代码 
SELECTION-SCREEN BEGIN OF SCREEN 1001 AS WINDOW .
Other 自适应的销售价格查询程序 
SELECTION-SCREEN END OF SCREEN 1001.
查看完整代码 
SELECTION-SCREEN END OF SCREEN 1001.
Other 自适应的销售价格查询程序 
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE t01.
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE t01.
Other 自适应的销售价格查询程序 
SELECTION-SCREEN END OF BLOCK b1.
查看完整代码 
SELECTION-SCREEN END OF BLOCK b1.
Other 自适应的销售价格查询程序 
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE t02.
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE t02.
Other 自适应的销售价格查询程序 
INCLUDE zgetsdpriceinc.
查看完整代码 
INCLUDE zgetsdpriceinc.
Other 自适应的销售价格查询程序 
SELECTION-SCREEN END OF BLOCK b2.
查看完整代码 
SELECTION-SCREEN END OF BLOCK b2.
Other 自适应的销售价格查询程序 
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE t03.
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE t03.
Other 自适应的销售价格查询程序 
SELECTION-SCREEN END OF BLOCK b3.
查看完整代码 
SELECTION-SCREEN END OF BLOCK b3.
Other 自适应的销售价格查询程序 
CALL 'C_DD_READ_FIELD'
查看完整代码 
CALL 'C_DD_READ_FIELD'
Other 自适应的销售价格查询程序 
CALL SELECTION-SCREEN 1001 STARTING AT 10 5 .
查看完整代码 
CALL SELECTION-SCREEN 1001 STARTING AT 10 5 .
Other 自适应的销售价格查询程序 
ENDCASE.
查看完整代码 
ENDCASE.
Other 记疫情下的SAP技术培训 
END
查看完整代码 
END
Other 货币转换 
END
查看完整代码 
END
Other 通过RFC与外部系统进行数据交换 
FUNCTION zrfc_say_hello.*"----------------------------------------------------------------------*"*"本地接口：IV_VALUE
查看完整代码 
FUNCTION zrfc_say_hello.*"----------------------------------------------------------------------*"*"本地接口：IV_VALUE
Other 通过RFC与外部系统进行数据交换 
ENDFUNCTION.
查看完整代码 
ENDFUNCTION.
Other 销售订单增加自定义小计字段 
FUNCTION zfm_sd_calculate.*"----------------------------------------------------------------------*"*"本地接口：*"  IMPORTING*"     REFERENCE(IV_P1) TYPE  P*"     REFERENCE(IV_P2) TYPE  P*"     REFERENCE(IV_OP) TYPE  C*"  EXPORTING*"     REFERENCE(RV) TYPE  P*"----------------------------------------------------------------------
查看完整代码 
FUNCTION zfm_sd_calculate.*"----------------------------------------------------------------------*"*"本地接口：*"  IMPORTING*"     REFERENCE(IV_P1) TYPE  P*"     REFERENCE(IV_P2) TYPE  P*"     REFERENCE(IV_OP) TYPE  C*"  EXPORTING*"     REFERENCE(RV) TYPE  P*"----------------------------------------------------------------------
Other 销售订单增加自定义小计字段 
ENDFUNCTION.
查看完整代码 
ENDFUNCTION.
Other 问题解决SLT写入数据库NULL值 
RAISE;
查看完整代码 
RAISE;
Other 问题解决SLT写入数据库NULL值 
END execute_dynamic_sql;
查看完整代码 
END execute_dynamic_sql;
Other 问题解决SLT同步日期格式字段 
END IF;
查看完整代码 
END IF;
Other 问题解决SLT同步日期格式字段 
END IF;
查看完整代码 
END IF;
Other 问题解决SLT同步日期格式字段 
END IF;
查看完整代码 
END IF;
Other 问题解决SLT同步日期格式字段 
END IF;
查看完整代码 
END IF;
Other 问题解决SLT同步日期格式字段 
END IF;
查看完整代码 
END IF;
Other 问题解决SLT同步日期格式字段 
END;
查看完整代码 
END;
Other 随笔ME53N增加按钮调用URL 
ENDCASE.
查看完整代码 
ENDCASE.
Other 顾问职业发展规划及公众号分享框架 
END
查看完整代码 
END

SQL 43 段

SQL ABAPSALV数据读取不限于SALV 
SELECTION-SCREEN BEGIN OF BLOCK  b1  WITH FRAME TITLE  f1  .
SELECT-OPTIONS  :
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK  b1  WITH FRAME TITLE  f1  .
SELECT-OPTIONS  :
SQL ABAP基础知识整单包含和排除查询 
SELECT-OPTIONS定义的选择条件是SAP提供的一个非常灵活的逻辑表达方式. 可以表达
查看完整代码 
SELECT-OPTIONS定义的选择条件是SAP提供的一个非常灵活的逻辑表达方式. 可以表达
SQL ABAP基础知识整单包含和排除查询 
SELECT-OPTIONS
查看完整代码 
SELECT-OPTIONS
SQL ABAP基础知识整单包含和排除查询 
SELECT-OPTIONS允许表达一个复杂的逻辑:包含及排除(单值,范围,通配符,多单值,多通配符,多范围)
查看完整代码 
SELECT-OPTIONS允许表达一个复杂的逻辑:包含及排除(单值,范围,通配符,多单值,多通配符,多范围)
SQL ABAP基础知识整单包含和排除查询 
SELECT-OPTIONS 使用的时候也很简单 ,如下语句
查看完整代码 
SELECT-OPTIONS 使用的时候也很简单 ,如下语句
SQL ABAP选择屏幕展开折叠屏幕元素 
SELECT-OPTIONS  :
查看完整代码 
SELECT-OPTIONS  :
SQL ABAP选择屏幕展开折叠屏幕元素 
SELECT-OPTIONS  :
查看完整代码 
SELECT-OPTIONS  :
SQL ABAP选择屏幕显示隐藏屏幕元素 
SELECTION-SCREEN BEGIN OF BLOCK  b2  WITH FRAME TITLE  f2  .
SELECT-OPTIONS  :
查看完整代码 
SELECTION-SCREEN BEGIN OF BLOCK  b2  WITH FRAME TITLE  f2  .
SELECT-OPTIONS  :
SQL ABAP选择屏幕显示隐藏屏幕元素 
SELECT-OPTIONS  :
查看完整代码 
SELECT-OPTIONS  :
SQL ABAP选择屏幕页签展示 
SELECTION-SCREEN BEGIN OF SCREEN  100  AS  SUBSCREEN  .
SELECT-OPTIONS  :
查看完整代码 
SELECTION-SCREEN BEGIN OF SCREEN  100  AS  SUBSCREEN  .
SELECT-OPTIONS  :
SQL ABAP选择屏幕页签展示 
SELECTION-SCREEN BEGIN OF SCREEN  200  AS  SUBSCREEN  .
SELECT-OPTIONS  :
查看完整代码 
SELECTION-SCREEN BEGIN OF SCREEN  200  AS  SUBSCREEN  .
SELECT-OPTIONS  :
SQL ABAP随笔smartforms打印及PDF转化 
SELECT-OPTIONS:
查看完整代码 
SELECT-OPTIONS:
SQL ABAP随笔smartforms打印及PDF转化 
SELECT
查看完整代码 
SELECT
SQL ABAP随笔入门简单ALV附单元格颜色控制 
SELECT-OPTIONS  :  s_erdat  FOR  vbak  \-  erdat  .
查看完整代码 
SELECT-OPTIONS  :  s_erdat  FOR  vbak  \-  erdat  .
SQL ABAP随笔入门简单ALV附单元格颜色控制 
LOOP  AT  gt_data  ASSIGNING  FIELD  \-  SYMBOL  (  <fs> )  WHERE  kwmeng < 10
查看完整代码 
LOOP  AT  gt_data  ASSIGNING  FIELD  \-  SYMBOL  (  <fs> )  WHERE  kwmeng < 10
SQL ABAP随笔程序优化笔记 
SELECT-OPTIONS  :  S_WADAT  FOR  LIKP  \-  WADAT OBLIGATORY  ,  _ "  _ _ 交货日期
查看完整代码 
SELECT-OPTIONS  :  S_WADAT  FOR  LIKP  \-  WADAT OBLIGATORY  ,  _ "  _ _ 交货日期
SQL Add a Selection Screen to a Table Maintenance Dialog 
SELECT-OPTIONS: so_selop1 FOR mytable–myfield1,
查看完整代码 
SELECT-OPTIONS: so_selop1 FOR mytable–myfield1,
SQL Build Custom Selection Screens for Extended Table Maintenance 
SELECT-OPTIONS: so_selop1 FOR mytable–myfield1,
查看完整代码 
SELECT-OPTIONS: so_selop1 FOR mytable–myfield1,
SQL Control Break Statements in SAP ABAP 
SELECT-OPTIONS : S_MATNR FOR MARC-MATNR.
查看完整代码 
SELECT-OPTIONS : S_MATNR FOR MARC-MATNR.
SQL Control Break Statements in SAP ABAP 
SELECT MATNR WERKS PSTAT LVORM PLIFZ
查看完整代码 
SELECT MATNR WERKS PSTAT LVORM PLIFZ
SQL Create Table Maintenance via ALV Grid 
SELECT-OPTIONS : S_YMTNR FOR YVCNPMMT-YMTNR,
查看完整代码 
SELECT-OPTIONS : S_YMTNR FOR YVCNPMMT-YMTNR,
SQL SAP ABAP Advanced Cookbook 2012 
LOOP AT int_edids WHERE DOCNUM = int_edidc-DOCNUM AND STATUS = int_edidc-STATUS.
查看完整代码 
LOOP AT int_edids WHERE DOCNUM = int_edidc-DOCNUM AND STATUS = int_edidc-STATUS.
SQL SAP Enhancement of standard search helps 
SELECT bukrs saknr erdat altkt INTO TABLE gt_temp FROM skb1
查看完整代码 
SELECT bukrs saknr erdat altkt INTO TABLE gt_temp FROM skb1
SQL Validation & Substitution comparison tool 
SELECT-OPTIONS: so_subst FOR gb921-substid.
查看完整代码 
SELECT-OPTIONS: so_subst FOR gb921-substid.
SQL Validation & Substitution comparison tool 
SELECT-OPTIONS: so_valid FOR gb931-valid.
查看完整代码 
SELECT-OPTIONS: so_valid FOR gb931-valid.
SQL 以导出多表数据为例看ABAP如何逐步优化 
SELECT-OPTIONS s_tabnam FOR dd02l-tabname.
查看完整代码 
SELECT-OPTIONS s_tabnam FOR dd02l-tabname.
SQL 以导出多表数据为例看ABAP如何逐步优化 
SELECT-OPTIONS s_tabnam FOR dd02l-tabname.
查看完整代码 
SELECT-OPTIONS s_tabnam FOR dd02l-tabname.
SQL 以导出多表数据为例看ABAP如何逐步优化 
SELECT-OPTIONS s_tabnam FOR dd02l-tabname.
查看完整代码 
SELECT-OPTIONS s_tabnam FOR dd02l-tabname.
SQL 以导出多表数据为例看ABAP如何逐步优化 
SELECT-OPTIONS s_tabnam FOR dd02l-tabname.
查看完整代码 
SELECT-OPTIONS s_tabnam FOR dd02l-tabname.
SQL 以导出多表数据为例看ABAP如何逐步优化 
SELECT-OPTIONS s_tabnam FOR dd02l-tabname.
查看完整代码 
SELECT-OPTIONS s_tabnam FOR dd02l-tabname.
SQL 实时发送SAP会计凭证到外部系统 
SELECT-OPTIONS s_bukrs FOR it_out-bukrs.
查看完整代码 
SELECT-OPTIONS s_bukrs FOR it_out-bukrs.
SQL 实时发送SAP会计凭证到外部系统 
SELECT-OPTIONS s_belnr FOR it_out-belnr.
查看完整代码 
SELECT-OPTIONS s_belnr FOR it_out-belnr.
SQL 实时发送SAP会计凭证到外部系统 
SELECT-OPTIONS s_gjahr FOR it_out-gjahr.
查看完整代码 
SELECT-OPTIONS s_gjahr FOR it_out-gjahr.
SQL 实时发送SAP会计凭证到外部系统 
SELECT-OPTIONS s_aedat FOR it_out-aedat.
查看完整代码 
SELECT-OPTIONS s_aedat FOR it_out-aedat.
SQL 实时发送SAP会计凭证到外部系统 
SELECT-OPTIONS s_aenam FOR it_out-aenam.
查看完整代码 
SELECT-OPTIONS s_aenam FOR it_out-aenam.
SQL 实时发送SAP会计凭证到外部系统 
SELECT-OPTIONS s_exmsg FOR it_out-exmsg.
查看完整代码 
SELECT-OPTIONS s_exmsg FOR it_out-exmsg.
SQL 批量对比系统间开发对象差异 
SELECT-OPTIONS: s_prog FOR sci_dynp-o_repo  MEMORY ID prog,
查看完整代码 
SELECT-OPTIONS: s_prog FOR sci_dynp-o_repo  MEMORY ID prog,
SQL 批量对比系统间开发对象差异 
SELECT-OPTIONS: s_pckg FOR sci_dynp-f_devc  MEMORY ID pckg,
查看完整代码 
SELECT-OPTIONS: s_pckg FOR sci_dynp-f_devc  MEMORY ID pckg,
SQL 批量对比系统间开发对象差异 
SELECT-OPTIONS: s_user FOR sci_dynp-f_resp,
查看完整代码 
SELECT-OPTIONS: s_user FOR sci_dynp-f_resp,
SQL 查找数据库表内包含的特殊字符 
SELECT-OPTIONS s_type FOR cflag NO INTERVALS.
查看完整代码 
SELECT-OPTIONS s_type FOR cflag NO INTERVALS.
SQL 查找数据库表内包含的特殊字符 
SELECT-OPTIONS s_flds FOR dd03l-fieldname NO INTERVALS MATCHCODE OBJECT dd_fieldname.
查看完整代码 
SELECT-OPTIONS s_flds FOR dd03l-fieldname NO INTERVALS MATCHCODE OBJECT dd_fieldname.
SQL 查找数据库表内包含的特殊字符 
SELECT-OPTIONS s_conl FOR char45 NO INTERVALS LOWER CASE.
查看完整代码 
SELECT-OPTIONS s_conl FOR char45 NO INTERVALS LOWER CASE.
SQL 查找数据库表内包含的特殊字符 
SELECT-OPTIONS s_sfld FOR dd03l-fieldname NO INTERVALS MATCHCODE OBJECT dd_fieldname.
查看完整代码 
SELECT-OPTIONS s_sfld FOR dd03l-fieldname NO INTERVALS MATCHCODE OBJECT dd_fieldname.

Shell 8 段

Shell PO中的消息映射的标准Function和用户定义FunctionUDF 
FUNCTION  |  描述  |  备注
查看完整代码 
FUNCTION  |  描述  |  备注
Shell PO中的消息映射的标准Function和用户定义FunctionUDF 
FUNCTION  |  描述  |  备注
查看完整代码 
FUNCTION  |  描述  |  备注
Shell 玩转SAP轻零售行业方案零售商品VS工业商品新增方式之IDocMATMAS_MASS_B 
FUNCTION  |  005
查看完整代码 
FUNCTION  |  005
Shell 玩转SAP轻零售行业方案零售商品VS工业商品新增方式之IDocMATMAS_MASS_B 
FUNCTION  |  005
查看完整代码 
FUNCTION  |  005
Shell 玩转SAP轻零售行业方案零售商品VS工业商品新增方式之IDocMATMAS_MASS_B 
FUNCTION  |  005
查看完整代码 
FUNCTION  |  005
Shell 玩转SAP轻零售行业方案零售商品VS工业商品新增方式之IDocMATMAS_MASS_B 
FUNCTION  |  005
查看完整代码 
FUNCTION  |  005
Shell 玩转SAP轻零售行业方案零售商品VS工业商品新增方式之IDocMATMAS_MASS_B 
FUNCTION  |  005
查看完整代码 
FUNCTION  |  005
Shell 玩转SAP轻零售行业方案零售商品VS工业商品新增方式之IDocMATMAS_MASS_B 
FUNCTION  |  005
查看完整代码 
FUNCTION  |  005