tables: vbak, " таблица торговых документов - шапки,
        vbap,
        lips. " таблица документов сбыта: поставка

types:
begin of t_contract,
  vbeln like vbak-vbeln, " № документа
  vgbel like vbak-vgbel, " № подчиненного документа
  erdat like vbak-erdat, " Дата документа
  ernam like vbak-ernam, " Автор документа
end of t_contract,
begin of t_order,
  vbeln like vbak-vbeln, " № документа
  vgbel like vbak-vgbel, " № подчиненного документа
  erdat like vbak-erdat, " Дата документа
  ernam like vbak-ernam, " Автор документа
  posnr like vbap-posnr, " Автор документа
end of t_order,
begin of t_delivery,
  vbeln like lips-vbeln, " № документа
  erdat like lips-erdat, " Дата документа
  ernam like lips-ernam, " Автор документа
  vgbel like lips-vgbel, " Автор документа
end of t_delivery.

data: gt_contract type standard table of t_contract,
      gs_contract type t_contract.

data: gt_order type standard table of t_order,
      gs_order type t_order.

data: gt_delivery type standard table of t_delivery,
      gs_delivery type t_delivery.

select-options s_period for vbak-erdat obligatory.

initialization.
  perform init_selection_screen.

start-of-selection.
  perform get_data_from_database.

form get_data_from_database .
  select
      vbak~vbeln
      vbak~vgbel
      vbak~erdat
      vbak~ernam
    into table gt_contract
    from vbak
    where vbak~erdat between s_period-low and s_period-high
      and vbak~vbtyp eq 'G'.

  select
      vbak~vbeln
      vbak~vgbel
      vbak~erdat
      vbak~ernam
      vbap~posnr
    into table gt_order
    from vbak
    left outer join vbap on vbap~vgbel = vbak~vgbel
    for all entries in gt_contract
    where vbak~vgbel = gt_contract-vbeln
      and vbak~vbtyp eq 'C'.

  select
      lips~vbeln
      lips~erdat
      lips~ernam
      lips~vgbel
    into table gt_delivery
    from lips
    for all entries in gt_order
    where lips~vgbel = gt_order-vbeln
      and lips~posnr = gt_order-posnr.
endform.                    " GET_DATA_FROM_DATABASE

select
      vbak~vbeln
      vbak~vgbel
      vbak~erdat
      vbak~ernam
    into table gt_contract
    from vbak
    where vbak~erdat between s_period-low and s_period-high
      and vbak~vbtyp eq 'G'.

select
      vbak~vbeln
      vbak~vgbel
      vbak~erdat
      vbak~ernam
      vbap~posnr
    into table gt_order
    from vbak
    left outer join vbap on vbap~vgbel = vbak~vgbel
    for all entries in gt_contract
    where vbak~vgbel = gt_contract-vbeln
      and vbak~vbtyp eq 'C'.

select
      lips~vbeln
      lips~erdat
      lips~ernam
      lips~vgbel
    into table gt_delivery
    from lips
    for all entries in gt_order
    where lips~vgbel = gt_order-vbeln
      and lips~posnr = gt_order-posnr.

SELECT vbeln INTO TABLE gt_vbfa
FROM vbfa FOR ALL ENTRIES ...
WHERE VBELV  = gt_order-vbeln
   AND posnn = gt_order-posnr
   AND VBTYP_N = 'J'   

SELECT * INTO ...
FROM lips  FOR ALL ENTRIES...
WHERE vbeln = gt_vbfa-vbeln
   AND posnr = gt_vbfa-posnn

  select
    vbak~vbeln   as doc_contract
    vbkd~bstkd_m as pnd_contract
    vbap~posnr   as pos_contract
    vbap~matnr   as cmt_contract
    vbap~zmeng   as qua_contract
  into table gt_contract
  from vbak
  left outer join vbap on vbap~vbeln = vbak~vbeln
  left outer join vbkd on vbkd~vbeln = vbak~vbeln and vbkd~posnr = '000000'
  where vbak~erdat between s_period-low and s_period-high
    and vbak~vbeln in s_contr
    and vbak~vbtyp eq 'G'.

  select
    *
    from vbfa
    for all entries in gt_contract
    where vbelv = gt_contract-doc_contract
      and posnv = gt_contract-pos_contract
      and vbtyp_n eq 'C'.

    clear gs_stream_contract.
    gs_stream_contract-doc   = vbfa-vbelv.
    gs_stream_contract-pos   = vbfa-posnv.
    gs_stream_contract-s_doc = vbfa-vbeln.
    gs_stream_contract-s_pos = vbfa-posnn.

    collect gs_stream_contract into gt_stream_contract.
  endselect.