method IF_EX_ME_DEFINE_CALCTYPE~DEFINE_CALCTYPE .
CHECK ch_x_lf_calctype NE 'B'.
IF im_x_nekpo-netpr <> 0.
   IF im_x_nekpo-retpo ne im_x_oekpo-retpo.
     ch_x_lf_calctype = 'C'.
   ENDIF.
ENDIF.
endmethod.