ABAP EXCEL 模板

*&---------------------------------------------------------------------*
*& REPORT  ZEPB008
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZEPB008.

DATA:  BEGIN  OF GT_APLZL  OCCURS 0,
      LTXA2  LIKE AFVC-LTXA1,
      LTXA1  LIKE AFVC-LTXA1,
      APLZL  LIKE AFVC-APLZL,
      AUFPL  LIKE AFVC-AUFPL,
      ANLZU  LIKE AFVC-ANLZU,
      NUMBE(4) ,
      SUM_VERPR  LIKE MBEW-VERPR,
       END  OF GT_APLZL.
DATA:  BEGIN  OF GT_APLZL2  OCCURS 0,
      APLZL  LIKE AFVC-APLZL,
      LTXA2  LIKE AFVC-LTXA1,
      LTXA1  LIKE AFVC-LTXA1,
      AUFPL  LIKE AFVC-AUFPL,
      ANLZU  LIKE AFVC-ANLZU,
      NUMBE(4) ,
      SUM_VERPR  LIKE MBEW-VERPR,
       END  OF GT_APLZL2.
DATA: G_APLZL  LIKE AFVC-APLZL,
      G_LTXA1  LIKE AFVC-LTXA1.
DATA:  BEGIN  OF GT_MATNR  OCCURS 0,
      MATNR(19)  TYPE C,
      MAKTX  LIKE ZEPTM003-MAKTX,
      MEINS  LIKE RESB-MEINS,
      BDMNG  LIKE RESB-BDMNG,
      APLZL  LIKE AFVC-APLZL,
      ZLINE  TYPE TDLINE,
      RSNUM  LIKE RESB-RSNUM,
      RSPOS  LIKE RESB-RSPOS,
      VERPR  LIKE MBEW-VERPR,
      SUM_VERPR  LIKE MBEW-VERPR,
      MSEHL  LIKE T006A-MSEHL,
      ABLAD  LIKE RESB-ABLAD,
      LGORT  LIKE RESB-LGORT,
       END  OF GT_MATNR.
DATA: TDLINES  TYPE TLINE  OCCURS  0  WITH  HEADER LINE.
DATA: ZNAME  LIKE THEAD-TDNAME.
DATA: G_GNXYQ  TYPE STRING.
DATA: G_BGNX  TYPE STRING.
DATA: G_BGNX2  TYPE STRING.
DATA: G_GCZJE  TYPE STRING.
DATA: G_GCZJE_BIG  TYPE STRING.
DATA: ROW_INDEX  TYPE I.
DATA:  BEGIN  OF GT_NUMBE  OCCURS 0,
      NUMBE(6)  TYPE C,
       END  OF GT_NUMBE.
DATA: G_IND  TYPE  I  VALUE 0,
G_SIN_NUM  TYPE I,
G_DACH(3)  TYPE C.
DATA: GR_CUSTOM_CONTAINER  TYPE  REF  TO CL_GUI_CUSTOM_CONTAINER.
DATA: GR_CONTAINER  TYPE  REF  TO CL_GUI_CONTAINER,
      GR_CONTROL  TYPE  REF  TO I_OI_CONTAINER_CONTROL,
      GR_DOCUMENT  TYPE  REF  TO I_OI_DOCUMENT_PROXY,
      GR_SPREADSHEET  TYPE  REF  TO I_OI_SPREADSHEET,
      GR_SPLITTER  TYPE  REF  TO CL_GUI_SPLITTER_CONTAINER.

* BUSINESS DOCUMENT SYSTEM
DATA: GR_BDS_DOCUMENTS  TYPE  REF  TO CL_BDS_DOCUMENT_SET,
      G_CLASSNAME  TYPE SBDST_CLASSNAME,
      G_CLASSTYPE  TYPE SBDST_CLASSTYPE,
      G_OBJECTKEY  TYPE SBDST_OBJECT_KEY,
      G_DOC_COMPONENTS  TYPE SBDST_COMPONENTS,
      G_DOC_SIGNATURE  TYPE SBDST_SIGNATURE.

* TEMPLATE URL
DATA: GT_BDS_URIS  TYPE SBDST_URI,
      GS_BDS_URL  LIKE  LINE  OF GT_BDS_URIS,
      G_TEMPLATE_URL(256)  TYPE C.

DATA: G_OBJNR  TYPE J_OBJNR,
      G_A6  TYPE STRING,
      G_A5  TYPE STRING,
      G_A4  TYPE STRING,
      G_A3  TYPE STRING,
      G_A2  TYPE STRING,
      G_A1  TYPE STRING,
      G_NACHN  LIKE PA0002-NACHN,
      G_VORNA  LIKE PA0002-VORNA,
      G_WERKS  LIKE CAUFV-WERKS,
      G_ADDROW(3)  TYPE  C  VALUE 9,
      G_ADDROW2  TYPE I,
      G_IPHAS  LIKE AFIH-IPHAS,
      G_TABIX  TYPE SY-TABIX..

DATA: GT_RANGES  TYPE SOI_RANGE_LIST,
      GS_RANGE  TYPE SOI_RANGE_ITEM,
      GT_CONTENTS  TYPE SOI_GENERIC_TABLE,
      GS_CONTENT  TYPE SOI_GENERIC_ITEM.
DATA: OK_CODE  TYPE SY-UCOMM,
      SAVE_OK  LIKE OK_CODE.
DATA: G_ILEN  TYPE I.
DATA: G_SUM_VEPRP  LIKE MBEW-VERPR.
DATA: G_TAX  LIKE MBEW-VERPR  VALUE  0.
DATA: G_SUM_MONEY  LIKE MBEW-VERPR  VALUE  0.
DATA:  BEGIN  OF WA_ZEP,
    AUFNR  TYPE CAUFV-AUFNR,
    ERDAT  TYPE CAUFV-ERDAT,
    ATTACH(10)  TYPE C,
    ERNAM  TYPE CAUFV-ERNAM,
    KTEXT  TYPE CAUFV-KTEXT,
    WERKS  TYPE CAUFV-WERKS,
    MATNR  TYPE RESB-MATNR,
    RSPOS  TYPE RESB-RSPOS,
    LTXA1  TYPE AFVC-LTXA1,
    VORNR  TYPE AFVC-VORNR,
    BDMNG  TYPE RESB-BDMNG,
    MEINS  TYPE RESB-MEINS,
    VERPR  TYPE MBEW-VERPR,
    NETWR  TYPE EKPO-NETWR,
    MAKTX  TYPE ZEPTM003-MAKTX,
    RSNUM  TYPE RESB-RSNUM,
    ZLINE  TYPE TDLINE,
    ANLZU  TYPE AFVC-ANLZU,
     END  OF WA_ZEP.
DATA:ITAB_ZEP  LIKE  TABLE  OF WA_ZEP.
DATA:G_GLLR  TYPE EKPO-NETWR.
DATA:G_GLLR2  TYPE EKPO-NETWR.
DATA:G_UNAME  TYPE SY-UNAME.
DATA: G_NETWR  TYPE EKPO-NETWR,
      G_VALUE  TYPE F.

DEFINE WRITE_CONTENT_CELL.
  GS_CONTENT-ROW = &1.
  GS_CONTENT-COLUMN = &2.
  GS_CONTENT-VALUE = &3.
   APPEND GS_CONTENT  TO GT_CONTENTS.
   CLEAR GS_CONTENT.
END-OF-DEFINITION.

SELECTION-SCREEN  BEGIN  OF   BLOCK T1  WITH  FRAME  TITLE X1.
PARAMETERS : P_AUFNR  LIKE CAUFV-AUFNR.
SELECTION-SCREEN  END  OF  BLOCK T1.

AT  SELECTION-SCREEN .
   SELECT  SINGLE IPHAS  FROM AFIH
     INTO G_IPHAS
   WHERE AUFNR = P_AUFNR.
   IF G_IPHAS <>  2.
     MESSAGE E000(ZEP_CE)  WITH  '訂單未核發，無法列印'.
  ENDIF.

INITIALIZATION.
  X1 =  '查詢條件'.
  G_CLASSNAME =  'HRFPM_EXCEL_STANDARD'.
  G_CLASSTYPE =  'OT'.
   " G_OBJECTKEY = 'DOI_EXCEL'.


START-OF-SELECTION.
   SELECT T2~APLZL T2~LTXA1 T2~ANLZU T2~AUFPL
     INTO CORRESPONDING  FIELDS  OF  TABLE GT_APLZL
     FROM CAUFV  AS T1
     JOIN AFVC  AS T2
     ON T1~AUFPL = T2~AUFPL
   WHERE AUFNR = P_AUFNR.


  CLEAR:G_NETWR,G_GLLR,G_GLLR2,G_UNAME,ITAB_ZEP,ITAB_ZEP[].
   SELECT T1~AUFNR T1~ERDAT T1~ERNAM T1~KTEXT  T2~MATNR T2~RSPOS T3~LTXA1 T3~VORNR T1~WERKS T2~BDMNG T2~MEINS T2~RSNUM T2~GPREIS  AS VERPR T3~ANLZU
   INTO CORRESPONDING  FIELDS  OF  TABLE ITAB_ZEP
   FROM CAUFV  AS T1
   JOIN RESB  AS T2
   ON T1~AUFNR = T2~AUFNR
   JOIN AFVC  AS T3
   ON T2~AUFPL = T3~AUFPL
   AND T2~APLZL = T3~APLZL
WHERE T2~XLOEK <>  'X'
   AND T1~AUFNR = P_AUFNR.

   LOOP  AT ITAB_ZEP  INTO WA_ZEP.
     IF WA_ZEP-ANLZU =  0  AND WA_ZEP-ANLZU  IS  NOT INITIAL.
      G_GLLR = WA_ZEP-BDMNG.
    ENDIF.
     IF WA_ZEP-VERPR  IS INITIAL.
       SELECT  SINGLE VERPR
         INTO WA_ZEP-VERPR
       FROM MBEW
       WHERE MATNR = WA_ZEP-MATNR
         AND BWKEY = WA_ZEP-WERKS.
    ENDIF.
     IF WA_ZEP-MATNR  IS  INITIAL  AND WA_ZEP-MEINS =  '%'  AND WA_ZEP-ANLZU  IS INITIAL.
      G_GLLR2 = WA_ZEP-BDMNG + G_GLLR2.
    ENDIF.
    WA_ZEP-NETWR = WA_ZEP-VERPR * WA_ZEP-BDMNG.
    G_NETWR = WA_ZEP-NETWR + G_NETWR.
  ENDLOOP.
  G_GLLR = G_GLLR + G_GLLR2.
  G_NETWR = G_NETWR * G_GLLR /  100 + G_NETWR  .

   CALL  SCREEN  2000.

*&---------------------------------------------------------------------*
*&      Form  MAIN
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM MAIN.
   PERFORM GET_CONTAINER.
   PERFORM CREATE_CONTAINER_CONTROL.

   IF G_NETWR <  300000.
*-------小於30萬
    G_OBJECTKEY =  'DOI_EXCEL'.
     PERFORM GET_TEMPLATE_URL.
     PERFORM OPEN_EXCEL_DOC.
     PERFORM WRITE_DATA_TO_EXCEL_LT_30WAN.
  ELSE.
