Smartforms demo

data l_work type ypm_st_pmord.
* Language
  g_control-langu = sy-langu.     "Language
* Printer dialog
  if s_diag = 'X'.
    g_control-no_dialog = ' '.
  else.
    g_control-no_dialog = 'X'.
  endif.
* Print options
  g_output-tddest     = s_print.   "Printer name
  g_output-tdcopies   = s_copy.    "Number of copies
  g_control-preview   = s_prev.    "Preview
  g_output-tdimmed    = s_pnow.    "Print immediately.
  g_output-tdnewid    = s_spol.    "New spool request


call function 'SSF_FUNCTION_MODULE_NAME'
       EXPORTING
            formname           = 'YPM_DIMMING'
       IMPORTING
            fm_name            = g_f_name
       EXCEPTIONS
            no_form            = 1
            no_function_module = 2
            others             = 3.
  if sy-subrc = 1.
    message e300 with 'Form '                                 "#EC NOTEXT
                      'YPM_DIMMING '
                      'Not found!'.                           "#EC NOTEXT
  endif.
  if sy-subrc = 2.
    message e300 with 'Function module for form '             "#EC NOTEXT
                      'YPM_DIMMING '
                      'Not found!'.                           "#EC NOTEXT
  endif.
  if sy-subrc = 3.
    message e300 with 'Error calling function '               "#EC NOTEXT
                      'SSF_FUNCTION_MODULE_NAME'.
  endif.
*
endform.                    " set_smartform_controls
*&---------------------------------------------------------------------*
*&      Form  call_smartforms
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
form call_smartforms.
  g_control-langu = a_spras.                                " C01
* Call smartform
  call function g_f_name
   exporting
     control_parameters         = g_control
     output_options             = g_output
     user_settings              = ' '
*     is_dimming                = Ypms_dimming
   importing
*   DOCUMENT_OUTPUT_INFO       =
     job_output_info            = g_jobinfo
*   JOB_OUTPUT_OPTIONS         =
    tables
    ypm_equip                  = gi_equip
    ypm_pmord                  = gi_pmord
    exceptions
     formatting_error           = 1
     internal_error             = 2
     send_error                 = 3
     user_canceled              = 4
     others                     = 5.
  if sy-subrc <> 0.
    message id sy-msgid type sy-msgty number sy-msgno
            with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  endif.
  if g_jobinfo-tdnewid <> space.
    message i200 with
    'New spool request created'.            "#EC NOTEXT

  elseif g_jobinfo-outputdone <> space.
    message i300 with
    'PM Order '                             "#EC NOTEXT
    'Printed, OK'.                          "#EC NOTEXT
  endif.

Comments

Post a Comment

Popular posts from this blog

Export data to xls using OOPS

* REPORT  ZDEMO_EXCEL20 * Demo for method zcl_excel_worksheet-bind_alv: * export data from ALV (CL_GUI_ALV_GRID) object to excel *--------------------------------------------------------------------* REPORT  zdemo_excel20. *----------------------------------------------------------------------* *       CLASS lcl_handle_events DEFINITION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_handle_events DEFINITION.   PUBLIC SECTION.     METHODS:       on_user_command FOR EVENT added_function OF cl_salv_events         IMPORTING e_salv_function. ENDCLASS.                    "lcl_handle_events DEFINITION *---------------------------------------------------------------------...
Read more

Factory method ALV sap abap

DATA lo_salv TYPE REF TO cl_salv_table , lo_functions TYPE REF TO cl_salv_functions_list , lo_columns TYPE REF TO cl_salv_columns_table , lo_columns2 TYPE REF TO cl_salv_columns_table , lo_column TYPE REF TO cl_salv_column_table , l_short TYPE scrtext_s , l_long TYPE scrtext_l , l_medium TYPE scrtext_m , lo_display TYPE REF TO cl_salv_display_settings , l_header_text TYPE lvc_title , not_found TYPE REF TO cx_salv_not_found , data_error TYPE REF TO cx_salv_data_error , l_string TYPE string , text TYPE string , oref TYPE REF TO cx_root . CONSTANTS : lc_info TYPE c VALUE 'I' , wc_error TYPE c VALUE wc_e . CLEAR : lo_salv , lo_functions . IF w_alv IS NOT INITIAL . * Use factory method TRY . CALL METHOD cl_salv_table => factory EXPORTING list_display = if_salv_c_bool_sa...
Read more

Delete Selected Record in ALV Report

form delete_selected_information.        data : i_lines type i.      *       Reading the index of the selected row in the ALV grid.   call method addressbook_grid->get_selected_rows        importing             et_index_rows = i_index_rows.      *       Check whether a row is selected or not. If not it popups a *       dialog box as warning to select a row.   describe table i_index_rows lines i_lines.        if i_lines = 0.     message i002.     exit.   endif.      *        Reads the selected rows into work area for display   loop at i_index_rows into i_selected_row.     if sy-tabix = 1.   ...
Read more