1. 程式人生 > 其它 >工藝路線讀取——CARO_ROUTING_READ

工藝路線讀取——CARO_ROUTING_READ

執行效果:

 

程式碼:

DATA: lt_oper TYPE capp_opr OCCURS 0.

DATA: ls_layout   TYPE slis_layout_alv,
      lt_fieldcat TYPE slis_t_fieldcat_alv.

CALL FUNCTION 'CARO_ROUTING_READ'
  EXPORTING
    date_from      = sy-datum
    plnty          = 'N'
    plnnr          = '50036595'
    plnal          = '01'
    matnr          
= 'T24874G-01-FE' buffer_del_flg = 'X' TABLES opr_tab = lt_oper EXCEPTIONS not_found = 1 ref_not_exp = 2 not_valid = 3 no_authority = 4 OTHERS = 5. CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE' EXPORTING i_program_name = sy-repid i_internal_tabname
= 'LT_OPER' i_inclname = sy-repid CHANGING ct_fieldcat = lt_fieldcat EXCEPTIONS inconsistent_interface = 1 program_error = 2 OTHERS = 3. ls_layout-colwidth_optimize = 'X'. CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' EXPORTING i_callback_program
= sy-repid is_layout = ls_layout it_fieldcat = lt_fieldcat i_save = 'A' TABLES t_outtab = lt_oper EXCEPTIONS program_error = 1 OTHERS = 2.