abap金税下载EXCEL版

      SAP ERP ECC6.0标准功能提供给了金税接口，对于一般的公司来说，这个接口基本也够了。

     事务代码：GT_DLN 下载SAP发票信息；     

     事务代码：GT_ULN 上传金税信息到SAP中；

     前提条件：SAP ERP ECC6.0 功能增强包EHp3及以上。
     

     激活业务功能事务代码 SFW5选择业务功能FIN_LOC_CI_1，点击激活按钮。

     激活业务功能包后，系统将执行一个后台任务，执行可能需要长达一小时。

     参见SAP Note：Note 1290073 – China Golden Tax Switch ActivateNote 1380072 – China Golden Tax Interface Legal Change for GTS 6.1x补充说明SAP 还提供了在创建系统发票时，根据发票限额自动进行分拆的程序原理是在复制控制中利用例程（roution)实现。参见SAP NoteNote 192558 – Template for invoice split with a maximum amount per
invoice

     下面是自开发的EXCEL版的金税下载程序。

 

 

*&---------------------------------------------------------------------*
*& Report  ZSD_JSEXCEL
*&
*&---------------------------------------------------------------------*
*&
*&bruce 20131205
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*use the customer namespace. ZINV, Zbillexp, ZI, appended structure.
REPORT  ZSD_JSEXCEL NO STANDARD PAGE HEADING MESSAGE-ID ZLC LINE-SIZE 255.

INCLUDE ZBILLTOP_TT1.
*INCLUDE ZBILLTOP.
INCLUDE ZSELECT_TT1.
*INCLUDE ZSELECT.
INITIALIZATION.
  PERFORM INITIALIZATION.

AT SELECTION-SCREEN.
  PERFORM CHECK_INPUT.
  PERFORM AUTHORITY_CHECK USING '04' RC VKORG FKART.

START-OF-SELECTION.
* Get billing document header
  PERFORM GET_VBRK.

END-OF-SELECTION.
  SET PF-STATUS 'LIST'.
  SET TITLEBAR 'LIST'.
  PERFORM WRITE_BODY.

TOP-OF-PAGE.
  SET LEFT SCROLL-BOUNDARY COLUMN 32.
  PERFORM WRITE_TOPPAGE.

TOP-OF-PAGE DURING LINE-SELECTION.
  SET LEFT SCROLL-BOUNDARY COLUMN 32.
  PERFORM WRITE_TOPPAGE.

AT LINE-SELECTION.
  CHECK NOT LIST_VBRK-VBELN IS INITIAL.

  SET PARAMETER ID 'VF' FIELD LIST_VBRK-VBELN.
  CALL TRANSACTION 'VF03' AND SKIP FIRST SCREEN.

AT USER-COMMAND.
  CASE SY-UCOMM.
    WHEN 'SEL'.
      PERFORM SELECT_ALL.
    WHEN 'DSEL'.
      PERFORM DESELECT_ALL.
    WHEN 'PSEL'.
      PERFORM SELECT_PARTIAL.
    WHEN 'DNLD'.
* Download billing document to file
      PERFORM DOWNLOAD.
  ENDCASE.
*&---------------------------------------------------------------------*
*&      Form  INITIALIZATION
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM INITIALIZATION.
  FKART-LOW    = 'ZF2'.
  FKART-SIGN   = 'I'.
  FKART-OPTION = 'EQ'.
  APPEND FKART.
  FKART-LOW    = 'ZS2'.
  FKART-SIGN   = 'I'.
  FKART-OPTION = 'EQ'.
  APPEND FKART.
  FKART-LOW    = 'ZRE'.
  FKART-SIGN   = 'I'.
  FKART-OPTION = 'EQ'.
  APPEND FKART.

  WAERK-LOW    = 'RMB'.
  WAERK-SIGN   = 'I'.
  WAERK-OPTION = 'EQ'.
  APPEND WAERK.

  FKDAT-LOW    = SY-DATUM.
  FKDAT-HIGH   = SY-DATUM.
  FKDAT-SIGN   = 'I'.
  FKDAT-OPTION = 'BT'.
  APPEND FKDAT.

*  CALL CUSTOMER-FUNCTION '006'
*       TABLES
*            VBELN   = VBELN
*            FKART   = FKART
*            KUNRG   = KUNRG
*            VSBED   = VSBED
*            BZIRK   = BZIRK
*            VKORG   = VKORG
*            VTWEG   = VTWEG
*            SPART   = SPART
*            WAERK   = WAERK
*            FKDAT   = FKDAT
*       CHANGING
*            COMBINE = COMBINE
*       EXCEPTIONS
*            OTHERS  = 1.

ENDFORM.                               " INITIALIZATION





*&---------------------------------------------------------------------*
*&      Form  CHECK_INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM CHECK_INPUT.
  IF VBELN IS INITIAL AND FKDAT IS INITIAL AND FKART IS INITIAL
     AND VSBED IS INITIAL AND KUNRG IS INITIAL AND BZIRK IS INITIAL
     AND VKORG IS INITIAL AND VTWEG IS INITIAL AND SPART IS INITIAL.
    MESSAGE E201.
  ENDIF.
  IF FKDAT IS INITIAL AND VBELN IS INITIAL.
    MESSAGE W202.
  ENDIF.

  IF NOT BZIRK IS INITIAL.
    MOVE 'I' TO:  TEMP_VKORG-SIGN,
                  TEMP_VTWEG-SIGN,
                  TEMP_SPART-SIGN,
                  TEMP_KUNRG-SIGN.
    MOVE 'EQ' TO: TEMP_VKORG-OPTION,
                  TEMP_VTWEG-OPTION,
                  TEMP_SPART-OPTION,
                  TEMP_KUNRG-OPTION.

    SELECT * FROM  KNVV
           WHERE  KUNNR IN KUNRG
           AND    VKORG IN VKORG
           AND    VTWEG IN VTWEG
           AND    SPART IN SPART
           AND    BZIRK IN BZIRK.
      MOVE KNVV-KUNNR TO TEMP_KUNRG-LOW.
      MOVE KNVV-VKORG TO TEMP_VKORG-LOW.
      MOVE KNVV-VTWEG TO TEMP_VTWEG-LOW.
      MOVE KNVV-SPART TO TEMP_SPART-LOW.
      COLLECT: TEMP_KUNRG, TEMP_VKORG, TEMP_VTWEG, TEMP_SPART.
    ENDSELECT.
    IF SY-SUBRC <> 0.
      MESSAGE E205.
    ELSE.
      REFRESH: KUNRG, VKORG, VTWEG, SPART.
      APPEND LINES OF: TEMP_KUNRG TO KUNRG,
                       TEMP_VKORG TO VKORG,
                       TEMP_VTWEG TO VTWEG,
                       TEMP_SPART TO SPART.
    ENDIF.
  ENDIF.
  SELECT  SINGLE * FROM  VBRK
         WHERE VBELN IN VBELN
         AND   FKART IN FKART
         AND   KUNRG IN KUNRG
         AND   VKORG IN VKORG
         AND   VTWEG IN VTWEG
         AND   VSBED IN VSBED
         AND   FKDAT IN FKDAT
         AND   SPART IN SPART
         AND   WAERK IN WAERK .
  IF SY-SUBRC <> 0.
    MESSAGE E203.
  ENDIF.
  IF NOT 'RMB' IN WAERK.
    MESSAGE W204.
  ENDIF.

