Chinaunix首页 | 论坛 | 博客
  • 博客访问: 967122
  • 博文数量: 463
  • 博客积分: 10070
  • 博客等级: 上将
  • 技术积分: 4963
  • 用 户 组: 普通用户
  • 注册时间: 2008-01-16 14:16
文章分类

全部博文(463)

文章存档

2011年(18)

2010年(144)

2009年(83)

2008年(218)

我的朋友

分类: IT职场

2008-07-15 15:22:11

 
*----------------------------------------------------------------------*
* Program Name: Z_KEVIN_TEMPLATE
* Project     : N/A
* Author      : Kevin.Zhang
* Date        : 2007.1.1
* Module      : N/A
* Description : Template of Program
*
*
*
* Special features: N/A
*
*
*----------------------------------------------------------------------*
* Modifications:
* Author      Date     Commented as  Description
*-----------  --------  -----------  ----------------------------------*
*
*----------------------------------------------------------------------*

REPORT  Z_KEVIN_TEMPLATE.
*$*$----------------------------------------------------------------$*$*
*$*$       Global Types, Data Statements, Ranges, Constants         $*$*
*$*$----------------------------------------------------------------$*$*

*-----------------------------------------------------------------------
*                   Type Pools
*-----------------------------------------------------------------------
TYPE-POOLS: SLIS,VRM, SBDST, SOI.

*-----------------------------------------------------------------------
*                   Tables
*-----------------------------------------------------------------------
TABLES: MAKT, VBAK.

*-----------------------------------------------------------------------
*                        Types
*-----------------------------------------------------------------------
TYPESBEGIN OF T_ITAB.
        INCLUDE STRUCTURE MAKT.
TYPESEND OF T_ITAB.

*-----------------------------------------------------------------------
*                    Internal Tables and Work Areas
*-----------------------------------------------------------------------
DATA GT_ITAB TYPE STANDARD TABLE OF T_ITAB.

*-----------------------------------------------------------------------
*                  Variables
*-----------------------------------------------------------------------
DATA: G_FLAG.
*-----------------------------------------------------------------------
*                    Constants
*-----------------------------------------------------------------------
CONSTANTS:      C_TOTAL(8)  TYPE C       VALUE 'WA_TOTAL'.

*-----------------------------------------------------------------------
*                   Field Symbols
*-----------------------------------------------------------------------
FIELD-SYMBOLS:.
*-----------------------------------------------------------------------
*                   Ranges
*-----------------------------------------------------------------------
RANGES: R_OSD_DOCTYPS FOR VBAK-AUART.
*-----------------------------------------------------------------------
*     Global GUI Controls Variables / Structures
*-----------------------------------------------------------------------

*--Data Definition of OLE
DATA: GS_EXCEL TYPE OLE2_OBJECT ,
      GS_WBOOKLIST TYPE OLE2_OBJECT ,
      GS_APPLICATION TYPE OLE2_OBJECT ,
      GS_WBOOK TYPE OLE2_OBJECT ,
      GS_ACTIVESHEET TYPE OLE2_OBJECT ,
      GS_SHEETS TYPE OLE2_OBJECT ,
      GS_NEWSHEET TYPE OLE2_OBJECT ,
      GS_CELL1 TYPE OLE2_OBJECT ,
      GS_CELL2 TYPE OLE2_OBJECT ,
      GS_CELLS TYPE OLE2_OBJECT ,
      GS_RANGE TYPE OLE2_OBJECT ,
      GS_FONT TYPE OLE2_OBJECT ,
      GS_INTERIOR TYPE OLE2_OBJECT ,
      GS_COLUMNS TYPE OLE2_OBJECT ,
      GS_CHARTS TYPE OLE2_OBJECT ,
      GS_CHART TYPE OLE2_OBJECT ,
      GS_CHARTTITLE TYPE OLE2_OBJECT ,
      GS_CHARTTITLECHAR TYPE OLE2_OBJECT ,
      GS_CHARTOBJECTS TYPE OLE2_OBJECT .

DATA GV_SHEET_NAME(20TYPE C .
DATA GV_OUTER_INDEX LIKE SY-INDEX .
DATA GV_INTEX(2TYPE C .
DATA GV_LINE_CNTR TYPE I .          "line counter
DATA GV_LINNO TYPE I .              "line number
DATA GV_COLNO TYPE I .              "column number
DATA GV_VALUE TYPE I .              "data
*$*$----------------------------------------------------------------$*$*
*$*$                      Selection Screen                          $*$*
*$*$----------------------------------------------------------------$*$*
*-----------------------------------------------------------------------
*                   Selection Screen
*-----------------------------------------------------------------------
SELECT-OPTIONS S_MATNR FOR MAKT-MATNR.
*-----------------------------------------------------------------------
*                   At Selection Screen
*-----------------------------------------------------------------------
*--------- INITIALIZATION ----------
INITIALIZATION.

*--------- AT SELECTION-SCREEN OUTPUT ----------
AT SELECTION-SCREEN OUTPUT.

*--------- AT SELECTION-SCREEN ----------
AT SELECTION-SCREEN.

*--------- AT SELECTION-SCREEN ON ----------
AT SELECTION-SCREEN ON ***.

*--------- AT SELECTION-SCREEN ON VALUE-REQUEST ----------
AT SELECTION-SCREEN ON VALUE-REQUEST FOR ***.

*--------- AT SELECTION-SCREEN ON HELP-REQUEST ----------
AT SELECTION-SCREEN ON HELP-REQUEST FOR ***.

*$*$----------------------------------------------------------------$*$*
*$*$                          Main Program                          $*$*
*$*$----------------------------------------------------------------$*$*

*--------- START-OF-SELECTION ----------

  PERFORM ADD.

*--------- END-OF-SELECTION ----------

*$*$----------------------------------------------------------------$*$*
*$*$                         Subroutines                            $*$*
*$*$----------------------------------------------------------------$*$*

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

ENDFORM.                    " ADD

*-----------------------------------------------------------------------
*                     PBO Modules
*-----------------------------------------------------------------------
*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE STATUS_0100 OUTPUT.
*  SET PF-STATUS 'xxxxxxxx'.
*  SET TITLEBAR 'xxx'.

ENDMODULE.                 " STATUS_0100  OUTPUT

*-----------------------------------------------------------------------
*                     PAI Modules
*-----------------------------------------------------------------------
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0100 INPUT.

ENDMODULE.                 " USER_COMMAND_0100  INPUT

* change number# - Start Insert - Kevin 01/01/2007
* description
"comments
* change number# - End Insert - Kevin 01/01/2007

* change number# - Start Modification - Kevin 01/01/2007
* description
"comments
* change number# - End Modification - Kevin 01/01/2007
阅读(2021) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~