ABAP代码

SAP 更改登录界面 图片：smw0---选下一个---对钩---setting MIME type---create---TYPE:image/gif传完一个图片后---sm30---SSM_CUST----new entries---name(START_IMAGE),然后路径，保存。 文字：SE61->选择一般文本，界面语言，输入ZLOGIN_SCREEN_INFO->创建或修改 ABAP:向自建表写入数据时，数据长度达不到字段长度时的处理 在某个创建的自建表中，有字段的数据元素为SAKNR(总账科目号)，类型为CHAR(10)，但是我导入的数据的长度只有CHAR(6)，比数据库字段要短，如果直接导入，不进行任何处理，会出现什么潜在的问题呢？ 导入数据肯定不会出现错误，但是在使用中，我需要从表SKAT中查找总账科目的描述，但是无论如何都不能通过程序查找到描述信息，直接从表SKAT中却能找到相应总账科目的描述，这是为什么呢？ 通过分析，发现SKAT中保存的科目长度全部为10位，不足的长度，前面都用“0”补齐，而我导入到自建表中的科目中数据却只有6位长度，后面用空格补齐，那么原因就找到了，我们在导入数据时，有些关键字段需要对长度进行处理。 那么如何进行处理呢，不能简单的想当然，在任何不足的长度前都用0补齐，对于不同的数据元素和域，它们处理的方式不一致，需要使用SAP系统提供的系统函数来进行处理。 在检查表SKAT的SAKNR字段的数据元素SAKNR，到域SAKNR，在Definition标签，Output Characteristics属性中，有一个Convers.routine为ALPHA，继续察看，可以看到系统提供的几个Function，如下 CONVERSION_EXIT_ALPHA_INPUT 对话退出ALPHA,外部->内部 CONVERSION_EXIT_ALPHA_OUTPUT 对话退出ALPHA,内部->外部 函数调用非常简单，如下 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING input = IG_UPLOAD-HKONT_NIS IMPORTING OUTPUT = WA_ZDFLNIS-HKONT_NIS ABAP源程序---发票校验明细表 *&---------------------------------------------------------------------* *& Report ZSDRP26 * *& 发票校验明细表 * *&---------------------------------------------------------------------* *& Author: Xavier Xue * *& * *&---------------------------------------------------------------------* REPORT zsdrp26 . TABLES: rbkp, rseg, ekko, ekpo, bkpf. *&---------------------------------------------------------------------* *& 声明变量和内表 *&---------------------------------------------------------------------* DATA: BEGIN OF header OCCURS 0, belnr LIKE rbkp-belnr, "发票校验凭证 gjahr LIKE rbkp-gjahr, "年度 vgart LIKE rbkp-vgart, "交易类型 bldat LIKE rbkp-bldat, "凭证中的凭证日期 budat LIKE rbkp-budat, "记帐日期 rmwwr LIKE rbkp-rmwwr, "总发数量 waers LIKE rbkp-waers, "货币 zuonr LIKE rbkp-zuonr, " s_belnr like bkpf-belnr, "会计凭证 * stblg LIKE rbkp-stblg, "冲销凭证编号 * stjah LIKE rbkp-stjah, "可逆凭证的会计年度 END OF header, BEGIN OF item OCCURS 0, belnr LIKE rseg-belnr, "发票校验凭证 gjahr LIKE rseg-gjahr, "会度年度 s_belnr like bkpf-belnr, "会计凭证 bldat LIKE rbkp-bldat, budat LIKE rbkp-budat, rmwwr LIKE rbkp-rmwwr, waers LIKE rbkp-waers, zuonr LIKE rbkp-zuonr, buzei LIKE rseg-buzei, "发票凭证中的凭证项目 ebeln LIKE rseg-ebeln, "采购订单凭证 ebelp LIKE rseg-ebelp, "采购订单项目号 wrbtr LIKE rseg-wrbtr, "金额 shkzg LIKE rseg-shkzg, "借/贷方 menge LIKE rseg-menge, "数量 bstme LIKE rseg-bstme, "单位 matnr LIKE ekpo-matnr, "物料编号 txz01 LIKE ekpo-txz01, "物料描述 text(16) TYPE c, "规格 END OF item, BEGIN OF ekpo_data OCCURS 0, ebeln LIKE ekpo-ebeln, ebelp LIKE ekpo-ebelp, matnr LIKE ekpo-matnr, txz01 LIKE ekpo-txz01, END OF ekpo_data. TYPE-POOLS:slis. DATA: i_events TYPE slis_t_event WITH HEADER LINE, i_fieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE. DATA: w_layout TYPE slis_layout_alv, g_repid LIKE sy-repid. *&---------------------------------------------------------------------* *& 定义选择屏幕 *&---------------------------------------------------------------------* SelectION-SCREEN BEGIN OF BLOCK block0 WITH FRAME TITLE text-000. Select-OPTIONS: s_belnr FOR rseg-belnr, "发票校验凭证号 s_budat FOR rbkp-budat, "记帐日期 s_bldat FOR rbkp-bldat, "凭证日期 s_bukrs FOR rbkp-bukrs, "分公司代码 s_ekgrp FOR ekko-ekgrp, "采购组（办事处） s_lifnr FOR rbkp-lifnr. "供应商 SelectION-SCREEN END OF BLOCK block0. *&---------------------------------------------------------------------* *& 执行程序事件 *&---------------------------------------------------------------------* INITIALIZATION. g_repid = sy-repid. START-OF-SelectION. PERFORM get_header_data. PERFORM get_item_data. END-OF-SelectION. PERFORM sub_init_fieldcat. PERFORM sub_init_layout. PERFORM sub_listado. *&---------------------------------------------------------------------* *& FORM: get_header_data. 读取抬头数据 *&---------------------------------------------------------------------* FORM: get_header_data. data: l_awkey like bkpf-awkey. Select belnr gjahr vgart bldat budat rmwwr waers zuonr FROM rbkp INTO CORRESPONDING FIELDS OF TABLE header Where belnr IN s_belnr AND budat IN s_budat AND bldat IN s_bldat AND bukrs IN s_bukrs AND lifnr IN s_lifnr. loop at header. clear l_awkey. concatenate header-belnr header-gjahr into l_awkey. select single belnr from bkpf into header-s_belnr where awkey = l_awkey. modify header. endloop. ENDFORM. *&---------------------------------------------------------------------* *& FORM: get_item_data. 读取行项目数据 *&---------------------------------------------------------------------* FORM: get_item_data. CHECK header[] IS NOT INITIAL. 收藏 分享

