super->constructor( i_model = i_model ).
 
*{   INSERT         PS0K900779 

  "" for xSuite Public Sector :

  "" do not do the initializations there!

  "" Do it in /wmd/if_xf_acc~initialize to enable customer redefinitions.

  if /wmd/if_xf_acc~objecttype <> /wmd/if_dom_wmd_objtyp=>sc_fm."" '/WMD/XF_FM'

*}   INSERT

(...)

*{   INSERT         PS0K900779 

  endif.

*}   INSERT

endmethod.

*{   INSERT         PS0K900779                                        2

  if xfbc->objecttype <> '/WMD/XF_FM'.

*}   INSERT 

  iref_head   = /wmd/cl_xf_iv_head=>factory( model = me).

  iref_item   = /wmd/cl_xf_iv_item=>factory( model = me type = 'ITEM' ).

  iref_irel   = /wmd/cl_xf_iv_item=>factory( model = me type = 'IREL' ).

  iref_select = /wmd/cl_xf_iv_item=>factory( model = me type = 'SELECT' ).

  iref_acc    = /wmd/cl_xf_iv_acc=>factory( model = me).


*{   DELETE         PS0K900779                                        1

*\  if xfbc->objecttype <> '/WMD/XF_FM'.

*}   DELETE

    "" get recurring document
    iref_rd =/wmd/cl_xf_ap_rd=>factory( model = me ).

  endif.


endmethod.

** Save model reference

  model = i_model.

 
*{   INSERT         PS0K900779    

  if /wmd/if_xf_acc~objecttype <> /wmd/if_dom_wmd_objtyp=>sc_fm.
"" '/WMD/XF_FM'

*}   INSERT

    "" Initialize

 (...)
 
*{   INSERT         PS0K900779 

  endif.

*}   INSERT

  set handler on_viewer_click for all instances.

*}   REPLACE

 
endmethod.