從服務器下載文件DOWNLOAD_WEB_OBJECT

 *&--------------------------begin--------------------------------------*
FORM DOWNLOAD_EXCEL_TEMPLATE USING FP_OBJID LIKE wwwdatatab-objid
                                   FP_DEST  LIKE sapb-sappfad
                                   FP_DOWN.

   DATA: L_PARA like WWWDATATAB.
   DATA: ls_destination LIKE rlgrap-filename,
         li_rc LIKE sy-subrc.

   FP_DOWN = 'N'.
   SELECT SINGLE WWWDATA~RELID WWWDATA~OBJID
   INTO CORRESPONDING FIELDS OF L_PARA
   FROM WWWDATA
   WHERE WWWDATA~RELID = 'MI'      AND
         WWWDATA~OBJID = FP_OBJID  AND
         WWWDATA~SRTF2 = 0.
   if sy-subrc <> 0.
     MESSAGE TEXT-E12 TYPE 'S' DISPLAY LIKE 'E'.     "The excel template  no existed !
     RETURN.
   endif.
   ls_destination = FP_DEST.
   CALL FUNCTION 'DOWNLOAD_WEB_OBJECT'
    EXPORTING
      key         = L_PARA
      destination = ls_destination
    IMPORTING
      rc          = li_rc.
   if li_rc NE 0.
       MESSAGE TEXT-E13 TYPE 'S' DISPLAY LIKE 'E'.     "The excel template download unsuccessfully !
       RETURN.
   endif.
   FP_DOWN = 'Y'.
ENDFORM.    "--DOWNLOAD_EXCEL_TEMPLATE

 

 

 FORM DOWNLOAD_EXCEL_DATA USING FP_DOWN_FILE  LIKE sapb-sappfad.
  data: l_down_save LIKE rlgrap-filename.
  DATA: l_qty like vbap-kwmeng.  "pri_pack-cqty.
  data: l_date_file type c length 25.
  data: l_name      type c length 200,
        l_shipaddr  type c length 200,
        l_address   type c length 200,
        l_lifnr     type c length 50,
        l_charg     type c length 11,
        l_mdesc     type c length 200,  "material desc(EN&ZH)
        l_ntgew     type p decimals