发短消息 加为好友 yuliming 当前离线 UID 36  帖子 79  精华 4  积分 151  阅读权限 150  在线时间 26 小时  注册时间 2010-3-1  最后登录 2010-4-3  超级版主	2# yuliming 发表于 2010-3-4 13:56 | 只看该作者 Select belnr gjahr buzei ebeln ebelp wrbtr shkzg menge bstme FROM rseg INTO CORRESPONDING FIELDS OF TABLE item FOR ALL ENTRIES IN header Where belnr = header-belnr AND gjahr = header-gjahr. Select ekpo~ebeln ekpo~ebelp ekpo~matnr ekpo~txz01 FROM ekko INNER JOIN ekpo ON ekko~ebeln = ekpo~ebeln INTO CORRESPONDING FIELDS OF TABLE EKPO_DATA FOR ALL ENTRIES IN item Where ekpo~ebeln = item-ebeln AND ekko~ekgrp IN s_ekgrp. LOOP AT item. READ TABLE header WITH KEY belnr = item-belnr gjahr = item-gjahr. item-bldat = header-bldat. item-budat = header-budat. item-rmwwr = header-rmwwr. item-waers = header-waers. item-zuonr = header-zuonr. item-s_belnr = header-s_belnr. IF item-shkzg = 'H'. item-rmwwr = 0 - item-rmwwr. item-wrbtr = 0 - item-wrbtr. item-menge = 0 - item-menge. ENDIF. PERFORM frm_read_item_text USING item-ebeln item-ebelp item-text. READ TABLE ekpo_data WITH KEY ebeln = item-ebeln ebelp = item-ebelp. IF sy-subrc = 0. item-matnr = ekpo_data-matnr. item-txz01 = ekpo_data-txz01. MODIFY item. ELSE. Delete item. ENDIF. ENDLOOP. FREE ekpo_data. FREE header. ENDFORM. *&---------------------------------------------------------------------* *& FORM:get_wdlgt *&---------------------------------------------------------------------* *FORM get_wdlgt using l_ebeln l_ebelp. *批次信息需要追踪到交货中，从交货单的行项目中获得物料号，批次号，然后再 *根据这两个数据从批次表中取得数据，然后将根据数据内容组合成规格数据 * *ENDFORM. *&---------------------------------------------------------------------* *& 使用ALV技术输出数据 *&---------------------------------------------------------------------* *& Form sub_display_result *&---------------------------------------------------------------------* FORM sub_init_fieldcat . i_fieldcat-fieldname = 'GJAHR'. "会计年度 i_fieldcat-tabname = 'ITEM'. i_fieldcat-reptext_ddic = '会计年度'. i_fieldcat-outputlen = 10. i_fieldcat-key = 'X'. i_fieldcat-just = 'C'. APPEND i_fieldcat. CLEAR i_fieldcat. i_fieldcat-fieldname = 'S_BELNR'. "会计凭证 i_fieldcat-tabname = 'ITEM'. i_fieldcat-reptext_ddic = '会计凭证'. i_fieldcat-outputlen = 12. i_fieldcat-key = 'X'. i_fieldcat-just = 'C'. APPEND i_fieldcat. CLEAR i_fieldcat. i_fieldcat-fieldname = 'BELNR'. "发票校验凭证号 i_fieldcat-tabname = 'ITEM'. i_fieldcat-reptext_ddic = '校验凭证号'. i_fieldcat-outputlen = 10. i_fieldcat-key = 'X'. i_fieldcat-fix_column = 'X'. * i_fieldcat-hotspot = 'X'. i_fieldcat-just = 'C'. i_fieldcat-sp_group = 'X'. APPEND i_fieldcat. CLEAR i_fieldcat. i_fieldcat-fieldname = 'BUZEI'. "校验凭证项目号 i_fieldcat-tabname = 'ITEM'. i_fieldcat-reptext_ddic = '项目号'. i_fieldcat-outputlen = 10. * i_fieldcat-just = 'C'. APPEND i_fieldcat. CLEAR i_fieldcat. i_fieldcat-fieldname = 'ZUONR'. "发票号 i_fieldcat-tabname = 'ITEM'. i_fieldcat-reptext_ddic = '发票号'. i_fieldcat-outputlen = 10. * i_fieldcat-just = 'C'. APPEND i_fieldcat. CLEAR i_fieldcat. i_fieldcat-fieldname = 'EBELN'. "采购订单号 i_fieldcat-tabname = 'ITEM'. i_fieldcat-reptext_ddic = '采购订单号'. i_fieldcat-outputlen = 10. i_fieldcat-just = 'C'. APPEND i_fieldcat. CLEAR i_fieldcat. i_fieldcat-fieldname = 'EBELP'. "项目 i_fieldcat-tabname = 'ITEM'. i_fieldcat-reptext_ddic = '项目号'. i_fieldcat-outputlen = 10. i_fieldcat-just = 'C'. APPEND i_fieldcat. CLEAR i_fieldcat. i_fieldcat-fieldname = 'MATNR'. "物料编号 i_fieldcat-tabname = 'ITEM'. i_fieldcat-reptext_ddic = '物料编号'. i_fieldcat-outputlen = 10. i_fieldcat-just = 'C'. APPEND i_fieldcat. CLEAR i_fieldcat. i_fieldcat-fieldname = 'TXZ01'. "物料描述 i_fieldcat-tabname = 'ITEM'. i_fieldcat-reptext_ddic = '物料描述'. i_fieldcat-outputlen = 35. * i_fieldcat-just = 'C'. APPEND i_fieldcat. CLEAR i_fieldcat. i_fieldcat-fieldname = 'TEXT'. "物料描述 i_fieldcat-tabname = 'ITEM'. i_fieldcat-reptext_ddic = '规 格'. i_fieldcat-outputlen = 14. * i_fieldcat-just = 'C'. APPEND i_fieldcat. CLEAR i_fieldcat. i_fieldcat-fieldname = 'WRBTR'. "项目金额 i_fieldcat-tabname = 'ITEM'. i_fieldcat-reptext_ddic = '项目金额'. i_fieldcat-outputlen = 15. i_fieldcat-just = 'C'. APPEND i_fieldcat. CLEAR i_fieldcat. i_fieldcat-fieldname = 'WAERS'. "货币 i_fieldcat-tabname = 'ITEM'. i_fieldcat-reptext_ddic = '货币'. i_fieldcat-outputlen = 6. * i_fieldcat-just = ''. APPEND i_fieldcat. CLEAR i_fieldcat. i_fieldcat-fieldname = 'MENGE'. "数量 i_fieldcat-tabname = 'ITEM'. i_fieldcat-reptext_ddic = '数量'. i_fieldcat-outputlen = 15. i_fieldcat-just = 'C'. APPEND i_fieldcat. CLEAR i_fieldcat. i_fieldcat-fieldname = 'BSTME'. "单位 i_fieldcat-tabname = 'ITEM'. i_fieldcat-reptext_ddic = '计量单位'. i_fieldcat-outputlen = 8. i_fieldcat-just = 'C'. APPEND i_fieldcat. CLEAR i_fieldcat. i_fieldcat-fieldname = 'RMWWR'. "总金额 i_fieldcat-tabname = 'ITEM'. i_fieldcat-reptext_ddic = '总金额'. i_fieldcat-outputlen = '15'. i_fieldcat-just = 'C'. APPEND i_fieldcat. CLEAR i_fieldcat. * i_fieldcat-fieldname = 'WARES'. "货币 * i_fieldcat-tabname = 'ITEM'. * i_fieldcat-reptext_ddic = '货币'. * i_fieldcat-outputlen = '6'. * i_fieldcat-just = 'C'. * APPEND i_fieldcat. * CLEAR i_fieldcat. i_fieldcat-fieldname = 'BLDAT'. "数量 i_fieldcat-tabname = 'ITEM'. i_fieldcat-reptext_ddic = '凭证日期'. i_fieldcat-outputlen = '12'. i_fieldcat-just = 'C'. APPEND i_fieldcat. CLEAR i_fieldcat. i_fieldcat-fieldname = 'BUDAT'. "数量 i_fieldcat-tabname = 'ITEM'. i_fieldcat-reptext_ddic = '记帐日期'. i_fieldcat-outputlen = '12'. i_fieldcat-just = 'C'. APPEND i_fieldcat. CLEAR i_fieldcat. ENDFORM. *&---------------------------------------------------------------------* *& Form sub_init_layout *&---------------------------------------------------------------------* FORM sub_init_layout . DATA: l_output(50). w_layout-zebra = 'X'. l_output = '发 票 校 验 明 细 表'. w_layout-window_titlebar = l_output. w_layout-colwidth_optimize = 'X'. ENDFORM. " sub_init_layout *&---------------------------------------------------------------------* *& Form sub_listado *&---------------------------------------------------------------------* FORM sub_listado . g_repid = sy-repid. CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY' EXPORTING i_callback_user_command = 'USER_COMMAND' i_callback_pf_status_set = 'SET_PF_STATUS' i_callback_program = g_repid is_layout = w_layout it_fieldcat = i_fieldcat[] it_events = i_events[] TABLES t_outtab = item EXCEPTIONS program_error = 1 OTHERS = 2. ENDFORM. " sub_listado *&--------------------------------------------------------------------* *& Form frm_read_item_text *&--------------------------------------------------------------------* * text *---------------------------------------------------------------------* * -->LV_EBELN text * -->LV_TEXT text *---------------------------------------------------------------------* FORM frm_read_item_text USING lv_ebeln lv_ebelp lv_text. DATA: it_tline LIKE tline OCCURS 0 WITH HEADER LINE. DATA: lv_tdname LIKE stxh-tdname. DATA: d_tdobject LIKE thead-tdobject VALUE 'EKPO'. CONCATENATE lv_ebeln lv_ebelp INTO lv_tdname. CALL FUNCTION 'READ_TEXT' EXPORTING id = 'F01' language = sy-langu name = lv_tdname object = d_tdobject TABLES lines = it_tline EXCEPTIONS not_found. LOOP AT it_tline. CONCATENATE lv_text it_tline-tdline INTO lv_text. ENDLOOP. ENDFORM. "frm_read_item_text
	TOP

