20171104 DOI Excel 导出

1. OAOR 创建模板，

Class name：SOFFICEINTEGRATION
Class type：  OT
Object key：  ZZCSDRP_0030

2.双击表模板创建Excel 模板，

3.上传成功后可以看到模板，

 双击可以显示模板

注意点：关键字可以不写

!!!注意关键字 = 文件名

二、示例

1. 取数据，

2.ALV显示

3. 选中行进行导出 

*&---------------------------------------------------------------------*

*& Program Name         <程序名称>: ZZCSDRP_0029

*& Purpose              <程序用途>: 出口商业发票   导出

*& Project Name         <项目名称>: ZC

*& Created by           <创 建 人>: ibm-caixiang

*& Created on           <创建日期>: 20171013

*& Functional Consultant<功能顾问>: ibm-wugz

*& Description          <功能描述>: Function Desc.

*&---------------------------------------------------------------------*

*              Modification Log<程序修改日志>

*<日期>        <开发者>     <功能顾问>            <修改描述>

* 20171103     ibm-caixiang ibm-xuj              ETDK900085

*&

*&---------------------------------------------------------------------*

REPORT  ZZCSDRP_0030 NO STANDARD PAGE HEADING

                     MESSAGE-ID ZZCSD001.



*----------------------------------------------------------------------*

*   type-pools define（定义使用到的类型池）

*----------------------------------------------------------------------

TYPE-POOLS:SLIS, "ALV使用到的类库

           TRUXS,

           ICON.



*----------------------------------------------------------------------

*                          TABLES/Structure

*----------------------------------------------------------------------

TABLES:VBAK, "销售订单抬头表

       ADRC, "地址表

       VBKD, "销售业务数据表

       VBAP, "销售订单项目表

       KNA1, "客户数据表

       MAKT. "物料描述



*----------------------------------------------------------------------

*内表定义

*----------------------------------------------------------------------

TYPES:BEGIN OF TY_ALV,

**display fields

        VBELN    LIKE VBAK-VBELN, "销售订单

        VTWEG    LIKE VBAK-VTWEG, "分销渠道

        VTWEGTXT TYPE STRING,

        VKGRP    LIKE VBAK-VKGRP, "销售组

        VKGRPTXT TYPE STRING,

        KUNNR    LIKE VBAK-KUNNR, "售达方

        NAME1    LIKE KNA1-NAME1, "售达方名称

        LAND1    LIKE KNA1-LAND1, "国家

        LANDX    LIKE T005T-LANDX, "国名



**head data

        VKBUR    LIKE VBAK-VKBUR,

        VKBURTXT TYPE STRING,

        WERKS    LIKE VBAP-WERKS,

        LGORT    LIKE VBAP-LGORT,



        VKORG    LIKE VBAK-VKORG, "销售组织

        VKORGTXT TYPE STRING,     "公司名称

        VKORGEN  TYPE STRING,     "英文公司名称

        TELF1    LIKE KNA1-TELF1, "电话

        TELFX    LIKE KNA1-TELFX, "传真

        ADDRESS  TYPE STRING,       "地址

        BSTKD    LIKE VBKD-BSTKD,   "发票号

        ZZCDHXXH LIKE VBAK-ZZCDHXXH, "订单号

        ZSHADR   LIKE VBAK-ZSHADR,  "地址

        ZSHNAME  LIKE VBAK-ZSHNAME, "中茶-收货人

        ZSHTEL   LIKE VBAK-ZSHTEL,  "中茶-收货电话

        INCO2    LIKE VBKD-INCO2,   "FROM

        INCO1    LIKE VBKD-INCO2,   "FROM

        ERDAT    LIKE VBAK-ERDAT,

        AUART    LIKE VBAK-AUART,

        ZZCMT    LIKE VBAK-ZZCMT,

        WAERK    LIKE VBAK-WAERK,

        ZZYWY    LIKE VBAK-ZZYWY,

        ZSL      TYPE STRING,

        ZJE      TYPE STRING,

        ZTJ      TYPE STRING,

        ZJZ      TYPE STRING,

        ZMZ      TYPE STRING,

        ZSLEN    TYPE STRING,

        ZJEEN    TYPE STRING,

        XM_EN    TYPE STRING,

        XM_ZH    TYPE STRING,

*       装船名   手工输入

*       航期    手工输入

*       TO    手工输入

*       ZDYCS    LIKE ZTZC_PRINT-ZDYCS,

        BOX      TYPE C,

        LIN      TYPE SY-TABIX,

      END OF TY_ALV.

DATA: GT_ALV   TYPE STANDARD TABLE OF TY_ALV,

      GS_ALV   TYPE TY_ALV,

      WA_PRINT TYPE TY_ALV.



DATA: BEGIN OF GS_ITEM,

* VBELN

        VBELN  LIKE VBAK-VBELN, "销售订单

        POSNR  LIKE VBAP-POSNR,

        MATNR  LIKE VBAP-MATNR,

        ARKTX  LIKE VBAP-ARKTX, "品名

        VRKME  LIKE VBAP-VRKME,

        KWMENG LIKE VBAP-KWMENG, "数量

        ZZCSJH LIKE VBAP-ZZCSJH, "批次号

        VOLUM  LIKE VBAP-VOLUM, "体积

        NTGEW  LIKE VBAP-NTGEW, "净重

        BRGEW  LIKE VBAP-BRGEW, "毛重

        KZWI1  LIKE VBAP-KZWI1,

        NETPR  TYPE CHAR10,

        LGORT  LIKE VBAP-LGORT,

        CHARG  LIKE VBAP-CHARG,

        WERKS  LIKE VBAP-WERKS,

        ZDW    TYPE CHAR10,

        ZPC    TYPE RESB-BDMNG,



      END OF GS_ITEM.

DATA: GT_ITEM LIKE TABLE OF GS_ITEM.



FIELD-SYMBOLS: <FS_ALV>  LIKE LINE OF GT_ALV,

               <FS_ITEM> LIKE LINE OF GT_ITEM.





*----------------------------------------------------------------------

* for DOI

*----------------------------------------------------------------------

DATA:GDF_PATH     TYPE STRING, "add by shikai.liao

     GDF_FILENAME TYPE STRING,

     GDF_FULLPATH TYPE STRING.

DATA:L_IREF_SPREADSHEET TYPE REF TO I_OI_SPREADSHEET.







**全局变量

DATA: G_ERR(1),

      G_LINES  TYPE SY-TABIX,

      G_TABIX  TYPE SY-TABIX.

**ALV参数定义

DATA: GT_FCAT TYPE LVC_T_FCAT,

      GS_FCAT TYPE LVC_S_FCAT.

DATA: GS_STYL TYPE LVC_S_STYL,

      GT_STYL TYPE LVC_T_STYL.

DATA: GS_SCOL TYPE LVC_S_SCOL,

      GT_SCOL TYPE LVC_T_SCOL.

DATA: G_REPID   TYPE SY-REPID,

      GS_LAYOUT TYPE LVC_S_LAYO.

DATA: GS_S_GLAY TYPE LVC_S_GLAY."可编辑单元格时回调

DATA: G_GRID  TYPE REF TO CL_GUI_ALV_GRID.



**常量定义

CONSTANTS:C_ERR(1) TYPE C VALUE 'X',

          C_OK(1)  TYPE C VALUE 'S'.