ENDFORM.                               " CHECK_INPUT
*&---------------------------------------------------------------------*
*&      Form  GET_VBRK
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM GET_VBRK.
  REFRESH LIST_VBRK.

  SELECT * FROM  VBRK
     WHERE VBELN IN VBELN
     AND   FKART IN FKART
     AND   KUNRG IN KUNRG
     AND   VKORG IN VKORG
     AND   VTWEG IN VTWEG
     AND   VSBED IN VSBED
     AND   FKDAT IN FKDAT
     AND   SPART IN SPART
     AND   WAERK IN WAERK.
*     and   SFAKN = ' '.

    MOVE-CORRESPONDING VBRK TO LIST_VBRK.
    MOVE 'X' TO LIST_VBRK-FLAG.

* Count the number of none-zero-items in a billing document
* The resault may not correct at this moment since there could
* be items combinated later.
    SELECT COUNT(*) FROM VBRP INTO LIST_VBRK-NUM
       WHERE VBELN = VBRK-VBELN
       AND   NETWR >< 0.

* Ignore the billing doc. if no none-zero-items exist
    CHECK LIST_VBRK-NUM >< 0.

* Get the customer name and address as the invoice require.
    SELECT SINGLE * FROM KNVP
       WHERE KUNNR = VBRK-KUNRG
       AND   PARVW = 'RE'.

    IF SY-SUBRC = 0.
      SELECT SINGLE * FROM KNA1
         WHERE KUNNR = KNVP-KUNN2.
    ELSE.
      SELECT SINGLE * FROM KNA1
         WHERE KUNNR = VBRK-KUNRG.
    ENDIF.
*get customer more name and address infomation.
    CLEAR ADRC.
    SELECT SINGLE * FROM ADRC
       WHERE ADDRNUMBER = KNA1-ADRNR.
* Check for one time customer.
    IF SY-SUBRC >< 0.                  "one time customer
      MOVE '321000000000000' TO LIST_VBRK-STCD1.
    ELSE.
      CONCATENATE KNA1-NAME1
                  KNA1-NAME2
                  INTO LIST_VBRK-NAME1.

* Customer may store the tax number in different location
*     a) kna1-stceg+2(15)
*     b) kna1-stcd1

      MOVE KNA1-STCD1 TO LIST_VBRK-STCD1.
      MOVE KNA1-STCEG TO LIST_VBRK-STCD1.
*浪潮存税号于街道五字段中
      MOVE ADRC-LOCATION TO LIST_VBRK-STCD1.

      CALL CUSTOMER-FUNCTION '002'
           EXPORTING
                VBRK    = VBRK
                KNA1    = KNA1
           CHANGING
                STCD1   = LIST_VBRK-STCD1
           EXCEPTIONS
                OTHERS  = 1.

      STRLEN3 = STRLEN( KNA1-TELF1 ).
      STRLEN2 = STRLEN( KNA1-STRAS )
                + STRLEN( ADRC-STR_SUPPL3 ) + STRLEN3.
      STRLEN1 = STRLEN2 + STRLEN( KNA1-PSTLZ ).
      SELECT SINGLE *
             FROM ADR2
             WHERE ADR2~ADDRNUMBER = KNA1-ADRNR.
      CONCATENATE ADR2-TEL_NUMBER ADR2-TEL_EXTENS
              INTO ADR2-TELNR_CALL.
* 50(length of address)-5(space)-4(text)*2 = 37
      IF STRLEN1 <= 80.
        CONCATENATE KNA1-STRAS ADRC-STR_SUPPL3
                    ADR2-TELNR_CALL

*                    'ZIP:'(002) KNA1-PSTLZ  "邮编
                    INTO LIST_VBRK-ADDR SEPARATED BY ' '.

* 50(length of address)-3(space)-4(text) = 43
      ELSEIF STRLEN2 <= 80.
        CONCATENATE KNA1-STRAS ADRC-STR_SUPPL3
                    ADR2-TELNR_CALL
                    INTO LIST_VBRK-ADDR SEPARATED BY ' '.
      ELSE.
        CONCATENATE KNA1-ORT01 KNA1-STRAS ADRC-STR_SUPPL3
                    INTO LIST_VBRK-ADDR SEPARATED BY ' '.

*        STRLEN1 = STRLEN( LIST_VBRK-NAME1 ) + STRLEN3.
** 50(length of name1)-2(space)-4(text) = 44
*        IF STRLEN1 <= 44.
*          CONCATENATE LIST_VBRK-NAME1
*                      'Tel:'(001) KNA1-TELF1
*                      INTO LIST_VBRK-NAME1 SEPARATED BY ' '.
*        ENDIF.
      ENDIF.

* Add memo to the invoce as the customer require
      CALL CUSTOMER-FUNCTION '003'
           EXPORTING
                VBRK    = VBRK
                KNA1    = KNA1
           CHANGING
                MEMO    = LIST_VBRK-MEMO
           EXCEPTIONS
                OTHERS  = 1.

* Get bank name and account number.
      CONCATENATE KNA1-NAME3 KNA1-NAME4
         INTO LIST_VBRK-BANKN SEPARATED BY ' '.
*      SELECT SINGLE * FROM KNBK CLIENT SPECIFIED
*         WHERE KUNNR = VBRK-KUNRG.
*      IF SY-SUBRC = 0.
*        SELECT SINGLE * FROM BNKA
*           WHERE BANKS = KNBK-BANKS
*           AND   BANKL = KNBK-BANKL .
*        STRLEN1 = STRLEN( BNKA-BANKA ) + STRLEN( KNBK-BANKN ).
*        IF STRLEN1 < 50.
*          CONCATENATE BNKA-BANKA KNBK-BANKN
*                 INTO LIST_VBRK-BANKN SEPARATED BY ' '.
*        ELSE.
*          MOVE BNKA-BANKA TO LIST_VBRK-BANKN.
*          STRLEN2 = STRLEN( KNBK-BANKN ).
*          STRLEN1 = 50 - STRLEN2 + 1.
*          LIST_VBRK-BANKN+STRLEN1(1) = ' ' .
*          ADD 1 TO STRLEN1.
*          LIST_VBRK-BANKN+STRLEN1(STRLEN2) = KNBK-BANKN.
*        ENDIF.
*      ENDIF.

    ENDIF.

    APPEND LIST_VBRK.
    CLEAR LIST_VBRK.
  ENDSELECT.