*-------大於30萬
    G_OBJECTKEY  =  'DOI_EXCEL2'.
     PERFORM GET_TEMPLATE_URL.
     PERFORM OPEN_EXCEL_DOC.
     PERFORM WRITE_DATA_TO_EXCEL_GT_30WAN.
  ENDIF.


ENDFORM.                     "MAIN









*&---------------------------------------------------------------------*
*&      MODULE  STATUS_2000  OUTPUT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
MODULE STATUS_2000 OUTPUT.
   SET  PF-STATUS  '2000'.
   CASE SY-UCOMM.
     WHEN  'EXIT'  OR  'BACK'  OR  'CANCEL'.
       IF  NOT GR_DOCUMENT  IS INITIAL.
         CALL  METHOD GR_DOCUMENT->CLOSE_DOCUMENT.
         FREE GR_DOCUMENT.
      ENDIF.

       IF  NOT GR_CONTROL  IS INITIAL.
         CALL  METHOD GR_CONTROL->DESTROY_CONTROL.
         FREE GR_CONTROL.
      ENDIF.

       IF GR_CONTAINER  IS  NOT INITIAL.
         CALL  METHOD GR_CONTAINER->FREE.
      ENDIF.
       LEAVE PROGRAM.
     WHEN  'SAVE'.
       PERFORM SAVE_EXCEL.
  ENDCASE.
   PERFORM MAIN.

ENDMODULE.                  " STATUS_2000  OUTPUT
*&---------------------------------------------------------------------*
*&      MODULE  USER_COMMAND_2000  INPUT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
MODULE USER_COMMAND_2000 INPUT.


   CASE SY-UCOMM.
     WHEN  'EXIT'  OR  'BACK'  OR  'CANCEL'.
       IF  NOT GR_DOCUMENT  IS INITIAL.
         CALL  METHOD GR_DOCUMENT->CLOSE_DOCUMENT.
         FREE GR_DOCUMENT.
      ENDIF.

       IF  NOT GR_CONTROL  IS INITIAL.
         CALL  METHOD GR_CONTROL->DESTROY_CONTROL.
         FREE GR_CONTROL.
      ENDIF.

       IF GR_CONTAINER  IS  NOT INITIAL.
         CALL  METHOD GR_CONTAINER->FREE.
      ENDIF.
       LEAVE PROGRAM.
     WHEN  'SAVE'.
       PERFORM SAVE_EXCEL.
  ENDCASE.
ENDMODULE.                  " USER_COMMAND_2000  INPUT


*&---------------------------------------------------------------------*
*&      FORM  GET_CONTAINER
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
*  -->  P1        TEXT
*  <--  P2        TEXT
*----------------------------------------------------------------------*
FORM GET_CONTAINER .
   CREATE OBJECT GR_SPLITTER
     EXPORTING
      PARENT  = CL_GUI_CONTAINER=>SCREEN0
       ROWS    =  1
      COLUMNS =  1.

   CALL  METHOD GR_SPLITTER->SET_BORDER
     EXPORTING
      BORDER = CL_GUI_CFW=>FALSE.

  GR_CONTAINER = GR_SPLITTER->GET_CONTAINER( ROW =  1 COLUMN =  1 ).
ENDFORM.                     " GET_CONTAINER
*&---------------------------------------------------------------------*
*&      FORM  CREATE_CONTAINER_CONTROL
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
*  -->  P1        TEXT
*  <--  P2        TEXT
*----------------------------------------------------------------------*
FORM CREATE_CONTAINER_CONTROL .
* CREATE CONTAINER CONTROL
   CALL  METHOD C_OI_CONTAINER_CONTROL_CREATOR=>GET_CONTAINER_CONTROL
     IMPORTING
       CONTROL = GR_CONTROL.

* INITIALIZE CONTROL
   CALL  METHOD GR_CONTROL->INIT_CONTROL
     EXPORTING
      INPLACE_ENABLED          =  'X '
      INPLACE_SCROLL_DOCUMENTS =  'X'
      REGISTER_ON_CLOSE_EVENT  =  'X'
      REGISTER_ON_CUSTOM_EVENT =  'X'
      R3_APPLICATION_NAME      =  'DOI CREATE BY ZXK'
      PARENT                   = GR_CONTAINER.
ENDFORM.                     " CREATE_CONTAINER_CONTROL
*&---------------------------------------------------------------------*
*&      FORM  GET_TEMPLATE_URL
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
*  -->  P1        TEXT
*  <--  P2        TEXT
*----------------------------------------------------------------------*
FORM GET_TEMPLATE_URL .
   CREATE OBJECT GR_BDS_DOCUMENTS.

   CALL  METHOD CL_BDS_DOCUMENT_SET=>GET_INFO
     EXPORTING
      CLASSNAME  = G_CLASSNAME
      CLASSTYPE  = G_CLASSTYPE
      OBJECT_KEY = G_OBJECTKEY
     CHANGING
      COMPONENTS = G_DOC_COMPONENTS
      SIGNATURE  = G_DOC_SIGNATURE.

   CALL  METHOD CL_BDS_DOCUMENT_SET=>GET_WITH_URL
     EXPORTING
      CLASSNAME  = G_CLASSNAME
      CLASSTYPE  = G_CLASSTYPE
      OBJECT_KEY = G_OBJECTKEY
     CHANGING
      URIS       = GT_BDS_URIS
      SIGNATURE  = G_DOC_SIGNATURE.

   FREE GR_BDS_DOCUMENTS.

   READ  TABLE GT_BDS_URIS  INTO GS_BDS_URL  INDEX  1.
  G_TEMPLATE_URL = GS_BDS_URL-URI.
ENDFORM.                     " GET_TEMPLATE_URL
*&---------------------------------------------------------------------*
*&      FORM  OPEN_EXCEL_DOC
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
*  -->  P1        TEXT
*  <--  P2        TEXT
*----------------------------------------------------------------------*
FORM OPEN_EXCEL_DOC .
   CALL  METHOD GR_CONTROL->GET_DOCUMENT_PROXY
     EXPORTING
      DOCUMENT_TYPE      =  'EXCEL.SHEET'
      NO_FLUSH           =  'X'
      REGISTER_CONTAINER =  'X'
     IMPORTING
      DOCUMENT_PROXY     = GR_DOCUMENT.

   CALL  METHOD GR_DOCUMENT->OPEN_DOCUMENT
     EXPORTING
      OPEN_INPLACE =  'X'
      DOCUMENT_URL = G_TEMPLATE_URL.

  DATA: AVAILABLE  TYPE I.
   CALL  METHOD GR_DOCUMENT->HAS_SPREADSHEET_INTERFACE
     EXPORTING
      NO_FLUSH     =  'X'
     IMPORTING
      IS_AVAILABLE = AVAILABLE.

   CALL  METHOD GR_DOCUMENT->GET_SPREADSHEET_INTERFACE
     EXPORTING
      NO_FLUSH        =  'X'
     IMPORTING
      SHEET_INTERFACE = GR_SPREADSHEET.

   CALL  METHOD GR_SPREADSHEET->SELECT_SHEET
     EXPORTING
      NAME     =  '(小于30万)标单及大型(大于等于30万)工程多页标单'
      NO_FLUSH =  'X'.