*======================================================================

*选择屏幕

*======================================================================

SELECTION-SCREEN BEGIN OF BLOCK BLK1 WITH FRAME TITLE TEXT-001.



PARAMETERS:     P_VKORG LIKE VBAK-VKORG,

                P_VTWEG LIKE VBAK-VTWEG OBLIGATORY DEFAULT '30'. "是否不显示

SELECT-OPTIONS: S_VBELN FOR  VBAK-VBELN,

                S_AUART FOR  VBAK-AUART,

                S_KUNNR FOR  VBAK-KUNNR,"客户编号

                S_ERDAT FOR  VBAK-ERDAT."订单创建日期

*PARAMETERS:    P_PRINT TYPE C AS CHECKBOX DEFAULT 'X'.



SELECTION-SCREEN END OF BLOCK BLK1.



SELECTION-SCREEN BEGIN OF BLOCK BLK2 WITH FRAME TITLE TEXT-002.

PARAMETERS:  P_PC RADIOBUTTON GROUP RAD1 DEFAULT 'X',

             P_MT RADIOBUTTON GROUP RAD1.

SELECTION-SCREEN END OF BLOCK BLK2.





*----------------------------------------------------------------------

*程序初始化

*----------------------------------------------------------------------

INITIALIZATION.

* 初始化数据

  PERFORM FRM_INITIAL.



*----------------------------------------------------------------------

*权限检查事件

*----------------------------------------------------------------------

AT SELECTION-SCREEN.

* 权限检查部分

  PERFORM FRM_CHECK_AUTHOR.



*======================================================================

*                          MAIN PROGRAM

*======================================================================

*主程序逻辑

*----------------------------------------------------------------------

START-OF-SELECTION.

**查数据

  PERFORM FRM_GET_DATA.

  CHECK G_ERR EQ SPACE.

  PERFORM FRM_ALV_DISPLAY.



*&---------------------------------------------------------------------*

*&      Form  FRM_INITIAL

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

*  -->  p1        text

*  <--  p2        text

*----------------------------------------------------------------------*

FORM FRM_INITIAL .



**

**

**

*8



  IF S_ERDAT[] IS INITIAL.

    S_ERDAT(3) = 'IEQ'.

    S_ERDAT-LOW = SY-DATUM+0(6) && '01'.

    CALL FUNCTION 'DATE_GET_MONTH_LASTDAY'
      
EXPORTING
        I_DATE 
= SY-DATUM
      
IMPORTING
        E_DATE 
= S_ERDAT-HIGH.
    
APPEND S_ERDAT.
  
ENDIF.

  

LOOP AT SCREEN.

**分销渠道不允许输入
    
IF SCREEN-NAME = 'P_VTWEG'.
      
SCREEN-INPUT = 0.
    
ENDIF.
    
MODIFY SCREEN.
  
ENDLOOP.



ENDFORM.

*&---------------------------------------------------------------------*

*&      Form  FRM_CHECK_AUTHOR

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

*  -->  p1        text

*  <--  p2        text

*----------------------------------------------------------------------*

FORM FRM_CHECK_AUTHOR .

**检查销售组织权限
  
AUTHORITY-CHECK OBJECT 'V_VBAK_VKO'
           
ID 'VKORG' FIELD P_VKORG
           
ID 'VTWEG' FIELD P_VTWEG
           
ID 'SPART' DUMMY
           
ID 'ACTVT' FIELD '03'.
  
IF SY-SUBRC <> 0.
    
MESSAGE E002 WITH P_VKORG.
  
ENDIF.



ENDFORM.

*&---------------------------------------------------------------------*

*&      Form  FRM_GET_DATA

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

*  -->  p1        text

*  <--  p2        text

*----------------------------------------------------------------------*

FORM FRM_GET_DATA .
  
DATA:LT_ALV LIKE GT_ALV,
       LS_ALV 
LIKE LINE OF LT_ALV.
  
DATA:LT_TVAKT LIKE TABLE OF TVAKT,
       LS_TVAKT 
LIKE LINE OF LT_TVAKT.
  
DATA:LT_KNA1 LIKE TABLE OF KNA1,
       LS_KNA1 
LIKE LINE OF LT_KNA1.
  
DATA:LT_TVKBT LIKE TABLE OF TVKBT,
       LS_TVKBT 
LIKE LINE OF LT_TVKBT.
  
DATA:LT_TVGRT LIKE TABLE OF TVGRT,
       LS_TVGRT 
LIKE LINE OF LT_TVGRT.
  
DATA:LS_TXTID  LIKE THEAD-TDID,
       LS_NAME   
LIKE THEAD-TDNAME,
       LS_OBJECT 
LIKE THEAD-TDOBJECT.
  
DATA:LT_ADRP LIKE TABLE OF ADRP,
       LS_ADRP 
LIKE LINE OF LT_ADRP.
  
DATA:LS_SUR21 LIKE USR21.
  
DATA: LT_TVKOT LIKE TABLE OF TVKOT,
        LS_TVKOT 
LIKE LINE OF LT_TVKOT.
  
DATA: LT_T005T LIKE TABLE OF T005T,
        LS_T005T 
LIKE LINE OF LT_T005T.
  
DATA: LT_T052U LIKE TABLE OF T052U,
        LS_T052U 
LIKE LINE OF LT_T052U.
  
DATA: LT_T005U LIKE TABLE OF T005U,
        LS_T005U 
LIKE T005U.
  
DATA: LT_TVTWT LIKE TABLE OF TVTWT,
        LS_TVTWT 
LIKE TVTWT.
  
DATA: LS_TVKO LIKE TVKO,
        LS_ADRC 
LIKE ADRC.


  


SELECT DISTINCT
         A
~VBELN
         A
~AUART
         A
~KUNNR
         A
~VKBUR
         A
~VKGRP
         A
~VKORG
         A
~ERDAT
         A
~ZZCMT
         A
~WAERK
         A
~ZZYWY
         A
~ZZCDHXXH
         A
~VTWEG
        
"客户地址（收件信息）
         A
~ZSHADR
         A
~ZSHNAME
         A
~ZSHTEL

         B

~BSTKD
         B
~INCO1
         B
~INCO2
         B
~ZTERM
    
INTO CORRESPONDING FIELDS OF TABLE GT_ALV
    
FROM VBAK AS A
    
JOIN VBKD AS B
      
ON A~VBELN EQ B~VBELN
   
WHERE A~VKORG = P_VKORG
     
AND A~VTWEG EQ P_VTWEG
     
AND A~VBELN IN S_VBELN
     
AND A~AUART IN S_AUART
     
AND A~KUNNR IN S_KUNNR
     
AND A~ERDAT IN S_ERDAT.



**销售部门
  
SELECT VKBUR BEZEI
    
INTO CORRESPONDING FIELDS OF TABLE LT_TVKBT
    
FROM TVKBT
   
WHERE SPRAS = SY-LANGU.

**销售组 描述-VBAK-VKGRP 【TVGRT-VKGRP】
  
SELECT VKGRP BEZEI
    
INTO CORRESPONDING FIELDS OF TABLE LT_TVGRT
    
FROM TVGRT
   
WHERE SPRAS EQ SY-LANGU.

**取分销渠道
  
SELECT VTWEG VTEXT
    
