ABAP 装运成本报表

标签：

*&---------------------------------------------------------------------*
*& Report  ZSDR011
*&
*&---------------------------------------------------------------------*
*&程序名称：装运成本报表
*&事物代码：ZSD031
*&导入模板：无
*&作者：董冬
*&时间：2016/3/5
*&更新时间：2016/3/7
*&-------
REPORT zsdr011.

TABLES:vfkp.
INCLUDE ole2incl.

DATA: gs_fcat TYPE lvc_s_fcat,
      gt_fcat TYPE lvc_t_fcat,
      gs_layo TYPE lvc_s_layo,
      gs_grid TYPE lvc_s_glay.
DATA: gt_event      TYPE slis_t_event WITH HEADER LINE,
      gt_event_exit TYPE slis_t_event_exit WITH HEADER LINE.

DATA:  ref_grid TYPE REF TO cl_gui_alv_grid .

DATA: excel    TYPE ole2_object,
      workbook TYPE ole2_object,
      sheet    TYPE ole2_object,
      cell     TYPE ole2_object,
      row      TYPE ole2_object.



TYPES: BEGIN OF ty_all,
         fknum         LIKE  vfkp-fknum, "运输成本编号
         fkpos         LIKE  vfkp-fkpos, "项目
         vsart         LIKE  vfkp-vsart, "装运类型
         tdlnr         LIKE  vfkp-tdlnr, "服务代理

         ernam         LIKE  vfkp-ernam, "创建者
         erdat         LIKE  vfkp-erdat, "创建日期

         fkart         LIKE  vfkk-fkart, "成本类别
         fkpty         LIKE  vfkp-fkpty, "项目类别
         netwr         LIKE  vfkp-netwr, "净价值
         waers         LIKE  vfkp-waers, "货币
         tplst         LIKE  vfkp-tplst, "运输计划点
         kalsm         LIKE  vfkp-kalsm, "定价过程
         bukrs         LIKE  vfkp-bukrs, "公司代码
         werks         LIKE  vfkp-werks, "工厂
         ekorg         LIKE  vfkp-ekorg, "采购组织
         ekgrp         LIKE  vfkp-ekgrp, "采购组
         ebeln         LIKE  vfkp-ebeln, "采购凭证
         lblni         LIKE  vfkp-lblni, "条目表
         rechs         LIKE  vfkp-rechs, "服务代理(出票方）
         rebel         LIKE  vfkp-rebel, "参考凭证号
         knttp         LIKE  vfkp-knttp, "科目分配类别
         knttp_txt     LIKE  t163i-knttx, "科目分配类别描述
         stabr         LIKE  vfkp-stabr, "传递状态
         stabr_txt(20) TYPE  c,
         kstau         LIKE  vfkp-kstau, "成本分配状态
         kstau_txt(20) TYPE  c,
         fksto         LIKE  vfkp-fksto, "已取消状态
         fksto_txt(2)  TYPE  c,

         beizhu(30)    TYPE c,
       END OF ty_all.

*TYPES:BEGIN OF ty_header,
*
*      END OF ty_header.
**单据抬头结束
*
**单据明细开始
*TYPES:BEGIN OF ty_items,
*
*      END OF ty_items.
**单据明细结束

DATA:wa_all TYPE ty_all,
     gt_all TYPE ty_all OCCURS 0.


*DATA:wa_header TYPE ty_header,
*     gt_header TYPE ty_header OCCURS 0.
*
*DATA:wa_items TYPE ty_items,
*     gt_items TYPE ty_items OCCURS 0.
*
*DATA: gt_header_show TYPE ty_header OCCURS 0.
*DATA: gt_items_show TYPE ty_items OCCURS 0.

*定义传入到smartforms的变量开始
DATA:fm_name TYPE rs38l_fnam.
DATA:itemsname(32) TYPE c.
DATA:headername(32) TYPE c.
*定义传入到smartforms的变量结束


*定义存储ALV向smartforms传入数据的内表开始
*DATA:gt_header_temp TYPE ty_header OCCURS 0.
*DATA:gt_items_temp TYPE ty_items OCCURS 0.
DATA:gt_all_temp TYPE ty_all OCCURS 0.
*定义存储ALV向smartforms传入数据的内表结束

