BADI BADI_FDCB_SUBBAS02

Question

Hi guys: I am trying to create a sub screen for FV60 using BADI_FDCB_SUBBAS02.
How can I do this to insert new fields in my basic data tab of FV60?
please provide me some sample ABAP code
thanks
brian

Answer 1

PLEASE HELP!!!!
Thanks Pablo. Here is what I have done, but still the field doesnt appear in FV60 under a screen.
What concerns me is the BADI implementation I created "ZBADI_FDCB_SUBBAS02" appears as "INACTIVE". When I try to activate it says:
" There are already implementations active
Message no. ENHANCEMENT311
Diagnosis
The BAdI definition this is based upon cannot be used more than once. Other active implementations already exist for the same BAdI definition."
I have made sure my custom field ZZSERV is active in structure INVFO, BSEG & BKPF.
I copied function pool SAPLBADI_EXAMPLE_FDCB_BAS to SAPLZBADI_EXAMPLE_FDCB_BAS.
**Here is the code**
  System-defined Include-files.                                 *
  include lzbadi_example_fdcb_bastop.         " Global Data
  include lzbadi_example_fdcb_basuxx.         " Function Modules
  User-defined Include-files (if necessary).                    *
INCLUDE LBADI_EXAMPLE_FDCB_BASF...         " Subprograms
INCLUDE LBADI_EXAMPLE_FDCB_BASO...         " PBO-Modules
INCLUDE LBADI_EXAMPLE_FDCB_BASI...         " PAI-Modules
include lzbadi_example_fdcb_baso01.
*INCLUDE LBADI_EXAMPLE_FDCB_BASO01.
include lzbadi_example_fdcb_basi01.
*INCLUDE LBADI_EXAMPLE_FDCB_BASI01.
Here is the first include
LZBADI_EXAMPLE_FDCB_BASTOP
function-pool zbadi_example_fdcb_bas.        "MESSAGE-ID ..
tables: invfo.
data: o_badi_fdcb_subbas02  type ref to if_ex_badi_fdcb_subbas02.
constants:
      exit_name_fdcb_subbas02   type exit_def
                                value 'ZBADI_FDCB_SUBBAS02'.
2nd include is empty
Here is the 3rd include
***INCLUDE LBADI_EXAMPLE_FDCB_BASO01 .
*&      Module  receive_data  OUTPUT
      text
module receive_data output.
  if o_badi_fdcb_subbas02 is initial.
    call method cl_exithandler=>get_instance_for_subscreens
      changing
        instance                      = o_badi_fdcb_subbas02
      exceptions
        no_reference                  = 1
        no_interface_reference        = 2
        no_exit_interface             = 3
        data_incons_in_exit_managem   = 4
        class_not_implement_interface = 5
        others                        = 6.
    if sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    endif.
  endif.
object created  ?
  check not o_badi_fdcb_subbas02 is initial.
get data from main screen
  call method o_badi_fdcb_subbas02->get_data_from_screen_object
    importing
      ex_invfo = invfo.
endmodule.                 " receive_data  OUTPUT
here is the 4th include
***INCLUDE LBADI_EXAMPLE_FDCB_BASI01 .
*&      Module  receive_actual_data  INPUT
      text
module receive_actual_data input.
object created  ?
  check not o_badi_fdcb_subbas02 is initial.
get data from main screen
  call method o_badi_fdcb_subbas02->get_data_from_screen_object
    importing
      ex_invfo  = invfo.
endmodule.                 " receive_actual_data  INPUT
*&      Module  USER_COMMAND_0100  INPUT
      text
module user_command_0100 input.
check not o_badi_fdcb_subbas02 is initial.
put data to main screen
  call method o_badi_fdcb_subbas02->put_data_to_screen_object
    exporting
      im_invfo  = invfo.
endmodule.                 " USER_COMMAND_0100  INPUT