INTO CORRESPONDING FIELDS OF TABLE LT_TVTWT
    
FROM TVTWT
   
WHERE SPRAS EQ SY-LANGU
     
AND VTWEG = P_VTWEG.

**销售组织描述 【TVKOT】
  
SELECT  SPRAS
          VKORG
          VTEXT
    


INTO CORRESPONDING FIELDS OF TABLE LT_TVKOT
    
FROM TVKOT
   
WHERE VKORG = P_VKORG.



**
  
SELECT SINGLE VKORG ADRNR
    
INTO CORRESPONDING FIELDS OF LS_TVKO
    
FROM TVKO
   
WHERE VKORG = P_VKORG.

  

SELECT SINGLE ADDRNUMBER
                DATE_FROM
                NATION
DATE_TO




TITLE
NAME1
NAME2
NAME3
NAME4
NAME_TEXT
    





INTO CORRESPONDING FIELDS OF LS_ADRC
    
FROM ADRC
   
WHERE ADDRNUMBER = LS_TVKO-ADRNR
     
AND DATE_FROM < SY-DATUM
     
AND DATE_TO > SY-DATUM.





**取客户名称 KUNNR-NAME1
  LT_ALV 
= GT_ALV.
  
SORT LT_ALV BY KUNNR.
  
DELETE ADJACENT DUPLICATES FROM LT_ALV COMPARING KUNNR.
  
IF LT_ALV IS NOT INITIAL.
    
SELECT KUNNR NAME1 NAME2
           TELF1 TELFX
"电话，传真
           LAND1 REGIO ORT01 ZZQXMC STRAS
      

INTO CORRESPONDING FIELDS OF TABLE LT_KNA1
      
FROM KNA1
      
FOR ALL ENTRIES IN LT_ALV
     
WHERE KUNNR = LT_ALV-KUNNR.
    
SORT LT_KNA1 BY KUNNR.
  
ENDIF.


  


IF LT_KNA1 IS NOT INITIAL.
    
SELECT LAND1  BLAND BEZEI
      
INTO CORRESPONDING FIELDS OF TABLE LT_T005U
      
FROM T005U
       
FOR ALL ENTRIES IN LT_KNA1
     
WHERE SPRAS = SY-LANGU
       
AND LAND1   = LT_KNA1-LAND1
       
AND BLAND  = LT_KNA1-REGIO.
  
ENDIF.

  

IF  LT_KNA1 IS NOT INITIAL.

**取国名
    
SELECT LAND1 LANDX
      
INTO CORRESPONDING FIELDS OF TABLE LT_T005T
      
FROM T005T
       
FOR ALL ENTRIES IN LT_KNA1
     
WHERE SPRAS = SY-LANGU
       
AND LAND1 = LT_KNA1-LAND1.
    
SORT LT_T005T BY LAND1.
  
ENDIF.



**取付款方式描述T052U
  
SELECT ZTERM ZTAGG TEXT1
    
INTO CORRESPONDING FIELDS OF TABLE LT_T052U
    
FROM T052U
   
WHERE SPRAS = SY-LANGU.







**DATA processing
  
LOOP AT GT_ALV ASSIGNING <FS_ALV>.



*  READ TABLE LT_KNA1 INTO LS_KNA1.



**取销售办事处描述 TVKBT-VKBUR
    
READ TABLE LT_TVKBT INTO LS_TVKBT WITH KEY VKBUR = <FS_ALV>-VKBUR.
    
IF SY-SUBRC EQ 0.
      <FS_ALV>
-VKBURTXT = LS_TVKBT-BEZEI.
    
ENDIF.



**分销渠道
    
READ TABLE LT_TVTWT INTO LS_TVTWT WITH KEY VTWEG = <FS_ALV>-VTWEG.
    
IF SY-SUBRC EQ 0.
      <FS_ALV>
-VTWEGTXT = LS_TVTWT-VTEXT.
    
ENDIF.

**销售组
    
READ TABLE LT_TVGRT INTO LS_TVGRT WITH KEY VKGRP = <FS_ALV>-VKGRP.
    
IF SY-SUBRC EQ 0.
      <FS_ALV>
-VKGRPTXT = LS_TVGRT-BEZEI.
    
ENDIF.

**销售组织
    
READ TABLE LT_TVKOT INTO LS_TVKOT WITH KEY VKORG = <FS_ALV>-VKORG
                                               SPRAS 
= 'ZH'.
    
IF SY-SUBRC EQ 0.
      <FS_ALV>
-VKORGTXT = LS_TVKOT-VTEXT.
    
ENDIF.
    
READ TABLE LT_TVKOT INTO LS_TVKOT WITH KEY VKORG = <FS_ALV>-VKORG
                                               SPRAS 
= 'EN'.
    
IF SY-SUBRC EQ 0.
      <FS_ALV>
-VKORGEN = LS_TVKOT-VTEXT.
    
ENDIF.



**库存地点
    
SELECT SINGLE WERKS LGORT
      
INTO ( <FS_ALV>-WERKS,<FS_ALV>-LGORT )
      
FROM VBAP
     
WHERE VBELN = <FS_ALV>-VBELN
       
AND POSNR = '000010'.



**地址
    
CONCATENATE <FS_ALV>-ZSHADR  <FS_ALV>-ZSHNAME  <FS_ALV>-ZSHTEL INTO <FS_ALV>-ZSHADR SEPARATED BY SPACE.

**客户名称
    
READ TABLE LT_KNA1 INTO LS_KNA1 WITH KEY KUNNR = <FS_ALV>-KUNNR.
    
IF SY-SUBRC EQ 0.
      <FS_ALV>
-NAME1 = LS_KNA1-NAME1 && LS_KNA1-NAME2.
      <FS_ALV>
-TELF1 = LS_KNA1-TELF1.
      <FS_ALV>
-TELFX = LS_KNA1-TELFX.
      <FS_ALV>
-ADDRESS  = LS_KNA1-STRAS.

**国名
      <FS_ALV>
-LAND1 = LS_KNA1-LAND1.
      <FS_ALV>
-LANDX = LS_KNA1-ORT01.

**取客户收货地址
      
IF <FS_ALV>-ZSHADR EQ SPACE.
        
READ TABLE LT_T005U INTO LS_T005U WITH KEY LAND1 = LS_KNA1-LAND1
                                                   BLAND 
= LS_KNA1-REGIO.
        
IF LS_KNA1-ORT01 = '市辖区'.
          <FS_ALV>
-ZSHADR = LS_T005U-BEZEI && LS_KNA1-ZZQXMC && LS_KNA1-STRAS.
        
ELSE.
          <FS_ALV>
-ZSHADR = LS_T005U-BEZEI && LS_KNA1-ORT01 && LS_KNA1-ZZQXMC && LS_KNA1-STRAS.
        
ENDIF.
      
ENDIF.
    
ENDIF.

    

CONCATENATE <FS_ALV>-inco1 <FS_ALV>-INCO2 INTO <FS_ALV>-INCO2 SEPARATED BY space.

  

ENDLOOP.


  G_LINES 


= LINES( GT_ALV ).
  
IF G_LINES EQ 0.
    G_ERR 
= 'X'.
    
MESSAGE S004 DISPLAY LIKE 'E'.
  
ELSE.
    
MESSAGE S006 WITH G_LINES.
  
ENDIF.





