FB01 - New Field - Header Document - copy FI_HEADER_SUB_1300IM

Question

Hi,
We need to add a new field at first screen at FB01 transaction code, same like BKPF-REINDAT "Invoice Receipt Date" . We have created an APPEND at BKPF adding this new field BKPF-ZZFEC_REC_FAC.
We are using a copy of the BADI: FI_HEADER_SUB_1300IM and add this field at the subscreen SAPMF05A - 1300.
The field is not updated at the BKPF-ZZFEC_REC_FAC when we save the FI document.
We made this entry at
module d1300_pai input.
    perform put_value.
endmodule.    
form put_value .
* import header data from main screen
  call method exit->get_data_from_screen_pai
    exporting
      flt_val  = 'ES'
    importing
      ex_bkpf  = g_bkpf.
* set reference fields
   g_bkpf-xref1_hd = bkpf-xref1_hd.
*test to move to the XREF2_HD and works at this field
   write bkpf-zzfec_rec_fac to g_bkpf-xref2_hd.
* Is not working.. ¿?
   g_bkpf-zzfec_rec_fac = bkpf-zzfec_rec_fac.
* put data to main screen
  call method exit->put_data_to_screen_pai
    exporting
      im_bkpf  = g_bkpf
      flt_val  = 'ES'.
endform.        
Following the program the value is lost...
Do we have to add the new field somewhere else? use a BTE or a substitution
thanks in advance.

Answer 1

Hi
Have u seen the sample?
The PBO of the sample has this code:
IF exit IS INITIAL.
    CALL METHOD cl_exithandler=>get_instance_for_subscreens
      CHANGING
        instance                      = exit
       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.
  CALL METHOD exit->get_data_from_screen_pbo
    EXPORTING
      FLT_VAL       = 'DE'
    IMPORTING
      ex_bkpf       = g_bkpf
      ex_x_no_input = g_no_input.
  loop at screen.
   if g_no_input = 'X'.
     screen-input = 0.
     modify screen.
   endif.
  endloop.
The PAI:
call method exit->get_data_from_screen_pai
    EXPORTING
      FLT_VAL  = 'DE'
    importing
      ex_bkpf  = g_bkpf.
* set reference fields
   g_bkpf-xref1_hd = bkpf-xref1_hd.
   g_bkpf-xref2_hd = bkpf-xref2_hd.
* put data to main screen
  call method exit->put_data_to_screen_pai
    exporting
      im_bkpf  = g_bkpf
      flt_val  = 'DE'.