Funktionsbaustein EFG GET PRINT PARAMETERS

Aus SAP-Wiki
Wechseln zu: Navigation, Suche

Dieser Funktionsbaustein fragt die Druckparameter für die IS-U Druck-Workbench in einem zweistufigen Dialogprozeß ab.

Vorlage

CALL FUNCTION 'EFG_GET_PRINT_PARAMETERS'
* EXPORTING
*   X_PRINTPARAMS                 =
*   X_ARCHIVE_BOR_OBJECT          =
*   X_ARCHIVE_ARC_OBJECT          =
*   X_ARCHIVE_OBJECT_ID           =
*   X_NO_DELAYED_PRINT            = 'X'
*   X_NO_FORMKEY                  = 'X'
*   X_NO_ARCHIVE                  =
*   X_CHECK_ARCHIVE               = 'X'
*   X_FORCE_SAPSCRIPT             = 
*   X_NO_PREVIEW                  =
*   X_ONLY_PRINTER                =
*   X_NO_LAST_DOC                 =
*   X_NO_DIALOG                   =
*   X_ONLY_SENDTYPE_PRINTER       =
*   X_NO_OCL_ACTIVE               = 'X'
*   X_NO_SENDCONTROL              = 'X'
*   X_SUPPRESS_BCI_DIALOG         =
*   I_FLG_EMSG                    = 'X'
*   X_FLG_DISPLAY_ONLY            =
* IMPORTING
*   Y_PRINTPARAMS                 =
*   Y_ARCHIVE_INDEX               =
*   Y_ARCHIVE_PARAMS              =
*   Y_RECIPIENT                   =
* EXCEPTIONS
*   CANCELLED                     = 1
*   INPUT_ERROR                   = 2
*   FAILED                        = 3
*   OTHERS                        = 4
          .
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.

Coding

  DATA ls_printparams TYPE eprintparams.
  ls_printparams-device        = 'PRINTER' .
  ls_printparams-rdi           = '*' .
  ls_printparams-formkey       = '/TUP/AIF_PROD_000' .
  ls_printparams-formclass     = 'IS_U_RATE_CHANGE_NOTIFICATION' .
  ls_printparams-langu         = 'D' .
  ls_printparams-sendtype      = 'PRINTER'.
  ls_printparams-rec_valid_on  = '0' .
  ls_printparams-send_valid_on = '0' .
  ls_printparams-xsf           = '*' .
  ls_printparams-xfp           = '-' .
  ls_printparams-tdcopies      = '1' .
  ls_printparams-tddest        = 'PDF5'.
  ls_printparams-tdprinter     = .
  ls_printparams-tddataset     = 'SCRIPT'.
  ls_printparams-tdsuffix1     = 'PDF'.
  ls_printparams-tdsuffix2     = sy-uname.
  ls_printparams-tdimmed       =  .
  ls_printparams-tddelete      =  .
  ls_printparams-tdlifetime    = 8 .
  ls_printparams-tdsenddate    = 0 .
  ls_printparams-tdsendtime    = 0 .
  ls_printparams-tdscrnpos     = 0 .
  ls_printparams-tdarmod       = 2.

    CALL FUNCTION 'EFG_GET_PRINT_PARAMETERS'
      EXPORTING
        x_printparams = ls_printparams
*       X_ARCHIVE_BOR_OBJECT          =
*       X_ARCHIVE_ARC_OBJECT          =
*       X_ARCHIVE_OBJECT_ID           =
*       X_NO_DELAYED_PRINT            = 'X'
*       X_NO_FORMKEY  = 'X'
*       X_NO_ARCHIVE  =
*       X_CHECK_ARCHIVE               = 'X'
*       X_FORCE_SAPSCRIPT             = 
*       X_NO_PREVIEW  =
*       X_ONLY_PRINTER                =
*       X_NO_LAST_DOC =
*       X_NO_DIALOG   =
*       X_ONLY_SENDTYPE_PRINTER       =
*       X_NO_OCL_ACTIVE               = 'X'
*       X_NO_SENDCONTROL              = 'X'
*       X_SUPPRESS_BCI_DIALOG         =
*       I_FLG_EMSG    = 'X'
*       X_FLG_DISPLAY_ONLY            =
      IMPORTING
        y_printparams = ls_printparams
*       Y_ARCHIVE_INDEX               =
*       Y_ARCHIVE_PARAMS              =
*       Y_RECIPIENT   =
      EXCEPTIONS
        cancelled     = 1
        input_error   = 2
        failed        = 3
        OTHERS        = 4.

    IF sy-subrc <> 0.
*    Implement suitable error handling here
    ENDIF.