Validating Internal Order Settlement Rule during creation

Question

Does anybody know of a user exit, badi, anything, that can be used to validate assignement data when creating/changing the settlement rule on an internal order?
Appreciate the help...
Sam

Answer 1

Hi, I just wanted to come back and add this extra information incase someone else needs it in the future:
I think we were finally able to come up with an acceptable solution.
<b>The Problem:
============</b>
SAP does not provide an easy way to validate detail section of a settlement rule for an internal order. The user exits that are available do not import the COBRB structure that contains the screen data entered by user in the detail screen.
<b>Solution:
===========</b>
Watch out for wrapped lines!
(1) Implement the BADI: <b>CO_SRULE_CHECK</b>; NO filter; Settlement Rule Custom Validation BADI
(see current thread for details)
Inside the <b>DISTRIBUTION_RULE_CHECK</b> method of your BADI, implement your custom validation. You can call out to your standard CO validaton module, or whatever.
(2) Implement user exit: EXIT_SAPLRKIO_002(include zxaufu02): Call settlement_rule_check.
(3) Implement a subroutine as shown (adapt to your business environment):
FORM settlement_rule_check.
DATA: exit type ref to IF_EX_CO_SRULE_CHECK.
DATA: lt_cobra LIKE cobra OCCURS 0 WITH HEADER LINE, lt_cobrb LIKE cobrb OCCURS 0 WITH HEADER LINE.
don't validate in display mode
CHECK I_ACTVT NE 03.
Call function to get the current settlement rule from
memory buffer (this is the crux of the solution)
  call function 'K_SETTLEMENT_RULE_GET'
       EXPORTING
            objnr     = i_aufk-OBJNR
            x_all     = ' '
          TABLES
            e_cobra   = lt_cobra
            e_cobrb   = lt_cobrb
          EXCEPTIONS
            not_found = 1
            others    = 2.
  if SY-SUBRC <> 0.
raising E_MESSAGE.
  endif.
Now Prepare/call BADI to check the custom rules
  class CL_EX_CO_SRULE_CHECK definition load.
create an instance of BADI
  call method cl_exithandler=>get_instance
       changing
        instance = exit.
call the check method of the BADI
  call method: exit->DISTRIBUTION_RULE_CHECK
       EXPORTING
           DISTRIBUTION_RULE = lt_cobrb
  EXCEPTIONS
     not_allowed                = 1
     not_allowed_with_msg       = 2.
either use a standard message function or create your
own
  IF sy-subrc = 1.
    PERFORM message_send
      USING 'KD' 'E' '027' space space space space space.
  ELSEIF sy-subrc = 2.
    PERFORM message_send
      USING sy-msgid sy-msgty sy-msgno
            sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
            space.                   "...
  ENDIF.
endform.
(4) Test, Test, Test. Hope it works for you.
Sam