SAP ABAP/4学习---上传和下载(1)

原创 2004年10月17日 20:05:00


*&---------------------------------------------------------------------*
*& Report  ZTEST_LIUGANG_913                                           *
*&                                                                     *
*&---------------------------------------------------------------------*
*&                                                                     *
*&                                                                     *
*&---------------------------------------------------------------------*

REPORT  ZTEST_LIUGANG_913 .

DATA:BEGIN OF ITAB OCCURS 0,
         A(6),
         B(6),
     END   OF ITAB.

DATA:FILENAME(160),
     FILEPATH(128),
     TEST LIKE RLGRAP-FILENAME.

DATA:BEGIN OF ITAB2 OCCURS 0,
        A(60),
     END   OF ITAB2.

ITAB-A = '123'.
ITAB-B = '456'.
APPEND ITAB.
ITAB-A = 'ABC'.
ITAB-B = 'DEF'.
APPEND ITAB.

LOOP AT ITAB.
  WRITE: / ITAB-A,ITAB-B.
ENDLOOP.

PARAMETERS: AA LIKE ITAB-A.

INITIALIZATION.

START-OF-SELECTION.
SET PF-STATUS '1000'.
 AT USER-COMMAND.
   CASE SY-UCOMM.
     WHEN 'DOWN'.
          PERFORM DOWNLOAD_SAVE USING 'S' '保存文件'.
          IF STRLEN( FILEPATH ) > 0.
            PERFORM START_SAVE.
          ENDIF.
     WHEN 'UPLO'.
          PERFORM DOWNLOAD_SAVE USING 'O' '上传文件'.
          IF STRLEN( FILEPATH ) > 0.
            PERFORM START_UPLOAD.
          ENDIF.
     WHEN 'BACK'.
       LEAVE TO SCREEN 0.
     WHEN 'RW'.
       LEAVE PROGRAM.
   ENDCASE.
*&---------------------------------------------------------------------*
*&      Form  DOWNLOAD_SAVE
*&---------------------------------------------------------------------*
*       保存文件到本地
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM DOWNLOAD_SAVE USING OPEN_TYPE OPEN_TXT.
 CALL FUNCTION 'WS_FILENAME_GET'
   EXPORTING
     DEF_FILENAME           = FILEPATH
     MASK                   = ',*.CSV.'
     MODE                   = OPEN_TYPE
     TITLE                  = OPEN_TXT
   IMPORTING
     FILENAME               = FILEPATH
   EXCEPTIONS
    INV_WINSYS             = 1
    NO_BATCH               = 2
    SELECTION_CANCEL       = 3
    SELECTION_ERROR        = 4
    OTHERS                 = 5
           .
 IF SY-SUBRC <> 0.
   MESSAGE E001(ZTEST_LIUGANG).
 ENDIF.

ENDFORM.                    " DOWNLOAD_SAVE
*&---------------------------------------------------------------------*
*&      Form  START_SAVE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM START_SAVE .
  DATA:TEMP(30).
  LOOP AT ITAB.
   CONCATENATE ITAB-A  ITAB-B INTO ITAB2-A SEPARATED BY ','.
   APPEND ITAB2.
  ENDLOOP.

 CALL FUNCTION 'WS_DOWNLOAD'
  EXPORTING
    FILENAME                      = FILEPATH
    FILETYPE                      = 'ASC'
   TABLES
     DATA_TAB                     = ITAB2.
ENDFORM.                    " START_SAVE
*&---------------------------------------------------------------------*
*&      Form  START_UPLOAD
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM START_UPLOAD .

  CLEAR ITAB2.
  CLEAR ITAB2[].
  CLEAR ITAB.
  CLEAR ITAB[].

CALL FUNCTION 'WS_UPLOAD'
  EXPORTING
   FILENAME                      = FILEPATH
   FILETYPE                      = 'ASC'
  TABLES
    DATA_TAB                      = ITAB2 .

  LOOP AT ITAB2.
    SPLIT ITAB2-A AT ',' INTO ITAB-A ITAB-B.
    APPEND ITAB.
  ENDLOOP.

 LOOP AT ITAB.
   WRITE:/ ITAB-A  ,ITAB-B.

 ENDLOOP.

ENDFORM.                    " START_UPLOAD


 

 

SAP ABAP编辑器----HippoEDIT(破解汉化版)

原文地址:http://blog.csdn.net/szlaptop/article/details/8240289 有时候想在本地写ABAP程序,但是windows的写字板不太好用,而No...
  • qq_34163820
  • qq_34163820
  • 2016年04月19日 15:26
  • 1591

ABAP使用文件

ABAP/4 允许使用应 用服务器或演示服务器上的顺序文件。 例如,这些 文件可以用 作数据的临时存储设备或本地程序与SAP 系统的接口。 使用应用服 务器上的文 件 ABAP/4提供一些语句,...
  • zhongguomao
  • zhongguomao
  • 2011年08月30日 13:20
  • 4184

SAP ABAP编辑器 ----HippoEDIT(有人破解了,也有人汉化了)

HippoEDIT 这个编辑器来编写ABAP程序,除了不能编译(最大的缺憾),其他方面显的人性化很多。 比如编写代码时,关键字高亮,关键字自动带出,内表字段自动带出(SE38是没有这个功能的)等。 ...
  • szlaptop
  • szlaptop
  • 2012年11月29日 17:28
  • 6568

SAP ABAP/4学习--学习使用OO在ABAP中.简单入门概念.用个例子来说明

ABAP Object Oriented Programming    REPORT ZHEF_ABAP_OBJECTS_EXAMPLE2.******************************...
  • opparts
  • opparts
  • 2005年01月07日 18:02
  • 5229

和小白一起学ABAP -- 1 SAP ABAP学习路线图

Development Associate - ABAP with SAP NetWeaver 7.31 Development Associate / Professional -...
  • supersugar3126
  • supersugar3126
  • 2014年03月25日 13:53
  • 4761

从实例学sap abap编程(完整版)

  • 2012年04月19日 10:24
  • 27.93MB
  • 下载

SAP服务器文件上传和下载

经常会在报表中需要用到文件模板,比如新增和修改物料主数据、上传计划数据等等。而user经常会因为找不到模板而对你进行各种骚扰。所以,何不直接把模板放在服务器上,并在报表上提供相应的按钮供user自行下...
  • xuwj2006
  • xuwj2006
  • 2015年11月19日 13:47
  • 1509

SAP ABAP OLE 操作上传的EXCEL模板(转)

ABAP直接操作EXCEL实现数据处理。这里是用OLE实现操作EXCEL的。现在还有 DOI操作EXCEL等方法。以后用到再做介绍。此处不是直接生成EXCEL文件,而是从 服务器已经上传的EXCE...
  • champaignwolf
  • champaignwolf
  • 2016年08月19日 10:38
  • 2656

ABAP开发环境的安装

  • 2011年10月28日 17:57
  • 70KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:SAP ABAP/4学习---上传和下载(1)
举报原因:
原因补充:

(最多只允许输入30个字)