Gruppenwechsel

Code: Alles auswählen.

Tables: vbrk.

Data: it_vbrk type table of vbrk with header line.

Select * from vbrk 
INTO CORRESPONDING FIELDS OF TABLE it_vbrk
order by kunrg.

Sort it_vbrk by kunrg.

Loop at it_vbrk.
at new kunrg.
  write: / 'KNRG: ', it_vbrk-kunrg.
endat.
endloop.

Code: Alles auswählen.

Loop at it_vbrk
where fkdat between '20060201' and '20080229'
and vkorg = '3000'
and fkart = 'ZES'.
at first.
  write: / 'Dies ist eine Überschrift'.
endat.
at new kunrg.
  write: / 'KUNRG: ', it_vbrk-kunrg.
endat.
endloop.

Code: Alles auswählen.

Loop at itab into wa.
at new kunrg.
write: / 'Regulierer: ', wa-kunrg.
write: / 'Kunde: ', wa-name1.
endat.
endloop.

Code: Alles auswählen.

Types: Begin of satz,
kunrg type vbrk-kunrg,
vkorg type vbrk-vkorg,
fkart type vbrk-fkart,
fkdat type vbrk-fkdat,
netwr type vbrk-netwr,
mwsbk type vbrk-mwsbk,
vbeln type vbrk-vbeln,
valdt type vbrk-valdt,
name1 type kna1-name1,
stras type kna1-stras,
ort01 type kna1-ort01,
pstlz type kna1-pstlz,
bankl type knbk-bankl,
bkont type knbk-bkont,
bankn type knbk-bankn,
end of satz.

Types: tabelle type standard table of satz.

Data: itab type tabelle,
wa type satz.

* Interne Tabelle füllen
Select * from vbrk
where fkdat between '20060201' and '20080229'
and vkorg = '3000'
and fkart = 'ZES'.

  Select * from kna1 where kunnr = vbrk-kunrg.

    Select * from knbk where kunnr = kna1-kunnr.

      wa-kunrg = vbrk-kunrg.
      wa-name1 = kna1-name1.
      wa-bankl = knbk-bankl.
      wa-bkont = knbk-bkont.
      wa-bankn = knbk-bankn.
      wa-valdt = vbrk-valdt.
      wa-vbeln = vbrk-vbeln.
      Insert wa into table itab.

    Endselect.
  Endselect.
Endselect.