ENDFORM.                               " GET_VBRK
*&---------------------------------------------------------------------*
*&      Form  WRITE_TOPPAGE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM WRITE_TOPPAGE.
  FORMAT COLOR COL_HEADING.
  WRITE: (253) SY-ULINE.
  WRITE: /  SY-VLINE,  2(2)    'F'(020),
         4  SY-VLINE,  5(8)    'Status'(021),
         13  SY-VLINE, 14(10)  'Bill Doc.'(022),
         25  SY-VLINE, 26(4)   'BTyp'(023),
         31  SY-VLINE, 32(4)   'SCon'(024),
         37  SY-VLINE, 38(4)   'S.O.'(025).
  WRITE: 43  SY-VLINE, 44(4)   'D.C.'(026),
         49  SY-VLINE, 50(4)   'Div.'(027).
  WRITE: 55  SY-VLINE, 56(10)  'Bill.Date'(028).
  WRITE: 67  SY-VLINE, 68(17)  'Net Value'(029).
  WRITE: 88  SY-VLINE, 89(5)   'Curr.'(030).
  WRITE: 95  SY-VLINE, 96(40)  'Customer Name'(031).
  WRITE: 136 SY-VLINE, 137(3)  'Num'(032).
  WRITE: 141 SY-VLINE, 142(15) 'VAT reg.no.'(033).
  WRITE: 158 SY-VLINE, 159(50) 'Customer Address '(034).
  WRITE: 208 SY-VLINE, 209(50) 'Bank name and Account number'(035).
  WRITE: 260 SY-VLINE.
  WRITE: (260) SY-ULINE.
ENDFORM.                               " WRITE_TOPPAGE

*&---------------------------------------------------------------------*
*&      Form  WRITE_BODY
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM WRITE_BODY.
  DATA K TYPE N.

*  format color col_normal.
  SORT LIST_VBRK BY VBELN FKART.

  K = 0.
  LOOP AT LIST_VBRK.
    FORMAT COLOR COL_KEY.
    IF K = 1.
      FORMAT INTENSIFIED ON.
      K = 0.
    ELSE.
      FORMAT INTENSIFIED OFF.
      K = 1.
    ENDIF.
    WRITE: / SY-VLINE.
    WRITE: 2 LIST_VBRK-FLAG AS CHECKBOX NO-GAP .
    WRITE: 4 SY-VLINE.
    IF LIST_VBRK-FKART = 'ZS2' OR LIST_VBRK-FKART = 'ZRE'.
      IF NOT LIST_VBRK-ZZCANCEL IS INITIAL.
        WRITE: 5(8) 'Exported'(050) COLOR COL_NEGATIVE NO-GAP.
      ELSE.
        WRITE: 5(8) 'Not Exp.'(051) COLOR COL_POSITIVE NO-GAP.
      ENDIF.
    ELSE.
      IF NOT LIST_VBRK-ZZFLAG IS INITIAL.
        WRITE: 5(8) 'Exported'(050) COLOR COL_NEGATIVE NO-GAP.
      ELSE.
        WRITE: 5(8) 'Not Exp.'(051) COLOR COL_POSITIVE NO-GAP.
      ENDIF.
    ENDIF.
    WRITE: 13 SY-VLINE, 14(10) LIST_VBRK-VBELN NO-GAP.
    HIDE LIST_VBRK-VBELN.
    WRITE: 25 SY-VLINE, 26(4)  LIST_VBRK-FKART NO-GAP.
    WRITE: 31 SY-VLINE.
    FORMAT COLOR COL_NORMAL.
    WRITE: 32(4)  LIST_VBRK-VSBED NO-GAP.
    WRITE: 37  SY-VLINE, 38(4)   LIST_VBRK-VKORG NO-GAP.
    WRITE: 43  SY-VLINE, 44(4)   LIST_VBRK-VTWEG NO-GAP.
    WRITE: 49  SY-VLINE, 50(4)   LIST_VBRK-SPART NO-GAP.
    WRITE: 55  SY-VLINE, 56(10)  LIST_VBRK-FKDAT NO-GAP.
    WRITE: 67  SY-VLINE, 68(17)  LIST_VBRK-NETWR
                                    CURRENCY LIST_VBRK-WAERK.
    WRITE: 88  SY-VLINE, 89(5)   LIST_VBRK-WAERK NO-GAP.
    WRITE: 95  SY-VLINE, 96(40)  LIST_VBRK-NAME1 NO-GAP.
    WRITE: 136 SY-VLINE, 137(3)  LIST_VBRK-NUM NO-ZERO NO-GAP.
    WRITE: 141 SY-VLINE, 142(15) LIST_VBRK-STCD1 NO-GAP.
*     write: 132 sy-vline, 133(15) list_vbrk-stceg no-gap.
    WRITE: 158 SY-VLINE, 159(50) LIST_VBRK-ADDR NO-GAP.
    WRITE: 208 SY-VLINE, 209(50) LIST_VBRK-BANKN NO-GAP.
    WRITE: 260 SY-VLINE.
  ENDLOOP.
  WRITE : (260) SY-ULINE.
ENDFORM.                               " WRITE_BODY
*&---------------------------------------------------------------------*
*&      Form  DOWNLOAD
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM DOWNLOAD.
  DATA K TYPE I.
*  DATA L TYPE I.
* Copy user selection from screen list to list_vbrk
  K = FIRST_LIST_LINE.
  LOOP AT LIST_VBRK.
*根据取消发票和被取消的发票日期是否在同一月来确定是否
*发票是否为作废.同时设置打印作废发票标志
    SELECT SINGLE * FROM VBRK INTO WA_VBRK
       WHERE VBELN = LIST_VBRK-SFAKN.
    IF SY-SUBRC = 0.
      IF LIST_VBRK-FKDAT(6) = WA_VBRK-FKDAT(6).
        LIST_VBRK-ZUOFEI = 'X'.
      ENDIF.
    ENDIF.
    READ LINE K FIELD VALUE LIST_VBRK-FLAG.
*如果存在作废的单据.
    IF LIST_VBRK-ZUOFEI = 'X' AND LIST_VBRK-FLAG = 'X'.
      FLAG_PRINTZUOFEI = 'X'.
    ENDIF.
    MODIFY LIST_VBRK TRANSPORTING FLAG ZUOFEI.
    K = K + 1.
  ENDLOOP.
*******************注销TXT文本格式下载 dingyang 20131205

