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

SAP ABAP 打印(smartforms方式)相关推荐

SAP ABAP 关于SMARTFORMS打印中英文时候出现乱码的问题
SAP ABAP 关于SMARTFORMS打印中英文时候出现乱码的问题图为主题设置 SAP SMARTFORMS进行打印时候,我们在创建完成后会执行测试,运行创建好的SMARTFORMS接口时候,会 ...
SAP ABAP打印MM采购发票打印开发
复制程序应该有部分对象需要自行创建,需要调试,仅供参考需要打印的模板程序代码 *&----------------------------------------------------- ...
SAP ABAP条形码打印 CODE 128A SMARTFORMS STEP BY STEP
SAP ABAP条形码打印效果图: 第一步:定义纸张大小事务代码SPAD 指定纸张大小定义格式类型将定义的纸张类型分配给格式类型分配格式类型到设备类型CNSAPWIN,并拷贝A4的输出控制 ...
【ABAP系列】SAP ABAP smartforms设备类型CNSAPWIN不支持页格式ZXXX
公众号:SAP Technical 本文作者:matinal 原文出处:http://www.cnblogs.com/SAPmatinal/ 原文链接:[ABAP系列]SAP ABAP smartfo ...
SAP ABAP Netweaver服务器的标准登录方式讲解
最近Jerry把这个公众号之前发布的总共230篇文章按照类别整理了一系列合集出来,比如所有的ABAP文章,放在了这个合集里:汪子熙的ABAP合集. 本文继续介绍ABAP里的一个知识点:ABAP Net ...
浅谈 SAP ABAP 系统里的 ALV 输出方式实现
由于国情原因,ABAP ALV相关的报表开发在国内众多SAP技术交流群里永远都是一个热门话题. 最近Jerry和朋友的技术交流群里,郭爷向大家介绍了ALV Integrated Data Access ...
62. 如何通过增强(Enhancement) 的方式给 SAP ABAP 标准程序增添新功能
文章目录如何找到可以创建增强实现的增强点位置如何创建增强实现如何在 SE80 里找到增强实现本身如何调试 ABAP 增强实现总结 ABAP 系统有比较完善的修改控制权限管控,比如笔者试图修改 ...
SAP ABAP 根据物料工厂查询工作中心（ARBPL）的两种方式
SAP ABAP 根据物料工厂查询工作中心(ARBPL)的两种方式引言: 根据物料工厂查询工作中心的两种方式关键字:SAP ABAP CR_WORKSTATION_READ ARBPL 工作中心 ...
73. 如何手动通过增强的方式，给 SAP ABAP 数据库表增添新的字段
有个朋友向我咨询关于 SAP 产品增强字段扩展(Field Extensibility) 的问题: Jerry,你好.看过你写的SAP产品增强Field Extensibility文章,对扩展字段在物 ...

SAP ABAP 打印(smartforms方式)

SAP ABAP 打印(smartforms方式)相关推荐

最新文章

热门文章