INCENTIVE FOR Pompt Payment by Customer

Question

Hi Gurus,
Here I have one Issue Related to DM VS FICA(IS –U). Our Client used to give Incentive for Prompt payment. Subject to some Condition.
Condition
No1. Business Partner has to consume more than 75% on Demand.
No 2. He has to make Payment before the Due date.
Even after fulfilling the above two conditions. System should calculate the Incentive but it should not release the Incentive or set off it against the Open item Up to 1 month.
But now what happening is, the system Calculates Incentive as per requirement but Deducted in the two Consecutive months.
How to stop the System, from it is being deducted more than one time.
It is an very urgent issue. Please give Solutions as earlier as Possible.
Thanks in Advance
Regards
S. Babu

Answer 1

Hi Amalan,
I Confirm that it is Plugged with Event 0042 and it is Triggering the following FM. and the Source Code.
I hope this have enough information.
function z_fkk_sample_0042.
*"*"Local Interface:
*"  IMPORTING
*"     VALUE(I_FKKKO) LIKE  FKKKO STRUCTURE  FKKKO
*"     VALUE(I_FKKOP) LIKE  FKKOP STRUCTURE  FKKOP
*"  EXPORTING
*"     VALUE(E_AUGRS_INV) LIKE  BOOLE-BOOLE
"*"Local Interface:
"  IMPORTING
"     VALUE(I_FKKKO) LIKE  FKKKO STRUCTURE  FKKKO
"     VALUE(I_FKKOP) LIKE  FKKOP STRUCTURE  FKKOP
"  EXPORTING
"     VALUE(E_AUGRS_INV) LIKE  BOOLE-BOOLE
*if  i_fkkop-hvorg = '0040' and i_fkkop-tvorg = '0020'.
*    e_augrs_inv = 'X'.
*ENDIF.
*BREAK-POINT.
  types: begin of ty_erdb,
           doc_no type erdb-invopbel,
           prt_do type erdb-opbel,
         end of ty_erdb,
         begin of ty_erchc,
           prt_do type erchc-opbel,
           bil_do type erchc-belnr,
         end of ty_erchc.
  data : t_fkkko type fkkko.
  data : t_fkkop type fkkop.
  data : v_budat type budat.
******* changes by Ateeq ur Rahman, 8th Aprail 2013.
  data: it_dfkkop type table of dfkkop,
        it_erdb type table of ty_erdb,
        it_erchc type table of ty_erchc,
        it_dber type table of dberchz1,
        wa_dfkkop type dfkkop,
        wa_erdb type ty_erdb,
        wa_erchc type ty_erchc,
        wa_dber type dberchz1.
  "Changes on 17/03/2014
*  DATA: lit_dfkkop TYPE TABLE OF dfkkop.
if  i_fkkop-hvorg = '0040' and i_fkkop-tvorg = '0020'.
    e_augrs_inv = 'X'.
endif.
if i_fkkop-hvorg = '0100' and i_fkkop-tvorg = '0025'.
**  LOGIF TO CHECK If AUGBD <= BUDAT+10days
*            v_budat = I_fkkop-budat + 10.
*    IF I_fkkop-augbd LE v_budat.
**  LFI Line Item Type ZA0015 in the Table DBERCHZ1
  e_augrs_inv = 'X'.
*  ENDIF.
endif.
  if i_fkkop is not initial.
    select * from dfkkop into table it_dfkkop
                         where opbel = i_fkkop-opbel
                           and opupw = i_fkkop-opupw
                           and opupk = i_fkkop-opupk
                           and opupz = i_fkkop-opupz.
  endif.
  if it_dfkkop is not initial.
    select invopbel
           opbel from erdb into table it_erdb
                       for all entries in it_dfkkop
                       where opbel = it_dfkkop-opbel.
  endif.
*  DATA:   BEGIN OF wa_fkkop,
*          hvorg TYPE fkkop-hvorg,
*          tvorg TYPE fkkop-tvorg,
*          END OF wa_fkkop.
  t_fkkko = i_fkkko.
  t_fkkop = i_fkkop.
  if it_erdb is not initial.
    select opbel belnr from erchc into table it_erchc
                                  for all entries in it_erdb
                                  where opbel = it_erdb-prt_do.
  endif.
  if it_erchc is not initial.
    select * from dberchz1 into table it_dber
                           for all entries in it_erchc
                           where belnr = it_erchc-bil_do
                             and belzart = 'ZA0015'
                             and tvorg = '0025'.
  endif.
          if sy-subrc is initial.
            v_budat = wa_dfkkop-budat + 10.
            if wa_dfkkop-augbd le v_budat.
              wa_dfkkop-augrs = '8'.
              e_augrs_inv = 'X'.
           else.
              e_augrs_inv = ''.
            endif.
          endif.
*LOOP AT it_dfkkop INTO wa_dfkkop.
*IF wa_dfkkop-hvorg = '0100' and wa_dfkkop-tvorg = '0025'.
* v_budat = wa_dfkkop-budat + 10.
*  IF wa_dfkkop-augbd LE v_budat.
**     wa_dfkkop-AUGRS = '8'.
*     e_augrs_inv = 'X'.
*  ENDIF.
* ENDIF.
****************************BEGIN OF CHANGES BY MOHD FAROOQ***********************
*         E_AUGRS_INV = 'X'.
****************************END OF CHANGES BY MOHD FAROOQ*************************
*    else.
*              e_augrs_inv = ''.
*        ENDIF.
*      ENDIF.
*    ENDIF.
*  ENDIF.
*ENDLOOP.
endfunction.