*  READ TABLE LIST_VBRK WITH KEY FLAG = 'X'.
*  IF SY-SUBRC = 0.
*    CLEAR FILENAME.
*    CLEAR FILENAME1.
** download itab_
*    IF FLAG_PRINTZUOFEI = 'X'.
*      IF FILENAME1 IS INITIAL.
*        REFRESH ITAB_HEADER.
*        ITAB_HEADER-BDBJ = 'SJJK0102'.
*        ITAB_HEADER-BDMC = '作废销售单据传入'.
*        ITAB_HEADER-FZ = '附注'.
*        APPEND ITAB_HEADER.
*        CALL FUNCTION 'DOWNLOAD'
*          EXPORTING
*            FILENAME            = 'c:\invoice\作废单据传入文件.txt'
*            FILETYPE            = 'ASC'
*            ITEM                = 'Export Invoice'
*          IMPORTING
*            ACT_FILENAME        = FILENAME1
*          TABLES
*            DATA_TAB            = ITAB_HEADER
**           FIELDNAMES          =
*          EXCEPTIONS
*            INVALID_FILESIZE    = 1
*            INVALID_TABLE_WIDTH = 2
*            INVALID_TYPE        = 3
*            NO_BATCH            = 4
*            UNKNOWN_ERROR       = 5
*            OTHERS              = 6.
*
*        IF SY-SUBRC >< 0.
*          MESSAGE E210.
*        ENDIF.
*      ENDIF.
*    ENDIF.
**download itab_header.
*    IF FILENAME IS INITIAL.
*      REFRESH ITAB_HEADER.
*      ITAB_HEADER-BDBJ = 'SJJK0101'.
*      ITAB_HEADER-BDMC = '销售单据传入'.
*      ITAB_HEADER-FZ = '附注'.
*      APPEND ITAB_HEADER.
*      CALL FUNCTION 'DOWNLOAD'
*        EXPORTING
*          FILENAME            = 'c:\invoice\销售单据传入文件.txt'
*          FILETYPE            = 'ASC'
*          ITEM                = 'Export Invoice'
*        IMPORTING
*          ACT_FILENAME        = FILENAME
*        TABLES
*          DATA_TAB            = ITAB_HEADER
**         FIELDNAMES          =
*        EXCEPTIONS
*          INVALID_FILESIZE    = 1
*          INVALID_TABLE_WIDTH = 2
*          INVALID_TYPE        = 3
*          NO_BATCH            = 4
*          UNKNOWN_ERROR       = 5
*          OTHERS              = 6.
*
*      IF SY-SUBRC >< 0.
*        MESSAGE E210.
*      ENDIF.
*    ENDIF.
*  ENDIF.
*******************注销TXT文本格式下载 dingyang 20131205
  K = 0.
*  CLEAR FILENAME.
  LOOP AT LIST_VBRK WHERE NOT FLAG IS INITIAL.
    IF LIST_VBRK-ZUOFEI <> 'X'.
      PERFORM GET_VBRP.

* Finally get the number of line items
      DESCRIBE TABLE ITAB_VBRP LINES LIST_VBRK-NUM.

*      REFRESH ITAB_VBRK.
      CLEAR ITAB_VBRK.
      MOVE-CORRESPONDING LIST_VBRK TO ITAB_VBRK.
*      CLEAR L.
*      L = LIST_VBRK-NUM.
*      DO L TIMES.
      APPEND ITAB_VBRK.
*      ENDDO.
*******************注销TXT文本格式下载 dingyang 20131205
*      IF FILENAME IS INITIAL.
*        CALL FUNCTION 'DOWNLOAD'
*          EXPORTING
**           BIN_FILESIZE        = ' '
**           CODEPAGE            = ' '
*            FILENAME            = 'c:\invoice\销售单据传入文件.txt'
*            FILETYPE            = 'ASC'
*            ITEM                = 'Export Invoice'
**           MODE                = ' '
**           WK1_N_FORMAT        = ' '
**           WK1_N_SIZE          = ' '
**           WK1_T_FORMAT        = ' '
**           WK1_T_SIZE          = ' '
**           FILEMASK_MASK       = ' '
**           FILEMASK_TEXT       = ' '
**           FILETYPE_NO_CHANGE  = ' '
**           FILEMASK_ALL        = ' '
**           FILETYPE_NO_SHOW    = ' '
**           SILENT              = 'S'
**           col_select          = ' '
**           COL_SELECTMASK      = ' '
**           data_tab            = ' '
*          IMPORTING
*            ACT_FILENAME        = FILENAME
**           ACT_FILETYPE        =
**           FILESIZE            =
**           CANCEL              =
*          TABLES
*            DATA_TAB            = ITAB_VBRK
**           FIELDNAMES          =
*          EXCEPTIONS
*            INVALID_FILESIZE    = 1
*            INVALID_TABLE_WIDTH = 2
*            INVALID_TYPE        = 3
*            NO_BATCH            = 4
*            UNKNOWN_ERROR       = 5
*            OTHERS              = 6.
*
*        IF SY-SUBRC >< 0.
*          MESSAGE E210.
*        ENDIF.
*
*        IF FILENAME IS INITIAL. EXIT. ENDIF.
*      ELSE.
*        CALL FUNCTION 'WS_DOWNLOAD'
*          EXPORTING
**           BIN_FILESIZE        = ' '
**           CODEPAGE            = ' '
*            FILENAME            = FILENAME
*            FILETYPE            = 'ASC'
*            MODE                = 'A'
*          TABLES
*            DATA_TAB            = ITAB_VBRK
**           FIELDNAMES          =
*          EXCEPTIONS
*            FILE_OPEN_ERROR     = 1
*            FILE_WRITE_ERROR    = 2
*            INVALID_FILESIZE    = 3
*            INVALID_TABLE_WIDTH = 4
*            INVALID_TYPE        = 5
*            NO_BATCH            = 6
*            UNKNOWN_ERROR       = 7
*            OTHERS              = 8.
*
*        IF SY-SUBRC >< 0.
*          MESSAGE E209 WITH FILENAME.
*        ENDIF.
*      ENDIF.
*******************注销TXT文本格式下载 dingyang 20131205
* Download the billing itmes to file
      PERFORM DOWNLOAD_VBRP.
      K = K + 1.

      IF LIST_VBRK-ZZFLAG >< 'X' AND LIST_VBRK-FKART = 'ZF2'.
        LIST_VBRK-ZZFLAG = 'X'.
        LIST_VBRK-ZZERNAM = SY-UNAME.
        LIST_VBRK-ZZERZET = SY-UZEIT.
        LIST_VBRK-ZZERDAT = SY-DATUM.
        MODIFY LIST_VBRK TRANSPORTING ZZFLAG.

        UPDATE VBRK SET ZZFLAG = 'X'
                        ZZERNAM = SY-UNAME
                        ZZERZET = SY-UZEIT
                        ZZERDAT = SY-DATUM
               WHERE VBELN = LIST_VBRK-VBELN.
      ELSEIF ( LIST_VBRK-ZZFLAG >< 'X' OR LIST_VBRK-ZZCANCEL <> 'X' )
           AND LIST_VBRK-FKART <> 'ZF2' .
        LIST_VBRK-ZZCANCEL = 'X'.
        LIST_VBRK-ZZERNAM = SY-UNAME.
        LIST_VBRK-ZZERZET = SY-UZEIT.
        LIST_VBRK-ZZERDAT = SY-DATUM.
        MODIFY LIST_VBRK TRANSPORTING ZZFLAG ZZCANCEL.

        UPDATE VBRK SET ZZFLAG = 'X'
                        ZZCANCEL = 'X'
                        ZZERNAM = SY-UNAME
                        ZZERZET = SY-UZEIT
                        ZZERDAT = SY-DATUM
               WHERE VBELN = LIST_VBRK-VBELN.
      ENDIF.

      IF SY-SUBRC >< 0.
        MESSAGE W213 WITH LIST_VBRK-VBELN.
      ENDIF.