ENDFORM.                     " OPEN_EXCEL_DOC
*&---------------------------------------------------------------------*
*&      FORM  WRITE_DATA_TO_EXCEL
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
*  -->  P1        TEXT
*  <--  P2        TEXT
*----------------------------------------------------------------------*
FORM WRITE_DATA_TO_EXCEL_LT_30WAN .
  DATA: COL_COUNT  TYPE  I  VALUE 0,
       ROW_COUNT  TYPE  I  VALUE  0.

  CLEAR:G_NACHN,G_VORNA,G_WERKS,G_A1,G_A2,G_A3,G_A4,G_A5,G_A6,G_OBJNR,G_TABIX.
   SELECT  SINGLE NACHN VORNA
     INTO (G_NACHN,G_VORNA)
   FROM PA0002
   JOIN CAUFV
   ON PA0002~PERNR = CAUFV~ERNAM
   WHERE CAUFV~AUFNR = P_AUFNR.

   IF G_NACHN  IS  NOT  INITIAL  AND G_VORNA  IS  NOT INITIAL.
     CONCATENATE  '業主聯絡人:' G_NACHN G_VORNA  INTO G_A5.
  ELSE.
     SELECT  SINGLE T3~NAME_LAST
       INTO G_A5
     FROM CAUFV  AS T1
     JOIN USR21  AS T2
       ON T1~ERNAM = T2~BNAME
     JOIN ADRP  AS T3
       ON T2~PERSNUMBER = T3~PERSNUMBER
     WHERE AUFNR = P_AUFNR.
     CONCATENATE  '業主聯絡人:' G_A5  INTO G_A5.
  ENDIF.

   SELECT  SINGLE KTEXT
     INTO G_A4
   FROM CAUFV
   WHERE AUFNR = P_AUFNR.
   CONCATENATE  '工程名稱:' G_A4  INTO G_A4.

   SELECT  SINGLE KTEXT
     INTO G_A2
   FROM CAUFV
   WHERE AUFNR = P_AUFNR.
   CONCATENATE  '(' G_A2  ')標準標單或標單首頁'  INTO G_A2.

   SELECT  SINGLE BUTXT
     INTO G_A1
   FROM CAUFV
   JOIN T001
   ON CAUFV~BUKRS = T001~BUKRS
   WHERE AUFNR = P_AUFNR.

   SELECT  SINGLE WERKS
     INTO G_WERKS
   FROM CAUFV
   WHERE AUFNR = P_AUFNR.
   IF G_WERKS =  'C301'  OR G_WERKS =  'C303'  OR G_WERKS =  'C304'  OR G_WERKS =  'C305'  OR G_WERKS =  'C306'  OR G_WERKS =  'C307'.
     CONCATENATE  '業主名稱:' G_A1  '(團結廠)'  INTO G_A3.
   ELSEIF G_WERKS =  'C302'  OR G_WERKS =  'C308'  OR G_WERKS =  'C309'  OR G_WERKS =  'C310'  OR G_WERKS =  'C311'  OR G_WERKS =  'C312'  OR G_WERKS =  'C313'.
     CONCATENATE  '業主名稱:' G_A1  '(芙蓉廠)'  INTO G_A3.
   ELSEIF G_WERKS =  'C331'  OR G_WERKS =  'C332'  OR G_WERKS =  'C333'.
     CONCATENATE  '業主名稱:' G_A1   INTO G_A3.
  ENDIF.

   CONCATENATE  'OR' P_AUFNR  INTO G_OBJNR.

   SELECT  SINGLE TPLNR
     INTO G_A6
   FROM MCIPMIS
   WHERE OBJNR = G_OBJNR.

   CONCATENATE  '施工地點:' G_A6  INTO G_A6.

   CALL  METHOD GR_SPREADSHEET->INSERT_RANGE_DIM
     EXPORTING
      NAME     =  'A1_A6'
      NO_FLUSH =  'X'
      TOP      =  1
       LEFT     =  1
       ROWS     =  6
      COLUMNS  =  1.

   CLEAR GS_RANGE.
   CLEAR GT_RANGES[].
  GS_RANGE-NAME =  'A1_A6'.
  GS_RANGE-ROWS =  6.
  GS_RANGE-COLUMNS =  1.
  GS_RANGE-CODE =  1.
   APPEND GS_RANGE  TO GT_RANGES.

  CLEAR:GT_CONTENTS[].
  WRITE_CONTENT_CELL  1  1  G_A1.
  WRITE_CONTENT_CELL  2  1  G_A2.
  WRITE_CONTENT_CELL  3  1  G_A3.
  WRITE_CONTENT_CELL  4  1  G_A4.
  WRITE_CONTENT_CELL  5  1  G_A5.
  WRITE_CONTENT_CELL  6  1  G_A6.

   CALL  METHOD GR_SPREADSHEET->SET_RANGES_DATA
     EXPORTING
       RANGES   = GT_RANGES
      CONTENTS = GT_CONTENTS.

   LOOP  AT GT_APLZL  WHERE ANLZU <>  1
                      AND ANLZU <>  2.
     SELECT T1~MATNR MEINS BDMNG T2~APLZL T1~RSNUM T1~RSPOS T1~GPREIS  AS VERPR T1~ABLAD T1~LGORT
       APPENDING CORRESPONDING  FIELDS  OF  TABLE GT_MATNR
     FROM RESB  AS T1
       JOIN AFVC  AS T2
     ON T1~AUFPL = T2~AUFPL
       AND T1~APLZL = T2~APLZL
     JOIN CAUFV  AS T3
       ON T1~AUFPL = T3~AUFPL
     WHERE T3~AUFNR = P_AUFNR
       AND T2~APLZL = GT_APLZL-APLZL.

  ENDLOOP.
   LOOP  AT GT_MATNR.
     SELECT  SINGLE MAKTX
       INTO GT_MATNR-MAKTX
     FROM ZEPTM003
     WHERE MATNR = GT_MATNR-MATNR.
     IF GT_MATNR-MAKTX  IS INITIAL.
       SELECT  SINGLE MAKTX
         INTO GT_MATNR-MAKTX
       FROM MAKT
       WHERE MATNR = GT_MATNR-MATNR.
    ELSE.
       SELECT  SINGLE MAKTX
        INTO GT_MATNR-MAKTX+0(40)
       FROM MAKT
       WHERE MATNR = GT_MATNR-MATNR.
    ENDIF.
     MODIFY GT_MATNR.
  ENDLOOP.
  CLEAR:G_SUM_VEPRP.
   LOOP  AT GT_MATNR.
     IF GT_MATNR-VERPR  IS INITIAL.
       IF GT_MATNR-LGORT <>  'TM11'.
       SELECT  SINGLE VERPR
         INTO GT_MATNR-VERPR
       FROM MBEW
       WHERE BWKEY = G_WERKS
         AND MATNR = GT_MATNR-MATNR.
        ENDIF.
    ENDIF.

  ENDLOOP.
   LOOP  AT GT_APLZL  WHERE ANLZU <>  1
                       AND ANLZU <>  2.
    CLEAR:ROW_COUNT,COL_COUNT.

    CLEAR:GT_MATNR,GT_MATNR[].
     SELECT T1~MATNR  MEINS BDMNG T2~APLZL T1~RSNUM T1~RSPOS T1~GPREIS  AS VERPR T1~ABLAD T1~LGORT
       INTO CORRESPONDING  FIELDS  OF  TABLE GT_MATNR
     FROM RESB  AS T1
       JOIN AFVC  AS T2
     ON T1~AUFPL = T2~AUFPL
       AND T1~APLZL = T2~APLZL
     JOIN CAUFV  AS T3
       ON T1~AUFPL = T3~AUFPL
     WHERE T3~AUFNR = P_AUFNR
       AND T2~APLZL = GT_APLZL-APLZL.
     PERFORM SET_NO.
     LOOP  AT GT_MATNR .
      G_TABIX = SY-TABIX.
       SELECT  SINGLE MAKTX
         INTO GT_MATNR-MAKTX
       FROM ZEPTM003
       WHERE MATNR = GT_MATNR-MATNR.
       IF GT_MATNR-MAKTX  IS INITIAL.
         SELECT  SINGLE MAKTX
           INTO GT_MATNR-MAKTX
         FROM MAKT
         WHERE MATNR = GT_MATNR-MATNR.
       ELSE.
        SELECT  SINGLE MAKTX
         INTO GT_MATNR-MAKTX+0(40)
       FROM MAKT
       WHERE MATNR = GT_MATNR-MATNR.
      ENDIF.
      CLEAR:ZNAME,TDLINES,TDLINES[].
       IF GT_MATNR-VERPR  IS INITIAL.
         IF GT_MATNR-LGORT <>  'TM11'.
         SELECT  SINGLE VERPR
           INTO GT_MATNR-VERPR
         FROM MBEW
         WHERE BWKEY = G_WERKS
           AND MATNR = GT_MATNR-MATNR.
          ENDIF.
      ENDIF.
       CLEAR G_VALUE.
       CALL  FUNCTION  'EVAL_FORMULA'  "將字符串運算 直接算出結果
         EXPORTING
          FORMULA = GT_MATNR-ABLAD
         IMPORTING
           VALUE   = G_VALUE.
       IF SY-SUBRC <>  0.
         MESSAGE  ID SY-MSGID  TYPE SY-MSGTY  NUMBER SY-MSGNO
                 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
       IF G_VALUE  IS  NOT INITIAL.
        GT_MATNR-VERPR = GT_MATNR-VERPR * G_VALUE.
      ENDIF.
      G_SUM_VEPRP = G_SUM_VEPRP + GT_MATNR-VERPR * GT_MATNR-BDMNG.

      GT_MATNR-SUM_VERPR = GT_MATNR-VERPR * GT_MATNR-BDMNG.


       SELECT  SINGLE MSEHL
         INTO GT_MATNR-MSEHL
       FROM T006A
       WHERE MSEHI = GT_MATNR-MEINS
         AND SPRAS =  'M'.



       IF GT_MATNR-MATNR  IS  NOT INITIAL.
        GT_NUMBE-NUMBE = G_TABIX.
         CALL  FUNCTION  'CONVERSION_EXIT_ALPHA_OUTPUT'
           EXPORTING
             INPUT  = GT_NUMBE-NUMBE
           IMPORTING
             OUTPUT = GT_NUMBE-NUMBE.
         APPEND GT_NUMBE.
      ENDIF.

       IF GT_MATNR-MATNR  IS  NOT INITIAL.
         CONCATENATE  '' '' GT_MATNR-MATNR  INTO GT_MATNR-MATNR.
      ENDIF.

       CONCATENATE SY-MANDT GT_MATNR-RSNUM GT_MATNR-RSPOS  INTO ZNAME.


       CALL  FUNCTION  'READ_TEXT'
         EXPORTING
           CLIENT                        = SY-MANDT
           ID                            =  'MATK'
           LANGUAGE                      = SY-LANGU
          NAME                          = ZNAME
          OBJECT                        =  'AUFK'
*         ARCHIVE_HANDLE                = 0
*         LOCAL_CAT                     = ' '
*       IMPORTING
*         HEADER                        =
*         OLD_LINE_COUNTER              =
         TABLES
           LINES                         = TDLINES
        EXCEPTIONS
          ID                            =  1
          LANGUAGE                      =  2
         NAME                          =  3
         NOT_FOUND                     =  4
         OBJECT                        =  5
         REFERENCE_CHECK               =  6
         WRONG_ACCESS_TO_ARCHIVE       =  7
          OTHERS                        =  8
.
       IF SY-SUBRC =  4.

      ENDIF.

       LOOP  AT TDLINES.
         CONCATENATE GT_MATNR-ZLINE TDLINES-TDLINE  INTO GT_MATNR-ZLINE.
      ENDLOOP.



       MODIFY GT_MATNR.
    ENDLOOP.
     READ  TABLE GT_MATNR  INDEX  1.
     IF SY-SUBRC =  0.
       IF GT_MATNR-MATNR  IS  NOT INITIAL.
         DESCRIBE  TABLE GT_MATNR  LINES ROW_COUNT.
      ENDIF.
    ENDIF.
    COL_COUNT =  4.
    ROW_COUNT = ROW_COUNT +  1.


