ABAP程序ZTFPPDCI0001：周计划批量导入示例

*---------------------------------------------------------------------*
* Program ID   : PP0018                                               *
* Program Name : ZTFPPDCI0001                                         *
* T-CODE : ZTFPPDCI0001                                               *
* Program Type: 对话模块                                               *
* Description : 周计划的批量导入                                       *
*---------------------------------------------------------------------*
* Date Created : 2012/01/05                                           *
* Created By   : 1111                                                 *
*---------------------------------------------------------------------*
* Edit Log  :                                                         *
*  Version       Date          Author     Remark                      *
*  <YYYYMMDDnnn> <YYYY/MM/DD>  <修改人>   <修改理由／内容>              *
*---------------------------------------------------------------------*


report  ztfppdci0001 line-count 65(2)
                   line-size 160
                   no standard page heading.


*TYPE-POOLS（类型池定义）
type-pools: slis,
            icon.

*TYPES（数据类型定义）
types: begin of tps_weekp,              "alv 展示内表
        chk(1) type c,
        plnum type plaf-plnum,  "计划订单号
        matnr type plaf-matnr,  " 计划物料

        maktx type makt-maktx , "物料描述（短文本）
        gsmng type plaf-gsmng,  " 全部的计划订单数量
        meins type plaf-meins,
        numvr type plaf-numvr,  " 版本号
        text1 type mkal-text1,    "版本描述
        plgrp type plaf-plgrp,  "生产调度员
        pwwrk type plaf-pwwrk,  " 计划订单中的生产工厂
        psttr type plaf-psttr,  " 计划订单上的订单开始日期
        pedtr type plaf-pedtr,  " 计划订单中的订单结束日期
        pstti type plaf-pstti,
        pedti type plaf-pedti,
        sernr type objk-sernr,   " 序列号,
        psttr_s type plaf-psttr,  " 生产订单开始日期
        pedtr_e type plaf-pedtr,  " 生产订单结束日期
        dauat type afpo-dauat,  " 订单类型
        end of tps_weekp,
       begin of tps_dl_head,              "导出列标题
        headname(30) type c,
        end of tps_dl_head,

       begin of tps_dl_info,              "download内表
        plnum type plaf-plnum,  "计划订单号
        matnr type plaf-matnr,  " 计划物料
        maktx type makt-maktx ,"物料描述（短文本）
        gsmng type plaf-gsmng,  " 全部的计划订单数量
        numvr type plaf-numvr,  " 版本号
        text1 type mkal-text1,    "版本描述
        plgrp type plaf-plgrp,  "生产调度员
        pwwrk type plaf-pwwrk,  " 计划订单中的生产工厂
        psttr type plaf-psttr,  " 计划订单上的订单开始日期