Para criar um campo Z no cabeçalho da MIRO, a BADI “BADI_FDCB_SUBBAS04” pode ser uma alternativa o Tutorial ABAP. Após implementada, deve-se criar uma sub tela, com o campo desejado, e o seguintes módulos nos eventos PBO e PAI, da tela criada. Veja exemplo: – Texto Fonte da Tela PROCESS BEFORE OUTPUT. MODULE RECEIVE_DATA. * PROCESS AFTER INPUT. * get again actual data from main screen MODULE RECEIVE_ACTUAL_DATA. * * implement from here on customer coding * enumerate ALL fields on the screen because of field transportation * with or within a module FIELD: INVFO-ZZPROTOCOLO. * send data back to main screen MODULE USER_COMMAND_0100. ********************************************************************************** – PBO MODULE RECEIVE_DATA OUTPUT. IF O_BADI_FDCB_SUBBAS04 IS INITIAL. CALL METHOD CL_EXITHANDLER=>GET_INSTANCE_FOR_SUBSCREENS CHANGING INSTANCE = O_BADI_FDCB_SUBBAS04 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_SUBBAS04 IS INITIAL. * get data from main screen CALL METHOD O_BADI_FDCB_SUBBAS04->GET_DATA_FROM_SCREEN_OBJECT IMPORTING EX_INVFO = INVFO. ENDMODULE. ” receive_data OUTPUT – PAI MODULE RECEIVE_ACTUAL_DATA INPUT. ** object created ? CONSTANTS: C_AKTYP(17) TYPE C VALUE ‘(SAPLFDCB)G_AKTYP’. FIELD-SYMBOLS: TYPE ANY. ASSIGN (C_AKTYP) TO . IF NE ‘A’ “H(Create)/V(modify)/A(Display) AND NE ‘V’. * get data from main screen CALL METHOD O_BADI_FDCB_SUBBAS04->GET_DATA_FROM_SCREEN_OBJECT IMPORTING EX_INVFO = INVFO. ENDIF. ENDMODULE. ” receive_actual_data INPUT MODULE USER_COMMAND_0100 INPUT. CHECK NOT O_BADI_FDCB_SUBBAS04 IS INITIAL. * put data to main screen CALL METHOD O_BADI_FDCB_SUBBAS04->PUT_DATA_TO_SCREEN_OBJECT EXPORTING IM_INVFO = INVFO. ENDMODULE. ” USER_COMMAND_0100 INPUT Com esta implementação, o campo será criado no cabeçalho da MIRO.