*---------- 調用EXCEL VBA --->新增行
     CALL  METHOD GR_DOCUMENT->EXECUTE_MACRO
       EXPORTING
        MACRO_STRING =  'THISWORKBOOK.ADDROWS'
        PARAM1       = ROW_COUNT
        PARAM2       = G_ADDROW
        PARAM_COUNT  =  2.

    G_ADDROW2 = G_ADDROW.
     CALL  METHOD GR_SPREADSHEET->INSERT_RANGE_DIM
       EXPORTING
        NAME     =  'B_H'
        NO_FLUSH =  'X'
        TOP      = G_ADDROW2
         LEFT     =  2
         ROWS     = ROW_COUNT
        COLUMNS  =  7.

     CLEAR GS_RANGE.
     CLEAR GT_RANGES[].
    GS_RANGE-NAME =  'B_H'.
    GS_RANGE-ROWS = ROW_COUNT.
    GS_RANGE-COLUMNS =  7.
    GS_RANGE-CODE =  7.
     APPEND GS_RANGE  TO GT_RANGES.
     READ  TABLE GT_MATNR  INDEX  1.
     IF SY-SUBRC =  0.
       IF GT_MATNR-MATNR  IS  NOT INITIAL.
         CLEAR GT_CONTENTS[].
        WRITE_CONTENT_CELL  1  1  GT_APLZL-LTXA1.
        WRITE_CONTENT_CELL  1  2   ''.
        WRITE_CONTENT_CELL  1  3   ''.
        WRITE_CONTENT_CELL  1  4   ''.
        WRITE_CONTENT_CELL  1  5   ''.
        WRITE_CONTENT_CELL  1  6   ''.
        WRITE_CONTENT_CELL  1  7   ''.
         CLEAR ROW_INDEX.
        ROW_INDEX =  2.


         LOOP  AT GT_MATNR.
          WRITE_CONTENT_CELL ROW_INDEX  1 GT_MATNR-MATNR.
          WRITE_CONTENT_CELL ROW_INDEX  2 GT_MATNR-MAKTX.
          WRITE_CONTENT_CELL ROW_INDEX  3 GT_MATNR-MSEHL.
          WRITE_CONTENT_CELL ROW_INDEX  4 GT_MATNR-BDMNG.
          WRITE_CONTENT_CELL ROW_INDEX  5 GT_MATNR-VERPR.
          WRITE_CONTENT_CELL ROW_INDEX  6 GT_MATNR-SUM_VERPR.
          WRITE_CONTENT_CELL ROW_INDEX  7 GT_MATNR-ZLINE.

          ROW_INDEX = ROW_INDEX +  1.
        ENDLOOP.
      ELSE.
        CLEAR:G_TAX, GT_CONTENTS[].

        G_TAX = GT_MATNR-BDMNG * G_SUM_VEPRP /  100.
        G_SUM_MONEY = G_SUM_MONEY + G_TAX.
         LOOP  AT GT_MATNR.
           IF GT_MATNR-MEINS =  '%'.
            GT_MATNR-MSEHL =  '式'.
            GT_MATNR-BDMNG =  1.
          ENDIF.
           MODIFY GT_MATNR.
        ENDLOOP.
        WRITE_CONTENT_CELL  1  1  GT_APLZL-LTXA1.
        WRITE_CONTENT_CELL  1  2   ''.
        WRITE_CONTENT_CELL  1  3  GT_MATNR-MSEHL.
        WRITE_CONTENT_CELL  1  4  GT_MATNR-BDMNG.
        WRITE_CONTENT_CELL  1  5  G_TAX.
        WRITE_CONTENT_CELL  1  6  G_TAX.
        WRITE_CONTENT_CELL  1  7   ''.
         CLEAR ROW_INDEX.
        ROW_INDEX =  1.

      ENDIF.
    ELSE.
       CLEAR GT_CONTENTS[].
      WRITE_CONTENT_CELL  1  1  GT_APLZL-LTXA1.
      WRITE_CONTENT_CELL  1  2   ''.
      WRITE_CONTENT_CELL  1  3   ''.
      WRITE_CONTENT_CELL  1  4   ''.
      WRITE_CONTENT_CELL  1  5   ''.
      WRITE_CONTENT_CELL  1  6   ''.
      WRITE_CONTENT_CELL  1  7   ''.
       CLEAR ROW_INDEX.
      ROW_INDEX =  2.

    ENDIF.



     CALL  METHOD GR_SPREADSHEET->SET_RANGES_DATA
       EXPORTING
         RANGES   = GT_RANGES
        CONTENTS = GT_CONTENTS
        NO_FLUSH =  'X'.
    CLEAR:GT_CONTENTS[].

    G_ADDROW = G_ADDROW + ROW_COUNT.
  ENDLOOP.


  CLEAR:ROW_COUNT.
  CLEAR:GT_NUMBE-NUMBE.
   DO  1 TIMES.

    G_SIN_NUM = G_SIN_NUM +  1.
     PERFORM CASENUM.
     APPEND GT_NUMBE.
    CLEAR:GT_NUMBE-NUMBE.
  ENDDO.
   DESCRIBE  TABLE GT_NUMBE  LINES  ROW_COUNT.
   CALL  METHOD GR_SPREADSHEET->INSERT_RANGE_DIM
     EXPORTING
      NAME     =  'A9_LAST'
      NO_FLUSH =  'X'
      TOP      =  9
       LEFT     =  1
       ROWS     = ROW_COUNT
      COLUMNS  =  1.

   CLEAR GS_RANGE.
   CLEAR GT_RANGES[].
  GS_RANGE-NAME =  'A9_LAST'.
  GS_RANGE-ROWS = ROW_COUNT.
  GS_RANGE-COLUMNS =  1.
  GS_RANGE-CODE =  1.
   APPEND GS_RANGE  TO GT_RANGES.


   CLEAR ROW_INDEX.

   LOOP  AT GT_NUMBE.
    WRITE_CONTENT_CELL SY-TABIX  1 GT_NUMBE-NUMBE.
  ENDLOOP.
   CALL  METHOD GR_SPREADSHEET->SET_RANGES_DATA
     EXPORTING
       RANGES   = GT_RANGES
      CONTENTS = GT_CONTENTS.


*---------工程總金額 BEGIN

  G_SUM_MONEY = G_SUM_VEPRP + G_SUM_MONEY.
  CLEAR:GT_CONTENTS[].

  G_GCZJE = G_SUM_MONEY.
   CONCATENATE  '工程金額合計:' G_GCZJE  INTO G_GCZJE.

  ROW_COUNT =  8 + ROW_COUNT +  1.
   CALL  METHOD GR_SPREADSHEET->INSERT_RANGE_DIM
     EXPORTING
      NAME     =  'GCZJE'
      NO_FLUSH =  'X'
      TOP      = ROW_COUNT
       LEFT     =  2
       ROWS     =  1
      COLUMNS  =  1.

   CLEAR GS_RANGE.
   CLEAR GT_RANGES[].
  GS_RANGE-NAME =  'GCZJE'.
  GS_RANGE-ROWS =  1.
  GS_RANGE-COLUMNS =  1.
  GS_RANGE-CODE =  1.
   APPEND GS_RANGE  TO GT_RANGES.


   CLEAR ROW_INDEX.

  WRITE_CONTENT_CELL  1  1 G_GCZJE.

   CALL  METHOD GR_SPREADSHEET->SET_RANGES_DATA
     EXPORTING
       RANGES   = GT_RANGES
      CONTENTS = GT_CONTENTS.
*---------工程總金額 END
*----------工程總金額 大寫 BEGIN
  CLEAR:GT_CONTENTS[].

   PERFORM S2B  USING G_SUM_MONEY G_GCZJE_BIG.
   CONCATENATE  '工程金額合計(大寫):' G_GCZJE_BIG  INTO G_GCZJE_BIG.

  ROW_COUNT = ROW_COUNT +  1.
   CALL  METHOD GR_SPREADSHEET->INSERT_RANGE_DIM
     EXPORTING
      NAME     =  'GCZJE_BIG'
      NO_FLUSH =  'X'
      TOP      = ROW_COUNT
       LEFT     =  2
       ROWS     =  1
      COLUMNS  =  1.

   CLEAR GS_RANGE.
   CLEAR GT_RANGES[].
  GS_RANGE-NAME =  'GCZJE_BIG'.
  GS_RANGE-ROWS =  1.
  GS_RANGE-COLUMNS =  1.
  GS_RANGE-CODE =  1.
   APPEND GS_RANGE  TO GT_RANGES.


   CLEAR ROW_INDEX.

  WRITE_CONTENT_CELL  1  1 G_GCZJE_BIG.

   CALL  METHOD GR_SPREADSHEET->SET_RANGES_DATA
     EXPORTING
       RANGES   = GT_RANGES
      CONTENTS = GT_CONTENTS.
*----------工程總金額 大寫 END
*----------功能性要求 BEGIN
  CLEAR:GT_CONTENTS[].
   READ  TABLE GT_APLZL  WITH  KEY ANLZU =  1.
   IF SY-SUBRC =  0 .
    CLEAR:ZNAME,TDLINES,TDLINES[],G_GNXYQ.
     CONCATENATE SY-MANDT GT_APLZL-AUFPL GT_APLZL-APLZL  INTO ZNAME.


     CALL  FUNCTION  'READ_TEXT'
       EXPORTING
         CLIENT                        = SY-MANDT
         ID                            =  'AVOT'
         LANGUAGE                      = SY-LANGU
        NAME                          = ZNAME
        OBJECT                        =  'AUFK'
*         ARCHIVE_HANDLE                = 0
*         LOCAL_CAT                     = ' '
*       IMPORTING
*         HEADER                        =
*         OLD_LINE_COUNTER              =
       TABLES
         LINES                         = TDLINES
      EXCEPTIONS
        ID                            =  1
        LANGUAGE                      =  2
       NAME                          =  3
       NOT_FOUND                     =  4
       OBJECT                        =  5
       REFERENCE_CHECK               =  6
       WRONG_ACCESS_TO_ARCHIVE       =  7
        OTHERS                        =  8
.
     IF SY-SUBRC =  4.

    ENDIF.

     READ  TABLE TDLINES  INDEX  2.
     IF SY-SUBRC =  0.
       CONCATENATE  '1.功能性要求:' TDLINES-TDLINE  INTO G_GNXYQ.
    ENDIF.
  ELSE.

  ENDIF.
  ROW_COUNT = ROW_COUNT +  5.
   CALL  METHOD GR_SPREADSHEET->INSERT_RANGE_DIM
     EXPORTING
      NAME     =  'GNXYQ'
      NO_FLUSH =  'X'
      TOP      = ROW_COUNT
       LEFT     =  2
       ROWS     =  1
      COLUMNS  =  1.

   CLEAR GS_RANGE.
   CLEAR GT_RANGES[].
  GS_RANGE-NAME =  'GNXYQ'.
  GS_RANGE-ROWS =  1.
  GS_RANGE-COLUMNS =  1.
  GS_RANGE-CODE =  1.
   APPEND GS_RANGE  TO GT_RANGES.


   CLEAR ROW_INDEX.

  WRITE_CONTENT_CELL  1  1 G_GNXYQ.

   CALL  METHOD GR_SPREADSHEET->SET_RANGES_DATA
     EXPORTING
       RANGES   = GT_RANGES
      CONTENTS = GT_CONTENTS.
*----------功能性要求 END

*----------保固年限  BEGIN
  CLEAR:GT_CONTENTS[].
   READ  TABLE GT_APLZL  WITH   KEY ANLZU =  2.
   IF SY-SUBRC =  0.
    CLEAR:GT_MATNR[].
     SELECT T1~MATNR MEINS BDMNG T2~APLZL T1~RSNUM T1~RSPOS
       INTO CORRESPONDING  FIELDS  OF  TABLE GT_MATNR
     FROM RESB  AS T1
       JOIN AFVC  AS T2
     ON T1~AUFPL = T2~AUFPL
       AND T1~APLZL = T2~APLZL
     JOIN CAUFV  AS T3
       ON T1~AUFPL = T3~AUFPL
     WHERE T3~AUFNR = P_AUFNR
       AND T2~APLZL = GT_APLZL-APLZL.
     LOOP  AT GT_MATNR.
       SELECT  SINGLE MAKTX
         INTO GT_MATNR-MAKTX
       FROM ZEPTM003
       WHERE MATNR = GT_MATNR-MATNR.
       IF GT_MATNR-MAKTX  IS INITIAL.
         SELECT  SINGLE MAKTX
           INTO GT_MATNR-MAKTX
         FROM MAKT
         WHERE MATNR = GT_MATNR-MATNR.
       ELSE.
       SELECT  SINGLE MAKTX
         INTO GT_MATNR-MAKTX+0(40)
       FROM MAKT
       WHERE MATNR = GT_MATNR-MATNR.
      ENDIF.
       MODIFY GT_MATNR.
    ENDLOOP.
  ENDIF.
   READ  TABLE GT_MATNR  INDEX  1.
   IF SY-SUBRC =  0.
    G_BGNX = GT_MATNR-BDMNG .
     SPLIT G_BGNX  AT  '.'  INTO G_BGNX G_BGNX2.

     CONCATENATE  '1.本工程采责任施工,业主无书面变更说明不得追加,验收合格后保固(' G_BGNX
                 ')年。'  INTO G_BGNX.
  ENDIF.
  ROW_COUNT =  ROW_COUNT +  2.
   CALL  METHOD GR_SPREADSHEET->INSERT_RANGE_DIM
     EXPORTING
      NAME     =  'BGNX'
      NO_FLUSH =  'X'
      TOP      = ROW_COUNT
       LEFT     =  2
       ROWS     =  1
      COLUMNS  =  1.

   CLEAR GS_RANGE.
   CLEAR GT_RANGES[].
  GS_RANGE-NAME =  'BGNX'.
  GS_RANGE-ROWS =  1.
  GS_RANGE-COLUMNS =  1.
  GS_RANGE-CODE =  1.
   APPEND GS_RANGE  TO GT_RANGES.


   CLEAR ROW_INDEX.

  WRITE_CONTENT_CELL  1  1 G_BGNX.

   CALL  METHOD GR_SPREADSHEET->SET_RANGES_DATA
     EXPORTING
       RANGES   = GT_RANGES
      CONTENTS = GT_CONTENTS.