ENDFORM.

*&---------------------------------------------------------------------*

*&      Form  FRM_ALV_DISPLAY

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

*  -->  p1        text

*  <--  p2        text

*----------------------------------------------------------------------*

FORM FRM_ALV_DISPLAY .
  
DEFINE GD_FIELDCAT.
    
CLEAR:GS_FCAT.
    GS_FCAT
-TABNAME   = 'GT_ALV'.
    GS_FCAT
-FIELDNAME = &1.
    GS_FCAT
-SCRTEXT_L = &2.
    GS_FCAT
-SCRTEXT_M = &2.
    GS_FCAT
-SCRTEXT_S = &2.
    GS_FCAT
-NO_OUT    = &3.
    GS_FCAT
-OUTPUTLEN = &4.
    GS_FCAT
-DO_SUM    = &5.
    GS_FCAT
-HOTSPOT   = &6.
    GS_FCAT
-CHECKBOX  = &7.
    GS_FCAT
-EDIT      = &8.
    
APPEND GS_FCAT TO GT_FCAT.
  
END-OF-DEFINITION.


  


REFRESH: GT_FCAT.
  GD_FIELDCAT
:

'BOX'   '选择'            '' '' '' '' 'X' 'X' ,



'VBELN   '   '销售订单'      '' '' '' '' ''  '' ,

'VKORG   '   '销售组织'      '' '' '' '' ''  '' ,

'VKORGTXT'   '销售组织描述'      '' '' '' '' ''  '' ,

'VTWEG   '   '分销渠道'      '' '' '' '' ''  '' ,

'VTWEGTXT'   '分销渠道描述'  '' '' '' '' ''  '' ,

'VKBUR   '   '销售部门'      '' '' '' '' ''  '' ,

'VKBURTXT'   '销售部门描述'  '' '' '' '' ''  '' ,

'VKGRP   '   '销售组'      '' '' '' '' ''  '' ,

'VKGRPTXT'   '销售组描述'  '' '' '' '' ''  '' ,

'WERKS'      '工厂'        '' '' '' '' ''  '' ,

'LGORT'      '库存地点'    '' '' '' '' ''  '' ,





'KUNNR   '   '售达方'      '' '' '' '' ''  '' ,

'NAME1'      '售达方名称'  '' '' '' '' ''  '' ,

'LANDX'      '国家'  '' '' '' '' ''  '' ,

'ERDAT'      '创建日期'  '' '' '' '' ''  '' .



** layout set
  G_REPID 
= SY-REPID.
  GS_LAYOUT
-ZEBRA      = 'X'.
  GS_LAYOUT
-CWIDTH_OPT = 'X'.

*  GS_LAYOUT-EXCP_FNAME = 'ICON'.

*  GS_LAYOUT-EXCP_LED = 'X'.
  GS_S_GLAY
-EDT_CLL_CB = 'X'.



** call ALV
  
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
    
EXPORTING

*     I_BUFFER_ACTIVE          =
      I_CALLBACK_PROGRAM       
= G_REPID
      I_GRID_SETTINGS          
= GS_S_GLAY
      I_CALLBACK_PF_STATUS_SET 
= 'FRM_SET_PF_STATUS'
      I_CALLBACK_USER_COMMAND  
= 'FRM_USER_COMMAND'

*     I_BACKGROUND_ID          = ' '

*     I_GRID_TITLE             =

*     I_GRID_SETTINGS          =
      IS_LAYOUT_LVC            
= GS_LAYOUT
      IT_FIELDCAT_LVC          
= GT_FCAT[]

*     IT_EXCLUDING             =
      I_SAVE                   
= 'A'
    
TABLES
      T_OUTTAB                 
= GT_ALV
    
EXCEPTIONS
      PROGRAM_ERROR            
= 1
      
OTHERS                   = 2.
  
IF SY-SUBRC <> 0.
    
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  
ENDIF.



ENDFORM.

*&---------------------------------------------------------------------*

*&      Form  set_pf_status

*&---------------------------------------------------------------------*

FORM FRM_SET_PF_STATUS USING AB TYPE SLIS_T_EXTAB.

*--- Structure for the excluding table (function codes)
  
DATA: BEGIN OF EX_TAB OCCURS 0,
          FCODE 
LIKE RSMPE-FUNC,
        
END OF EX_TAB.

  EX_TAB

-FCODE = '&PRINT'.
  
APPEND EX_TAB.

  

SET PF-STATUS 'SET_PF_STATUS' EXCLUDING EX_TAB.

ENDFORM. "set_pf_status

*&---------------------------------------------------------------------*

*&      Form  user_command

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

*      -->R_UCOMM      text

*      -->rS_SELFIELD  text

*----------------------------------------------------------------------*

FORM FRM_USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
                            RS_SELFIELD 
TYPE SLIS_SELFIELD.
  
DATA: LR_GRID TYPE REF TO CL_GUI_ALV_GRID.

  

CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
    
IMPORTING
      E_GRID 
= LR_GRID.
  
CALL METHOD LR_GRID->CHECK_CHANGED_DATA.
  RS_SELFIELD
-REFRESH = 'X'.



*

*
  
CASE R_UCOMM .
    
WHEN '&ZALL'.
      
PERFORM FRM_ALL.
    
WHEN '&ZSAL'.
      
PERFORM FRM_SALL.
    
WHEN '&EXCEL'.
      
READ TABLE GT_ALV INTO GS_ALV WITH KEY BOX = 'X'.
      
IF SY-SUBRC <> 0.
        
MESSAGE E007.
      
ENDIF.

*BREAK IBM-CAIXIANG.
      
PERFORM FRM_PRINT_EXCEL.

    

WHEN '&IC1'.

**是否需要显示明细？
      
READ TABLE GT_ALV INTO GS_ALV INDEX RS_SELFIELD-TABINDEX .
      
IF RS_SELFIELD-FIELDNAME EQ 'VBELN' .
        
IF GS_ALV-VBELN IS NOT INITIAL .
          
SET PARAMETER ID 'AUN' FIELD GS_ALV-VBELN.
          
CALL TRANSACTION 'VA03' WITH AUTHORITY-CHECK AND SKIP FIRST SCREEN.
        
ENDIF .
      
ENDIF.

    

WHEN OTHERS.

*'@5C@'."红灯,@5B@ 绿灯
  
ENDCASE.



*  PERFORM FRM_REFRESH.

ENDFORM.

*&---------------------------------------------------------------------*

*&      Form  FRM_ALL

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

*  -->  p1        text

*  <--  p2        text

*----------------------------------------------------------------------*

FORM FRM_ALL .
  
LOOP AT GT_ALV ASSIGNING <FS_ALV>.
    <FS_ALV>
-BOX = 'X'.
  
ENDLOOP.

ENDFORM.

*&---------------------------------------------------------------------*

*&      Form  FRM_SALL

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

*  -->  p1        text

*  <--  p2        text

*----------------------------------------------------------------------*

FORM FRM_SALL .
  
LOOP AT GT_ALV ASSIGNING <FS_ALV>.
    <FS_ALV>
-BOX = ''.
  
ENDLOOP.

ENDFORM.

*&---------------------------------------------------------------------*

*&      Form  FRM_READ_TEXT

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

*      -->P_LS_TXTID  text

*      -->P_LS_NAME  text

*      -->P_LS_OBJECT  text