"控制smartforms参数声明开始
DATA :control_parameters TYPE ssfctrlop.
"控制smartforms参数声明结束


FIELD-SYMBOLS: <f_fs1> , <f_fs2>.

START-OF-SELECTION.
  SELECT-OPTIONS:

  p_fknum   FOR vfkp-fknum ," no-EXTENSION NO INTERVALS,
  p_vsart   FOR vfkp-vsart,
  p_tdlnr   FOR vfkp-tdlnr ,
  p_knttp   FOR vfkp-knttp,
  p_ernam   FOR vfkp-ernam,
  p_erdat   FOR vfkp-erdat.


START-OF-SELECTION.
  PERFORM getdata.
  PERFORM outdata.
FORM getdata.

  SELECT *
    FROM vfkp AS v
    INNER JOIN vfkk AS vk
    ON ( v~fknum = vk~fknum )
    INTO CORRESPONDING FIELDS OF TABLE gt_all
    WHERE (
              v~fknum IN p_fknum  AND
              v~vsart IN p_vsart  AND
              v~tdlnr IN p_tdlnr  AND
              v~knttp IN p_knttp  AND
              v~ernam IN p_ernam  AND
              v~erdat IN p_erdat ).

  SORT gt_all ASCENDING BY fknum.
  LOOP AT gt_all INTO wa_all.
    SELECT SINGLE knttx FROM t163i INTO wa_all-knttp_txt
      WHERE knttp EQ wa_all-knttp.
    IF wa_all-stabr EQ ‘A‘.
      wa_all-stabr_txt = ‘未转移‘.

    ELSEIF wa_all-stabr EQ ‘C‘.
      wa_all-stabr_txt = ‘已传送‘.
    ELSEIF wa_all-stabr EQ ‘‘.
      wa_all-stabr_txt = ‘和传输不相关‘.
    ENDIF.

    IF wa_all-kstau EQ ‘A‘.
      wa_all-kstau_txt = ‘装运成本条目‘.
    ELSEIF wa_all-kstau EQ ‘B‘.
      wa_all-kstau_txt = ‘交货‘.
    ELSEIF wa_all-kstau EQ ‘C‘.
      wa_all-kstau_txt = ‘交货项目‘.
    ENDIF.

    IF wa_all-fksto EQ ‘X‘.
      wa_all-fksto_txt = ‘是‘.
    ELSE.
      wa_all-fksto_txt = ‘否‘.
    ENDIF.

    MODIFY gt_all FROM wa_all.
  ENDLOOP.

ENDFORM. " GETDATA
*&---------------------------------------------------------------------*
*& Form FIXDATA
*&---------------------------------------------------------------------*


FORM frm_catlg_set USING p_field p_text  p_key p_edit p_no_out
                      p_f4availabl   p_ref_table   p_ref_field  .
  gs_fcat-fieldname   = p_field.
  gs_fcat-reptext     = p_text.
  gs_fcat-key         = p_key.
  gs_fcat-edit        = p_edit.
  gs_fcat-no_out      = p_no_out.
  gs_fcat-ref_field   = p_ref_field.
  gs_fcat-ref_table   = p_ref_table.
  gs_fcat-f4availabl  = p_f4availabl.


  APPEND gs_fcat TO gt_fcat .
  CLEAR gs_fcat .
ENDFORM. "frm_catlg_set

FORM fieldcat_init .
  DATA: c(2)    TYPE n,txt(20) TYPE c .
  PERFORM frm_catlg_set USING:
  ‘FKNUM‘ ‘运输成本编号‘ ‘X‘ ‘‘ ‘‘ ‘‘ ‘‘ ‘‘,
  ‘FKART‘ ‘成本类别‘ ‘‘ ‘‘ ‘‘ ‘X‘ ‘VFKK‘ ‘FKART‘,
  ‘FKPTY‘ ‘项目类别‘ ‘‘ ‘‘ ‘‘ ‘X‘ ‘VFKP‘ ‘FKPTY‘,
  ‘NETWR‘ ‘净价值‘ ‘‘ ‘‘ ‘‘ ‘‘ ‘‘ ‘‘,   