*----------保固年限  BEGIN


ENDFORM.                     " WRITE_DATA_TO_EXCEL
*&---------------------------------------------------------------------*
*&      FORM  WRITE_DATA_TO_EXCEL_GT_30WAN
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
*  -->  P1        TEXT
*  <--  P2        TEXT
*----------------------------------------------------------------------*
FORM WRITE_DATA_TO_EXCEL_GT_30WAN .
  DATA: COL_COUNT  TYPE  I  VALUE 0,
       ROW_COUNT  TYPE  I  VALUE 0,
       ROW_COUNT_30  TYPE  I  VALUE 0,
       L_FLAG  TYPE C.
  DATA:L_CTEXT(20).
  CLEAR:G_NACHN,G_VORNA,G_WERKS,G_A1,G_A2,G_A3,G_A4,G_A5,G_A6,G_OBJNR,G_TABIX.
   SELECT  SINGLE NACHN VORNA
     INTO (G_NACHN,G_VORNA)
   FROM PA0002
   JOIN CAUFV
   ON PA0002~PERNR = CAUFV~ERNAM
   WHERE CAUFV~AUFNR = P_AUFNR.

   IF G_NACHN  IS  NOT  INITIAL  AND G_VORNA  IS  NOT INITIAL.
     CONCATENATE  '業主聯絡人:' G_NACHN G_VORNA  INTO G_A5.
  ELSE.
     SELECT  SINGLE T3~NAME_LAST
       INTO G_A5
     FROM CAUFV  AS T1
     JOIN USR21  AS T2
       ON T1~ERNAM = T2~BNAME
     JOIN ADRP  AS T3
       ON T2~PERSNUMBER = T3~PERSNUMBER
     WHERE AUFNR = P_AUFNR.
     CONCATENATE  '業主聯絡人:' G_A5  INTO G_A5.
  ENDIF.

   SELECT  SINGLE KTEXT
     INTO G_A4
   FROM CAUFV
   WHERE AUFNR = P_AUFNR.
   CONCATENATE  '工程名稱:' G_A4  INTO G_A4.

   SELECT  SINGLE KTEXT
     INTO G_A2
   FROM CAUFV
   WHERE AUFNR = P_AUFNR.
   CONCATENATE  '(' G_A2  ')標準標單或標單首頁'  INTO G_A2.

   SELECT  SINGLE BUTXT
     INTO G_A1
   FROM CAUFV
   JOIN T001
   ON CAUFV~BUKRS = T001~BUKRS
   WHERE AUFNR = P_AUFNR.

   SELECT  SINGLE WERKS
     INTO G_WERKS
   FROM CAUFV
   WHERE AUFNR = P_AUFNR.
   IF G_WERKS =  'C301'  OR G_WERKS =  'C303'  OR G_WERKS =  'C304'  OR G_WERKS =  'C305'  OR G_WERKS =  'C306'  OR G_WERKS =  'C307'.
     CONCATENATE  '業主名稱:' G_A1  '(團結廠)'  INTO G_A3.
   ELSEIF G_WERKS =  'C302'  OR G_WERKS =  'C308'  OR G_WERKS =  'C309'  OR G_WERKS =  'C310'  OR G_WERKS =  'C311'  OR G_WERKS =  'C312'  OR G_WERKS =  'C313'.
     CONCATENATE  '業主名稱:' G_A1  '(芙蓉廠)'  INTO G_A3.
   ELSEIF G_WERKS =  'C331'  OR G_WERKS =  'C332'  OR G_WERKS =  'C333'.
     CONCATENATE  '業主名稱:' G_A1   INTO G_A3.
  ENDIF.

   CONCATENATE  'OR' P_AUFNR  INTO G_OBJNR.

   SELECT  SINGLE TPLNR
     INTO G_A6
   FROM MCIPMIS
   WHERE OBJNR = G_OBJNR.

   CONCATENATE  '施工地點:' G_A6  INTO G_A6.

   CALL  METHOD GR_SPREADSHEET->INSERT_RANGE_DIM
     EXPORTING
      NAME     =  'A1_A6'
      NO_FLUSH =  'X'
      TOP      =  2
       LEFT     =  1
       ROWS     =  4
      COLUMNS  =  1.

   CLEAR GS_RANGE.
   CLEAR GT_RANGES[].
  GS_RANGE-NAME =  'A1_A6'.
  GS_RANGE-ROWS =  4.
  GS_RANGE-COLUMNS =  1.
  GS_RANGE-CODE =  1.
   APPEND GS_RANGE  TO GT_RANGES.

  CLEAR:GT_CONTENTS[].
   " WRITE_CONTENT_CELL 1 1  ''.
   " WRITE_CONTENT_CELL 2 1  G_A2.
  WRITE_CONTENT_CELL  1  1  G_A3.
  WRITE_CONTENT_CELL  2  1  G_A4.
  WRITE_CONTENT_CELL  3  1  G_A5.
  WRITE_CONTENT_CELL  4  1  G_A6.

   CALL  METHOD GR_SPREADSHEET->SET_RANGES_DATA
     EXPORTING
       RANGES   = GT_RANGES
      CONTENTS = GT_CONTENTS.


   LOOP  AT GT_APLZL  WHERE ANLZU <>  1
                      AND ANLZU <>  2.
     SPLIT GT_APLZL-LTXA1  AT  '-'  INTO GT_APLZL2-LTXA1 L_CTEXT.
    GT_APLZL2-APLZL = GT_APLZL-APLZL.
     APPEND GT_APLZL2.
  ENDLOOP.
   SORT GT_APLZL  BY LTXA1.
   SORT GT_APLZL2  BY LTXA1 APLZL.
  CLEAR:G_LTXA1,G_APLZL.
   LOOP  AT GT_APLZL2.
     IF GT_APLZL2-LTXA1 = G_LTXA1.
      GT_APLZL2-APLZL = G_APLZL.
    ENDIF.
    G_LTXA1 = GT_APLZL2-LTXA1.
    G_APLZL = GT_APLZL2-APLZL.
     MODIFY GT_APLZL2.
  ENDLOOP.
   DELETE  ADJACENT  DUPLICATES  FROM GT_APLZL2 .
   SORT GT_APLZL  BY APLZL.
   SORT GT_APLZL2  BY APLZL.
   DESCRIBE  TABLE GT_APLZL2  LINES  ROW_COUNT_30.

*---------- 調用EXCEL VBA --->新增行
*---------- 後面才能計算合計價格，先插入幾行空著，算出價格后再把這幾行貼上去

  DATA:LV_I  TYPE I.
  DATA:LV_J  TYPE I.
  DATA: L_VEPRP  LIKE MBEW-VERPR.
   CALL  METHOD GR_DOCUMENT->EXECUTE_MACRO
     EXPORTING
      MACRO_STRING =  'THISWORKBOOK.ADDROWS'
      PARAM1       = ROW_COUNT_30
      PARAM2       =  9
      PARAM_COUNT  =  2.


  G_ADDROW2 = ROW_COUNT_30 +  30.
   CALL  METHOD GR_SPREADSHEET->INSERT_RANGE_DIM
     EXPORTING
      NAME     =  'A_H_LAST'
      NO_FLUSH =  'X'
      TOP      = G_ADDROW2
       LEFT     =  1
       ROWS     = ROW_COUNT_30
      COLUMNS  =  8.

   CLEAR GS_RANGE.
   CLEAR GT_RANGES[].
  GS_RANGE-NAME =  'A_H_LAST'.
  GS_RANGE-ROWS = ROW_COUNT_30.
  GS_RANGE-COLUMNS =  8.
  GS_RANGE-CODE =  8.
   APPEND GS_RANGE  TO GT_RANGES.

  CLEAR:GT_CONTENTS[].
  ROW_INDEX =  1.
   LOOP  AT GT_APLZL2.
    CLEAR:L_VEPRP,G_GCZJE_BIG.
    L_VEPRP = SY-TABIX.
     PERFORM S2B  USING L_VEPRP G_GCZJE_BIG.

    LV_I = STRLEN( G_GCZJE_BIG ).
    LV_I = LV_I -  2.
    G_GCZJE_BIG = G_GCZJE_BIG+0(LV_I).

    WRITE_CONTENT_CELL ROW_INDEX  1 G_GCZJE_BIG.
    WRITE_CONTENT_CELL ROW_INDEX  2  '/'.
    WRITE_CONTENT_CELL ROW_INDEX  3 GT_APLZL2-LTXA1.
    WRITE_CONTENT_CELL ROW_INDEX  4  ''.
    WRITE_CONTENT_CELL ROW_INDEX  5  ''.
    WRITE_CONTENT_CELL ROW_INDEX  6  ''.
    WRITE_CONTENT_CELL ROW_INDEX  7  ''.
    WRITE_CONTENT_CELL ROW_INDEX  8  ''.

    ROW_INDEX = ROW_INDEX +  1.
  ENDLOOP.
  CLEAR:ROW_INDEX.



   CALL  METHOD GR_SPREADSHEET->SET_RANGES_DATA
     EXPORTING
       RANGES   = GT_RANGES
      CONTENTS = GT_CONTENTS
      NO_FLUSH =  'X'.


*----------功能性要求 BEGIN
  CLEAR:GT_CONTENTS[].
   READ  TABLE GT_APLZL  WITH  KEY ANLZU =  1.
   IF SY-SUBRC =  0 .
    CLEAR:ZNAME,TDLINES,TDLINES[],G_GNXYQ.
     CONCATENATE SY-MANDT GT_APLZL-AUFPL GT_APLZL-APLZL  INTO ZNAME.


     CALL  FUNCTION  'READ_TEXT'
       EXPORTING
         CLIENT                        = SY-MANDT
         ID                            =  'AVOT'
         LANGUAGE                      = SY-LANGU
        NAME                          = ZNAME
        OBJECT                        =  'AUFK'
*         ARCHIVE_HANDLE                = 0
*         LOCAL_CAT                     = ' '
*       IMPORTING
*         HEADER                        =
*         OLD_LINE_COUNTER              =
       TABLES
         LINES                         = TDLINES
      EXCEPTIONS
        ID                            =  1
        LANGUAGE                      =  2
       NAME                          =  3
       NOT_FOUND                     =  4
       OBJECT                        =  5
       REFERENCE_CHECK               =  6
       WRONG_ACCESS_TO_ARCHIVE       =  7
        OTHERS                        =  8
.
     IF SY-SUBRC =  4.

    ENDIF.

     READ  TABLE TDLINES  INDEX  2.
     IF SY-SUBRC =  0.
       CONCATENATE  '1.功能性要求:' TDLINES-TDLINE  INTO G_GNXYQ.
    ENDIF.
  ELSE.

  ENDIF.
  ROW_COUNT_30 = ROW_COUNT_30 +  14.
   CALL  METHOD GR_SPREADSHEET->INSERT_RANGE_DIM
     EXPORTING
      NAME     =  'GNXYQ'
      NO_FLUSH =  'X'
      TOP      = ROW_COUNT_30
       LEFT     =  2
       ROWS     =  1
      COLUMNS  =  1.

   CLEAR GS_RANGE.
   CLEAR GT_RANGES[].
  GS_RANGE-NAME =  'GNXYQ'.
  GS_RANGE-ROWS =  1.
  GS_RANGE-COLUMNS =  1.
  GS_RANGE-CODE =  1.
   APPEND GS_RANGE  TO GT_RANGES.


   CLEAR ROW_INDEX.

  WRITE_CONTENT_CELL  1  1 G_GNXYQ.

   CALL  METHOD GR_SPREADSHEET->SET_RANGES_DATA
     EXPORTING
       RANGES   = GT_RANGES
      CONTENTS = GT_CONTENTS.
