ФМ или BAPI для выделений средств в FM

DM

Не подскажите ФМ или BAPI для сокращения выделений средств вручную в Управлении бюджетом.
тр. FMX6, FMY6, FMZ6.

John Doe

По кодам транзакций выйдете на группу функций. Там пару ФМ подходящих присутствуют.

DM

John Doe написал:

По кодам транзакций выйдете на группу функций. Там пару ФМ подходящих присутствуют.

Да уже весь пакет FMRE перерыл, все группы функций в пакете. Ничего путного не нашел.

John Doe

А группа функций FMFR разве не оно? Там есть ФМ FMFR_CHANGE_FROM_DATA.

DM

John Doe написал:

А группа функций FMFR разве не оно? Там есть ФМ FMFR_CHANGE_FROM_DATA.

Может конечно и оно, но есть смутные сомнения, что этот ФМ используется только для изменения существующих данных в документе.
При сокращении вручную указывается сумма сокращения (KBLD-WTCONS), а этого поля во входящих параметрах я не наблюдаю.

Sergeant

Апну тему.
Не нашел в FMFR_CHANGE_FROM_DATA возможности менять количества в ассигнованиях, а мне нужно именно это.
?

gar_sa

Привет! Столкнулся с такой же задачей, прошло время, может сегодня кто знает?

author

Класс CL_FM_EF_FACTORY и сопутствующие посмотрите

Dim

Присоединяюсь - может кто-нибудь подскажет ФМ или метод которым можно сделать сокращение FMZ6/FMV6....?

Искал в CL_FM_EF_FACTORY - что то кроме создания CREATE_FROM_DATA ничего не нашел...подошло бы и создание - но там некуда ссылку на бухдокумент поставить.

В ФМ FMFR_CHANGE_FROM_DATA и FMFR_CREATE_FROM_DATA тоже не виду нудных полей.

Можно было бы пакетником, но не вариант потому как мне надо в потоке все это пустить вместе с созданием бух документа - а там call transaction все испортит.

baboon

У меня получалось сделать ручное сокращение FMZ6 через класс CL_FM_EF_FACTORY.
Последовательность, примерно, такая:

Code:

  CALL FUNCTION 'OWN_LOGICAL_SYSTEM_GET'
    IMPORTING
      own_logical_system             = lf_sys
    EXCEPTIONS
      own_logical_system_not_defined = 1
      OTHERS                         = 2.

  cl_fm_ef_factory=>check_process_refresh( ).
  cl_fm_ef_factory=>cm_flg_process_end = 'X'.

  lr_ef_fc = cl_fm_ef_factory=>get( ).
  IF NOT lr_ef_fc IS INITIAL.
    TRY.
      CALL METHOD lr_ef_fc->get_document_position
        EXPORTING
          i_belnr          = i_belnr
          i_blpos          = i_blpos
          i_flg_force_read = 'X'
        RECEIVING
          r_pos            = lr_ef_ps.
    CATCH cx_fmef_msg INTO lr_err.
      EXIT.
    ENDTRY.

*   данные по сокращению
    ls_ref-awsys    = lf_sys.
    ls_ref-awref    = i_belnr.
    ls_ref-aworg    = i_blpos.

    ls_ref-bukrs    = i_bukrs.
    ls_ref-belnr    = i_tpbel.
    ls_ref-blpos    = i_tpbuz.
    ls_ref-gjahr    = i_tpgjr.
    ls_ref-waers    = 'RUB'.
    ls_ref-wtgesapp = i_summ.
    ls_ref-wtges    = i_summ.
    ls_ref-bldat    = sy-datum.
    ls_ref-atext    = i_text.
    ls_ref-vrgng    = c_KMAN.   "ручное сокращение

*    TRY.
*      CALL METHOD lr_ef_ps->rebuild_consumption_values.
**     ошибки не обрабатываем - нужно только обновление BPENT
*    CATCH cx_fmef_kblex_error .
*    CATCH cx_fmef_msg .
*    ENDTRY.

    TRY.
      CALL METHOD lr_ef_ps->addref
        EXPORTING
          i_f_reference = ls_ref.
    CATCH cx_fmef_msg INTO lr_err.
      EXIT.
    ENDTRY.

    TRY.
      CALL METHOD lr_ef_ps->check.
    CATCH cx_fmef_msg .
      EXIT.
    CATCH cx_fmef_error_occured .
      EXIT.
    ENDTRY.

    TRY.
      lr_ef_fc->check_all( i_flg_end_avc = 'X' ).
      CATCH cx_fmef_msg INTO lr_err.
        EXIT.
      CATCH cx_fmef_base.                           "#EC NOHANDLER
        EXIT.
    ENDTRY.

    IF sy-subrc = 0.
      CALL METHOD lr_ef_fc->update_all
        EXPORTING
          i_flg_do_post = 'X'.
      e_rc = 'X'.
    ENDIF.

Dim

Проверю...примерно по этому же пути иду...главное чтобы обновлялись и KBLE и KBLEW и KBLSUM - еще с регистром вопрос...

Dim

[quote="baboon"]У меня получалось сделать ручное сокращение FMZ6 через класс CL_FM_EF_FACTORY.
Последовательность, примерно, такая:
/quote]
Респект, работает.
Сейчас осталось доработать чтобы можно было заменить пакетник для FMZ1/FMV1 и ваще красива будет

Nikolas

Добрый день. Сокращение работает, большое спасибо. Проблема возникает со сторно сокращений. Облазал классы приведенные выше, методов для сторно не нашел. Уже подумываю как либо батчик на FMX6 писать. Подскажите, как выходили из ситуации со сторно.

Dim

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

Добрый день. Сокращение работает, большое спасибо. Проблема возникает со сторно сокращений. Облазал классы приведенные выше, методов для сторно не нашел. Уже подумываю как либо батчик на FMX6 писать. Подскажите, как выходили из ситуации со сторно.

Ну вообще сейчас та же проблема стоит.
Но насколько я понимаю суть ее в том что сделали сокращение а потом его надо отменить.
Методы там есть - проблема в том что я не смог их заставить работать.
Пока решение такое - что я делаю делаю сокращение - через классы- но с обратным знаком и не указываю ничего там кроме суммы и сумма становится свободной и ссылка на FI-документ сама уходит.
Вообще говоря наши бухи руками так и делают - заходят в FMV6 и FMZ6 и руками пишут сумму с противоположным знаком.

Вроде работает. Насколько это методологически правильно - не знаю.

Кстати сделал и ФМ-ник на создание FMV1/FMZ1(через FMFR_CREATE*) так что сейчас все красиво и без пакетников.

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

ФМ или BAPI для выделений средств в FM

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