Планирование: перенос плановых цен из MM в CO

Sedov85

Коллеги, здравствуйте.
Подскажите, пожалуйста, решение проблемы.

Планирование договорных затрат в СО. Процесс переноса плановых цен из резервирований и заявок MM (RESB и EBAN) в CO (COEJ). С точки зрения СО, определение и перенос цен осуществляется по ключам МВЗ/Заказ и Вид затрат.
Для обработки данного процесса используется Z-программа, которая включает в себя специально разработанный ФМ ZFCO*, который, в свою очередь, состоит из 3-ёх BAPI (перечисляю по порядку включения в ФМ): BAPI_COSTACTPLN_CHECKPRIMCOST, BAPI_COSTACTPLN_POSTPRIMCOST, BAPI_TRANSACTION_COMMIT.

В таблицах Z-программы (промежуточной и итоговой) происходит однозначное определение ключей и плановых цен для выбранного периода. Далее, эти ключи и цены подаются на вход в ФМ ZFCO*, после чего должен происходить перенос данных из MM в CO.
Проблема заключается в том, что при переносе данных в COEJ создается новый документ, но с нулевыми суммами, а этого быть не должно. Должны быть указаны те суммы, которые были определены до начала работы ФМ.
Как мне сказал наш ABAP-ер и консультант по ММ, BAPI_COSTACTPLN_CHECKPRIMCOST не правильно отрабатывает, но я не могу понять в чем проблема...

Если у кого-то возникала данная проблема, подскажите, пожалуйста, как Вы ее решили.

Andrewsh

Вот код который у нас точно работает по планированию затрат:

Code:

 Do.
    Clear RETURN[].
   CALL FUNCTION 'BAPI_COSTACTPLN_CHECKPRIMCOST'
         EXPORTING
              HEADERINFO     = HEADERINFO
         TABLES
              INDEXSTRUCTURE = INDEXSTRUCTURE
              COOBJECT       = COOBJECT
              TOTVALUE       = TOTVALUE
              RETURN         = RETURN.
    FL_EXIT = 'X'.
    FL_OK = 'X'.
    Loop At RETURN.
      If RETURN-TYPE = 'E' And RETURN-NUMBER = 501 And P_IND <= 100.
        FL_EXIT =''.
      EndIf.
      If RETURN-TYPE = 'E'.
        FL_OK = ''.
      EndIf.
    EndLoop.
    If FL_EXIT = 'X'.
      Exit.
    EndIf.
  EndDo.

  If FL_OK = 'X'.
    Clear RETURN[].
    CALL FUNCTION 'BAPI_COSTACTPLN_POSTPRIMCOST'
         EXPORTING
              HEADERINFO     = HEADERINFO
         TABLES
              INDEXSTRUCTURE = INDEXSTRUCTURE
              COOBJECT       = COOBJECT
              TOTVALUE       = TOTVALUE
              RETURN         = RETURN.

    FL_OK = 'X'.
    Loop At RETURN.
      If RETURN-TYPE = 'E'.
        FL_OK =''.
      EndIf.
    EndLoop.
  EndIf.

  If FL_OK = 'X'.
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
         EXPORTING
              WAIT   = 'X'
         IMPORTING
              return = return.
  EndIf.

Andrewsh

Может вы как-то не правильно заполняете таблицы HEADERINFO, INDEXSTRUCTURE, COOBJECT и TOTVALUE?

Andrewsh

Моё заполнение таблиц:
HEADERINFO-CO_AREA = код КЕ
HEADERINFO-FISC_YEAR = год
HEADERINFO-PERIOD_FROM = период с (3х значный).
HEADERINFO-PERIOD_TO = период по (3х значный).
HEADERINFO-VERSION = версия.
HEADERINFO-PLAN_CURRTYPE = 'O' (если в валюте объекта планируем, и 'C' если в валюте КЕ).
Append HEADERINFO.

INDEXSTRUCTURE-OBJECT_INDEX = 1.
INDEXSTRUCTURE-VALUE_INDEX = 1.
INDEXSTRUCTURE-ATTRIB_INDEX = 0.
Append INDEXSTRUCTURE.

COOBJECT-OBJECT_INDEX = 1.
COOBJECT-COSTCENTER = МВЗ.
COOBJECT-ACTTYPE = ВИД РАБОТ.
COOBJECT-ORDERID = заказ.
COOBJECT-WBS_ELEMENT = СПП.
Append COOBJECT.

TOTVALUE-VALUE_INDEX = 1.
TOTVALUE-COST_ELEM = вид затрат.
TOTVALUE-RESOURCE = ресурс.
TOTVALUE-UNIT_OF_MEASURE = единица измерения.
TOTVALUE-FIX_VALUE = фиксированная сумма.
TOTVALUE-DIST_KEY_FIX_VAL = '2 '.
TOTVALUE-VAR_VALUE = переменная сумма.
TOTVALUE-DIST_KEY_VAR_VAL = '2 '.
TOTVALUE-FIX_QUAN = фиксированное кол-во.
TOTVALUE-DIST_KEY_FIX_QUAN = '2 '.
TOTVALUE-VAR_QUAN = переменное кол-во.
TOTVALUE-DIST_KEY_VAR_QUAN = '2 '.
Append TOTVALUE.

Sedov85