*----------功能性要求 END

*----------保固年限  BEGIN
  CLEAR:GT_CONTENTS[].
   READ  TABLE GT_APLZL  WITH   KEY ANLZU =  2.
   IF SY-SUBRC =  0.
    CLEAR:GT_MATNR[].
     SELECT T1~MATNR  MEINS BDMNG T2~APLZL T1~RSNUM T1~RSPOS
       INTO CORRESPONDING  FIELDS  OF  TABLE GT_MATNR
     FROM RESB  AS T1
       JOIN AFVC  AS T2
     ON T1~AUFPL = T2~AUFPL
       AND T1~APLZL = T2~APLZL
     JOIN CAUFV  AS T3
       ON T1~AUFPL = T3~AUFPL
     WHERE T3~AUFNR = P_AUFNR
       AND T2~APLZL = GT_APLZL-APLZL.
  ENDIF.
   LOOP  AT GT_MATNR.
     SELECT  SINGLE MAKTX
       INTO GT_MATNR-MAKTX
     FROM ZEPTM003
     WHERE MATNR = GT_MATNR-MATNR.
     IF GT_MATNR-MAKTX  IS INITIAL.
       SELECT  SINGLE MAKTX
         INTO GT_MATNR-MAKTX
       FROM MAKT
       WHERE MATNR = GT_MATNR-MATNR.
     ELSE.
        SELECT  SINGLE MAKTX
         INTO GT_MATNR-MAKTX+0(40)
       FROM MAKT
       WHERE MATNR = GT_MATNR-MATNR.
    ENDIF.
     MODIFY GT_MATNR.
  ENDLOOP.
   READ  TABLE GT_MATNR  INDEX  1.
   IF SY-SUBRC =  0.
    G_BGNX = GT_MATNR-BDMNG .
     SPLIT G_BGNX  AT  '.'  INTO G_BGNX G_BGNX2.

     CONCATENATE  '1.本工程采责任施工,业主无书面变更说明不得追加,验收合格后保固(' G_BGNX
                 ')年。'  INTO G_BGNX.
  ENDIF.
  ROW_COUNT_30 =  ROW_COUNT_30 +  2.
   CALL  METHOD GR_SPREADSHEET->INSERT_RANGE_DIM
     EXPORTING
      NAME     =  'BGNX'
      NO_FLUSH =  'X'
      TOP      = ROW_COUNT_30
       LEFT     =  2
       ROWS     =  1
      COLUMNS  =  1.

   CLEAR GS_RANGE.
   CLEAR GT_RANGES[].
  GS_RANGE-NAME =  'BGNX'.
  GS_RANGE-ROWS =  1.
  GS_RANGE-COLUMNS =  1.
  GS_RANGE-CODE =  1.
   APPEND GS_RANGE  TO GT_RANGES.


   CLEAR ROW_INDEX.

  WRITE_CONTENT_CELL  1  1 G_BGNX.

   CALL  METHOD GR_SPREADSHEET->SET_RANGES_DATA
     EXPORTING
       RANGES   = GT_RANGES
      CONTENTS = GT_CONTENTS.

*----------保固年限  END

*----------標單頁尾 明細資料 BEGIN
  ROW_COUNT_30 = ROW_COUNT_30 +  14.
   LOOP  AT GT_APLZL  WHERE ANLZU <>  1
                      AND ANLZU <>  2.
     SELECT T1~MATNR MEINS BDMNG T2~APLZL T1~RSNUM T1~RSPOS T1~GPREIS  AS VERPR T1~ABLAD T1~LGORT
       APPENDING CORRESPONDING  FIELDS  OF  TABLE GT_MATNR
     FROM RESB  AS T1
       JOIN AFVC  AS T2
     ON T1~AUFPL = T2~AUFPL
       AND T1~APLZL = T2~APLZL
     JOIN CAUFV  AS T3
       ON T1~AUFPL = T3~AUFPL
     WHERE T3~AUFNR = P_AUFNR
       AND T2~APLZL = GT_APLZL-APLZL.

  ENDLOOP.
   LOOP  AT GT_MATNR.
     SELECT  SINGLE MAKTX
       INTO GT_MATNR-MAKTX
     FROM ZEPTM003
     WHERE MATNR = GT_MATNR-MATNR.
     IF GT_MATNR-MAKTX  IS INITIAL.
       SELECT  SINGLE MAKTX
         INTO GT_MATNR-MAKTX
       FROM MAKT
       WHERE MATNR = GT_MATNR-MATNR.
     ELSE.
       SELECT  SINGLE MAKTX
         INTO GT_MATNR-MAKTX+0(40)
       FROM MAKT
       WHERE MATNR = GT_MATNR-MATNR.
    ENDIF.
     MODIFY GT_MATNR.
  ENDLOOP.
  CLEAR:G_SUM_VEPRP.
   LOOP  AT GT_MATNR.
     IF GT_MATNR-VERPR  IS INITIAL.
       IF GT_MATNR-LGORT <>  'TM11'.
       SELECT  SINGLE VERPR
         INTO GT_MATNR-VERPR
       FROM MBEW
       WHERE BWKEY = G_WERKS
         AND MATNR = GT_MATNR-MATNR.
        ENDIF.
    ENDIF.

  ENDLOOP.
   LOOP  AT GT_APLZL.
     SPLIT GT_APLZL-LTXA1  AT  '-'  INTO GT_APLZL-LTXA2 L_CTEXT.
    CLEAR:G_IND,G_ILEN.
    GT_APLZL-NUMBE = SY-TABIX.
     CALL  FUNCTION  'CONVERSION_EXIT_ALPHA_OUTPUT'
       EXPORTING
         INPUT  = GT_APLZL-NUMBE
       IMPORTING
         OUTPUT = GT_APLZL-NUMBE.
    G_ILEN = STRLEN( GT_APLZL-NUMBE ).

    CLEAR:GT_NUMBE-NUMBE.
     DO G_ILEN TIMES.
      G_SIN_NUM = GT_APLZL-NUMBE+G_IND(1).
       PERFORM CASENUM.
      G_IND = G_IND +  1.
    ENDDO.
    GT_APLZL-NUMBE = GT_NUMBE-NUMBE.
     MODIFY GT_APLZL.
  ENDLOOP.
  G_ADDROW2 = ROW_COUNT_30 +  1.
   LOOP  AT GT_APLZL  WHERE ANLZU <>  1
                       AND ANLZU <>  2.
    CLEAR:ROW_COUNT,COL_COUNT.

    CLEAR:GT_MATNR,GT_MATNR[].
     SELECT T1~MATNR MEINS BDMNG T2~APLZL T1~RSNUM T1~RSPOS T1~GPREIS  AS VERPR T1~ABLAD T1~LGORT
       INTO CORRESPONDING  FIELDS  OF  TABLE GT_MATNR
     FROM RESB  AS T1
       JOIN AFVC  AS T2
     ON T1~AUFPL = T2~AUFPL
       AND T1~APLZL = T2~APLZL
     JOIN CAUFV  AS T3
       ON T1~AUFPL = T3~AUFPL
     WHERE T3~AUFNR = P_AUFNR
       AND T2~APLZL = GT_APLZL-APLZL.
     PERFORM SET_NO.
     LOOP  AT GT_MATNR .

      CLEAR:ZNAME,TDLINES,TDLINES[],G_TABIX.
      G_TABIX = SY-TABIX.
       SELECT  SINGLE MAKTX
         INTO GT_MATNR-MAKTX
       FROM ZEPTM003
       WHERE MATNR = GT_MATNR-MATNR.

       IF GT_MATNR-MAKTX  IS INITIAL.
         SELECT  SINGLE MAKTX
           INTO GT_MATNR-MAKTX
         FROM MAKT
         WHERE MATNR = GT_MATNR-MATNR.
        ELSE.
        SELECT  SINGLE MAKTX
         INTO GT_MATNR-MAKTX+0(40)
       FROM MAKT
       WHERE MATNR = GT_MATNR-MATNR.
      ENDIF.
       IF GT_MATNR-VERPR  IS INITIAL.
         IF GT_MATNR-LGORT <>  'TM11'.
         SELECT  SINGLE VERPR
           INTO GT_MATNR-VERPR
         FROM MBEW
         WHERE BWKEY = G_WERKS
           AND MATNR = GT_MATNR-MATNR.
          ENDIF.
      ENDIF.
       CLEAR G_VALUE.
       CALL  FUNCTION  'EVAL_FORMULA'  "將字符串運算 直接算出結果
         EXPORTING
          FORMULA = GT_MATNR-ABLAD
         IMPORTING
           VALUE   = G_VALUE.
       IF SY-SUBRC <>  0.
         MESSAGE  ID SY-MSGID  TYPE SY-MSGTY  NUMBER SY-MSGNO
                 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
       IF G_VALUE  IS  NOT INITIAL.
        GT_MATNR-VERPR = GT_MATNR-VERPR * G_VALUE.
      ENDIF.
      G_SUM_VEPRP = G_SUM_VEPRP + GT_MATNR-VERPR * GT_MATNR-BDMNG.

      GT_MATNR-SUM_VERPR = GT_MATNR-VERPR * GT_MATNR-BDMNG.
      GT_APLZL-SUM_VERPR = GT_APLZL-SUM_VERPR + GT_MATNR-SUM_VERPR.  " 計算每一個大類的總價格 -->有物料編碼
       SELECT  SINGLE MSEHL
         INTO GT_MATNR-MSEHL
       FROM T006A
       WHERE MSEHI = GT_MATNR-MEINS
         AND SPRAS =  'M'.


       IF GT_MATNR-MATNR  IS  NOT INITIAL.
        GT_NUMBE-NUMBE = G_TABIX.
         CALL  FUNCTION  'CONVERSION_EXIT_ALPHA_OUTPUT'
           EXPORTING
             INPUT  = GT_NUMBE-NUMBE
           IMPORTING
             OUTPUT = GT_NUMBE-NUMBE.
         APPEND GT_NUMBE.
      ENDIF.

       IF GT_MATNR-MATNR  IS  NOT INITIAL.
         CONCATENATE  '' '' GT_MATNR-MATNR  INTO GT_MATNR-MATNR.
      ENDIF.

       CONCATENATE SY-MANDT GT_MATNR-RSNUM GT_MATNR-RSPOS  INTO ZNAME.


       CALL  FUNCTION  'READ_TEXT'
         EXPORTING
           CLIENT                  = SY-MANDT
           ID                      =  'MATK'
           LANGUAGE                = SY-LANGU
          NAME                    = ZNAME
          OBJECT                  =  'AUFK'
         TABLES
           LINES                   = TDLINES
         EXCEPTIONS
           ID                      =  1
           LANGUAGE                =  2
          NAME                    =  3
          NOT_FOUND               =  4
          OBJECT                  =  5
          REFERENCE_CHECK         =  6
          WRONG_ACCESS_TO_ARCHIVE =  7
           OTHERS                  =  8.
       IF SY-SUBRC =  4.

      ENDIF.

       LOOP  AT TDLINES.
         CONCATENATE GT_MATNR-ZLINE TDLINES-TDLINE  INTO GT_MATNR-ZLINE.
      ENDLOOP.

       MODIFY GT_MATNR.
    ENDLOOP.


     READ  TABLE GT_MATNR  INDEX  1.
     IF SY-SUBRC =  0.
       IF GT_MATNR-MATNR  IS  NOT INITIAL.
         DESCRIBE  TABLE GT_MATNR  LINES ROW_COUNT.
      ENDIF.
    ENDIF.


    ROW_COUNT = ROW_COUNT +  1.
     CALL  METHOD GR_DOCUMENT->EXECUTE_MACRO
       EXPORTING
        MACRO_STRING =  'THISWORKBOOK.ADDROWS'
        PARAM1       = ROW_COUNT
        PARAM2       = G_ADDROW2
        PARAM_COUNT  =  2.


     CALL  METHOD GR_SPREADSHEET->INSERT_RANGE_DIM
       EXPORTING
        NAME     =  'B_H'
        NO_FLUSH =  'X'
        TOP      = G_ADDROW2
         LEFT     =  1
         ROWS     = ROW_COUNT
        COLUMNS  =  8.

     CLEAR GS_RANGE.
     CLEAR GT_RANGES[].
    GS_RANGE-NAME =  'B_H'.
    GS_RANGE-ROWS = ROW_COUNT.
    GS_RANGE-COLUMNS =  8.
    GS_RANGE-CODE =  8.
     APPEND GS_RANGE  TO GT_RANGES.
     READ  TABLE GT_MATNR  INDEX  1.
     IF SY-SUBRC =  0.
       IF GT_MATNR-MATNR  IS  NOT INITIAL.
         CLEAR GT_CONTENTS[].
        WRITE_CONTENT_CELL  1  1  ''. "GT_APLZL-NUMBE.
        WRITE_CONTENT_CELL  1  2  GT_APLZL-LTXA1.
        WRITE_CONTENT_CELL  1  3   ''.
        WRITE_CONTENT_CELL  1  4   ''.
        WRITE_CONTENT_CELL  1  5   ''.
        WRITE_CONTENT_CELL  1  6   ''.
        WRITE_CONTENT_CELL  1  7   ''.
        WRITE_CONTENT_CELL  1  8   ''.
         CLEAR ROW_INDEX.
        ROW_INDEX =  2.


         LOOP  AT GT_MATNR.
          WRITE_CONTENT_CELL ROW_INDEX  1 SY-TABIX.
          WRITE_CONTENT_CELL ROW_INDEX  2 GT_MATNR-MATNR.
          WRITE_CONTENT_CELL ROW_INDEX  3 GT_MATNR-MAKTX.
          WRITE_CONTENT_CELL ROW_INDEX  4 GT_MATNR-MSEHL.
          WRITE_CONTENT_CELL ROW_INDEX  5 GT_MATNR-BDMNG.
          WRITE_CONTENT_CELL ROW_INDEX  6 GT_MATNR-VERPR.
          WRITE_CONTENT_CELL ROW_INDEX  7 GT_MATNR-SUM_VERPR.
          WRITE_CONTENT_CELL ROW_INDEX  8 GT_MATNR-ZLINE.

          ROW_INDEX = ROW_INDEX +  1.
        ENDLOOP.
      ELSE.
        CLEAR:G_TAX, GT_CONTENTS[].

        G_TAX = GT_MATNR-BDMNG * G_SUM_VEPRP /  100.
        G_SUM_MONEY = G_SUM_MONEY + G_TAX.
         LOOP  AT GT_MATNR.
           IF GT_MATNR-MEINS =  '%'.
            GT_MATNR-MSEHL =  '式'.
            GT_MATNR-BDMNG =  1.
          ENDIF.
           MODIFY GT_MATNR.
        ENDLOOP.
        WRITE_CONTENT_CELL  1  1   ''. "GT_APLZL-NUMBE.
        WRITE_CONTENT_CELL  1  2  GT_APLZL-LTXA1.
        WRITE_CONTENT_CELL  1  3   ''.
        WRITE_CONTENT_CELL  1  4  GT_MATNR-MSEHL.
        WRITE_CONTENT_CELL  1  5  GT_MATNR-BDMNG.
        WRITE_CONTENT_CELL  1  6  G_TAX.
        WRITE_CONTENT_CELL  1  7  G_TAX.
        WRITE_CONTENT_CELL  1  8   ''.
         CLEAR ROW_INDEX.
        ROW_INDEX =  1.
        GT_APLZL-SUM_VERPR = G_TAX.  " 計算每一個大類的總價格 -->無物料編碼
      ENDIF.
    ELSE.
       CLEAR GT_CONTENTS[].
      WRITE_CONTENT_CELL  1  1   ''. "GT_APLZL-NUMBE.
      WRITE_CONTENT_CELL  1  2  GT_APLZL-LTXA1.
      WRITE_CONTENT_CELL  1  3   ''.
      WRITE_CONTENT_CELL  1  4   ''.
      WRITE_CONTENT_CELL  1  5   ''.
      WRITE_CONTENT_CELL  1  6   ''.
      WRITE_CONTENT_CELL  1  7   ''.
      WRITE_CONTENT_CELL  1  8   ''.
       CLEAR ROW_INDEX.
      ROW_INDEX =  2.


    ENDIF.



     CALL  METHOD GR_SPREADSHEET->SET_RANGES_DATA
       EXPORTING
         RANGES   = GT_RANGES
        CONTENTS = GT_CONTENTS
        NO_FLUSH =  'X'.



     MODIFY GT_APLZL.
    CLEAR:L_FLAG.

     AT  END  OF LTXA2.
      G_ADDROW2 = G_ADDROW2 + ROW_COUNT +  1.
      L_FLAG =  'X'.
    ENDAT.
     IF L_FLAG <>  'X'.
      G_ADDROW2 = G_ADDROW2 + ROW_COUNT.
    ENDIF.

  ENDLOOP.
