*=======================================================================
* сел.экран
*=======================================================================

SELECTION-SCREEN BEGIN OF BLOCK bl1 WITH FRAME TITLE text-bl1.
PARAMETERS:
  p_laufd       TYPE zpy_payreg-laufd,
  p_laufi       TYPE zpy_payreg-laufi.
SELECTION-SCREEN END OF BLOCK bl1.


*=======================================================================
* события
*=======================================================================

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_laufi.
  PERFORM evt_f4_laufi CHANGING p_laufd p_laufi.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_laufd.
  PERFORM evt_f4_laufd CHANGING p_laufd p_laufi.

*=======================================================================
* подпрограммы
*=======================================================================

*&---------------------------------------------------------------------*
*&      Form  EVT_F4_LAUFI
*&---------------------------------------------------------------------*
FORM evt_f4_laufi CHANGING cv_laufd TYPE reguh-laufd
                           cv_laufi TYPE reguh-laufi.

  CALL FUNCTION 'F4_ZAHLLAUF'
    EXPORTING
      f1typ = 'I'
      f2nme = 'P_LAUFD'
    IMPORTING
      laufd = cv_laufd
      laufi = cv_laufi.

ENDFORM.                    " EVT_F4_LAUFI
*&---------------------------------------------------------------------*
*&      Form  EVT_F4_LAUFD
*&---------------------------------------------------------------------*
FORM evt_f4_laufd CHANGING cv_laufd TYPE reguh-laufd
                            cv_laufi TYPE reguh-laufi.

  CALL FUNCTION 'F4_ZAHLLAUF'
    EXPORTING
      f1typ = 'D'
      f2nme = 'P_LAUFI'
    IMPORTING
      laufd = cv_laufd
      laufi = cv_laufi.

ENDFORM.                    " EVT_F4_LAUFD