ZMRM_HEADER_CHECK

Алия

Всем привет.
У меня к вам такой вопрос?
мне необходимо в ZMRM_HEADER_CHECK прописать код, который для дополнительного дебетования тянет данные из счет фактуры. Но сталкнулась с тем, что в таблице rbkp нет признака, который делит документ на счет фактуру или дополнительное дебетование.
как быть? кто нибудь с этим сталкивался?

Rokhay

Вот так делали:
BADI INVOICE_UPDATE

Code:

method if_ex_invoice_update~change_at_save.
  field-symbols <vorg> type mrm_vorgang.

*Проверка  соответствия вида операции виду документа.
* Если операция - Доп.Дебетование, то и вид документа - доп дебетования.

* Добываем вид операции.
  assign ('(SAPLMR1M)RM08M-VORGANG') to <vorg>.
  check sy-subrc = 0.

  if ( <vorg> = '3' or <vorg> = '4' )
    and s_rbkp_new-blart <> 'WD'.
    message e039(z_check_data) raising  error_with_message.
  endif.


endmethod.

Алия

получилось, спасибо всем.

field-symbols <vorg> type mrm_vorgang.
FIELD-SYMBOLS <vorg2> TYPE RBKP-XBLNR." Договор (zuonr)
DATA: ZXBLNR TYPE XBLNR.
DATA: zmtart TYPE mara-mtart.

* Добываем вид операции.
assign ('(SAPLMR1M)RM08M-VORGANG') to <vorg>.
assign ('(SAPLMR1M)RBKPV-XBLNR') to <vorg2>.

if sy-subrc EQ 0 and ( <vorg> = '3').
select single rbkp~XBLNR into ZXBLNR from RBKP inner join rseg on
rbkp~belnr = rseg~belnr where rbkp~Budat = i_RBKPV-BUDAT and rbkp~lifnr = i_RBKPV-lifnr and rseg~ebeln = si_drseg-ebeln.
if i_RBKPV-TCODE = 'MIRO' and i_RBKPV-XBLNR <> ' ' and f3 = 'ZHGS'.

<vorg2> = ZXBLNR.
endif.
endif.

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

ZMRM_HEADER_CHECK

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