Smartforms

• Include text

Populate indicator in program

perform get_text using '0002' ls_detail-vbeln"Header note 1 2019.04.15
                  changing ls_header-header_note.

set indicatorin Conditions as "GS_HEADER-HEADER_NOTE <> ''",display the long text only when the it is not null
或打上“No error if no text exists”

• Error Handling

call function wf_name
    exporting
      user_settings      = ''
      id_header          = vl_buffid1
      id_detail          = vl_buffid2
      id_detail2         = vl_buffid3
      control_parameters = lwa_control
      output_options     = lwa_options
    exceptions
      formatting_error   = 1
      internal_error     = 2
      send_error         = 3
      user_canceled      = 4
      others             = 5.

  if sy-subrc <> 0.
    data lt_errortab type tsferror.
    field-symbols: <fs_errortab>  type line of tsferror.
    call function 'SSF_READ_ERRORS'
      importing
        errortab = lt_errortab.
    loop at lt_errortab assigning <fs_errortab>.
      call function 'NAST_PROTOCOL_UPDATE'
        exporting
          msg_arbgb = <fs_errortab>-msgid
          msg_nr    = <fs_errortab>-msgno
          msg_ty    = <fs_errortab>-msgty
          msg_v1    = <fs_errortab>-msgv1
          msg_v2    = <fs_errortab>-msgv2
          msg_v3    = <fs_errortab>-msgv3
          msg_v4    = <fs_errortab>-msgv4
        exceptions
          others    = 1.
    endloop.
 endif.

• control batch print

FORM _PRINT_DATA  TABLES  PT_DATA .
  DATA:LS_ROWS TYPE LINE OF LVC_T_ROW,
       LC_FMNAM       TYPE RS38L_FNAM,
       OUTPUT_OPTIONS     TYPE SSFCOMPOP,
       CONTROL_PARAMETERS TYPE SSFCTRLOP,
       LS_DATA LIKE LINE OF IT_DATA.
  
  CHECK PT_DATA[] IS NOT INITIAL.
  CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
    EXPORTING
      FORMNAME           = 'XXXXXX'
    IMPORTING
      FM_NAME            = LC_FMNAM
    EXCEPTIONS
      NO_FORM            = 1
      NO_FUNCTION_MODULE = 2
      OTHERS             = 3.
  IF SY-SUBRC EQ 0.
    CONTROL_PARAMETERS-NO_DIALOG = ''.
    CONTROL_PARAMETERS-PREVIEW   = ''.
    CONTROL_PARAMETERS-NO_OPEN   = 'X'.
    CONTROL_PARAMETERS-NO_CLOSE  = 'X'.
    CALL FUNCTION 'SSF_OPEN'
      EXPORTING
        CONTROL_PARAMETERS = CONTROL_PARAMETERS
      EXCEPTIONS
        FORMATTING_ERROR   = 1
        INTERNAL_ERROR     = 2
        SEND_ERROR         = 3
        USER_CANCELED      = 4
        OTHERS             = 5.
  ENDIF.

  CLEAR:LS_DATA, L_WA_HEADER.
  REFRESH:L_IT_DETAIL.

  LOOP AT PT_DATA INTO LS_DATA.
    


    CALL FUNCTION LC_FMNAM
      EXPORTING
        CONTROL_PARAMETERS = CONTROL_PARAMETERS
        OUTPUT_OPTIONS     = OUTPUT_OPTIONS
        USER_SETTINGS      = ' '
        is_header            = L_WA_HEADER
      TABLES
        t_detail            = L_IT_DETAIL
      EXCEPTIONS
        FORMATTING_ERROR   = 1
        INTERNAL_ERROR     = 2
        SEND_ERROR         = 3
        USER_CANCELED      = 4
        OTHERS             = 5.
    IF SY-SUBRC <> 0.
      DATA LT_ERRORTAB TYPE TSFERROR.
      FIELD-SYMBOLS: <FS_ERRORTAB>  TYPE LINE OF TSFERROR.
      CALL FUNCTION 'SSF_READ_ERRORS'
        IMPORTING
          ERRORTAB = LT_ERRORTAB.
      LOOP AT LT_ERRORTAB ASSIGNING <FS_ERRORTAB>.
        CALL FUNCTION 'NAST_PROTOCOL_UPDATE'
          EXPORTING
            MSG_ARBGB = <FS_ERRORTAB>-MSGID
            MSG_NR    = <FS_ERRORTAB>-MSGNO
            MSG_TY    = <FS_ERRORTAB>-MSGTY
            MSG_V1    = <FS_ERRORTAB>-MSGV1
            MSG_V2    = <FS_ERRORTAB>-MSGV2
            MSG_V3    = <FS_ERRORTAB>-MSGV3
            MSG_V4    = <FS_ERRORTAB>-MSGV4
          EXCEPTIONS
            OTHERS    = 1.
      ENDLOOP.
    ENDIF.
  ENDLOOP.

  CLEAR:LS_DATA, L_WA_HEADER.
  FREE:L_IT_DETAIL.

  CALL FUNCTION 'SSF_CLOSE'
    EXCEPTIONS
      FORMATTING_ERROR = 1
      INTERNAL_ERROR   = 2
      SEND_ERROR       = 3.


ENDFORM.                    " _PRING_DATA