‘WAERS‘ ‘货币‘ ‘‘ ‘‘ ‘‘ ‘X‘ ‘VFKP‘ ‘WAERS‘,   
‘TPLST‘ ‘运输计划点‘ ‘‘ ‘‘ ‘‘ ‘X‘ ‘VFKP‘ ‘TPLST‘,   
‘KALSM‘ ‘定价过程‘ ‘‘ ‘‘ ‘‘ ‘X‘ ‘VFKP‘ ‘KALSM‘,   
‘BUKRS‘ ‘公司代码‘ ‘‘ ‘‘ ‘‘ ‘X‘ ‘VFKP‘ ‘BUKRS‘,   
‘WERKS‘ ‘工厂代码‘ ‘‘ ‘‘ ‘‘ ‘X‘ ‘VFKP‘ ‘WERKS‘,   
‘EKORG‘ ‘采购组织代码‘ ‘‘ ‘‘ ‘‘ ‘X‘ ‘VFKP‘ ‘EKORG‘,   
‘EKGRP‘ ‘采购组代码‘ ‘‘ ‘‘ ‘‘ ‘X‘ ‘VFKP‘ ‘EKGRP‘,   

‘EBELN‘ ‘采购凭证‘ ‘‘  ‘‘ ‘‘ ‘‘ ‘‘ ‘‘,   
‘LBLNI‘ ‘条目表‘ ‘‘  ‘‘ ‘‘ ‘‘ ‘‘ ‘‘,   

‘RECHS‘ ‘服务代理‘   ‘‘ ‘‘ ‘‘ ‘X‘ ‘VFKP‘ ‘RECHS‘,   
‘REBEL‘ ‘参考凭证号‘ ‘‘ ‘‘ ‘‘ ‘‘ ‘‘ ‘‘,   
‘KNTTP_TXT‘ ‘科目分配类别‘ ‘‘ ‘‘ ‘‘ ‘X‘ ‘VFKP‘ ‘KNTTP‘,   
‘STABR_TXT‘ ‘传送状态‘ ‘‘ ‘‘ ‘‘ ‘X‘ ‘VFKP‘ ‘STABR‘,   
‘KSTAU_TXT‘ ‘成本分配状态‘ ‘‘ ‘‘ ‘‘ ‘X‘ ‘VFKP‘ ‘KSTAU‘,   
‘FKSTO_TXT‘ ‘已取消状态‘ ‘‘ ‘‘ ‘‘ ‘X‘ ‘VFKP‘ ‘FKSTO‘,   
‘BEIZHU‘ ‘备注‘     ‘‘ ‘X‘ ‘X‘ ‘‘ ‘‘ ‘‘.   gs_layo

-zebra             = ‘X‘.   gs_layo
-cwidth_opt        = ‘X‘.
*  gs_layo-grid_title        = ‘dongdong‘.
*  gs_layo-smalltitle        = ‘X‘.
ENDFORM. "fieldcat_init

FORM outdata .   
PERFORM fieldcat_init .   
PERFORM show_alv  TABLES gt_fcat  gt_all[]   
USING  gs_layo.

ENDFORM. " outdata

FORM show_alv TABLES  pt_fcat pt_tab USING   ps_layout.   gs_grid

-edt_cll_cb = ‘X‘."当屏幕失去焦点时，自动刷新   gt_event
-name = ‘CALLER_EXIT‘.   "slis_ev_caller_exit_at_start事件   gt_event
-form = ‘FM_BUTTON‘.   
APPEND gt_event .   

CALL FUNCTION ‘REUSE_ALV_GRID_DISPLAY_LVC‘     
EXPORTING       i_callback_program       
= sy-repid       i_callback_user_command  
= ‘USER_COMMAND‘       i_grid_settings          
= gs_grid       i_callback_pf_status_set 
= ‘SET_PF_STATUS‘       is_layout_lvc            
= ps_layout       it_fieldcat_lvc          
= pt_fcat[]       it_events                
= gt_event[]       i_save                   
= ‘X‘
*     it_event_exit            = gt_event_exit[]     
TABLES       t_outtab                 
= pt_tab     
EXCEPTIONS       program_error            
= 1       
OTHERS                   = 2.
ENDFORM.                    "csalv_set_fcat