* 下载作废单据传入文件
****************注销作废单据处理dingyang 20131205
*    ELSE.
*      ITAB_ZUOFEI-VBELN = LIST_VBRK-SFAKN.
*      APPEND ITAB_ZUOFEI.
*      PERFORM DOWNLOAD_ZUOFEI.
*      K = K + 1.
*      IF LIST_VBRK-ZZFLAG >< 'X' OR LIST_VBRK-ZZCANCEL <> 'X'.
*        LIST_VBRK-ZZFLAG = 'X'.
*        LIST_VBRK-ZZERNAM = SY-UNAME.
*        LIST_VBRK-ZZERZET = SY-UZEIT.
*        LIST_VBRK-ZZERDAT = SY-DATUM.
*        LIST_VBRK-ZZCANCEL = 'X'.
*        MODIFY LIST_VBRK TRANSPORTING ZZFLAG ZZCANCEL.
*
*        UPDATE VBRK SET ZZFLAG = 'X'
*                        ZZERNAM = SY-UNAME
*                        ZZERZET = SY-UZEIT
*                        ZZERDAT = SY-DATUM
*                        ZZCANCEL = 'X'
*               WHERE VBELN = LIST_VBRK-VBELN.
*      ENDIF.
*
*      IF SY-SUBRC >< 0.
*        MESSAGE W213 WITH LIST_VBRK-VBELN.
*      ENDIF.
*      CONTINUE.
****************注销作废单据处理dingyang 20131205
    ENDIF.


  ENDLOOP.
****************拼接表头和详细信息dingyang 20131205
**************处理备注信息dingyang 20131206
**************取*号后的数据为备注
  DATA:N1(100),N2(100).
  LOOP AT ITAB_VBRK.

    SEARCH ITAB_VBRK-NAME1 FOR '*'.
    IF SY-SUBRC = 0.
      CLEAR:N1,N2.
      SPLIT ITAB_VBRK AT '*' INTO N1 N2.
      ITAB_VBRK-MEMO = N2.
      MODIFY ITAB_VBRK.
    ENDIF.

  ENDLOOP.

**************处理备注信息dingyang 20131206
  LOOP AT DL_VBRP.
    READ TABLE ITAB_VBRK WITH KEY VBELN = DL_VBRP-VBELN.
    IF SY-SUBRC = 0 .

      DL_VBRP-NAME1 = ITAB_VBRK-NAME1.
      DL_VBRP-STCD1 = ITAB_VBRK-STCD1.
*      CONCATENATE '*' ITAB_VBRK-STCD1 INTO DL_VBRP-STCD1.
      DL_VBRP-NUM   = ITAB_VBRK-NUM.
      DL_VBRP-ADDR  = ITAB_VBRK-ADDR.
      DL_VBRP-BANKN = ITAB_VBRK-BANKN.
      DL_VBRP-MEMO  = ITAB_VBRK-MEMO.
      DL_VBRP-FHR   = '刘艳秀'.
      DL_VBRP-SKR   = '门爱萍'.
*      DL_VBRP-XFYHZH = ITAB_VBRK-XFYHZH.

    ENDIF.
    MODIFY DL_VBRP.
  ENDLOOP.
*******************加入excel表头dingyang 20131205
  IT_FNAMES-NAME ='凭证号'.
  APPEND IT_FNAMES.
  IT_FNAMES-NAME ='行数'.
  APPEND IT_FNAMES.
  IT_FNAMES-NAME ='客户名称'.
  APPEND IT_FNAMES.
  IT_FNAMES-NAME ='货物名称'.
  APPEND IT_FNAMES.
  IT_FNAMES-NAME ='规格型号'.
  APPEND IT_FNAMES.
  IT_FNAMES-NAME ='单位'.
  APPEND IT_FNAMES.
  IT_FNAMES-NAME ='数量'.
  APPEND IT_FNAMES.
  IT_FNAMES-NAME ='含税金额'.
  APPEND IT_FNAMES.
  IT_FNAMES-NAME ='税率'.
  APPEND IT_FNAMES.
  IT_FNAMES-NAME ='税额'.
  APPEND IT_FNAMES.
  IT_FNAMES-NAME ='税号'.
  APPEND IT_FNAMES.
  IT_FNAMES-NAME ='地址电话'.
  APPEND IT_FNAMES.
  IT_FNAMES-NAME ='开户银行'.
  APPEND IT_FNAMES.
  IT_FNAMES-NAME ='备注'.
  APPEND IT_FNAMES.
  IT_FNAMES-NAME ='复核人'.
  APPEND IT_FNAMES.
  IT_FNAMES-NAME ='收款人'.
  APPEND IT_FNAMES.
  CLEAR DL_VBRP.


****************加入excel表头

***************导出EXCEL dingyang 20131205

  CALL FUNCTION 'MS_EXCEL_OLE_STANDARD_DAT'
    EXPORTING
      FILE_NAME        = 'C:\销售单据\金税导出文件'
*     CREATE_PIVOT     = 0
*     DATA_SHEET_NAME  = '金税'
*     PIVOT_SHEET_NAME = ‘ ‘
*     PASSWORD         = ‘ ‘
*     PASSWORD_OPTION  = 0
    TABLES
*     PIVOT_FIELD_TAB  =
      DATA_TAB         = DL_VBRP
      FIELDNAMES       = IT_FNAMES.