*----------標單頁尾 明細資料 END
*----------標單表頭 大項 BEGIN
   LOOP  AT GT_APLZL2 .
     LOOP  AT GT_APLZL  WHERE LTXA2 = GT_APLZL2-LTXA1.
      GT_APLZL2-SUM_VERPR = GT_APLZL2-SUM_VERPR + GT_APLZL-SUM_VERPR.
    ENDLOOP.
     MODIFY GT_APLZL2.
  ENDLOOP.
  CLEAR: ROW_COUNT_30.
   DESCRIBE  TABLE GT_APLZL2  LINES ROW_COUNT_30.
   CALL  METHOD GR_SPREADSHEET->INSERT_RANGE_DIM
     EXPORTING
      NAME     =  'A_H'
      NO_FLUSH =  'X'
      TOP      =  9
       LEFT     =  1
       ROWS     = ROW_COUNT_30
      COLUMNS  =  8.

   CLEAR GS_RANGE.
   CLEAR GT_RANGES[].
  GS_RANGE-NAME =  'A_H'.
  GS_RANGE-ROWS = ROW_COUNT_30.
  GS_RANGE-COLUMNS =  8.
  GS_RANGE-CODE =  8.
   APPEND GS_RANGE  TO GT_RANGES.



  CLEAR:GT_CONTENTS[].
  ROW_INDEX =  1.
   LOOP  AT GT_APLZL2.
    CLEAR:L_VEPRP,G_GCZJE_BIG.
    L_VEPRP = SY-TABIX.
     PERFORM S2B  USING L_VEPRP G_GCZJE_BIG.

    LV_I = STRLEN( G_GCZJE_BIG ).
    LV_I = LV_I -  2.
    G_GCZJE_BIG = G_GCZJE_BIG+0(LV_I).

    WRITE_CONTENT_CELL ROW_INDEX  1 G_GCZJE_BIG.
    WRITE_CONTENT_CELL ROW_INDEX  2  '/'.
    WRITE_CONTENT_CELL ROW_INDEX  3 GT_APLZL2-LTXA1.
    WRITE_CONTENT_CELL ROW_INDEX  4  '式'.
    WRITE_CONTENT_CELL ROW_INDEX  5  '1'.
    WRITE_CONTENT_CELL ROW_INDEX  6 GT_APLZL2-SUM_VERPR.
    WRITE_CONTENT_CELL ROW_INDEX  7 GT_APLZL2-SUM_VERPR.
    WRITE_CONTENT_CELL ROW_INDEX  8  ''.

    ROW_INDEX = ROW_INDEX +  1.
  ENDLOOP.
  CLEAR:ROW_INDEX.



   CALL  METHOD GR_SPREADSHEET->SET_RANGES_DATA
     EXPORTING
       RANGES   = GT_RANGES
      CONTENTS = GT_CONTENTS
      NO_FLUSH =  'X'.
*----------標單表頭 大項 END
*----------標單 工程金額合計(RMB) BEGIN
  DATA:L_SUM_VERPR  LIKE MBEW-VERPR,
       L_TOP_GCZJE  TYPE I.
  CLEAR:L_SUM_VERPR.
   LOOP  AT GT_APLZL2 .
    L_SUM_VERPR = L_SUM_VERPR + GT_APLZL2-SUM_VERPR.
  ENDLOOP.
  L_TOP_GCZJE =  9 + ROW_COUNT_30.
   CALL  METHOD GR_SPREADSHEET->INSERT_RANGE_DIM
     EXPORTING
      NAME     =  'GCZJE'
      NO_FLUSH =  'X'
      TOP      = L_TOP_GCZJE
       LEFT     =  3
       ROWS     =  1
      COLUMNS  =  1.

   CLEAR GS_RANGE.
   CLEAR GT_RANGES[].
  GS_RANGE-NAME =  'GCZJE'.
  GS_RANGE-ROWS =  1.
  GS_RANGE-COLUMNS =  1.
  GS_RANGE-CODE =  1.
   APPEND GS_RANGE  TO GT_RANGES.



  CLEAR:GT_CONTENTS[].
  ROW_INDEX =  1.

  WRITE_CONTENT_CELL  1  1 L_SUM_VERPR.

  CLEAR:ROW_INDEX.



   CALL  METHOD GR_SPREADSHEET->SET_RANGES_DATA
     EXPORTING
       RANGES   = GT_RANGES
      CONTENTS = GT_CONTENTS
      NO_FLUSH =  'X'.
*----------標單 工程金額合計(RMB) END

ENDFORM.                     " WRITE_DATA_TO_EXCEL_GT_30WAN

*&---------------------------------------------------------------------*
*&      FORM  SET_NO
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
*  -->  P1        TEXT
*  <--  P2        TEXT
*----------------------------------------------------------------------*
FORM SET_NO .

  CLEAR:G_IND,G_ILEN.
   CALL  FUNCTION  'CONVERSION_EXIT_ALPHA_OUTPUT'
     EXPORTING
       INPUT  = GT_APLZL-APLZL
     IMPORTING
       OUTPUT = GT_APLZL-APLZL.

  G_ILEN = STRLEN( GT_APLZL-APLZL ).

  CLEAR:GT_NUMBE-NUMBE.
   DO G_ILEN TIMES.
    G_SIN_NUM = GT_APLZL-APLZL+G_IND(1).
     PERFORM CASENUM.

    G_IND = G_IND +  1.
  ENDDO.
   APPEND GT_NUMBE.
