abap中，利⽤write进⾏表单打印⽰例
*&---------------------------------------------------------------------*
*& Report Z_PRINT_LEND *
*& *
*&---------------------------------------------------------------------*
*&developer : liuxy
*&date : 2015.04.23
*& *
*&---------------------------------------------------------------------*
REPORT Z_PRINT_LEND NO STANDARD PAGE HEADING."借还物台帐
TABLES : ZLEND_MAIN,ZLEND_DETAIL,ZRETURN_INFOR,ZRENEW_INFOR,ZLEND_LL.
TABLES : SSCRFIELDS , ZT016T."⽤于按钮的]字段属性
DATA : FLAG TYPE C.
DATA : LEND_MAIN LIKE ZLEND_MAIN OCCURS 0 WITH HEADER LINE.
DATA : LEND_DETAIL LIKE ZLEND_DETAIL OCCURS 0 WITH HEADER LINE.
DATA : RETURN_DATA LIKE ZRETURN_INFOR OCCURS 0 WITH HEADER LINE.
DATA : LEND_LL LIKE ZLEND_LL OCCURS 0 WITH HEADER LINE.
DATA : LEND_LL2 LIKE ZLEND_LL OCCURS 0 WITH HEADER LINE.
DATA : ITAB(72) OCCURS 0 WITH HEADER LINE.
DATA : P_PRO(10) ,LLD_NO(10) , HLD_NO(10) ,TT TYPE C,P_PRY(10).
DATA : NUM,NUM2(20),P_NUM ,NUM3(20) TYPE I.
DATA : APPLY_NUM , GET_NUM ,RET_NUM LIKE ZLEND_DETAIL-APPLY_NUM .
DATA : P_NO LIKE ZRETURN_INFOR-RETURN_NO ."⽤于记录还物单号
DATA : S_STORE(10) ,NAME(20) ,NAME2(20) TYPE C.
TYPE-POOLS: SLIS.
网上怎么交社保DATA: FIELDCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE.
DATA: BEGIN OF INFOR_ALL OCCURS 0,"⽤于记录所有信息
* MANDT like zlend_detail-mandt,"集团
* line_no like zlend_detail-line_no ,"⾏号
LEND_NO LIKE ZLEND_DETAIL-LEND_NO ,"借料单号码
MATNR LIKE ZLEND_DETAIL-MATNR,"物料号
STORE_TYPE LIKE ZLEND_DETAIL-STORE_TYPE,"库类别
PROPERTY LIKE ZLEND_DETAIL-PROPERTY,"属性
MEINS LIKE ZLEND_DETAIL-MEINS,"计量单位
APPLY_NUM LIKE ZLEND_DETAIL-APPLY_NUM,"申请数量
PRICE LIKE ZLEND_DETAIL-PRICE,"单价
* total like zlend_detail-price,"总⾦额
TOTAL TYPE I,"总计显⽰
APPLY_NO LIKE ZLEND_DETAIL-APPLY_NO,"申请单号
NUM LIKE ZLEND_DETAIL-APPLY_NUM,"拖⽋数量
GET_NUM LIKE ZLEND_DETAIL-GET_NUM,"得到数量
SENDER LIKE ZLEND_DETAIL-SENDER,"发货⼈
STORER LIKE ZLEND_DETAIL-SOTRER,"库管⼈员 输⼊⽤
MACHI_SERIES LIKE ZLEND_DETAIL-MACHI_SERIES ,"机器序列号
RETURN_NUM LIKE ZLEND_DETAIL-RETURN_NUM,"归还数量
LAST_DATE LIKE ZLEND_DETAIL-LAST_DATE,"最后⼀次的操作⽇期
STATUS LIKE ZLEND_DETAIL-STATUS,"状态
MAKTX LIKE ZLEND_DETAIL-MAKTX,"物料描述
SERIES LIKE ZLEND_DETAIL-SERIES,"规格型号
ZTBS LIKE ZLEND_DETAIL-ZTBS,"在途标⽰
CHECKS TYPE C,"detail information
LEND_DEPART LIKE ZLEND_MAIN-LEND_DEPART,"nomber
LEND_DEP LIKE ZLEND_MAIN-DEP_DETAIL,
DEP_DETAIL LIKE ZLEND_MAIN-DEP_DETAIL,"部门详述
LEND_DATE LIKE ZLEND_MAIN-LEND_DATE,
RETURN_DATE LIKE ZLEND_MAIN-RETURN_DATE,
PURPOSE LIKE ZLEND_MAIN-PURPOSE,
PUR_DETAIL LIKE ZLEND_MAIN-PUR_DETAIL,
MANAGER1 LIKE ZLEND_MAIN-MANAGER1,
* manager2 like zlend_main-manager2,
* storer like zlend_main-storer,
OPERATOR LIKE ZLEND_MAIN-OPERATOR,
LENDER LIKE ZLEND_MAIN-LENDER,
OVER_DAY TYPE I,
RETURN_NO LIKE ZLEND_DETAIL-LEND_NO,
qq怎么举报
* have_date like zreturn_infor-return_date,
" ⽤于记录超期天数
END OF INFOR_ALL.
DATA : RETURN_DAT LIKE ZRETURN_INFOR OCCURS 0 WITH HEADER LINE.
DATA : LEND_NUM(16) TYPE I .
DATA:S TYPE I,
S2 TYPE I.
SELECTION-SCREEN BEGIN OF BLOCK RAD1 WITH FRAME TITLE T1."ADD group SELECTION-SCREEN BEGIN OF LINE."添加选项 借物台帐
SELECTION-SCREEN COMMENT 1(20) T11.
PARAMETERS LEND RADIOBUTTON GROUP RAD1 .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE."还物台帐
SELECTION-SCREEN COMMENT 1(20) T12.
PARAMETERS RETURN RADIOBUTTON GROUP RAD1 .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK RAD1. " end of group
*lection-screen begin of block che1 with frame title T7." add checbox
SELECTION-SCREEN BEGIN OF BLOCK RAD2 WITH FRAME TITLE T5."ADD GROUP 2
SELECTION-SCREEN BEGIN OF LINE."逾期未还借物的⽤途分类统计表
SELECTION-SCREEN COMMENT 1(20) T52."已还借物信息lend_main,
"lend_detail
PARAMETERS OVER_PUR RADIOBUTTON GROUP RAD2.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE."已还物库信息统计我的黄金时代
SELECTION-SCREEN COMMENT 1(20) T54."
猪内脏有哪些PARAMETERS RETU_DAT RADIOBUTTON GROUP RAD2 .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE."按照归还⽇期统计
SELECTION-SCREEN COMMENT 1(20) T55."
PARAMETERS P_DATE RADIOBUTTON GROUP RAD2 .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE."各⽉借物统计表
SELECTION-SCREEN COMMENT 1(20) T53."未还信息
PARAMETERS MON_DAT RADIOBUTTON GROUP RAD2 DEFAULT 'X'.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK RAD2." END OF GROUP 2
SELECTION-SCREEN BEGIN OF BLOCK RAD3 WITH FRAME TITLE T7. " begin of print
SELECTION-SCREEN BEGIN OF LINE."借物单打印
SELECTION-SCREEN COMMENT 1(20) T14.
* parameters c_lend as checkbox.
PARAMETERS C_LEND RADIOBUTTON GROUP RAD3.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE."还料单打印
SELECTION-SCREEN COMMENT 1(20) T15.
* parameters c_retu as checkbox .
PARAMETERS C_RETU RADIOBUTTON GROUP RAD3.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE."领料单打印
SELECTION-SCREEN COMMENT 1(20) T16.
PARAMETERS C_LLD RADIOBUTTON GROUP RAD3.
时代发展的潮流SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK RAD3.
SELECTION-SCREEN BEGIN OF LINE."借物⽇期选项
SELECTION-SCREEN COMMENT 1(20) T2.
SELECT-OPTIONS L_DATE FOR ZLEND_MAIN-LEND_DATE. SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE."归还⽇期选项
SELECTION-SCREEN COMMENT 1(20) T6.
SELECT-OPTIONS R_DATE FOR ZLEND_MAIN-RETURN_DATE. SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE."部门选项
SELECTION-SCREEN COMMENT 1(20) T3.
* PARAMETERS DEPART(20) TYPE C.
* PARAMETERS : DEPART LIKE T016T-BRSCH .
SELECT-OPTIONS DEPART FOR ZT016T-BRSCH .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(23) T4.
PARAMETERS PERMIT(8) ."审批⼈
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(20) T8.
* PARAMETERS NO(10) ."借料单号
SELECT-OPTIONS NO FOR ZLEND_DETAIL-LEND_NO .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(20) T9.
* PARAMETERS R_NO(10) ."还料单好
SELECT-OPTIONS R_NO FOR ZRETURN_INFOR-RETURN_NO. SELECTION-SCREEN END OF LINE.
INITIALIZATION.各种各样的花
T1 = '台帐选项'.
T11 = '借物台帐'.
T12 = '单据打印'.
T14 = '借料单打印'.
T15 = '还料单打印'.
T16 = '领料单打印'.
T2 = '请选择借料⽇期：'.
T3 = '部门选项：'.
T4 = '审批⼈：'.
T5 = '具体分类信息'.
T52 = '已还借物统计表'.
T54 = '已还批次统计表'.
T55 = '按归还⽇期统计'.
T53 = '未还借物统计表'.
T6 = '请选择还物⽇期：'.
T7 = '单据种类选项：'.
T8 = '借料单号：'.
T9 = '还料单号：'.
AT SELECTION-SCREEN.
CLEAR ITAB[].
IF PERMIT <> ''.
IF ITAB IS INITIAL.
CONCATENATE 'manager1 = ' ' permit ' INTO ITAB.
ELSE.
CONCATENATE ' and manager1 = ' ' permit ' INTO ITAB. ENDIF.
APPEND ITAB.
ENDIF.
* if NO <> '' .
* if itab is initial.
* concatenate 'lend_no = ' ' NO ' into itab .
* el.
* concatenate ' and lend_no = ' ' NO ' into itab.
* endif.
* append itab.
* endif.依赖拼音
* if SY-UNAME = 'LIUSHENG' .
* if itab is initial.
* concatenate 'operator = ' ' sy-uname ' into itab.
* el.
* concatenate ' and operator = ' ' sy-uname ' into itab.
* endif.
* append itab.
* endif.
* if SY-UNAME = 'NIEJIAN' .
* if itab is initial.
* concatenate 'operator = ' ' sy-uname ' into itab.
* el.
* concatenate ' and operator = ' ' sy-uname ' into itab.
* endif.
* append itab.
* endif.
IF SY-UNAME = 'LIUQJ'.
IF ITAB IS INITIAL.
CONCATENATE 'operator = ' ' sy-uname ' INTO ITAB.
ELSE.
CONCATENATE ' and operator = ' ' sy-uname ' INTO ITAB.
ENDIF.
APPEND ITAB.
ENDIF.
START-OF-SELECTION.
* t pf-status 'LEND01'.
END-OF-SELECTION.
IF LEND = 'X'.
IF MON_DAT = 'X'.
PERFORM LEND_DATA."未还信息
ELSEIF RETU_DAT = 'X'.
PERFORM RETURN_DATA."已还批次
ELSEIF P_DATE = 'X'."按归还时间统计
PERFORM TIME_DATA.
ELSEIF OVER_PUR = 'X'.
PERFORM PUR_DATA."已还信息
ENDIF.
ENDIF.
IF RETURN = 'X'.
PERFORM RETU_DAT.
ENDIF.
*&--------------------------------------------------------------------*
*& Form LEND_DATA
*&--------------------------------------------------------------------*
* text
*---------------------------------------------------------------------*
FORM LEND_DATA."借物台帐未还信息
IF SY-UNAME = 'YINGZHAO' OR SY-UNAME = 'ZHANGSHP' OR SY-UNAME = 'YAOLJ'.
NAME = '2000'.
IF ITAB IS INITIAL.
CONCATENATE 'LEND_DEPART = ' ' NAME 'INTO ITAB.
ELSE.
CONCATENATE ' AND LEND_DEPART = ' ' NAME 'INTO ITAB.
ENDIF.
APPEND ITAB.
CLEAR DEPART.
ENDIF.
* if depart <> '' .
>黄花菜鸡蛋汤
