FUNCTION Z_FI_CLEAR_DATE_DIFF.
*"----------------------------------------------------------------------
*"*"Локальный интерфейс:
*"  TABLES
*"      T_BKPF STRUCTURE  BKPF
*"      T_POSTAB STRUCTURE  AUSZ_INFO
*"----------------------------------------------------------------------
  IF SY-TCODE EQ 'FB05'.

    DATA: STR1(45).

    READ TABLE T_BKPF INDEX 1.

    LOOP AT T_POSTAB.

      IF T_POSTAB-BUDAT+(6) > T_BKPF-BUDAT+(6).

        CONCATENATE T_POSTAB-BUDAT+6(2) T_POSTAB-BUDAT+4(2)
                    T_POSTAB-BUDAT+(4) INTO STR1 SEPARATED BY '.'.
        CONCATENATE 'Док.номер' T_POSTAB-BELNR 'Дата проводки '
                    STR1 INTO STR1 SEPARATED BY ''.

        CALL FUNCTION 'POPUP_FOR_INTERACTION'
          EXPORTING
            HEADLINE = 'Дата выравнивания'
            TEXT1    = 'Период даты проводки выравнивания должен быть'
            TEXT2    = 'больше или равен периоду даты проводки более'
            TEXT3    = 'позднего документа, участвующего в выравнивании'
            TEXT4    = STR1
            TICON    = 'E'
            BUTTON_1 = 'Ok'.

        LEAVE TO SCREEN 0122.

      ENDIF.

    ENDLOOP.

  ENDIF.

ENDFUNCTION.