ENDFORM.                     " SET_NO
*&---------------------------------------------------------------------*
*&      FORM  CASENUM
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
*  -->  P1        TEXT
*  <--  P2        TEXT
*----------------------------------------------------------------------*
FORM CASENUM .

   CASE G_SIN_NUM.
     WHEN  1.
      G_DACH =  '一'.
       CONCATENATE GT_NUMBE-NUMBE G_DACH  INTO GT_NUMBE-NUMBE.
     WHEN  2.
      G_DACH =  '二'.
       CONCATENATE GT_NUMBE-NUMBE G_DACH  INTO GT_NUMBE-NUMBE.
     WHEN  3.
      G_DACH =  '三'.
       CONCATENATE GT_NUMBE-NUMBE G_DACH  INTO GT_NUMBE-NUMBE.
     WHEN  4.
      G_DACH =  '四'.
       CONCATENATE GT_NUMBE-NUMBE G_DACH  INTO GT_NUMBE-NUMBE.
     WHEN  5.
      G_DACH =  '五'.
       CONCATENATE GT_NUMBE-NUMBE G_DACH  INTO GT_NUMBE-NUMBE.
     WHEN  6.
      G_DACH =  '六'.
       CONCATENATE GT_NUMBE-NUMBE G_DACH  INTO GT_NUMBE-NUMBE.
     WHEN  7.
      G_DACH =  '七'.
       CONCATENATE GT_NUMBE-NUMBE G_DACH  INTO GT_NUMBE-NUMBE.
     WHEN  8.
      G_DACH =  '八'.
       CONCATENATE GT_NUMBE-NUMBE G_DACH  INTO GT_NUMBE-NUMBE.
     WHEN  9.
      G_DACH =  '九'.
       CONCATENATE GT_NUMBE-NUMBE G_DACH  INTO GT_NUMBE-NUMBE.
     WHEN  0.
      G_DACH =  '〇'.
       CONCATENATE GT_NUMBE-NUMBE G_DACH  INTO GT_NUMBE-NUMBE.

  ENDCASE.
ENDFORM.                     " CASENUM
*&---------------------------------------------------------------------*
*&      FORM  SAVE_EXCEL
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
*  -->  P1        TEXT
*  <--  P2        TEXT
*----------------------------------------------------------------------*
FORM SAVE_EXCEL .
  DATA: LV_FILENAME  TYPE STRING,  "文件名
          LV_WINTITLE  TYPE STRING,  "文件标题
          LV_FILEPATH  TYPE STRING,  "路径
          LV_FULLPATH  TYPE STRING,  "全路径
          LV_DEFAULT   TYPE STRING.  "默认文件名
  DATA:  TITLE  TYPE STRING  VALUE  '.XLS'.
  DATA:G_ACTION  TYPE I.
  CLEAR:G_ACTION.

  LV_WINTITLE =  'EXCEL文档'.

  LV_DEFAULT  = TITLE.

*&---打开保存对话框
   CALL  METHOD CL_GUI_FRONTEND_SERVICES=>FILE_SAVE_DIALOG
     EXPORTING
      WINDOW_TITLE      = LV_WINTITLE
      DEFAULT_EXTENSION =  'XLS'
      DEFAULT_FILE_NAME = LV_DEFAULT
      FILE_FILTER       =  'XLS'
*     INITIAL_DIRECTORY =
     CHANGING
      FILENAME          = LV_FILENAME
      PATH              = LV_FILEPATH
      FULLPATH          = LV_FULLPATH
      USER_ACTION       = G_ACTION
     EXCEPTIONS
      CNTL_ERROR        =  1
      ERROR_NO_GUI      =  2
       OTHERS            =  3.

   IF SY-SUBRC =  0  AND G_ACTION =  0.
    DATA: P_FILE  TYPE RLGRAP-FILENAME.
    P_FILE = LV_FULLPATH.

*&---保存文件
     CALL  METHOD GR_DOCUMENT->SAVE_AS
       EXPORTING
        FILE_NAME = P_FILE.

     IF SY-SUBRC =  0.
       MESSAGE  '文件已保存！'  TYPE  'I'.
       LEAVE  TO  SCREEN  0.
    ENDIF.
  ELSE.
     CLEAR SY-UCOMM.
  ENDIF.

ENDFORM.                     " SAVE_EXCEL
*&---------------------------------------------------------------------*
*&      FORM  S2B
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
*      -->P_G_SUM_MONEY  TEXT
*      -->P_G_GCZJE_BIG  TEXT
*----------------------------------------------------------------------*
FORM S2B   USING    P_G_SUM_MONEY
                   P_G_GCZJE_BIG.

  DATA:
          V_S00(2)  VALUE  '零',
          V_S01(2)  VALUE  '壹',
          V_S02(2)  VALUE  '贰',
          V_S03(2)  VALUE  '叁',
          V_S04(2)  VALUE  '肆',
          V_S05(2)  VALUE  '伍',
          V_S06(2)  VALUE  '陆',
          V_S07(2)  VALUE  '柒',
          V_S08(2)  VALUE  '捌',
          V_S09(2)  VALUE  '玖',
          V_W00(2)  VALUE  '',
          V_W01(2)  VALUE  '拾',
          V_W02(2)  VALUE  '佰',
          V_W03(2)  VALUE  '仟',
          V_W04(2)  VALUE  '万',
          V_W05(4)  VALUE  '拾',
          V_W06(4)  VALUE  '佰',
          V_W07(4)  VALUE  '仟',
          V_W08(2)  VALUE  '亿',
          V_W09(4)  VALUE  '拾',
          V_W10(4)  VALUE  '佰',
          V_W11(4)  VALUE  '仟',
          V_W12(4)  VALUE  '万',
          V_SY(2)   VALUE  '圆',
          V_SJ(2)   VALUE  '角',
          V_SF(2)   VALUE  '分',
          V_AMOUNT(16), "将金额转换成字符型
          V_LEN  TYPE I, "V_AMOUNT或OUT的长度
          V_VAR(5), "V_S0,V_S1,...,V_W0,V_W1,...
          V_NUM(2)  TYPE N, "每一位的数值
          V_S_NUM(2), "V_S0,V_S1,...中的值
          V_WEIGHT(2)  TYPE N, "权数
          V_W_NUM(4), "V_W0,V_W1,...中的值
          V_FLAG0  TYPE  I  VALUE 0, "是否输出'零'，0不输出，1输出
          V_N  TYPE  I  VALUE 0,
          V_INDEX  TYPE SY-INDEX.
  V_AMOUNT = P_G_SUM_MONEY.
   SHIFT V_AMOUNT  LEFT DELETING  LEADING SPACE.
   SHIFT V_AMOUNT  LEFT DELETING  LEADING  '0'.
*-计算分-----------------------------------------
  V_LEN = STRLEN( V_AMOUNT ).
  V_LEN = V_LEN -  1.
  V_NUM = V_AMOUNT+V_LEN(1).
   IF V_NUM <>  '0'.
     CONCATENATE  'V_S' V_NUM  INTO V_VAR.
     WRITE (V_VAR)  TO V_S_NUM.
     CONCATENATE V_S_NUM V_SF P_G_GCZJE_BIG  INTO P_G_GCZJE_BIG.
  ENDIF.
*-计算角-----------------------------------------
  V_LEN = STRLEN( V_AMOUNT ).
  V_LEN = V_LEN -  2.
  V_NUM = V_AMOUNT+V_LEN(1).
   IF V_NUM <>  '0'.
     CONCATENATE  'V_S' V_NUM  INTO V_VAR.
     WRITE (V_VAR)  TO V_S_NUM.
     CONCATENATE V_S_NUM V_SJ P_G_GCZJE_BIG  INTO P_G_GCZJE_BIG.
  ENDIF.
*-输出‘整’字-------------------------------------
   IF P_G_GCZJE_BIG =  ' '.
     CONCATENATE  '整' P_G_GCZJE_BIG  INTO P_G_GCZJE_BIG.
  ENDIF.
*-计算整数---------------------------------------
  V_LEN = STRLEN( V_AMOUNT ).
  V_LEN = V_LEN -  3.
   IF V_LEN =  0.
    EXIT.
  ENDIF.
  V_AMOUNT = V_AMOUNT(V_LEN). " 整数部分
*-输出‘元’字-------------------------------------
   CONCATENATE V_SY P_G_GCZJE_BIG  INTO P_G_GCZJE_BIG.
  V_N = V_LEN -  1.
  V_WEIGHT =  0.
   DO V_LEN TIMES.
    V_INDEX = SY-INDEX.
*   从个位开始
    V_NUM = V_AMOUNT+V_N(1).
     IF V_NUM <>  '0'.
       CONCATENATE  'V_S' V_NUM  INTO V_VAR.
       WRITE (V_VAR)  TO V_S_NUM.
       CONCATENATE  'V_W' V_WEIGHT  INTO V_VAR.
       WRITE (V_VAR)  TO V_W_NUM.
       CONCATENATE V_S_NUM V_W_NUM P_G_GCZJE_BIG  INTO P_G_GCZJE_BIG.
      V_FLAG0 =  1.
    ELSE.
       IF V_FLAG0 =  1.
         CONCATENATE  'V_S' V_NUM  INTO V_VAR.
         WRITE (V_VAR)  TO V_S_NUM.
         CONCATENATE V_S_NUM P_G_GCZJE_BIG  INTO P_G_GCZJE_BIG.
        V_FLAG0 =  0.
      ENDIF.

       IF V_INDEX =  5   AND V_LEN >  5  AND V_LEN <  9 .
         CONCATENATE  '万' P_G_GCZJE_BIG  INTO P_G_GCZJE_BIG.
       ELSEIF V_INDEX =  9  AND V_LEN >  9.
         CONCATENATE  '亿' P_G_GCZJE_BIG  INTO P_G_GCZJE_BIG.
      ENDIF.

*      CASE SY-INDEX.
*        WHEN 5.CONCATENATE '万' OUT INTO OUT.
*        WHEN 9.CONCATENATE '亿' OUT INTO OUT.
*      ENDCASE.
    ENDIF.
    V_WEIGHT = V_WEIGHT +  1.
    V_N = V_N -  1.
  ENDDO.
*-删除个位可能出现'零'的情况-----------------
   SEARCH P_G_GCZJE_BIG  FOR  '圆'.
   IF SY-SUBRC =  0.
    V_N = SY-FDPOS -  2.
     IF V_N >=  0.
       IF P_G_GCZJE_BIG+V_N(2) = V_S00.
        V_LEN = STRLEN( P_G_GCZJE_BIG ).
         CONCATENATE P_G_GCZJE_BIG(V_N) P_G_GCZJE_BIG+SY-FDPOS  INTO P_G_GCZJE_BIG.
      ENDIF.
    ENDIF.
  ENDIF.



ENDFORM.                     " S2B