*    EXCEPTIONS
*      FILE_NOT_EXIST            = 1
*      FILENAME_EXPECTED         = 2
*      COMMUNICATION_ERROR       = 3
*      OLE_OBJECT_METHOD_ERROR   = 4
*      OLE_OBJECT_PROPERTY_ERROR = 5
*      INVALID_FILENAME          = 6
*      INVALID_PIVOT_FIELDS      = 7
*      DOWNLOAD_PROBLEM          = 8
*      OTHERS                    = 9.

***************导出EXCEL dingyang 20131205


  IF SY-SUBRC NE 0.
    MESSAGE I214.                      "no bill document is selected.
  ELSE.
    IF K > 0.
      MESSAGE S206 WITH K FILENAME.

      PERFORM WRITE_BODY.
      SY-LSIND = SY-LSIND - 1.
    ENDIF.
  ENDIF.

ENDFORM.                               " DOWNLOAD

*&---------------------------------------------------------------------*
*&      Form  GET_VBRP
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM GET_VBRP.
  DATA REVERSE.
*  list_vbrk-fkart       " RE
  CLEAR REVERSE.
  CALL CUSTOMER-FUNCTION '004'
       EXPORTING
            VBRK    = LIST_VBRK
       CHANGING
            REVERSE = REVERSE
       EXCEPTIONS
            OTHERS  = 1.
*反冲的发票数量设置为负.
  IF LIST_VBRK-FKART = 'ZS2' OR LIST_VBRK-FKART = 'ZRE'.
    REVERSE = 'X'.
  ENDIF.
  REFRESH ITAB_VBRP.
  SELECT * FROM VBRP
     WHERE VBELN = LIST_VBRK-VBELN
     AND   NETWR >< 0.

*    ITAB_VBRP-VBELN = VBRP-VBELN.
    ITAB_VBRP-ARKTX = VBRP-ARKTX.

    IF REVERSE = 'X'.
      ITAB_VBRP-FKIMG = 0 - VBRP-FKIMG.
      ITAB_VBRP-NETWR = 0 - VBRP-NETWR.
      ITAB_VBRP-MWSBP = 0 - VBRP-MWSBP.

      ITAB_VBRP-KZWI2 = 0 - VBRP-KZWI1 - VBRP-KZWI2.
*      itab_vbrp-kzwi2 = 0 - vbrp-kzwi2.
*      itab_vbrp-kzwi3 = vbrp-kzwi3.
*      itab_vbrp-kzwi4 = 0 - vbrp-kzwi4.
      ITAB_VBRP-KZWI4 = 0 - VBRP-KZWI3.

*      itab_vbrp-kzwi5 = vbrp-kzwi5.
    ELSE.
      ITAB_VBRP-FKIMG = VBRP-FKIMG.
      ITAB_VBRP-NETWR = VBRP-NETWR.
      ITAB_VBRP-MWSBP = VBRP-MWSBP.
*      itab_vbrp-kzwi2 = vbrp-kzwi2.
      ITAB_VBRP-KZWI2 = VBRP-KZWI1 + VBRP-KZWI2.
*      itab_vbrp-kzwi3 = 0 - vbrp-kzwi3.
*      itab_vbrp-kzwi4 = vbrp-kzwi4.
      ITAB_VBRP-KZWI4 = VBRP-KZWI3.

*      itab_vbrp-kzwi5 = 0 - vbrp-kzwi5.
    ENDIF.

    ITAB_VBRP-TAX =  ITAB_VBRP-MWSBP / ITAB_VBRP-NETWR.

    CALL CUSTOMER-FUNCTION '005'
         EXPORTING
              VBRP    = VBRP
         CHANGING
              TAX     = ITAB_VBRP-TAX
         EXCEPTIONS
              OTHERS  = 1.

    SELECT SINGLE * FROM T006A
           WHERE  SPRAS = SY-LANGU
           AND    MSEHI = VBRP-VRKME.
    MOVE T006A-MSEH3 TO ITAB_VBRP-MSEH3.
    SELECT SINGLE KBETR FROM KONV INTO ITAB_KONV-KBETR
       WHERE KNUMV = LIST_VBRK-KNUMV
         AND KSCHL = KSCHL1.
    ITAB_VBRP-TAX =  ITAB_KONV-KBETR / 1000.

*    SELECT knumv KWERT FROM KONV INTO TABLE ITAB_KONV
*      where knumv = list_vbrk-knumv
*        and kposn = vbrp-posnr
*        and ( kschl = kschl1 or kschl = kschl2 ).
*      LOOP AT ITAB_KONV.
*       AT END OF KNUMV.
*        SUM.
*        MOVE ITAB_KONV-KWERT TO ITAB_VBRP-kwert.
*       ENDAT.
*      ENDLOOP.
    SELECT SINGLE * FROM MARA
           WHERE  MATNR = VBRP-MATNR.

    LEN = STRLEN( MARA-GROES ).

*    SEARCH mara-groes FOR '. .'.
*    number = sy-fdpos.
*    itab_vbrp-arktx = mara-groes(number).
************************************************************************
*Modify by qijsh 2010.04.02
************************************************************************
*    itab_vbrp-arktx = mara-groes.
    IF MARA-MTART = 'Z011' OR MARA-MTART = 'Z012' OR MARA-MTART = 'Z021' OR MARA-MTART = 'Z022' OR MARA-MTART = 'Z023' OR MARA-MTART = 'Z024'.
      IF MARA-SPART = '30'.
        ITAB_VBRP-ARKTX = '浪潮存储'.
      ELSE.
        SELECT SINGLE WGBEZ
          INTO ITAB_VBRP-ARKTX
             FROM T023T
                WHERE MATKL = MARA-MATKL.
        IF MARA-SPART = '20' AND ( MARA-MTART = 'Z012' OR MARA-MTART = 'Z022').
          CONCATENATE ITAB_VBRP-ARKTX '服务器' INTO ITAB_VBRP-ARKTX.
        ENDIF.
        IF MARA-SPART = '40' AND ( MARA-MTART = 'Z024' OR MARA-MTART = 'Z012' ) .
          CONCATENATE '高性能' ITAB_VBRP-ARKTX  INTO ITAB_VBRP-ARKTX.
        ENDIF.
      ENDIF.
    ELSE.
      ITAB_VBRP-ARKTX = MARA-GROES.
    ENDIF.
