Создание ассигнования средств при помощи bapi

Выкладываю кусок кода для резервирования (ассигнования средств) с использованием bapi,
Транзакция fmz1

  1. fmz_head LIKE fmr_interface_head OCCURS 0 WITH HEADER LINE,
  2. fmz_position LIKE fmr_interface_det OCCURS 0 WITH HEADER LINE,
  3.  
  4.  
  5. fmz_head-blart = 'FD'.
  6. fmz_head-bukrs = '3000'.
  7. fmz_head-bltyp = '050'.
  8. fmz_head-ktext = 'Текст документа'.
  9. fmz_head-waers = 'KZT'.
  10. fmz_head-bldat = sy-datum.
  11. fmz_head-budat = sy-datum.
  12. APPEND fmz_head.
  13.  
  14. fmz_position-uebto = '30'.
  15. fmz_position-blpos = '1'.
  16. fmz_position-dmbtr = '1000'.
  17. fmz_position-wrbtr = '1000'.
  18. fmz_position-ptext = 'Текст позиции'.
  19. fmz_position-kunnr = '0000000012'.
  20. APPEND fmz_position.
  21.  
  22. CALL FUNCTION 'FMFR_CREATE_FROM_DATA'
  23. EXPORTING
  24. i_flg_commit = 'X'
  25. t_posdata = fmz_position
  26. CHANGING
  27. c_f_headdata = fmz_head
  28. EXCEPTIONS
  29. error_message = 2.
  30.  
  31. IF sy-subrc = 0.
  32. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
  33. WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

Комментарии

красава, автор жжешь, пиши исчо.