SAP ABAP 打印(smartforms方式)

程序代码

*&---------------------------------------------------------------------*
*& Report Z3TEST004
*&---------------------------------------------------------------------*
*&  打印 采购发票 查询
*&---------------------------------------------------------------------*
REPORT zprint001.TABLES:EKET,MAKT,MKPF,EKKO,EKPO,RBKP,RSEG,EKBE." 数据类型1
*
*TYPES: BEGIN OF TY_EKKPO,
*         LIFNR TYPE EKKO-LIFNR,
*         EKORG TYPE EKKO-EKORG,
*         WERKS TYPE EKPO-WERKS,
*         EBELN TYPE EKKO-EBELN,
*         AEDAT TYPE EKKO-AEDAT,
*       END OF TY_EKKPO.DATA: GSD_EKKPO TYPE ZMMPRINT01 ,GTD_EKKPO TYPE STANDARD TABLE OF ZMMPRINT01."数据类型2*TYPES: BEGIN OF TY_ITEM,
*          EBELN TYPE EKKO-EBELN,
*          EBELP TYPE EKPO-EBELP,
*          MATNR TYPE MAKT-MATNR,
*          MAKTX TYPE MAKT-MAKTX,
*          MENGE TYPE EKPO-MENGE,
*          MEINS TYPE EKPO-MEINS,
*          NETPR TYPE EKPO-NETPR,
*          WAERS TYPE EKKO-WAERS,
*          EINDT TYPE EKET-EINDT,
*       END OF TY_ITEM.DATA: GSD_ITEM TYPE ZMMPRINT02,GTD_ITEM TYPE STANDARD TABLE OF ZMMPRINT02.*--------------------------------------------------------------------------**                      选择屏幕*--------------------------------------------------------------------------*SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.SELECT-OPTIONS:S_EKGRP FOR EKKO-EKORG  ,S_EKDAT FOR EKKO-BEDAT .SELECTION-SCREEN END OF BLOCK B1.*----------------------------------------------------------------------**       START-OF-SELECTION*----------------------------------------------------------------------*START-OF-SELECTION.SELECTEKKO~EKORG "财务组织RBKP~BLDAT"发票日期RBKP~BELNR "发票号EKKO~LIFNR "供应商编号"供方名称EKKO~EKGRP "采购部门"扣款小计(计算)RBKP~WMWST1 "税额"应付金额RBKP~BVTYP "开户行RBKP~HBKID "账户名称RBKP~BANKN "银行帐户号码"MEPOITEM_PROP~AFNAM "制单人INTO CORRESPONDING FIELDS OF TABLE GTD_EKKPOFROM EKKO
INNER JOIN EKPO ON EKKO~EBELN = EKPO~EBELN
INNER JOIN RSEG ON EKKO~EBELN = RSEG~EBELN
INNER JOIN RBKP ON RSEG~BELNR = RBKP~BELNR
"INNER JOIN MEPOITEM_PROP ONWHERE  EKKO~EKGRP IN S_EKGRPAND EKKO~BEDAT IN S_EKDAT.BREAK-POINT."断点READ TABLE GTD_EKKPO INTO GSD_EKKPO INDEX 1.SELECTEKKO~EBELN "MAKT~MATNR "物料号MAKT~MAKTX "物料描述EKPO~MENGE "数量EKPO~MEINS "单位EKPO~NETPR "价格INTO CORRESPONDING FIELDS OF TABLE GTD_ITEMFROM EKKOINNER JOIN EKPO ON EKKO~EBELN = EKPO~EBELNLEFT JOIN EKET ON EKPO~EBELN = EKET~EBELN AND EKPO~EBELP = EKET~EBELPLEFT JOIN MAKT ON EKPO~MATNR = MAKT~MATNR
WHERE EKKO~AEDAT IN S_EKDATAND EKKO~EKGRP IN S_EKGRP.READ TABLE GTD_ITEM INTO GSD_ITEM INDEX 1.** 设置调用表单  **DATA:FM_NAME TYPE RS38L_FNAM.CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'EXPORTINGFORMNAME = 'ZPRINT001' " 调用 表单程序IMPORTINGFM_NAME  = FM_NAME.CALL FUNCTION FM_NAMEEXPORTING
*   ARCHIVE_INDEX              =
*   ARCHIVE_INDEX_TAB          =
*   ARCHIVE_PARAMETERS         =
*   CONTROL_PARAMETERS         =
*   MAIL_APPL_OBJ              =
*   MAIL_RECIPIENT             =
*   MAIL_SENDER                =
*   OUTPUT_OPTIONS             =
*   USER_SETTINGS              = 'X'GSD_EKKPO                  = GSD_EKKPOGSD_ITEM                   = GSD_ITEMTABLESGTD_ITEM                   = GTD_ITEM
* IMPORTING
*   DOCUMENT_OUTPUT_INFO       =
*   JOB_OUTPUT_INFO            =
*   JOB_OUTPUT_OPTIONS         =* EXCEPTIONS
*   FORMATTING_ERROR           = 1
*   INTERNAL_ERROR             = 2
*   SEND_ERROR                 = 3
*   USER_CANCELED              = 4
*   OTHERS                     = 5.
IF SY-SUBRC <> 0.
* Implement suitable error handling here
ENDIF.** 设置调用表单  **

定义表单模板

事务代码 smartforms