Restrict Formula Calls in Sales Order Pricing

Question

Hi All,
I have created a pricing conditon formula to get the price for the real time contract price from a third party Contract management system through a RFC call, and assigned the formula to a condition type.
In this formula, if there was an error i am exporting the error message to a memory and importing the value from that memory to set a billing block in the user exit SAVE_PREPARE_DOCUMENT (MV45AFZZ).
The problem i am facing is that the formula is getting called many times uncessarily for eg. when you click pricing etc
and not necessarily updates the price all times. Actually the price is not updated when called from the following routine and is basically because of the following code.
Form: xkomv_bewerten.
IF xkomv-kofrm NE 0 AND wertformel EQ space AND komp-kposn NE 0.* rettkomv = xkomv*.
xkwert = xkomv-kwert. frm_kondi_wert-nr = xkomv-kofrm. PERFORM (frm_kondi_wert) IN PROGRAM saplv61a IF FOUND. xkomv = rettkomv.
ENDIF.
During Change Sales Order, because of this even a billing block is set before, it is getting cleared without updating the price.
Can somone help me with this?
Thanks.
Martin

Answer 1

I coded  this logic in a 906 pricing routine... and I did not have any problem bcoz of multiple hits... SAP is taking care of when to update values as per the calculations I am doing here....
if I remember right SAPLV61A is the main program which will be included with all sorts of code related to routines..
* Call the RFC wrapper in a new task
  CALL FUNCTION 'ZTEST'
    STARTING NEW TASK taskname
    DESTINATION 'NONE'
    PERFORMING ret ON END OF TASK
    EXPORTING
      comm_head_i           = wa_komk_i
      comm_item_i           = wa_komp_i
    EXCEPTIONS
      communication_failure = 1
      system_failure        = 2
      resource_failure      = 3.
  IF sy-subrc EQ 0.
    WAIT UP TO 1 SECONDS.
  ENDIF.
* Get the values from the RFC shared memory export
  CONCATENATE 'ZTESTVPRS' sy-uname INTO memid1.
  IMPORT lt_komp = comm_item_e
  FROM SHARED BUFFER indx(st) ID memid1.
  wa_komp_o = comm_item_e.
  IF sy-subrc EQ 0.
    DELETE FROM SHARED BUFFER indx(st) ID memid1.
  ENDIF.
* Get the Header level from RFC shared memory
  CONCATENATE 'ZTESTVPRS_H' sy-uname INTO memid2.
  IMPORT lt_komk = comm_head_e
  FROM SHARED BUFFER indx(st) ID memid2.
  wa_komk_o = comm_head_e.
  IF sy-subrc EQ 0.
    DELETE FROM SHARED BUFFER indx(st) ID memid2.
  ENDIF.