*      <--P_<FS_ALV>_DNTXT  text

*----------------------------------------------------------------------*

FORM FRM_READ_TEXT  USING    P_TXTID TYPE  THEAD-TDID
                             P_NAME   
TYPE THEAD-TDNAME
                             P_OBJECT 
TYPE THEAD-TDOBJECT
                    
CHANGING P_DNTXT TYPE CHAR255.

  

DATA: BEGIN OF LT_LINES OCCURS 50.
          
INCLUDE STRUCTURE TLINE.
  
DATA: END OF LT_LINES.
  
DATA: S_LINE(255) TYPE C.

  

CALL FUNCTION 'READ_TEXT'
    
EXPORTING
      
CLIENT                  = SY-MANDT
      
ID                      = P_TXTID
      
LANGUAGE                = SY-LANGU
      NAME                    
= P_NAME
      OBJECT                  
= P_OBJECT

*       IMPORTING

*     HEADER                  = LS_HEADER
    
TABLES
      
LINES                   = LT_LINES
    
EXCEPTIONS
      
ID                      = 01
      
LANGUAGE                = 02
      NAME                    
= 03
      NOT_FOUND               
= 04
      OBJECT                  
= 05
      REFERENCE_CHECK         
= 06
      WRONG_ACCESS_TO_ARCHIVE 
= 07
      
OTHERS                  = 08.
  
IF SY-SUBRC = 0.
    
LOOP AT LT_LINES.
      
IF LT_LINES-TDLINE NE ''.
        
CONCATENATE S_LINE LT_LINES-TDLINE INTO S_LINE.
      
ENDIF.
    
ENDLOOP.
  
ENDIF.

  P_DNTXT 

= S_LINE.



ENDFORM.

*&---------------------------------------------------------------------*

*&      Form  FRM_GET_ITEM

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

*  -->  p1        text

*  <--  p2        text

*----------------------------------------------------------------------*

FORM FRM_GET_ITEM .
  
DATA:LT_ITEM LIKE TABLE OF GS_ITEM,
       LS_ITEM 
LIKE GS_ITEM.

  

SELECT VBELN
         POSNR
         MATNR
         ARKTX
         VRKME
         KWMENG
         ZZCSJH
         VOLUM
         NTGEW
         BRGEW
         KZWI1
         LGORT
         CHARG
         WERKS
    













INTO CORRESPONDING FIELDS OF TABLE GT_ITEM
    
FROM VBAP
   
WHERE VBELN = <FS_ALV>-VBELN.
  
SORT GT_ITEM BY MATNR.


  


LOOP AT GT_ITEM INTO GS_ITEM.

**根据物料汇总
    LS_ITEM
-VBELN = GS_ITEM-VBELN.
    LS_ITEM
-MATNR = GS_ITEM-MATNR.
    LS_ITEM
-ARKTX = GS_ITEM-ARKTX.
    LS_ITEM
-KWMENG = GS_ITEM-KWMENG.
    LS_ITEM
-VRKME = GS_ITEM-VRKME.

    LS_ITEM

-ZZCSJH = GS_ITEM-ZZCSJH.
    LS_ITEM
-VOLUM = GS_ITEM-VOLUM.
    LS_ITEM
-NTGEW = GS_ITEM-NTGEW.
    LS_ITEM
-BRGEW = GS_ITEM-BRGEW.
    LS_ITEM
-KZWI1 = GS_ITEM-KZWI1.
    
IF GS_ITEM-KWMENG NE 0.
      LS_ITEM
-NETPR = GS_ITEM-KZWI1 / GS_ITEM-KWMENG.
    
ENDIF.



**单位文本
    
SELECT SINGLE MSEHT INTO LS_ITEM-ZDW
      
FROM T006A
     
WHERE MSEHI = LS_ITEM-VRKME
       
AND SPRAS = SY-LANGU.

    

DATA: LV_MENGE LIKE EKPO-MENGE, "收货数量
          XL_UNIT  
LIKE MARA-MEINS. "目标单位



**转换单位为pc
    
IF GS_ITEM-VRKME NE 'ST'.
      
CLEAR: LV_MENGE.
      XL_UNIT 
= 'ST'.
      
PERFORM FRM_CONVER_UNIT USING  LS_ITEM-MATNR LS_ITEM-VRKME  XL_UNIT LS_ITEM-KWMENG
     
CHANGING LS_ITEM-ZPC.
    
ELSE.
      LS_ITEM
-ZPC = LS_ITEM-KWMENG.
    
ENDIF.

    

COLLECT LS_ITEM INTO LT_ITEM.

    <FS_ALV>

-ZTJ = GS_ITEM-VOLUM + <FS_ALV>-ZTJ.
    <FS_ALV>
-ZJZ = GS_ITEM-NTGEW + <FS_ALV>-ZJZ.
    <FS_ALV>
-ZMZ = GS_ITEM-BRGEW + <FS_ALV>-ZMZ.
    <FS_ALV>
-ZSL = LS_ITEM-ZPC + <FS_ALV>-ZSL.
    <FS_ALV>
-ZJE = GS_ITEM-KZWI1 + <FS_ALV>-ZJE.
  
ENDLOOP.

  GT_ITEM 

= LT_ITEM.



**数量总计转大写EN
  
DATA:LS_SPELL TYPE SPELL,
       L_LANGU  
TYPE SY-LANGU.
  L_LANGU 
= 'E'.
  
CLEAR:LS_SPELL.

*  <FS_ALV>-ZSLEN = <FS_ALV>-ZSL / 100.

*  <FS_ALV>-ZSLEN = <FS_ALV>-ZSLEN * 100.
  G_TABIX 
= <FS_ALV>-ZSL.

  

CALL FUNCTION 'SPELL_AMOUNT'
    
EXPORTING
      AMOUNT    
= G_TABIX

*     CURRENCY  = 'CNY'

*     FILLER    = ' '
      
LANGUAGE  = L_LANGU
    
IMPORTING
      IN_WORDS  
= LS_SPELL
    
EXCEPTIONS
      NOT_FOUND 
= 1
      TOO_LARGE 
= 2
      
OTHERS    = 3.
  
IF SY-SUBRC <> 0.
    
MESSAGE S001.
    
" Implement suitable error handling here
  
ENDIF.

  <FS_ALV>

-ZSLEN = LS_SPELL-WORD.

  

CALL FUNCTION 'SPELL_AMOUNT'
    
EXPORTING
      AMOUNT    
= <FS_ALV>-ZJE
      
CURRENCY  = 'USD'

*     FILLER    = ' '
      
LANGUAGE  = L_LANGU
    
IMPORTING
      IN_WORDS  
= LS_SPELL
    
EXCEPTIONS
      NOT_FOUND 
= 1
      TOO_LARGE 
= 2
      
OTHERS    = 3.
  
IF SY-SUBRC <> 0.
    
" Implement suitable error handling here
  
ENDIF.
  <FS_ALV>
-ZJEEN = LS_SPELL-WORD.



ENDFORM.

*&---------------------------------------------------------------------*

*&      Form  FRM_PRINT_EXCEL

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

*  -->  p1        text

*  <--  p2        text

*----------------------------------------------------------------------*

FORM FRM_PRINT_EXCEL .
  
DATA:LDF_PATH TYPE LOCALFILE.





