SAP ERP101 interface main program definition

来源：互联网发布：淘宝店铺信息编辑：程序博客网时间：2024/05/05 02:20

SPAN {font-family: "Courier New";font-size: 10pt;color: #000000;background: #FFFFFF;}.L1S31 {font-style: italic;color: #808080;}.L1S32 {color: #3399FF;}.L1S33 {color: #4DA619;}.L1S52 {color: #0000FF;}*&---------------------------------------------------------------------*
*& Report  Z_MMERP101_CN
*&
*&---------------------------------------------------------------------*
*&Purpose: Interface for China Custom . IEDS UOM
*&         Program will generate a UOM excel file
*&
*&ISSUE    Date                      Author
*&         05-DEC-2007               Tom
*&---------------------------------------------------------------------*

REPORT  z_mmcust101_cn    MESSAGE-ID z_dev_custom_cn .

INCLUDE z_mmcust101_cn_top.            "Global Data
INCLUDE zgeneralmsglog.                 " message log

*----------------------------------------------------------------------*
* S E L E C T I O N   S C R E E N
*----------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK bl1 WITH FRAME TITLE text-T01.

SELECT-OPTIONS:

   so_uom FOR t006-msehi.

PARAMETERS:p_file1  TYPE rlgrap-filename.
*RC - 2007.04.07 -->
*    p_langu     TYPE spras DEFAULT 'EN'.
PARAMETERS:p_langu  TYPE spras MEMORY ID spr OBLIGATORY.

SELECTION-SCREEN END OF BLOCK bl1.

INCLUDE z_mmcust101_cn_f01.
INCLUDE z_mmcust101_cn_pbo.
INCLUDE z_mmcust101_cn_pai.

*----------------------------------------------------------------------*
* Initialization
*----------------------------------------------------------------------*
INITIALIZATION.

  MOVE sy-repid TO gv_repid.

  CONCATENATE 'C:/temp/ERP101_' sy-datum  '.xls' INTO p_file1.

*----------------------------------------------------------------------*
* S T A R T - O F - S E L E C T I O N
*----------------------------------------------------------------------*
START-OF-SELECTION.

  PERFORM select_data.
*RC 2008.04.01 --->
END-OF-SELECTION.

*&---------ALV DISPLAY DATA---------------------------------------------*

  CALL SCREEN 100.