Запланированная Амортизация за период

Remus

А вот есть такой ФМ AM_SHOW_POST_DEPR - очень душевно показывает запланированную амортизацию за год, с разбивкой по периодам. Почему бы не воспользоваться :?:

Trisha

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

А вот есть такой ФМ AM_SHOW_POST_DEPR - очень душевно показывает запланированную амортизацию за год, с разбивкой по периодам. Почему бы не воспользоваться :?:

А этот ФМ показывает запланироапнную амортизацию например на 2008 год???? :wink:

Remus

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

А этот ФМ показывает запланироапнную амортизацию например на 2008 год???? :wink:

Вот уж чего нет того нет.
Хотя... Модуль показывает ровно то, что отображается в проводнике ОС (AW01N) на закладке Проведенные значения. Так что, если у вас проводник показывает на 2008 год, то и модуль покажет

Dumer

Если вам нужно на 2008 год, используйте ЛБД ADA.

Trisha

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

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

А этот ФМ показывает запланироапнную амортизацию например на 2008 год???? :wink:

Вот уж чего нет того нет.
Хотя... Модуль показывает ровно то, что отображается в проводнике ОС (AW01N) на закладке Проведенные значения. Так что, если у вас проводник показывает на 2008 год, то и модуль покажет

У меня не получается особую амортизацию получить...
Ничего не возвращает ФМ...

Trisha

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

Если вам нужно на 2008 год, используйте ЛБД ADA.

ЛБД ADA может быть вызвана только 1 раз в проге - мне это не подходит....

Trisha

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

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

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

А этот ФМ показывает запланироапнную амортизацию например на 2008 год???? :wink:

Вот уж чего нет того нет.
Хотя... Модуль показывает ровно то, что отображается в проводнике ОС (AW01N) на закладке Проведенные значения. Так что, если у вас проводник показывает на 2008 год, то и модуль покажет

У меня не получается особую амортизацию получить...
Ничего не возвращает ФМ...

Все получилось

))

Remus

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

У меня не получается особую амортизацию получить...
Ничего не возвращает ФМ...

Там при вызове надо грамотно заполнить внутренние таблички T_ANLB и T_ANLC, тогда будет возвращать

Remus

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

Все получилось

))

... что не может не радовать

Dumer

Можно использовать ФМ AM_SHOW_POST_DEPR, но получим только запланированую амортизацию по месяцам, без первоначальной и остаточной стоимости. Второй минус в том, что очень медленно работает. Третий минус, значения только за текущий год.

Чтобы вызвать ЛБД ADA несколько раз, нужно написать отчетик на ней, который будет передавать в память необходимые данные и через submit вызывать его.

Например:

Code:

REPORT  zam_os.
TABLES: *anla0, anla0, anlcv, anlav.
DATA: BEGIN OF zam_osn OCCURS 0,
   bukrs LIKE anlc-bukrs,
   anln1 LIKE anlc-anln1,
   perv LIKE anlc-kansw,
   amor LIKE anlc-knafa,
   balan LIKE anlc-kaafa,
END OF zam_osn.

START-OF-SELECTION.

SRTVR = '0013'.
BEREICH1 = '01'.

 *anla0-XNOCHECK = 'X'.

get anla0.

GET anlcv.
  zam_osn-bukrs = anlcv-bukrs.
  zam_osn-anln1 = anlcv-anln1.
  zam_osn-perv = anlcv-answ_gje.
  zam_osn-amor = anlcv-afa_gje.
  zam_osn-balan = anlcv-bchwrt_gje.
  APPEND zam_osn.

END-OF-SELECTION.
  EXPORT zam_osn TO MEMORY ID 'zam_assets'.

И вызывать в другой программе:

Code:

....................
SELECT-OPTIONS: p_bukrs FOR t001-bukrs MEMORY ID buk OBLIGATORY,
            p_fkber FOR tfkb-fkber MEMORY ID fbe,
            p_werks FOR anlz-werks MEMORY ID buk,
            p_stort FOR anlz-stort,
            p_kostl FOR anlz-kostl.
...................
DATA: BEGIN OF zam_osn OCCURS 0,
   bukrs LIKE anlc-bukrs,
   anln1 LIKE anlc-anln1,
   perv LIKE anlc-kansw,
   amor LIKE anlc-knafa,
   balan LIKE anlc-kaafa,
END OF zam_osn.
TYPE-POOLS rsds.

DATA: zperc TYPE i,
      datet LIKE sy-datum,
      trange TYPE rsds_trange,
      trange_line LIKE LINE OF trange,
      trange_frange_t_line
        LIKE LINE OF trange_line-frange_t,
      trange_frange_t_selopt_t_line
        LIKE LINE OF trange_frange_t_line-selopt_t,
      texpr TYPE rsds_texpr.