Привет.
У меня немного другой код:

Code:

*************************************************************
*** Заполнение заголовка ************************************
*************************************************************
  HEADERINFO-CO_AREA = KOKRS.
  HEADERINFO-FISC_YEAR = GJAHR.
  HEADERINFO-PERIOD_FROM = BUPER_N.
  HEADERINFO-PERIOD_TO = BUPER_K.
  HEADERINFO-VERSION = VERSN.
  HEADERINFO-PLAN_CURRTYPE = 'C'.
  Append HEADERINFO.

*************************************************************
*** Заполнение таблицы индексов объектов ********************
*************************************************************
  INDEXSTRUCTURE-OBJECT_INDEX = 1.
  INDEXSTRUCTURE-VALUE_INDEX = 1.
  INDEXSTRUCTURE-ATTRIB_INDEX = 0.
  Append INDEXSTRUCTURE.

*************************************************************
*** Заполнение таблицы объектов *****************************
*************************************************************
  COOBJECT-OBJECT_INDEX = 1.
  COOBJECT-COSTCENTER = KOSTL.
  COOBJECT-ACTTYPE = LSTAR.
  COOBJECT-ORDERID = AUFNR.
  COOBJECT-WBS_ELEMENT = POSID.
  Append COOBJECT.

*************************************************************
*** Заполнение таблицы значений *****************************
*************************************************************

  TOTVALUE-VALUE_INDEX = 1.
  TOTVALUE-COST_ELEM = KSTAR.
  TOTVALUE-RESOURCE = RESRC.
  TOTVALUE-UNIT_OF_MEASURE = MEINH.
  TOTVALUE-FIX_VALUE =            WKFXXF.
  TOTVALUE-DIST_KEY_FIX_VAL =     '2   '.
  TOTVALUE-VAR_VALUE =            WKFXXV.
  TOTVALUE-DIST_KEY_VAR_VAL =     '2   '.
  TOTVALUE-FIX_QUAN =             MEGXXF.
  TOTVALUE-DIST_KEY_FIX_QUAN =    '2   '.
  TOTVALUE-VAR_QUAN =             MEGXXV.
  TOTVALUE-DIST_KEY_VAR_QUAN =    '2   '.
  Append TOTVALUE.

  P_IND = 1.
  Do.
    Clear RETURN[].
    CALL FUNCTION 'BAPI_COSTACTPLN_CHECKPRIMCOST'
         EXPORTING
              HEADERINFO     = HEADERINFO
         TABLES
              INDEXSTRUCTURE = INDEXSTRUCTURE
              COOBJECT       = COOBJECT
              TOTVALUE       = TOTVALUE
              RETURN         = RETURN.
    FL_EXIT = 'X'.
    FL_OK = 'X'.
    Loop At RETURN.
      If RETURN-TYPE = 'E' And RETURN-NUMBER = 501 And P_IND <= 100.
        FL_EXIT =''.
      EndIf.
      If RETURN-TYPE = 'E'.
        FL_OK = ''.
      EndIf.
    EndLoop.
    If FL_EXIT = 'X'.
      Exit.
    EndIf.
  EndDo.

  If FL_OK = 'X'.
    Clear RETURN[].
    CALL FUNCTION 'BAPI_COSTACTPLN_POSTPRIMCOST'
         EXPORTING
              HEADERINFO     = HEADERINFO
         TABLES
              INDEXSTRUCTURE = INDEXSTRUCTURE
              COOBJECT       = COOBJECT
              TOTVALUE       = TOTVALUE
              RETURN         = RETURN.

    FL_OK = 'X'.
    Loop At RETURN.
      If RETURN-TYPE = 'E'.
        FL_OK =''.
      EndIf.
    EndLoop.
  EndIf.

  If FL_OK = 'X'.
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
         IMPORTING
              return = return.
  EndIf.
ENDFUNCTION.

После мучительного тестирования получилось запустить. Оказывается были некоторые проблемы в настройках

Спасибо за отклик

gushsha

Добрый день! Помогите, пожалуйста с проблемой. Использую фм BAPI_COSTACTPLN_POSTPRIMCOST.
Если указаны МВЗ со сроком действия в пределах текущего года, то все отлично.
Если МВЗ действует например с 15/07/2013, то выходит ошибка
"МВЗ XXX предусмотрено не во всех периодах."

в параметрах указываю
HEADERINFO:
CO_AREA = '1'
FISC_YEAR = '2013'
PERIOD_FROM = '007'
PERIOD_TO = '012'
VERSION = '000'
PLAN_CURRTYPE = 'C'

PERVALUE-FIX_VAL_PER07 = '1000'.
PERVALUE-FIX_VAL_PER08 = '1000'.
PERVALUE-FIX_VAL_PER09 = '1000'.
PERVALUE-FIX_VAL_PER10 = '1000'.
PERVALUE-FIX_VAL_PER11 = '1000'.
PERVALUE-FIX_VAL_PER12 = '1000'.
Кто сталкивался с такой проблемой?

Sedov85

Здравствуйте.
Честно говоря, с такой проблемой не сталкивался. Т.к. все МВЗ, которые создавали, имели срок действия с 1 января. Почитайте, что в help-е написано при возникновении ошибки.

Планирование: перенос плановых цен из MM в CO

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