************************************************************************
*    number = number + 1.
*    len = len - number.
*    itab_vbrp-groes = mara-groes+number(len).

    SELECT SINGLE PRODH
      INTO ITAB_VBRP-GROES
      FROM LIPS
     WHERE VBELN = VBRP-VGBEL
       AND POSNR = VBRP-VGPOS.

    ITAB_VBRP-GROES = VBRP-MATNR.
    ITAB_VBRP-VBELN = VBRP-VBELN.
    ITAB_VBRP-POSNR = VBRP-POSNR.
    IF NOCOMB = 'X'.
      APPEND ITAB_VBRP.
    ELSEIF COMBINE = 'X'.
      READ TABLE ITAB_VBRP INTO WA_VBRP
        WITH KEY ARKTX = VBRP-ARKTX.
      MYTABIX = SY-TABIX.
      IF SY-SUBRC <> 0.
        APPEND ITAB_VBRP.
      ELSE.
        WA_VBRP-KZWI2 = WA_VBRP-KZWI2 + ITAB_VBRP-KZWI2.
        WA_VBRP-KZWI3 = WA_VBRP-KZWI3 + ITAB_VBRP-KZWI3.
        WA_VBRP-KZWI4 = WA_VBRP-KZWI4 + ITAB_VBRP-KZWI4.
        WA_VBRP-KZWI5 = WA_VBRP-KZWI5 + ITAB_VBRP-KZWI5.
*       wa_vbrp-tax = wa_vbrp-kzwi4 / wa_vbrp-kzwi2.
*       wa_vbrp-tax1 = wa_vbrp-kzwi5 / wa_vbrp-kzwi3.
        MODIFY ITAB_VBRP FROM WA_VBRP INDEX MYTABIX.
      ENDIF.
*     collect itab_vbrp.
    ELSEIF HEBINLG = 'X'.
      READ TABLE ITAB_VBRP INTO WA_VBRP
        WITH KEY ARKTX = ITAB_VBRP-ARKTX.
      MYTABIX = SY-TABIX.
      IF SY-SUBRC <> 0.
        APPEND ITAB_VBRP.
      ELSE.
        WA_VBRP-KZWI2 = WA_VBRP-KZWI2 + ITAB_VBRP-KZWI2.
        WA_VBRP-KZWI3 = WA_VBRP-KZWI3 + ITAB_VBRP-KZWI3.
        WA_VBRP-KZWI4 = WA_VBRP-KZWI4 + ITAB_VBRP-KZWI4.
        WA_VBRP-KZWI5 = WA_VBRP-KZWI5 + ITAB_VBRP-KZWI5.
*       wa_vbrp-tax = wa_vbrp-kzwi4 / wa_vbrp-kzwi2.
*       wa_vbrp-tax1 = wa_vbrp-kzwi5 / wa_vbrp-kzwi3.
        MODIFY ITAB_VBRP FROM WA_VBRP INDEX MYTABIX.
      ENDIF.
*     collect itab_vbrp.
    ENDIF.
*    IF COMBINE IS INITIAL.
*      APPEND ITAB_VBRP.
*    ELSE.
*      COLLECT ITAB_VBRP.
*    ENDIF.

  ENDSELECT.
ENDFORM.                    "GET_VBRP

*&---------------------------------------------------------------------*
*&      Form  DOWNLOAD_VBRP
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM DOWNLOAD_VBRP.

  CLEAR DL_VBRP.
*  move '0000' to  dl_vbrp-catalog.     "default 0000, stand for unused
*  move '0'    to  dl_vbrp-discount.
*  move '"'    to: dl_vbrp-pp1,
*                  dl_vbrp-pp2,
*                  dl_vbrp-pp3,
*                  dl_vbrp-pp4.

  LOOP AT ITAB_VBRP.
    DL_VBRP-ARKTX = ITAB_VBRP-ARKTX.
    DL_VBRP-VBELN = ITAB_VBRP-VBELN.
*Modified by c0125 单位->单位描述
*    dl_vbrp-mseh3 = itab_vbrp-mseh3.
    SELECT SINGLE * FROM T006A
           WHERE  SPRAS = SY-LANGU
           AND    MSEH3 = ITAB_VBRP-MSEH3.
    MOVE T006A-MSEHT TO DL_VBRP-MSEHT.
* Modified by c0125
* 物料号->工业标准
* 2004.01.08
***********************************************************************
*Modify by qijsh 2010.04.02
***********************************************************************
*    select single NORMT from mara
*                into dl_vbrp-groes
*                where matnr = itab_vbrp-groes.
    DATA: S_MS LIKE DL_VBRP-GROES.

    CLEAR S_MS.
    SELECT SINGLE * FROM MARA WHERE MATNR = ITAB_VBRP-GROES.
    IF MARA-MTART = 'Z011' OR MARA-MTART = 'Z012' OR MARA-MTART = 'Z021' OR MARA-MTART = 'Z022' OR MARA-MTART = 'Z023' OR MARA-MTART = 'Z024'.
      IF MARA-SPART = '30'.
        SELECT SINGLE MAKTX
           INTO DL_VBRP-GROES
              FROM MAKT
                 WHERE MATNR = ITAB_VBRP-GROES.
        SPLIT DL_VBRP-GROES AT '/' INTO DL_VBRP-GROES S_MS.
      ELSE.
        SELECT SINGLE VTEXT
           INTO DL_VBRP-GROES
             FROM T179T
               WHERE PRODH IN
           ( SELECT  PRODH
              FROM VBRP
                 WHERE VBELN = ITAB_VBRP-VBELN AND POSNR = ITAB_VBRP-POSNR ) AND
           SPRAS = '1'.
        IF SY-SUBRC = '0'.
          SPLIT DL_VBRP-GROES AT '/' INTO DL_VBRP-GROES S_MS.
        ELSE.
          SELECT SINGLE WGBEZ
             INTO DL_VBRP-GROES
               FROM T023T
                  WHERE MATKL = MARA-MATKL.
          IF MARA-SPART = '20' AND ( MARA-MTART = 'Z012' OR MARA-MTART = 'Z022').
            CONCATENATE DL_VBRP-GROES '服务器' INTO DL_VBRP-GROES.
          ENDIF.
          IF MARA-SPART = '40' AND ( MARA-MTART = 'Z024' OR MARA-MTART = 'Z012' ) .
            CONCATENATE '高性能' DL_VBRP-GROES  INTO DL_VBRP-GROES.
          ENDIF.
        ENDIF.
      ENDIF.
    ELSE.
      SELECT SINGLE NORMT FROM MARA
            INTO DL_VBRP-GROES
            WHERE MATNR = ITAB_VBRP-GROES.
    ENDIF.

***********************************************************************
*    dl_vbrp-groes = itab_vbrp-groes.
*    dl_vbrp-tax   = itab_vbrp-tax.
    DL_VBRP-TAX   = '0.17'.

    DL_VBRP-FKIMG = ITAB_VBRP-FKIMG.
*    DL_VBRP-DISMWSBP = DISMWSBP.
    DL_VBRP-NETWR = ITAB_VBRP-KZWI2.
    DL_VBRP-MWSBP = ITAB_VBRP-KZWI4.