.........................

  LOOP AT p_fkber.
    trange_line-tablename = 'ANLAV'.
    trange_frange_t_line-fieldname = 'FKBER'.
    trange_frange_t_selopt_t_line-sign   = p_fkber-sign.
    trange_frange_t_selopt_t_line-option = p_fkber-option.
    trange_frange_t_selopt_t_line-low    = p_fkber-low.
    APPEND trange_frange_t_selopt_t_line
      TO trange_frange_t_line-selopt_t.
    APPEND trange_frange_t_line TO trange_line-frange_t.
    APPEND trange_line TO trange.
  ENDLOOP.

  CALL FUNCTION 'FREE_SELECTIONS_RANGE_2_EX'
    EXPORTING
      field_ranges = trange
    IMPORTING
      expressions  = texpr.


  datet+0(4) = p_year.
  DO 12 TIMES.
    datet+4(2) = sy-index.
    zperc = 100 / 12 * sy-index.

    CALL FUNCTION 'RP_LAST_DAY_OF_MONTHS'
      EXPORTING
        day_in            = datet
      IMPORTING
        last_day_of_month = datet
      EXCEPTIONS
        day_in_no_date    = 1
        OTHERS            = 2.
    WRITE: / datet NO-GAP.

    CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
      EXPORTING
        percentage = zperc
        text       = sy-index.

    SUBMIT zam_os WITH FREE SELECTIONS texpr
      WITH bukrs IN p_bukrs
      WITH anlage IN p_anlage
      WITH so_kostl IN p_kostl
      WITH so_werks IN p_werks
      WITH so_stort IN p_stort
      WITH berdatum = datet
     AND RETURN.

    IMPORT zam_osn FROM MEMORY ID 'zam_assets'.
...............................
  ENDDO.

  IMPORT zam_osn FROM MEMORY ID 'zam_assets'.

Trisha

[quote="Dumer"]Можно использовать ФМ AM_SHOW_POST_DEPR, но получим только запланированую амортизацию по месяцам, без первоначальной и остаточной стоимости. Второй минус в том, что очень медленно работает. Третий минус, значения только за текущий год.

Чтобы вызвать ЛБД ADA несколько раз, нужно написать отчетик на ней, который будет передавать в память необходимые данные и через submit вызывать его.

Например:

Code:

REPORT  zam_os.
TABLES: *anla0, anla0, anlcv, anlav.
DATA: BEGIN OF zam_osn OCCURS 0,
   bukrs LIKE anlc-bukrs,
   anln1 LIKE anlc-anln1,
   perv LIKE anlc-kansw,
   amor LIKE anlc-knafa,
   balan LIKE anlc-kaafa,
END OF zam_osn.

START-OF-SELECTION.

SRTVR = '0013'.
BEREICH1 = '01'.

 *anla0-XNOCHECK = 'X'.

get anla0.

GET anlcv.
  zam_osn-bukrs = anlcv-bukrs.
  zam_osn-anln1 = anlcv-anln1.
  zam_osn-perv = anlcv-answ_gje.
  zam_osn-amor = anlcv-afa_gje.
  zam_osn-balan = anlcv-bchwrt_gje.
  APPEND zam_osn.

END-OF-SELECTION.
  EXPORT zam_osn TO MEMORY ID 'zam_assets'.

А что обеспечивает следующий код:
LOOP AT p_fkber.
trange_line-tablename = 'ANLAV'.
trange_frange_t_line-fieldname = 'FKBER'.
trange_frange_t_selopt_t_line-sign = p_fkber-sign.
trange_frange_t_selopt_t_line-option = p_fkber-option.
trange_frange_t_selopt_t_line-low = p_fkber-low.
APPEND trange_frange_t_selopt_t_line
TO trange_frange_t_line-selopt_t.
APPEND trange_frange_t_line TO trange_line-frange_t.
APPEND trange_line TO trange.
ENDLOOP.

CALL FUNCTION 'FREE_SELECTIONS_RANGE_2_EX'
EXPORTING
field_ranges = trange
IMPORTING
expressions = texpr.

FKBER - функциональная сфера, для чего требуется заполнять данные поля?

Dumer

Это для того, чтобы можно было ограничить данные по дополнительным критериям выбора. FKBER у нас используется, как налоговый комитет.

Trisha

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

Это для того, чтобы можно было ограничить данные по дополнительным критериям выбора. FKBER у нас используется, как налоговый комитет.

То есть по тем критериям, которые есть в ЛБД ADA, но которых нет на селекционном экране ЛБД ADA? Примерно так? :wink:

Dumer

Эти критерия выбора, которые появляются на селекционном экране, если нажать кнопку "Динамические ограничения выбора" или комбинацию клавиш Shift + F4.

Trisha

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

Эти критерия выбора, которые появляются на селекционном экране, если нажать кнопку "Динамические ограничения выбора" или комбинацию клавиш Shift + F4.

А почему для получения амортизации используется поле afa_gje:
Амортизация на конец финансового года. Ведь при моделировании амортизации данное поле имеет одно значение для всех периодов.
Наверное надо брать AFA_GEP? :wink:

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

Запланированная Амортизация за период

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