关闭

关闭

关闭

封号提示

内容

首页 上传下载.doc

上传下载.doc

上传下载.doc

上传者: sophsong 2011-09-14 评分 0 0 0 0 0 0 暂无简介 简介 举报

简介:本文档为《上传下载doc》,可适用于IT/计算机领域,主题内容包含*** Report  ZTEST*******REPORT  ztestTYPEPOOLS: trwbo, stmsDATA: esselecte符等。

*** Report  ZTEST*******REPORT  ztestTYPEPOOLS: trwbo, stmsDATA: esselectedrequest TYPE trwborequestheader,      esselectedtask    TYPE trwborequestheader,      ivorganizertype   TYPE trwbocallingorganizer,      isselection        TYPE trwboselectionDATA: folder              TYPE string ,      flag                TYPE c        ,      dirtrans           TYPE text  ,      path               TYPE text ,      localfolder()    TYPE c ,      upfilename()      TYPE cDATA:      ltrequest          TYPE stmstrrequests,      lttpmaintain      TYPE stmstpmaintainsDATA:      etrequestinfos    TYPE stmswborequests,      requestinfo        TYPE stmswborequest,      request             LIKE etrkorrDATA: BEGIN OF itmemo OCCURS  ,        line() TYPE c,      END OF itmemoDATA: error LIKE booleboole ,      errtxt() TYPE c SELECTIONSCREEN BEGIN OF BLOCK b WITH FRAME TITLE tPARAMETERS: download RADIOBUTTON GROUP typ USERCOMMAND sele DEFAULT 'X'PARAMETERS: upload   RADIOBUTTON GROUP typSELECTIONSCREEN END OF BLOCK bSELECTIONSCREEN BEGIN OF BLOCK b WITH FRAME TITLE tPARAMETERS:  pfile()  TYPE c LOWER CASE MODIF ID m,             pclient     LIKE tmsbuffertarcli DEFAULT symandt MATCHCODE OBJECT ht MODIF ID mSELECTIONSCREEN END OF BLOCK bSELECTIONSCREEN BEGIN OF BLOCK b WITH FRAME TITLE tPARAMETERS:preqnum TYPE trkorr MODIF ID m,           pfolder LIKE rlgrapfilename DEFAULT 'C:' LOWER CASE MODIF ID m ,           pmemo() TYPE c MODIF ID mSELECTIONSCREEN END OF BLOCK bINITIALIZATION  t = '选择功能'  t = '上传参数'  t = '下载参数'  IF syopsys = 'Windows NT'    flag = ''  ELSE    flag = ''  ENDIFAT SELECTIONSCREEN ON VALUEREQUEST FOR preqnum  ivorganizertype = 'W'  isselectionreqstatus = 'R'  CALL FUNCTION 'TRPRESENTREQUESTSSELPOPUP'    EXPORTING      ivorganizertype   = ivorganizertype      isselection        = isselection    IMPORTING      esselectedrequest = esselectedrequest      esselectedtask    = esselectedtask  preqnum = esselectedrequesttrkorrAT SELECTIONSCREEN ON VALUEREQUEST FOR pfolder  CALL METHOD clguifrontendservices=>directorybrowse    CHANGING      selectedfolder = folder    EXCEPTIONS      cntlerror      =       errornogui    =       OTHERS          =   pfolder = folderAT SELECTIONSCREEN ON VALUEREQUEST FOR pfile  DATA:    file TYPE filetable,    rc TYPE i,    filetable TYPE filetable,    filefilter TYPE string VALUE '(K**)|K**||'  CALL METHOD clguifrontendservices=>fileopendialog    EXPORTING      filefilter             = filefilter    CHANGING      filetable              = filetable      rc                      = rc    EXCEPTIONS      fileopendialogfailed =       cntlerror              =       errornogui            =       notsupportedbygui    =       OTHERS                  =   IF sysubrc <>     MESSAGE ID symsgid TYPE symsgty NUMBER symsgno    WITH symsgv symsgv symsgv symsgv  ENDIF  READ TABLE filetable INTO file INDEX   pfile = fileAT SELECTIONSCREEN OUTPUT  LOOP AT SCREEN    CASE screengroup      WHEN 'M'        IF download = 'X'          screenactive = ''        ELSE          screenactive = ''        ENDIF      WHEN 'M'        IF download = 'X'          screenactive = ''        ELSE          screenactive = ''        ENDIF    ENDCASE    MODIFY SCREEN  ENDLOOPSTARTOFSELECTION  CALL FUNCTION 'RSPORSAPGPARAM'    EXPORTING      name   = 'DIRTRANS'    IMPORTING      value  = dirtrans    EXCEPTIONS      error  =       OTHERS =   IF download = 'X'    IF preqnum = '' OR pfolder = ''      MESSAGE '必须输入请求号和地址' TYPE 'I'      EXIT    ENDIF    PERFORM downloadrequest  ELSE    IF pclient = '' OR pfile = ''       MESSAGE '必须输入文件名和Client' TYPE 'I'      EXIT    ENDIF    PERFORM uploadrequest    PERFORM addrequest  ENDIF***      Form  DOWNLOADREQUEST**FORM downloadrequest   CONCATENATE preqnum() '' preqnum() INTO preqnum  CONCATENATE dirtrans 'cofiles' preqnum INTO path SEPARATED BY flag  CONCATENATE pfolder '' preqnum INTO localfolder  PERFORM downfile USING path                          localfolder   preqnum() = 'R'  CONCATENATE dirtrans 'data' preqnum INTO path SEPARATED BY flag  CONCATENATE pfolder '' preqnum INTO localfolder  PERFORM downfile USING path                          localfolder   IF pmemo <> ''    DATA str TYPE string    itmemoline = pmemo    APPEND itmemo    preqnum() = 'K'    preqnum() = 'TXT'    CONCATENATE pfolder '' preqnum INTO localfolder    str = localfolder     CALL FUNCTION 'GUIDOWNLOAD'      EXPORTING        filename = str      TABLES        datatab = itmemo  ENDIF  MESSAGE '成功下载!' TYPE 'I'ENDFORM                    " DOWNLOADREQUEST***      Form  DOWNFILE**FORM downfile USING    ppath                        filename   DATA: path LIKE rcgfiletrftappl   DATA: localfile LIKE rcgfiletrftfront  path = ppath   localfile = filename   CLEAR:error,errtxt  CALL FUNCTION 'CZFILEDOWNLOADBINARY'    EXPORTING      ifilefrontend    = localfile      ifileappl         = path      ifileoverwrite    = 'X'    IMPORTING      eflgopenerror    = error      eosmessage        = errtxt    EXCEPTIONS      fefileopenerror  =       fefileexists      =       fefilewriteerror =       apnoauthority     =       apfileopenerror  =       apfileempty       =       OTHERS              =   IF sysubrc <>     IF symsgty = ''       symsgty = 'E'     ENDIF     MESSAGE ID symsgid TYPE symsgty NUMBER symsgno            WITH symsgv symsgv symsgv symsgv  ENDIF  IF error = 'X'    MESSAGE errtxt TYPE 'I'    STOP  ENDIFENDFORM                               " DOWNFILE***      Form  UPFILE**FORM upfile USING      ppath                        filename   DATA: path LIKE rcgfiletrftappl   DATA: localfile LIKE rcgfiletrftfront  path = ppath   localfile = filename   CLEAR:error,errtxt  CALL FUNCTION 'CZFILEUPLOADBINARY'    EXPORTING      ifilefrontend   = localfile      ifileappl        = path      ifileoverwrite   = 'X'    IMPORTING      eflgopenerror   = error      eosmessage       = errtxt    EXCEPTIONS      fefilenotexists =       fefilereaderror =       apnoauthority    =       apfileopenerror =       apfileexists     =       OTHERS             =   IF sysubrc <>     IF symsgty = ''       symsgty = 'E'     ENDIF     MESSAGE ID symsgid TYPE symsgty NUMBER symsgno            WITH symsgv symsgv symsgv symsgv  ENDIF  IF error = 'X'    MESSAGE errtxt TYPE 'I'    STOP  ENDIF*  IF sysubrc <> *    CASE sysubrc  *      WHEN  *        MESSAGE '本地文件不存在!' TYPE 'I' *      WHEN  *        MESSAGE '读取本地文件出错!' TYPE 'I' *      WHEN  *        MESSAGE '服务器权限错误!' TYPE 'I' *      WHEN  *        MESSAGE '服务器文件打开错误!' TYPE 'I' *      WHEN  *        MESSAGE '服务器文件已经存在!' TYPE 'I' *      WHEN  *        MESSAGE '其他错误!' TYPE 'I' *    ENDCASE *  ENDIFENDFORM                    "UPFILE***      Form  UPLOADREQUEST**FORM uploadrequest   DATA:      filename LIKE sdbahactid ,      extension LIKE sdbadfunct,      n TYPE i ,      m TYPE i   CALL FUNCTION 'SPLITFILENAME'    EXPORTING      longfilename  = pfile    IMPORTING      purefilename  = filename      pureextension = extension  CONCATENATE filename '' extension INTO upfilename   CONCATENATE extension filename INTO request  CONCATENATE dirtrans 'cofiles' upfilename INTO path SEPARATED BY flag  PERFORM upfile USING path                        pfile   upfilename() = 'R'  CONCATENATE dirtrans 'data' upfilename INTO path SEPARATED BY flag  n = STRLEN( pfile )  m = n     pfilem() = 'R'  PERFORM upfile USING path                        pfile ENDFORM                    " UPLOADREQUEST***      Form  addrequest**FORM addrequest   DATA system LIKE tmscsyssysnam   system = sysysid  CALL FUNCTION 'TRAUTHORITYCHECKADMIN'    EXPORTING      ivadminfunction = 'TADD'    EXCEPTIONS      enoauthority   =       einvaliduser   =       OTHERS           =   IF sysubrc <>     MESSAGE ID symsgid TYPE symsgty NUMBER symsgno    WITH symsgv symsgv symsgv symsgv    EXIT  ENDIF  CALL FUNCTION 'TMSUIAPPENDTRREQUEST'    EXPORTING      ivsystem             = system      ivrequest            = request      ivexpertmode        = 'X'      ivctcactive         = 'X'    EXCEPTIONS      cancelledbyuser     =       appendrequestfailed =       OTHERS                =   CHECK sysubrc =   CALL FUNCTION 'TMSMGRREADTRANSPORTREQUEST'    EXPORTING      ivrequest                 = request      ivtargetsystem           = system    IMPORTING      etrequestinfos           = etrequestinfos    EXCEPTIONS      readconfigfailed         =       tableofrequestsisempty =       systemnotavailable       =       OTHERS                     =   CLEAR requestinfo  READ TABLE etrequestinfos INTO requestinfo INDEX   IF requestinfoekorrdev = 'CUST' AND NOT pclient IS INITIAL    CALL FUNCTION 'TMSMGRMAINTAINTRQUEUE'      EXPORTING        ivcommand                 = 'FILLCLIENT'        ivsystem                  = system        ivrequest                 = request        ivtarcli                  = pclient        ivmonitor                 = 'X'        ivverbose                 = 'X'      IMPORTING        ettpmaintains            = lttpmaintain      EXCEPTIONS        readconfigfailed         =         tableofrequestsisempty =         OTHERS                     =     IF sysubrc <>       MESSAGE ID symsgid TYPE symsgty NUMBER symsgno      WITH symsgv symsgv symsgv symsgv      EXIT    ENDIF  ENDIF  CALL FUNCTION 'TRAUTHORITYCHECKADMIN'    EXPORTING      ivadminfunction = 'IMPS'    EXCEPTIONS      enoauthority   =       einvaliduser   =       OTHERS           =   IF sysubrc <>     MESSAGE ID symsgid TYPE symsgty NUMBER symsgno    WITH symsgv symsgv symsgv symsgv    EXIT  ENDIF  CALL FUNCTION 'TMSUIIMPORTTRREQUEST'    EXPORTING      ivsystem             = system      ivrequest            = request      ivtarcli             = pclient      ivsomeactive        = space    EXCEPTIONS      cancelledbyuser     =       importrequestdenied =       importrequestfailed =       OTHERS                = ENDFORM                    " addrequest

用户评论(0)

0/200

精彩专题

上传我的资料

每篇奖励 +2积分

资料评价:

/10
0下载券 下载 加入VIP, 送下载券

意见
反馈

立即扫码关注

爱问共享资料微信公众号

返回
顶部