На селективном экране !!!

Askhat Bayarlin

Всем привет!!! Столкнулся с проблемой: на селективном экране через параметр select-options задаеться дата. По умолчанию при компиляции программы в выборке даты, в поле "с" должна стоять началная дата этого месяца. Никак не могу сделать. Ниже привожу код.

Code:

data: day_val(20), z_day(20), zapp type sy-datum.

SELECT-OPTIONS: Balansed for aufk-bukrs OBLIGATORY no-EXTENSION,
                date_t  for aufk-erdat DEFAULT zapp to sy-datum  no-EXTENSION.
parameters: p_ERNAM like aufk-ernam ." MATCHCODE OBJECT Z_ASKHAR_test.
."type ZUSER AS LISTBOX VISIBLE LENGTH 20.

at SELECTION-screen on date_t.
 start-of-selection.
 PERFORM  sel_data_sel_opt  USING  sy-datum+4(2)
                 CHANGING Z_day.

 CONCATENATE  sy-datum+0(6) z_day INTO zapp.

 end-of-selection.

FORM sel_data_sel_opt  USING    day_val
                 CHANGING Z_day.

  CASE day_val.
    WHEN '01'. Z_day = '01'.
    WHEN '02'. Z_day = '01'.
    WHEN '03'. Z_day = '01'.
    WHEN '04'. Z_day = '01'.
    WHEN '05'. Z_day = '01'.
    WHEN '06'. Z_day = '01'.
    WHEN '07'. Z_day = '01'.
    WHEN '08'. Z_day = '01'.
    WHEN '09'. Z_day = '01'.
    WHEN '10'. Z_day = '01'.
    WHEN '11'. Z_day = '01'.
    WHEN '12'. Z_day = '01'.
  ENDCASE.
ENDFORM.

Кто знает выход и решение?????

DKiyanov

я так понял "должна стоять началная дата этого месяца" - имеется в виду текущий месяц.
и вобще не совсем понял что вам надо сделать - старайтесь излагать свои мысли яснее

Code:

select-options data for sy-datum.

initialization.
  refresh data.
  clear data.
  data(3) = 'IEQ'.
  data-low = sy-datum.
  data-low+6(2) = '01'.

111

Askhat Bayarlin написал:

Всем привет!!! Столкнулся с проблемой: на селективном экране через параметр select-options задаеться дата. По умолчанию при компиляции программы в выборке даты, в поле "с" должна стоять началная дата этого месяца. Никак не могу сделать. Ниже привожу код.

Это решается вообще без единой строчки АВАР-кода.
1.) Создаем вариант запуска программы (кнопка "Сохранить" на селекционном экране).
2.) Для поля даты в столбце "Переменная выбора" выбираем "Динамический расчет даты" (D).
3.) В столбце "Имя переменной" выбираем "Первое число текущего месяца".
4.) Сохраняем вариант.
5.) Вроде все.

111

Askhat Bayarlin написал:

...
at SELECTION-screen on date_t.
start-of-selection.
...
CONCATENATE sy-datum+0(6) z_day INTO zapp.

тогда уж

Code:

INITIALIZATION.
...
 CONCATENATE  sy-datum(6) '01' INTO date_t-low.
...
 start-of-selection.
...

El Mario

111 написал(а):

Это решается вообще без единой строчки АВАР-кода.
1.) Создаем вариант запуска программы (кнопка "Сохранить" на селекционном экране).
2.) Для поля даты в столбце "Переменная выбора" выбираем "Динамический расчет даты" (D).
3.) В столбце "Имя переменной" выбираем "Первое число текущего месяца".
4.) Сохраняем вариант.
5.) Вроде все.

Хм... тока если экран 1000

Bully

Askhat Bayarlin написал:

Ниже привожу код.

Пожалуйста, используй тег code для оформления кода.

Askhat Bayarlin

Есть селективный экран с параметром выбора за период времени! То есть вводиться начальная дата и конечная дата. В отчет выводятся данные за данный период времени.

выглядит примерно та "За период с_____ по_____"

с______-сюда будет вводиться дата с какого момента нужна выгрузка данных

по______- сюда по какою дату.

Мне нужно чтоб поле "с_____" автоматически заполнялось, допустим, значением 01.09.2008 (уже в самом селективе) если программа запускалась в сентября или же 01.08.2008 если в августе текущего года.

использовал параметр select-options........DEFAULT val1 [TO val2]

Где val я задал значение sy-datum и не знаю что делать с val1

Выше я привел функцию заполнения val. Вроде все ок, только она не хочет работать![/img]

ROKO

Code:

AT SELECTION-SCREEN OUTPUT.
*
IF c_budat-low IS INITIAL.
      CALL FUNCTION 'G_PERIOD_GET'
        EXPORTING
          variant                        = 'K4'
        IMPORTING
          period                         = ld_actual_period
          year                           =  ld_actual_year
        EXCEPTIONS
          ledger_not_assigned_to_company = 1
          period_not_defined             = 2
          variant_not_defined            = 3
          OTHERS                         = 4.

      IF sy-subrc = 0.
        CALL FUNCTION 'G_POSTING_DATE_OF_PERIOD_GET'
          EXPORTING
            period              = ld_actual_period
            variant             = gs_tka01-lmona
            year                = ld_actual_year
          IMPORTING
            from_date           = c_budat-low
            to_date             =   c_budat-high
          EXCEPTIONS
            period_not_defined  = 1
            variant_not_defined = 2
            OTHERS              = 3.
      ENDIF.

KVL

Askhat Bayarlin написал:

Есть селективный экран с параметром выбора за период времени! То есть вводиться начальная дата и конечная дата. В отчет выводятся данные за данный период времени.

выглядит примерно та "За период с_____ по_____"

с______-сюда будет вводиться дата с какого момента нужна выгрузка данных

по______- сюда по какою дату.

Мне нужно чтоб поле "с_____" автоматически заполнялось, допустим, значением 01.09.2008 (уже в самом селективе) если программа запускалась в сентября или же 01.08.2008 если в августе текущего года.

использовал параметр select-options........DEFAULT val1 [TO val2]

Где val я задал значение sy-datum и не знаю что делать с val1

Выше я привел функцию заполнения val. Вроде все ок, только она не хочет работать![/img]

Code:

SELECT-OPTIONS: rg_sdate FOR sy-datum OBLIGATORY. 
...............
INITIALIZATION.

IF rg_sdate[] IS INITIAL. "Период текущий месяц по умолчанию
     rg_sdate-LOW = sy-datum.  "текущая дата
     rg_sdate-LOW+6(2) = '01'. "первый день месяца
     rg_sdate-HIGH = rg_sdate-LOW.
     if rg_sdate-HIGH+4(2) ne '12'. "определяем...
        rg_sdate-HIGH+4(2) = rg_sdate-HIGH+4(2) + 1.
         else.
         rg_sdate-HIGH(4) = rg_sdate-HIGH(4) + 1.
         rg_sdate-HIGH+4(2) = rg_sdate-HIGH+4(2) + 1.
     endif.
     rg_sdate-HIGH = rg_sdate-HIGH - 1. "последний день месяца
     append rg_sdate.
  ENDIF.

Вот так!

С Вас, Askhat Bayarlin, 2 пива за фриланс...

Rokhay

KVL написал:

Вот так!

С Вас, Askhat Bayarlin, 2 пива за фриланс...

Askhat Bayarlin, максимум - одно пиво, и только El Mario

El Mario

Высылайте ... жду... :lol:

Правила форума

На селективном экране !!!

Кто сейчас на конференции