**选择文件夹
  
PERFORM FRM_GET_PATH CHANGING GDF_PATH GDF_FILENAME GDF_FULLPATH .

  

IF GDF_FULLPATH IS INITIAL .
    
MESSAGE I066."'请选择要保存的文件夹和输入文件名' TYPE 'I'.
  
ELSE.



**循环，一张by一张 进行处理
    
LOOP AT GT_ALV ASSIGNING <FS_ALV> WHERE BOX = 'X'.

      

PERFORM FRM_GET_ITEM.

**一个单据保存一个文件，【出口装箱单:<FS_ALV>-VBELN 】
      
CLEAR LDF_PATH.
      LDF_PATH 
= '出口商业发票' && <FS_ALV>-VBELN && '.xls'.
      
CONCATENATE GDF_PATH LDF_PATH  INTO LDF_PATH.
      
PERFORM FRM_OUTPUT_EXCEL TABLES GT_ITEM USING 'ZZCSDRP_0030' LDF_PATH .

    

ENDLOOP.

  

ENDIF.



ENDFORM.



*&---------------------------------------------------------------------*

*&      Form  FRM_GET_PATH

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

*  -->  p1        text

*  <--  p2        text

*----------------------------------------------------------------------*

FORM FRM_GET_PATH CHANGING:FU_PATH
                           FU_FILENAME
                           FU_FULLPATH  

.

  FU_FILENAME 

= '出口装箱单:'.

  

CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_SAVE_DIALOG
    
EXPORTING
      WINDOW_TITLE              
= 'Select Folder and Enter Filename to Save File'
      DEFAULT_EXTENSION         
= 'xls'

*     DEFAULT_FILE_NAME         = '出口装箱单:'

*     WITH_ENCODING             =
      FILE_FILTER               
= '*.xls'

*     INITIAL_DIRECTORY         =

*     PROMPT_ON_OVERWRITE       = 'X'
    
CHANGING
      FILENAME                  
= FU_FILENAME
      PATH                      
= FU_PATH
      FULLPATH                  
= FU_FULLPATH

*     USER_ACTION               =

*     FILE_ENCODING             =
    
EXCEPTIONS
      CNTL_ERROR                
= 1
      ERROR_NO_GUI              
= 2
      NOT_SUPPORTED_BY_GUI      
= 3
      INVALID_DEFAULT_FILE_NAME 
= 4
      
OTHERS                    = 5.
  
IF SY-SUBRC <> 0.

*   Implement suitable error handling here
  
ENDIF.





ENDFORM.                    " FRM_GET_PATH

*&---------------------------------------------------------------------*

*&      Form  FRM_OUTPUT_EXCEL

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

*  -->  p1        text

*  <--  p2        text

*----------------------------------------------------------------------*

FORM FRM_OUTPUT_EXCEL TABLES PT_EXCEL TYPE STANDARD TABLE
                       
USING PV_TEMPLATE TYPE BDS_PROPVA
                             PV_FILE     
TYPE LOCALFILE.

  

DATA:L_IREF_TEMPLATE  TYPE REF TO CL_BDS_DOCUMENT_SET,
       L_OREF_CONTAINER 
TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
       L_IREF_CONTROL   
TYPE REF TO I_OI_CONTAINER_CONTROL,
       L_IREF_ERROR     
TYPE REF TO I_OI_ERROR,
       L_IREF_DOCUMENT  
TYPE REF TO I_OI_DOCUMENT_PROXY,

*       L_IREF_SPREADSHEET TYPE REF TO I_OI_SPREADSHEET,
       L_RETCODE        
TYPE SOI_RET_STRING.

  

DATA:LT_SIGNATURE TYPE SBDST_SIGNATURE,
       LW_SIGNATURE 
TYPE BAPISIGNAT,
       LT_URI       
TYPE SBDST_URI,
       LW_URI       
TYPE BAPIURI,
       LT_SHEET     
TYPE SOI_SHEETS_TABLE,
       L_DOC        
TYPE CNTL_HANDLE,
       L_APL        
TYPE OBJ_RECORD,
       LW_SHEET     
TYPE SOI_SHEETS.

  

DATA:LT_FIELDS   TYPE STANDARD TABLE OF RFC_FIELDS,
       LS_FIELDS   
TYPE RFC_FIELDS,
       LV_LAST_ROW 
TYPE I,
       LV_LAST_COL 
TYPE I.
  
DATA:      GDF_ERROR  TYPE REF TO I_OI_ERROR,
             GDS_ERRORS 
TYPE REF TO I_OI_ERROR OCCURS 0 WITH HEADER LINE.

  

DATA:LDF_OBJECTKEY TYPE BAPIBDS01-OBJKEY.

*&1.创建容器控制器实例
  
CALL METHOD C_OI_CONTAINER_CONTROL_CREATOR=>GET_CONTAINER_CONTROL
    
IMPORTING
      
CONTROL = L_IREF_CONTROL
      RETCODE 
= L_RETCODE.

  

CHECK L_RETCODE = C_OI_ERRORS=>RET_OK.

*&2.初始化容器
  
CALL METHOD L_IREF_CONTROL->INIT_CONTROL
    
EXPORTING
      R3_APPLICATION_NAME      
= PV_TEMPLATE
      INPLACE_ENABLED          
= 'X'
      INPLACE_SCROLL_DOCUMENTS 
= 'X'
      PARENT                   
= L_OREF_CONTAINER
    
IMPORTING
      RETCODE                  
= L_RETCODE.
  
IF L_RETCODE <> C_OI_ERRORS=>RET_OK.
    
MESSAGE E067. "'保存Excel文件出错' TYPE 'E'.
  
ENDIF.

  

CHECK L_RETCODE = C_OI_ERRORS=>RET_OK.

*&3.上传模板的关键字：SBDST_SIGNATURE

*  LW_SIGNATURE-PROP_NAME  = 'BDS_KEYWORD'.

*  LW_SIGNATURE-PROP_VALUE = PV_TEMPLATE.

*  APPEND LW_SIGNATURE TO LT_SIGNATURE.



**3取得模板地址
  
REFRESH LT_URI.
  
CLEAR LDF_OBJECTKEY.
  
MOVE PV_TEMPLATE TO LDF_OBJECTKEY.

*  BDS对象实例化
  
CREATE OBJECT L_IREF_TEMPLATE.

*   读取BDS的URL
  
CALL METHOD L_IREF_TEMPLATE->GET_WITH_URL
    
EXPORTING
      CLASSNAME       
= 'SOFFICEINTEGRATION'
      CLASSTYPE       
= 'OT'
      OBJECT_KEY      
= LDF_OBJECTKEY
    
CHANGING
      URIS            
= LT_URI

*     SIGNATURE       = LT_SIGNATURE
    
EXCEPTIONS
      NOTHING_FOUND   
= 1
      ERROR_KPRO      
= 2
      INTERNAL_ERROR  
= 3
      PARAMETER_ERROR 
= 4
      NOT_AUTHORIZED  
= 5
      NOT_ALLOWED     
= 6.

  

CLEAR LW_URI.
  
READ TABLE LT_URI INTO LW_URI INDEX 1.
  
IF SY-SUBRC <> 0.
    
MESSAGE E069. "'请检查EXCEL模板不存在或者设置不正确' TYPE 'E'.
  
ENDIF.

  

