Нужно разрешить для соответствующей страны (правда возможность использования точек расширения зависит от версии базиса):
Code:
FORM get_customer_badi
USING
value(p_pernr) LIKE p2001-pernr
p_tpd type ptm_times_per_day_tab
CHANGING
p_badi_instance type ref to if_ex_pt_quota_deduction.
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$\SE:(18 ) FORM GET_CUSTOMER_BADI, Начало A
data l_start_date type begda.
data l_end_date type endda.
data l_w0001 type p0001.
data l_w001p type t001p.
check not p_pernr is initial.
PERFORM get_time_limits TABLES p_tpd[]
USING l_start_date
l_end_date.
PERFORM READ_PA0001 USING l_w0001
p_pernr
l_start_date.
PERFORM READ_T001P USING l_w001p
l_w0001-WERKS
l_w0001-BTRTL.
if l_w001p-molga = '10' or
l_w001p-molga = '23'.
call method cl_exithandler=>get_instance
exporting exit_name = 'PT_QUOTA_DEDUCTION'
changing instance = p_badi_instance.
endif.
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$\SE:(1 ) FORM GET_CUSTOMER_BADI, Выход S
*$*$-Start: (1 )--------------------------------------------------------------------------------$*$*
ENHANCEMENT 1 ZHR_QUOTA_DEDUCTION. "active version
if l_w001p-molga = '33'.
call method cl_exithandler=>get_instance
exporting exit_name = 'PT_QUOTA_DEDUCTION'
changing instance = p_badi_instance.
endif.
ENDENHANCEMENT.
*$*$-End: (1 )--------------------------------------------------------------------------------$*$*
endform. " get_customizing