Friday, 15 May 2015

How to add column on popup message log


image
DATA: gs_log          TYPE bal_s_log,
      gt_log          TYPE bal_t_logh,
      gs_log_handle   TYPE balloghndl,
      gs_msg          TYPE bal_s_msg,
      gt_msg          TYPE bal_t_msgh,
      gs_disp_profile TYPE bal_s_prof,
      gs_fcat TYPE bal_s_fcat,
      gs_context type ZPP_ORD_OPER.

________________________________________________________________________
FORM create_log .
CALL FUNCTION 'BAL_LOG_CREATE'
EXPORTING
      i_s_log      = gs_log
IMPORTING
      e_log_handle = gs_log_handle.
ENDFORM.                    " CREATE_LOG

________________________________________________________________________
FORM log_msg_add  USING    value(p_msgty)
value(p_msgid)
value(p_msgno)
value(p_msgv1)
value(p_msgv2)
value(p_msgv3)
value(p_msgv4).
CLEAR: gs_msg.
  gs_msg-msgty = p_msgty.
  gs_msg-msgid = p_msgid.
  gs_msg-msgno = p_msgno.
  gs_msg-msgv1 = p_msgv1.
  gs_msg-msgv2 = p_msgv2.
  gs_msg-msgv3 = p_msgv3.
  gs_msg-msgv4 = p_msgv4.
 
gs_context-order = v_order.
  gs_context-operation = v_oper.
  gs_msg-context-value = gs_context.
  gs_msg-context-tabname = 'ZPP_ORD_OPER'.

CALL FUNCTION 'BAL_LOG_MSG_ADD'
EXPORTING
      i_s_msg = gs_msg.
ENDFORM.                    " LOG_MSG_ADD

________________________________________________________________________
FORM show_log .
*------Set Popup Screen------
CALL FUNCTION 'BAL_DSP_PROFILE_POPUP_GET'
EXPORTING
      start_col           = 5
      start_row           = 5
      end_col             = 120
      end_row             = 25
IMPORTING
      e_s_display_profile = gs_disp_profile.
  gs_disp_profile-use_grid ='X'.

CLEAR gs_fcat.
  gs_fcat-ref_table = 'ZPP_ORD_OPER'.
  gs_fcat-ref_field = 'ORDER'.
  gs_fcat-col_pos = 0.
APPEND gs_fcat TO gs_disp_profile-mess_fcat.
  gs_fcat-ref_table = 'ZPP_ORD_OPER'.
  gs_fcat-ref_field = 'OPERATION'.
  gs_fcat-col_pos = 1.
APPEND gs_fcat TO gs_disp_profile-mess_fcat.

*------Display Log-----------
CALL FUNCTION 'BAL_DSP_LOG_DISPLAY'
EXPORTING
      i_s_display_profile = gs_disp_profile
      i_t_log_handle      = gt_log
      i_t_msg_handle      = gt_msg.
ENDFORM.                    " SHOW_LOG

________________________________________________________________________
FORM clear_log .
CALL FUNCTION 'BAL_LOG_MSG_DELETE_ALL'
EXPORTING
      i_log_handle = gs_log_handle.
ENDFORM.                    " CLEAR_LOG

________________________________________________________________________






No comments:

Post a Comment