CHECK SY-SUBRC = 0.

**4.容器控制器获得一个EXCEL文档代理
  
CALL METHOD L_IREF_CONTROL->GET_DOCUMENT_PROXY
    
EXPORTING
      DOCUMENT_TYPE  
= 'Excel.Sheet'
    
IMPORTING
      DOCUMENT_PROXY 
= L_IREF_DOCUMENT
      RETCODE        
= L_RETCODE.
  
IF L_RETCODE <> C_OI_ERRORS=>RET_OK.
    
MESSAGE E067. "'保存Excel文件出错' TYPE 'E'.
  
ENDIF.
  
CHECK L_RETCODE = C_OI_ERRORS=>RET_OK.



**容器控制器中打开指定BDS返回的文档

**You use this method to open an existing document. The document must be stored in in internal table in the ABAP program.
  
CALL METHOD L_IREF_DOCUMENT->OPEN_DOCUMENT
    
EXPORTING
      DOCUMENT_URL 
= LW_URI-URI
      OPEN_INPLACE 
= 'X'
    
IMPORTING
      RETCODE      
= L_RETCODE.
  
IF L_RETCODE <> C_OI_ERRORS=>RET_OK.
    
MESSAGE E067. "'保存Excel文件出错' TYPE 'E'.
  
ENDIF.

  

CHECK L_RETCODE = C_OI_ERRORS=>RET_OK.
  
FREE L_IREF_ERROR.

**创建一个用于管理电子表格界面的实例界面。

**Creates an instance sheet_interface for managing the spreadsheet interface.
  
CALL METHOD L_IREF_DOCUMENT->GET_SPREADSHEET_INTERFACE
    
IMPORTING
      ERROR           
= L_IREF_ERROR
      SHEET_INTERFACE 
= L_IREF_SPREADSHEET.

**Get the Names of Worksheets
  
CALL METHOD L_IREF_SPREADSHEET->GET_SHEETS
    
IMPORTING
      SHEETS 
= LT_SHEET
      ERROR  
= L_IREF_ERROR.

  

CHECK L_IREF_ERROR->ERROR_CODE = C_OI_ERRORS=>RET_OK.
  
CLEAR LW_SHEET.


  


READ TABLE LT_SHEET INTO LW_SHEET INDEX 1.
  
CHECK SY-SUBRC = 0.

**Activate a Sheet
  
CALL METHOD L_IREF_SPREADSHEET->SELECT_SHEET
    
EXPORTING
      NAME  
= LW_SHEET-SHEET_NAME
    
IMPORTING
      ERROR 
= L_IREF_ERROR.


  


CHECK L_IREF_ERROR->ERROR_CODE = C_OI_ERRORS=>RET_OK.

** calculate The columns of Data

*  REFRESH LT_FIELDS.

*  CALL FUNCTION 'DP_GET_FIELDS_FROM_TABLE'

*    TABLES

*      DATA   = PT_EXCEL

*      FIELDS = LT_FIELDS.

*  BREAK IBM-CAIXIANG.

  

DATA: LINE   TYPE I,
        COLUMN 
TYPE I.



**订单号:
  
LINE = 10. COLUMN = 2.
  
PERFORM FILL_CELL USING LINE COLUMN <FS_ALV>-ZZCDHXXH.

**客户:
  
LINE = 16. COLUMN = 2.
  
PERFORM FILL_CELL USING LINE COLUMN <FS_ALV>-KUNNR.

**地址:
  
LINE = 17. COLUMN = 2.
  
PERFORM FILL_CELL USING LINE COLUMN <FS_ALV>-ZSHADR.

**From:
  
LINE = 22. COLUMN = 2.

  

PERFORM FILL_CELL USING LINE COLUMN 'XIAMEN'."<FS_ALV>-INCO2 .

**To:手工输入

*  LINE = 16. COLUMN = 3.

*  PERFORM FILL_CELL USING LINE COLUMN <FS_ALV>-ZSHADR.

**销售组织地址

*  LINE = 4. COLUMN = 8.

**  COLUMN = 7.

*  PERFORM FILL_CELL USING LINE COLUMN <FS_ALV>-ADDRESS.

**发票号
  
LINE = 10. COLUMN = 7.
  
PERFORM FILL_CELL USING LINE COLUMN <FS_ALV>-BSTKD.

**日期 = 销售订单日期
  
LINE = 13. COLUMN = 7.
  
PERFORM FILL_CELL USING LINE COLUMN <FS_ALV>-ERDAT.


  


IF P_PC EQ 'X'.

**（批次号）
    <FS_ALV>
-XM_EN = 'Batch Number'.
    <FS_ALV>
-XM_ZH = '（批次号）'.
  
ELSE.

**（唛头）
    <FS_ALV>
-XM_EN = 'Marks'.
    <FS_ALV>
-XM_ZH = '（唛头）'.
  
ENDIF.
  
LINE = 24. COLUMN = 1.
  
PERFORM FILL_CELL USING LINE COLUMN <FS_ALV>-XM_EN.
  
LINE = 25. COLUMN = 1.
  
PERFORM FILL_CELL USING LINE COLUMN <FS_ALV>-XM_ZH.



**--->begin add by ibm_caixiang on 14.12.2017 16:08:06 req by ibm_xxx.

**功能描述:Unit Price

**         (单价)  下面的值
  
LINE = 26. COLUMN = 6.
  
PERFORM FILL_CELL USING LINE COLUMN <FS_ALV>-INCO2.



**--->end add by ibm_caixaing 14.12.2017 16:08:06.



**USD/cny
  
LINE = 26. COLUMN = 7.
  
PERFORM FILL_CELL USING LINE COLUMN <FS_ALV>-WAERK.



**项目写入Excel
  
LOOP AT GT_ITEM ASSIGNING <FS_ITEM>.
    G_TABIX 
= SY-TABIX.



**格式P_MT显示抬头唛头
    
IF P_MT EQ 'X'.
      <FS_ITEM>
-ZZCSJH = <FS_ALV>-ZZCMT.
    
ENDIF.

**（批次号）
    
LINE = G_TABIX + 26. COLUMN = 1.
    
PERFORM FILL_CELL USING LINE COLUMN <FS_ITEM>-ZZCSJH.

**（件数）
    
LINE = G_TABIX + 26. COLUMN = 2.
    
PERFORM FILL_CELL USING LINE COLUMN <FS_ITEM>-ZPC.

**（品名）
    
LINE = G_TABIX + 26. COLUMN = 3.
    
PERFORM FILL_CELL USING LINE COLUMN <FS_ITEM>-ARKTX.

**有效期【手工输入】

*    LINE = G_TABIX + 25. COLUMN = 7.

*    PERFORM FILL_CELL USING LINE COLUMN <FS_ITEM>-VOLUM   .

**（数量）
    
LINE = G_TABIX + 26. COLUMN = 4.
    
PERFORM FILL_CELL USING LINE COLUMN <FS_ITEM>-KWMENG.

**（单位）
    
LINE = G_TABIX + 26. COLUMN = 5.
    
PERFORM FILL_CELL USING LINE COLUMN <FS_ITEM>-ZDW.

**单价
    
LINE = G_TABIX + 26. COLUMN = 6.
    
PERFORM FILL_CELL USING LINE COLUMN <FS_ITEM>-NETPR   .

