selection-screen begin of block 1 with frame title text-001.
select-options: s_bukrs for  bkpf-bukrs memory id buk,
                s_cpudt for bkpf-cpudt memory id cpud, "default sy-datum
                s_budat for bkpf-budat memory id bud.
PARAMETERS: t_ledger like glu1-rldnr default 'JT'.
SELECTION-SCREEN SKIP.
parameters p_chain AS CHECKBOX DEFAULT 'X'. "выполнение цепочки
selection-screen end of block 1.

at selection-screen.
if s_cpudt is initial.
    S_CPUDT-low = sy-datum - 1.
    S_CPUDT-high = sy-datum - 1.
endif.

AT SELECTION-SCREEN.
  IF s_cpudt[] IS INITIAL.
    s_cpudt-option = 'EQ'.
    s_cpudt-sign = 'I'.
    s_cpudt-low = sy-datum - 1.
    s_cpudt-high = sy-datum - 1.
    APPEND s_cpudt.
  ENDIF.