*&---------------------------------------------------------------------*

* Program Name :ZMMR007 *

* Purpose :出库单打印 *

* Created by :m0001 *

* Create on :2013-03-010 *

* Functional Consultant : *

* Description :smart form功能创建打印单

*&---------------------------------------------------------------------*

REPORT ZMMR007

MESSAGE-ID 00 "00,系统消息类

LINE-SIZE 132 "报表宽度

LINE-COUNT 11 "报表列数

NO STANDARD PAGE HEADING. "报表不显示表头

type-pools:slis. "声明使用的存储系统数据的共享表格

TABLES:mkpf,mseg,mara,makt,bkpf,t006a,T001L,CSKT. "声明程序会使用的表

*data:

* danjia type P decimals 2, "单价

* heji type P decimals 2. "总额合计

* mblnr like mseg-mblnr, "物料凭证号

* smblp like mseg-smblp, "行号

* matnr like mseg-matnr, "物料编码

* maktx like makt-maktx, "物料名称

* werks like mseg-werks, "工厂

* menge like mseg-menge, "数量

* meins like mseg-meins, "单位

* lgort like mseg-lgort, "发料库位

* dmbtr like mseg-dmbtr, "总额

* kostl like mseg-kostl, "领料部门

* budat like mkpf-budat, "过账日期

data:chuku like table of zmm001 with header line,

chuku_tmp like table of zmm001 with header line.

DATA BB like ZMM001 OCCURS 0 WITH HEADER LINE.

data: gt_fieldcat type slis_t_fieldcat_alv,

gs_fieldcat like line of gt_fieldcat ,

g_repid like sy-repid,

g_grid type ref to cl_gui_alv_grid,

g_layout type slis_layout_alv,

g_status type slis_formname value 'FRM_SET_STATUS',

g_command type slis_formname value 'FRM_USER_COMMAND'.

*--------------------------------------------------------------------

*---定义选择屏幕

SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME TITLE TEXT-001.

SELECT-OPTIONS:MBLNR FOR mseg-MBLNR.

SELECTION-SCREEN END OF BLOCK block1.

SELECTION-SCREEN BEGIN OF BLOCK block2 WITH FRAME TITLE TEXT-002.

SELECT-OPTIONS:MATNR for mseg-MATNR.

SELECTION-SCREEN END OF BLOCK block2.

SELECTION-SCREEN BEGIN OF BLOCK block3 WITH FRAME TITLE TEXT-003.

SELECT-OPTIONS:WERKS for mseg-WERKS.

SELECTION-SCREEN END OF BLOCK block3.

SELECTION-SCREEN BEGIN OF BLOCK block4 WITH FRAME TITLE TEXT-004.

SELECT-OPTIONS:budat for mkpf-budat.

SELECTION-SCREEN END OF BLOCK block4.

*AT SELECTION-SCREEN. "通常在此事件块中进行用户输入数据的合法性检查

*

* IF MBLNR = SPACE.

*

* MESSAGE E001.

*

* ENDIF.

*----------------------------------------------------------------

start-of-selection.

*---读取数据库表到内表

FORM FRM_GET_DATA .

select a~mblnr a~zeile a~matnr c~maktx a~werks