?程序代碼

*&---------------------------------------------------------------------* *& 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

?

?

?

?

創作挑戰賽新人創作獎勵來咯，堅持創作打卡瓜分現金大獎

總結

以上是生活随笔為你收集整理的SAP ABAP 打印(smartforms方式)的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。