**金额
    
LINE = G_TABIX + 26. COLUMN = 7.
    
PERFORM FILL_CELL USING LINE COLUMN <FS_ITEM>-KZWI1  .

  

ENDLOOP.



**SUM数量
  
LINE = LINE + 1. COLUMN = 1.
  
PERFORM FILL_CELL USING LINE COLUMN 'Total:'.
  COLUMN 
= 2.
  
PERFORM FILL_CELL USING LINE COLUMN <FS_ALV>-ZSL.

***SUM体积

*  COLUMN = 7.

*  PERFORM FILL_CELL USING LINE COLUMN <FS_ALV>-ZTJ   .

***SUM净重

*  COLUMN = 8.

*  PERFORM FILL_CELL USING LINE COLUMN <FS_ALV>-ZJZ   .

**SUM金额
  COLUMN 
= 7.
  
PERFORM FILL_CELL USING LINE COLUMN <FS_ALV>-ZJE   .



**数量总计
  
LINE = LINE + 1. COLUMN = 1.
  
PERFORM FILL_CELL USING LINE COLUMN 'TOTAL:'.
  COLUMN 
= 2.
  
PERFORM FILL_CELL USING LINE COLUMN <FS_ALV>-ZSLEN .

**金额总计
  
LINE = LINE + 1. COLUMN = 1.
  
PERFORM FILL_CELL USING LINE COLUMN 'TOTAL USD:'.
  COLUMN 
= 2.
  
PERFORM FILL_CELL USING LINE COLUMN <FS_ALV>-ZJEEN .

**----------------------------------------------------------------------

*  LV_LAST_COL = LINES( LT_FIELDS ).

*  CALL METHOD L_IREF_SPREADSHEET->SET_SELECTION

*    EXPORTING

*      LEFT    = 1

*      TOP     = 2

*      ROWS    = 4"LV_LAST_ROW

*      COLUMNS = 3."LV_LAST_COL.

*

*  CALL METHOD L_IREF_SPREADSHEET->INSERT_RANGE

*    EXPORTING

*      COLUMNS = LV_LAST_COL

*      ROWS    = LV_LAST_ROW

*      NAME    = PV_TEMPLATE.



*  CALL METHOD L_IREF_SPREADSHEET->INSERT_ONE_TABLE

*    EXPORTING

*      DATA_TABLE   = PT_EXCEL[]

*      FIELDS_TABLE = LT_FIELDS

*      RANGENAME    = PV_TEMPLATE.

**----------------------------------------------------------------------

  

CALL METHOD L_IREF_DOCUMENT->SAVE_AS
    
EXPORTING
      FILE_NAME 
= PV_FILE.

  

CALL METHOD L_IREF_DOCUMENT->RELEASE_DOCUMENT
    
IMPORTING
      RETCODE 
= L_RETCODE.
  
IF L_RETCODE <> C_OI_ERRORS=>RET_OK.
    
MESSAGE E067. "'保存Excel文件出错' TYPE 'E'.
  
ELSE.
    
MESSAGE S068. "'Excel文件已保存' TYPE 'S'.
  
ENDIF.
  
FREE: L_IREF_SPREADSHEET,
        L_IREF_DOCUMENT
.

  

CALL METHOD L_IREF_CONTROL->RELEASE_ALL_DOCUMENTS.
  
CALL METHOD L_IREF_CONTROL->DESTROY_CONTROL.

ENDFORM.                    " FRM_OUTPUT_EXCEL



*———————————————————————*

*       FORM fill_cell                                                *

*———————————————————————*

FORM FILL_CELL  USING I J VAL.
  
DATA: COLUMNS_NUMBER TYPE I,
        ROWS_NUMBER    
TYPE I.

  

DATA: "SPREADSHEET TYPE REF TO I_OI_SPREADSHEET,
    ERROR  
TYPE REF TO I_OI_ERROR,
    ERRORS 
TYPE REF TO I_OI_ERROR OCCURS 0 WITH HEADER LINE.
  
DATA: RANGEITEM TYPE SOI_RANGE_ITEM.
  
DATA: RANGES         TYPE SOI_RANGE_LIST,
        EXCEL_INPUT    
TYPE SOI_GENERIC_TABLE,
        EXCEL_INPUT_WA 
TYPE SOI_GENERIC_ITEM.

  COLUMNS_NUMBER 

= 1.
  ROWS_NUMBER 
= 1.

**根据它的尺寸得到一个范围
  
CALL METHOD L_IREF_SPREADSHEET->INSERT_RANGE_DIM
    
EXPORTING
      NAME     
= 'cell'
      NO_FLUSH 
= 'X'
      TOP      
= I
      
LEFT     = J
      
ROWS     = ROWS_NUMBER
      COLUMNS  
= COLUMNS_NUMBER
    
IMPORTING
      ERROR    
= ERRORS.
  
APPEND ERRORS.

  

REFRESH: RANGES, EXCEL_INPUT.
  RANGEITEM
-NAME = 'cell'.
  RANGEITEM
-COLUMNS = 1.
  RANGEITEM
-ROWS = 1.
  
APPEND RANGEITEM TO RANGES.

  EXCEL_INPUT_WA

-COLUMN = 1.
  EXCEL_INPUT_WA
-ROW = 1.
  EXCEL_INPUT_WA
-VALUE = VAL.
  
APPEND EXCEL_INPUT_WA TO EXCEL_INPUT.



* set data
  
CALL METHOD L_IREF_SPREADSHEET->SET_RANGES_DATA
    
EXPORTING
      
RANGES   = RANGES
      CONTENTS 
= EXCEL_INPUT
      NO_FLUSH 
= 'X'
    
IMPORTING
      ERROR    
= ERRORS.
  
APPEND ERRORS.

  

CALL METHOD L_IREF_SPREADSHEET->FIT_WIDEST
    
EXPORTING
      NAME     
= SPACE
      NO_FLUSH 
= 'X'.

  

REFRESH: RANGES, EXCEL_INPUT.



ENDFORM.                    "fill_cell

*&---------------------------------------------------------------------*

*&      Form  FRM_CONVER_UNIT

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

*      -->P_GS_ALV_MEIN2  text

*      -->P_LS_RESB_MEINS  text

*      <--P_1  text

*----------------------------------------------------------------------*

FORM FRM_CONVER_UNIT  USING
                                UV_MATNR
                                UV_IN
                                UV_OUT
                                UV_MENGE
                      




CHANGING
                                CV_MENGE1 
TYPE RESB-BDMNG.
  
DATA: LV_LVSME LIKE MLGN-LVSME, "仓库单位
        LV_MENGE 
LIKE EKPO-MENGE. "收货单位
  
CLEAR:LV_LVSME, LV_MENGE.

  

CALL FUNCTION 'MD_CONVERT_MATERIAL_UNIT'
    
EXPORTING
      I_MATNR              
= UV_MATNR
      I_IN_ME              
= UV_IN  "销售单位
      I_OUT_ME             
= UV_OUT "目标单位
      I_MENGE              
= 1
    
IMPORTING
      E_MENGE              
= LV_MENGE
    
EXCEPTIONS
      ERROR_IN_APPLICATION 
= 1
      ERROR                
= 2
      
OTHERS               = 3.

  CV_MENGE1 

= UV_MENGE * LV_MENGE.



ENDFORM.