FORM user_command USING r_ucomm LIKE sy-ucomm  rs_selfield TYPE slis_selfield.   


CASE r_ucomm.     
WHEN ‘&DATA_SAVE‘.     
WHEN ‘&XSL‘ OR ‘&EXPORT‘ .       
"PERFORM PRINT.       
DATA: path LIKE rlgrap-filename..       
DATA :file_path LIKE rlgrap-filename.       

"设置文件存放路径调用函数开始       
PERFORM set_file_path CHANGING path.       
"设置文件存放路径调用函数结束       

DATA:ls_row  TYPE lvc_s_row,            lt_rows 
TYPE lvc_t_row.       

"获取ALV选中的行开始       
CALL METHOD ref_grid->get_selected_rows         
IMPORTING           et_index_rows 
= lt_rows.       
"获取ALV选中的行结束       

LOOP AT lt_rows INTO ls_row.         
READ TABLE gt_all INTO wa_all INDEX ls_row-index.         
APPEND wa_all TO gt_all_temp.       

ENDLOOP.

*      LOOP AT gt_all_temp INTO  wa_all.       file_path 

= path && ‘\运输成本‘ && ‘‘ && ‘.xls‘.       
PERFORM frm_download_template USING file_path."‘C:\Users\DONG\Desktop\发货通知单.XLS‘.       
PERFORM data_to_excel USING file_path ." ‘C:\Users\DONG\Desktop\发货通知单.XLS‘.
*      ENDLOOP.       
"LOOP AT itab_out .       
IF sy-subrc EQ 0 .         
MESSAGE s004(zmess) WITH ‘导出成功！‘.       
ENDIF.       

CLEAR path.       
CLEAR file_path.     
WHEN ‘&BACK‘ OR ‘&UP‘ OR ‘&EXIT‘.       

LEAVE PROGRAM.   
ENDCASE.

ENDFORM.                    "user_command
*&---------------------------------------------------------------------*
*&      Form  SET_PF_STATUS
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->RT_EXTAB   text
*----------------------------------------------------------------------*
FORM set_pf_status USING rt_extab TYPE slis_t_extab..   
SET PF-STATUS ‘STANDARD‘.
ENDFORM.                    "SET_PF_STATUS
*&---------------------------------------------------------------------*
*&      Form  fm_button
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->E_GRID     text
*----------------------------------------------------------------------*
FORM fm_button USING e_grid TYPE slis_data_caller_exit.   

CALL FUNCTION ‘GET_GLOBALS_FROM_SLVC_FULLSCR‘
*   EXPORTING
*     IR_SALV_FULLSCREEN_ADAPTER       =     
IMPORTING
*     ET_EXCLUDING                     =
*     E_REPID   =
*     E_CALLBACK_PROGRAM               =
*     E_CALLBACK_ROUTINE               =       e_grid 
= ref_grid
*     ET_FIELDCAT_LVC                  =
*     ER_TRACE  =
*     E_FLG_NO_HTML                    =
*     ES_LAYOUT_KKBLO                  =
*     ES_SEL_HIDE                      =
*     ET_EVENT_EXIT                    =
*     ER_FORM_TOL                      =
*     ER_FORM_EOL                      =     
.

*   CALL METHOD ref_grid->check_changed_data.
* 设置enter事件   
CALL METHOD ref_grid->register_edit_event     
EXPORTING       i_event_id 
= cl_gui_alv_grid=>mc_evt_enter     
EXCEPTIONS       error      
= 1       
OTHERS     = 2.   


"CREATE OBJECT gt_event_receiver.   
"SET HANDLER   gt_event_receiver->handle_modify FOR ref_grid.
ENDFORM.                    "FM_BUTTON

FORM fill_cell USING i_row  i_col  p_value.   