发短消息 加为好友 yuliming 当前离线 UID 36  帖子 79  精华 4  积分 151  阅读权限 150  在线时间 26 小时  注册时间 2010-3-1  最后登录 2010-4-3  超级版主

3# yuliming 发表于 2010-3-4 13:57 | 只看该作者 abap源程序---会计凭证 **----------------------------------------------** *|REPORT RINT ACCOUNTING DOCUMENT |* *|Create :XIAODONGMING |* *|DATE :2002.10.21 |* *|CHANGE : |* **----------------------------------------------** REPORT yfi008 NO STANDARD PAGE HEADING LINE-SIZE 127 LINE-COUNT 27(2) MESSAGE-ID znl. TABLES:bkpf, "会计核算凭证标题 bseg, "会计核算凭证 skat, "总帐科目主记录（科目表：说明） kna1, "客户主文件的一般数据 lfa1, "供应商主数据 (一般地区) t003t, "凭证类型文本 vbsegs, "总帐凭证预制的凭证 vbsegd, "客户凭证预制的凭证 vbsegk. "供应商凭证预制的凭证 *********************定义选择书面*** SelectION-SCREEN BEGIN OF BLOCK x_ming WITH FRAME TITLE text-001. PARAMETERS: x_bukrs LIKE bkpf-bukrs DEFAULT 'CC01',"公司代码 x_gjahr LIKE bkpf-gjahr DEFAULT sy-datum."会计年度 Select-OPTIONS: x_belnr FOR bkpf-belnr," OBLIGATORY,"凭证编号 x_bldat FOR bkpf-bldat."记帐日期 PARAMETERS: x_fu TYPE i OBLIGATORY."附件数 SelectION-SCREEN END OF BLOCK x_ming. ************************************ DATA:BEGIN OF itab1 OCCURS 0, bukrs LIKE bseg-bukrs, " 公司代码 gjahr LIKE bseg-gjahr, " 会计年度 belnr LIKE bseg-belnr, " 凭证编号 hkont LIKE bseg-hkont, " 科目代码 txt50 LIKE skat-txt50, " 科目名称 prctr LIKE bseg-prctr, " 利润中心 kostl LIKE bseg-kostl, " 成本中心 wrbtr LIKE bseg-wrbtr, " 凭证货币金额 dmbtr LIKE bseg-dmbtr, " 本位币金额 x_dmbtr LIKE bseg-dmbtr, " 借方金额 y_dmbtr LIKE bseg-dmbtr, " 贷方金额 lifnr LIKE bseg-lifnr, " 客/供代码 kunnr LIKE bseg-kunnr, " 客/供代码 sortl LIKE lfa1-sortl, sortl1(14) TYPE c, shkzg LIKE bseg-shkzg, " 借/贷 xnegp LIKE bseg-xnegp, " 反记帐 zuonr LIKE bseg-zuonr, " 现金流量 koart LIKE bseg-koart, END OF itab1. DATA:BEGIN OF itab2 OCCURS 0, bukrs LIKE bkpf-bukrs, " 公司代码 gjahr LIKE bkpf-gjahr, " 会计年度 belnr LIKE bkpf-belnr, " 凭证编号 bldat LIKE bkpf-bldat, " 记帐日期 blart LIKE bkpf-blart, " 凭证类型 kursf LIKE bkpf-kursf, " 汇率 waers LIKE bkpf-waers, " 币别 usnam LIKE bkpf-usnam, " 用户名 bktxt LIKE bkpf-bktxt, " 业务摘要 stblg LIKE bkpf-stblg, " 冲消凭证 stgrd LIKE bkpf-stgrd, " 冲销原因 ltext LIKE t003t-ltext, " 凭证类型说明 lifnr LIKE lfa1-lifnr, name1 LIKE lfa1-name1, END OF itab2. ***************************** DATA:BEGIN OF l_itab OCCURS 0, lifnr LIKE lfa1-lifnr, sortl LIKE lfa1-sortl, END OF l_itab. DATA:BEGIN OF k_itab OCCURS 0, kunnr LIKE kna1-kunnr, name1 LIKE kna1-name1, END OF k_itab. ***************************** DATA: text(9) TYPE c. DATA: page TYPE i. DATA: page1 TYPE i. DATA: text2(10) TYPE c. DATA: max_pageno(2) TYPE c." sy-pagno. DATA: BEGIN OF itab_page OCCURS 0, m_page(2) TYPE c, END OF itab_page. START-OF-SelectION. PERFORM data. "选择数据——会计凭证 PERFORM data_out. "行项目数据输出 TOP-OF-PAGE. PERFORM top_page. "输出页头 END-OF-PAGE. PERFORM endpage. *&---------------------------------------------------------------------* *& Form data *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM data. DATA: BEGIN OF t_itab OCCURS 0. INCLUDE STRUCTURE itab1. DATA: END OF t_itab. Select * FROM bkpf INTO CORRESPONDING FIELDS OF TABLE itab2 "会计凭证 Where bldat IN x_bldat AND belnr IN x_belnr AND bukrs = x_bukrs AND gjahr = x_gjahr ORDER BY belnr. LOOP AT itab2. Select * FROM bseg "会计凭证行项目 APPENDING CORRESPONDING FIELDS OF TABLE itab1 Where bukrs = itab2-bukrs AND belnr = itab2-belnr AND gjahr = itab2-gjahr. Select * FROM vbsegs "总帐凭证预制 Where bukrs = itab2-bukrs AND belnr = itab2-belnr AND gjahr = itab2-gjahr. itab1-hkont = vbsegs-saknr. MOVE-CORRESPONDING vbsegs TO itab1. COLLECT itab1. CLEAR itab1. ENDSelect. Select * FROM vbsegk "供应商凭证预制 Where bukrs = itab2-bukrs AND belnr = itab2-belnr AND gjahr = itab2-gjahr. itab1-hkont = vbsegk-hkont. MOVE-CORRESPONDING vbsegk TO itab1. COLLECT itab1. CLEAR itab1. ENDSelect. Select * FROM vbsegd "客户凭证预制 Where bukrs = itab2-bukrs AND belnr = itab2-belnr AND gjahr = itab2-gjahr. itab1-hkont = vbsegd-hkont. MOVE-CORRESPONDING vbsegd TO itab1. COLLECT itab1. CLEAR itab1. ENDSelect. ENDLOOP. ********处理反记帐******************* t_itab[] = itab1[]. REFRESH itab1. * SORT t_itab BY koart. LOOP AT t_itab. itab1 = t_itab. IF itab1-xnegp = 'X'. itab1-xnegp = ''. itab1-wrbtr = -1 * itab1-wrbtr. itab1-dmbtr = -1 * itab1-dmbtr. IF itab1-shkzg = 'S'. itab1-shkzg = 'H'. ELSE. itab1-shkzg = 'S'. ENDIF. ENDIF. IF itab1-shkzg = 'S'. itab1-x_dmbtr = itab1-dmbtr. ELSE. itab1-y_dmbtr = itab1-dmbtr. ENDIF. COLLECT itab1. CLEAR itab1. ENDLOOP. ********************************** DATA: BEGIN OF s_itab OCCURS 0. INCLUDE STRUCTURE itab1. DATA: END OF s_itab. Select lfa1~lifnr lfa1~sortl INTO CORRESPONDING FIELDS OF TABLE l_itab FROM lfa1. Select kna1~kunnr kna1~name1 INTO CORRESPONDING FIELDS OF TABLE k_itab FROM kna1. ************************************* DATA: c_no LIKE sy-tabix. LOOP AT itab1. IF itab1-lifnr NE ''. c_no = sy-tabix. READ TABLE l_itab WITH KEY lifnr = itab1-lifnr. itab1-sortl = l_itab-sortl. MODIFY itab1 INDEX c_no. ELSEIF itab1-kunnr NE ''. c_no = sy-tabix. READ TABLE k_itab WITH KEY kunnr = itab1-kunnr. itab1-sortl1 = k_itab-name1(14). MODIFY itab1 INDEX c_no. ENDIF. ENDLOOP. ENDFORM. " data *&---------------------------------------------------------------------* *& Form data_out *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM data_out. DATA: x_lines TYPE i. DATA: s_no LIKE sy-pagno. DATA: lin_no LIKE sy-linno. DATA: z(1) TYPE c. SORT itab1 BY belnr." koart. " 排序 LOOP AT itab1. page = sy-pagno. page = 0. AT NEW belnr. * WRITE sy-pagno TO max_pageno LEFT-JUSTIFIED. * DO sy-pagno TIMES. * READ LINE 4 OF PAGE sy-index. * REPLACE '--' WITH max_pageno INTO sy-lisel. * MODIFY CURRENT LINE. * ENDDO. NEW-PAGE. page = page + 1. sy-pagno = 1. READ TABLE itab2 WITH KEY "读取表头 bukrs = itab1-bukrs gjahr = itab1-gjahr belnr = itab1-belnr. ENDAT.

转载于:https://www.cnblogs.com/yxbsmx/articles/1704979.html