首页 文章

按实体ABAP分组发票

提问于
浏览
0

我正在输出一个包含一些发票和详细信息的列表,我想让它们按实体分类 . 它现在显示的方式是在列表的每一行中重复实体编号和名称,但是我想将它分组到例如,例如有4张发票:每个实体两张;它应该显示实体和所有相应的发票,然后显示另一个实体,依此类推 . 有人有什么想法吗?谢谢 .

我的代码是这样的:

FORM select_data3 CHANGING lt_data LIKE gt_map1 . 字段 - 符号:TYPE zimposto_consumo . 选择一个〜belnr d~spart a~bldat a~waers c~wrbtr a~hwaer c~dmbtr
INTO相应的表格lt_data
FROM((bkpf AS a
INNER JOIN bsis AS c ON c~belnr = a~belnr
AND buzei = 1)
INNER JOIN vbrk AS d ON d~xblnr = c~belnr)
在gjahr中有一个~gjahr .
在lt_data分配时循环 . 清除<fs_main> -kbetr .
清除<fs_main> -fwste .
清除<fs_main> -hwste .
SELECT SINGLE kbetr fwste hwste FROM bset
INTO(<fs_main> -kbetr,<fs_main> -fwste,<fs_main> -hwste)
在哪里belnr = <fs_main> -belnr .

清除<fs_main> -koart .
SELECT SINGLE koart kunnr FROM bseg
INTO(<fs_main> -koart,wa_bseg-kunnr)
在哪里belnr = <fs_main> -belnr .
如果-koart ='D' . SELECT SINGLE name1 FROM kna1 INTO(wa_bseg-name1)WHERE kunnr = wa_bseg-kunnr . IF sy-subrc = 0 .
格式颜色COL_TOTAL强化 .

WRITE:/ sy-uline(137),/ sy-vline NO-GAP,
2'Entidade:',wa_bseg-kunnr,wa_bseg-name1,
137 sy-vline NO-GAP,/ sy-uline(137) .
FORMAT COLOR COL_NORMAL INTENSIFIED OFF . WRITE:/ sy-vline NO-GAP,(16)-belnr NO-GAP,sy-vline NO-GAP,(16)-spart NO-GAP,sy-vline NO-GAP,(10)-bldat NO-GAP ,sy-vline NO-GAP . perc = -kbetr / 10. ... ENDLOOP . 端部结构 .

1 回答

  • 0

    只需要使用“at new ... endat” . 宣言 .

相关问题