CALL METHOD OF excel ‘CELLS‘ = cell   

EXPORTING #1 = i_row  #2 = i_col.   

SET PROPERTY OF cell ‘VALUE‘ = p_value.

ENDFORM. "fill_cell


FORM data_to_excel USING c_path  .   

DATA:lt_tmp_gt TYPE ty_all.


*  Create an Excel object and start Excel.   
CREATE OBJECT excel ‘EXCEL.APPLICATION‘.   
IF sy-subrc <> 0.     
MESSAGE ‘The excel object can‘‘t be created‘ TYPE ‘I‘.   
ENDIF.


*  Create an Excel workbook Object.   
CALL METHOD OF excel ‘WORKBOOKS‘ = workbook .

*  Transfer the header line to Excel.   
CALL METHOD OF workbook ‘OPEN‘ EXPORTING #1 = c_path.   

"READ TABLE gt_header_show INTO wa_header INDEX 1.   



DATA:l_col  TYPE sy-index.   

FIELD-SYMBOLS: <f>.   
DATA : cust_num TYPE i.   

DATA :rows TYPE i VALUE 1."行数据从第十一行开始   
LOOP AT gt_all_temp INTO wa_all.     
rows = rows + 1.     

PERFORM fill_cell USING  rows 1  wa_all-fknum.     
PERFORM fill_cell USING  rows 2  wa_all-fkart.     
PERFORM fill_cell USING  rows 3  wa_all-fkpty.     
PERFORM fill_cell USING  rows 4  wa_all-netwr.     
PERFORM fill_cell USING  rows 5  wa_all-waers.     
PERFORM fill_cell USING  rows 6  wa_all-tplst.     
PERFORM fill_cell USING  rows 7  wa_all-kalsm.     
PERFORM fill_cell USING  rows 8  wa_all-bukrs.     
PERFORM fill_cell USING  rows 9  wa_all-werks.     
PERFORM fill_cell USING  rows 10  wa_all-ekorg.     
PERFORM fill_cell USING  rows 11  wa_all-ekgrp.     

PERFORM fill_cell USING  rows 12  wa_all-ebeln.     
PERFORM fill_cell USING  rows 13  wa_all-lblni.     
PERFORM fill_cell USING  rows 14  wa_all-rechs.     
PERFORM fill_cell USING  rows 15  wa_all-rebel.     
PERFORM fill_cell USING  rows 16  wa_all-knttp_txt.     
PERFORM fill_cell USING  rows 17  wa_all-stabr_txt.     
PERFORM fill_cell USING  rows 18  wa_all-kstau_txt.     
PERFORM fill_cell USING  rows 19  wa_all-fksto_txt.   


ENDLOOP.   

GET PROPERTY OF excel ‘ACTIVEWORKBOOK‘ = workbook.
*  release and exit Excel.   
CALL METHOD OF workbook ‘SAVE‘.   

CALL METHOD OF excel ‘QUIT‘.

*  Free all objects   
FREE OBJECT cell.   
FREE OBJECT workbook.   
FREE OBJECT excel.   excel
-handle = -1.   
FREE OBJECT row.
ENDFORM.

FORM frm_download_template USING c_path .   

DATA: lv_objdata     LIKE wwwdatatab,         lv_obj_name    
LIKE wwwdatatab-objid,         lv_destination 
LIKE rlgrap-filename,         lv_objid       
LIKE sy-repid,         lv_subrc       
LIKE sy-subrc.   
DATA:l_ret TYPE abap_bool,        lv_answer   
.   
DATA:lv_file TYPE string.   

MOVE c_path TO lv_file.   
CALL METHOD cl_gui_frontend_services=>file_exist     
EXPORTING       file                 
= lv_file     RECEIVING       result               

= l_ret     
EXCEPTIONS       cntl_error           
= 1       error_no_gui         
= 2       wrong_parameter      
= 3       not_supported_by_gui 
= 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.   
IF l_ret EQ ‘X‘.

* 模版已存在，是否覆盖     

