狼升空

摘要： 一、提醒框： DATA: l_line(10), l_percent(6), l_text(40). DESCRIBE TABLE itab LINES g_lines. CONCATENATE '确认总共是' g_lines '条物料吗？' INTO g_text. CONDENSE g_text. CALL FUNCTION 'POPUP_TO_CONFIRM_STEP' EXPORTING textline1 = g_text titel = '确认' IMPORTING answer = g_... 阅读全文

摘要： 1、定义DATA: i_grid_settings TYPE lvc_s_glay.2、第六行FORM layout_build . i_layout-box_fieldname = 'FLAG'. i_layout-colwidth_optimize = 'X'. "优化列宽选项是否设置 i_layout-zebra = 'X'. i_layout-detail_initial_lines = 'X'. i_layout-no_vline = 'X'." layout_build i_grid 阅读全文

摘要： 思路：1、定义参数，注意初始值2、同样确定输出几行CLEAR:itab3[]. b = b + 1. "计算空行时需要的总行数IF A > 7. CLEAR A.ENDIF.A = A + 1.IF A > 7. PAGE02 = PAGE02 + 1.ENDIF.这里的B 为每个抬头好对应的内存循环表的行数，之力只能在这给他计算总行数了。A 则是控制输出几行 PAGE02 是每个抬头好对应的内存循环表的输出每页翻页的页码。3、达到一定行数是跳页4、计算行数并出入空行IF B MOD 8 <> 0. C = B MOD 8. D = 8 - C. CLEAR 阅读全文

摘要： 思路：1、计算好行宽，设定好一页能输出多少行。2、定义参数：3、计算输出空行的行数（一般是内表的行数）DESCRIBE TABLE SF_BODY LINES AA.4、计算每页输出行数，控制行数达到了翻页 5、计算空行IF aa mod 15 <> 0.b = aa mod 15. "计算最后一页显示的条数，因为前面的页面肯定都是满的 c = 15 - b. "计算最后一页要加入的空行条数 CLEAR itab1. do c TIMES. APPEND itab1 to itab2 . ENDDO.ENDIF.6、插入空行7、OK 阅读全文