*    DL_VBRP-DISCOUNT = ITAB_VBRP-KZWI3.
*    DL_VBRP-DISMWSBP = ITAB_VBRP-KZWI5.

    SHIFT DL_VBRP-FKIMG RIGHT CIRCULAR.
    SHIFT DL_VBRP-NETWR RIGHT CIRCULAR.
    SHIFT DL_VBRP-MWSBP RIGHT CIRCULAR.
*    SHIFT DL_VBRP-DISCOUNT RIGHT CIRCULAR.
*    SHIFT DL_VBRP-DISMWSBP RIGHT CIRCULAR.
    CONDENSE DL_VBRP-FKIMG NO-GAPS.
    CONDENSE DL_VBRP-NETWR NO-GAPS.
    CONDENSE DL_VBRP-MWSBP NO-GAPS.
*    CONDENSE DL_VBRP-DISCOUNT NO-GAPS.
*    CONDENSE DL_VBRP-DISMWSBP NO-GAPS.
    APPEND DL_VBRP.
  ENDLOOP.
*******************注销TXT文本格式下载 dingyang 20131205
*  CALL FUNCTION 'WS_DOWNLOAD'
*    EXPORTING
**     BIN_FILESIZE        = ' '
**     CODEPAGE            = ' '
*      FILENAME            = FILENAME
*      FILETYPE            = 'ASC'
*      MODE                = 'A'
*    TABLES
*      DATA_TAB            = DL_VBRP
**     FIELDNAMES          =
*    EXCEPTIONS
*      FILE_OPEN_ERROR     = 1
*      FILE_WRITE_ERROR    = 2
*      INVALID_FILESIZE    = 3
*      INVALID_TABLE_WIDTH = 4
*      INVALID_TYPE        = 5
*      NO_BATCH            = 6
*      UNKNOWN_ERROR       = 7
*      OTHERS              = 8.
*
*  IF SY-SUBRC >< 0.
*    MESSAGE E209 WITH FILENAME.
*  ENDIF.
*******************注销TXT文本格式下载 dingyang 20131205
ENDFORM.                               " DOWNLOAD_VBRP
*&---------------------------------------------------------------------*
*&      Form  SELECT_ALL
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM SELECT_ALL.
  DATA K TYPE I.

  K = FIRST_LIST_LINE.
  LOOP AT LIST_VBRK.
    READ LINE K.
    MODIFY LINE K FIELD VALUE LIST_VBRK-FLAG FROM 'X'.
    K = K + 1.
  ENDLOOP.
ENDFORM.                               " SELECT_ALL

*&---------------------------------------------------------------------*
*&      Form  DESELECT_ALL
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM DESELECT_ALL.
  DATA K TYPE I.

  K = FIRST_LIST_LINE.
*  LOOP AT LIST_VBRK INTO VBRK.
  LOOP AT LIST_VBRK.

    READ LINE K.
    MODIFY LINE K FIELD VALUE LIST_VBRK-FLAG FROM ''.
    K = K + 1.
  ENDLOOP.
ENDFORM.                               " DESELECT_ALL

*&---------------------------------------------------------------------*
*&      Form  SELECT_PARTIAL
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM SELECT_PARTIAL.
  DATA K TYPE I.

  K = FIRST_LIST_LINE.
  LOOP AT LIST_VBRK.
    READ LINE K.
    IF LIST_VBRK-ZZFLAG IS INITIAL.
      MODIFY LINE K FIELD VALUE LIST_VBRK-FLAG FROM 'X'.
    ELSE.
      MODIFY LINE K FIELD VALUE LIST_VBRK-FLAG FROM ''.
    ENDIF.
    K = K + 1.
  ENDLOOP.
ENDFORM.                               " SELECT_PARTIAL
*&---------------------------------------------------------------------*
*&      Form  AUTHORITY_CHECK
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM AUTHORITY_CHECK  USING US_ACTVT US_SUBRC
                            US_VKORG US_FKART  .
  US_SUBRC = 0.
  AUTHORITY-CHECK OBJECT 'V_VBRK_VKO'
       ID 'VKORG' FIELD US_VKORG
       ID 'ACTVT' FIELD US_ACTVT.

  IF SY-SUBRC NE 0.
    US_SUBRC = SY-SUBRC.
    CASE US_ACTVT.
      WHEN '04'.
        MESSAGE E518(VF) WITH US_VKORG.
      WHEN '03'.
        MESSAGE E514(VF) WITH US_VKORG.
      WHEN '02'.
        MESSAGE E515(VF) WITH US_VKORG.
      WHEN OTHERS.
        MESSAGE E011 WITH US_VKORG.
*      when '01'.
*        xkomfk-fxmsg = '515'.
*        perform vbfs_hinzufuegen using '000000' '515' us_vkorg
*                                                      space space.
    ENDCASE.
  ENDIF.

  AUTHORITY-CHECK OBJECT 'V_VBRK_FKA'
       ID 'FKART' FIELD US_FKART
       ID 'ACTVT' FIELD US_ACTVT.

  IF SY-SUBRC NE 0.
    US_SUBRC = SY-SUBRC.
    CASE US_ACTVT.
      WHEN '04'.
        MESSAGE E519(VF) WITH US_FKART.
      WHEN '03'.
        MESSAGE E516(VF) WITH US_FKART.
      WHEN '02'.
        MESSAGE E517(VF) WITH US_FKART.
      WHEN OTHERS.
        MESSAGE E012 WITH US_FKART.
*      when '01'.
*        xkomfk-fxmsg = '517'.
*        perform vbfs_hinzufuegen using '000000' '517' us_fkart
*                                                      space space.
    ENDCASE.
  ENDIF.
ENDFORM.                               " AUTHORITY_CHECK
*&---------------------------------------------------------------------*
*&      Form  download_zuofei
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
*FORM DOWNLOAD_ZUOFEI.
*  CALL FUNCTION 'WS_DOWNLOAD'
*    EXPORTING
**     BIN_FILESIZE        = ' '
**     CODEPAGE            = ' '
*      FILENAME            = FILENAME1
*      FILETYPE            = 'ASC'
*      MODE                = 'A'
*    TABLES
*      DATA_TAB            = ITAB_ZUOFEI
**     FIELDNAMES          =
*    EXCEPTIONS
*      FILE_OPEN_ERROR     = 1
*      FILE_WRITE_ERROR    = 2
*      INVALID_FILESIZE    = 3
*      INVALID_TABLE_WIDTH = 4
*      INVALID_TYPE        = 5
*      NO_BATCH            = 6
*      UNKNOWN_ERROR       = 7
*      OTHERS              = 8.
*
*  IF SY-SUBRC >< 0.
*    MESSAGE E009 WITH FILENAME.
*  ENDIF.
*
*ENDFORM.                    " download_zuofei