CALL FUNCTION ‘POPUP_TO_CONFIRM‘       
EXPORTING         text_question  
= ‘模版已存在，是否覆盖？‘         text_button_1  
= ‘是‘(001)         text_button_2  
= ‘否‘(002)       
IMPORTING         answer         
= lv_answer       
EXCEPTIONS         text_not_found 
= 1         
OTHERS         = 2.     
IF sy-subrc <> 0.     

ENDIF.     

IF lv_answer EQ ‘A‘. "取消       
EXIT.     
ELSEIF lv_answer NE ‘1‘. "否       
"p_filepath = c_path.     
ENDIF.   
ELSE.     lv_answer

= ‘1‘.   
ENDIF.   


CREATE OBJECT excel ‘EXCEL.APPLICATION‘.   
GET PROPERTY OF excel ‘Workbooks‘ = workbook .   
CALL METHOD OF workbook     
‘Close‘.   

IF lv_answer EQ ‘1‘.     
MOVE ‘ZSD_XLS_001‘ TO lv_obj_name."引用传入到服务器中xls模板     
SELECT relid objid     
FROM wwwdata     
INTO  CORRESPONDING FIELDS OF lv_objdata     
UP TO 1 ROWS     
WHERE srtf2 = 0 AND relid = ‘MI‘     
AND objid = lv_obj_name.     
ENDSELECT.     

CALL FUNCTION ‘DOWNLOAD_WEB_OBJECT‘       
EXPORTING         
key         = lv_objdata         destination 
= c_path       
IMPORTING         rc          
= lv_subrc.
*    IF lv_subrc = 0.
*      p_filepath = c_path.
*    ENDIF.   
ENDIF.

*  CALL METHOD OF
*      g_workbook
*      ‘open‘
*
*    EXPORTING
*      #1         = c_path.
*
*  CALL METHOD OF
*      g_excel
*      ‘worksheets‘ = g_sheet
*    EXPORTING
*      #1           = 1.
*  CALL METHOD OF
*      g_sheet
*      ‘activate‘.   

"SET PROPERTY OF g_excel ‘visible‘ = 0.   

FREE OBJECT sheet.   
"FREE OBJECT g_applica.   
FREE OBJECT workbook.   
FREE OBJECT excel.

ENDFORM.                    "frm_download_template

FORM set_file_path CHANGING filepath LIKE rlgrap-filename.   
DATA: gd_path TYPE string.   
DATA: it_tab   TYPE filetable,         gd_subrc 
TYPE i.   
DATA: ld_filename TYPE string,         ld_path     
TYPE string,         ld_fullpath 
TYPE string,         ld_result   
TYPE i,         gd_file     
TYPE c.   


DATA:"filepath LIKE rlgrap-filename,         openfile 
LIKE rlgrap-filename.   

CALL METHOD cl_gui_frontend_services=>directory_browse     
EXPORTING       window_title    
= ‘文件路径选择‘       initial_folder  
= ‘C:‘     
CHANGING       selected_folder 
= gd_path.   
CALL METHOD cl_gui_cfw=>flush.   
CONCATENATE gd_path ‘‘ INTO filepath.

* CALL METHOD cl_gui_frontend_services=>file_open_dialog
*    EXPORTING
*      window_title     = ‘Select File‘
*      default_filename = ‘*.txt‘
*      multiselection   = ‘X‘
*    CHANGING
*      file_table       = it_tab
*      rc               = gd_subrc.
**  LOOP AT it_tab INTO openfile-low.
**    openfile-sign = ‘I‘.
**    openfile-option = ‘EQ‘.
**    APPEND openfile.
**  ENDLOOP.
*  CALL METHOD cl_gui_cfw=>flush.
*
*CALL METHOD cl_gui_frontend_services=>file_save_dialog
*    EXPORTING
*      default_extension = ‘XLS‘
*      default_file_name = ‘产品出库单‘
*      initial_directory = ‘c:/temp/‘
*    CHANGING
*      filename          = ld_filename
*      path              = filepath
*      fullpath          = ld_fullpath
*      user_action       = ld_result.

ENDFORM.

ABAP 装运成本报表

标签：

原文地址：http://www.cnblogs.com/eagle-dtq/p/5251091.html