PDF-Download direkt drucken mit CV120_START_APPLICATION

Code: Alles auswählen.

REPORT zz_test_23.
DATA: ls_draw TYPE draw.
DATA: ls_bapi_doc_aux TYPE bapi_doc_aux.
DATA: li_bapi_doc_files2 TYPE STANDARD TABLE OF bapi_doc_files2.
DATA: ls_bapi_doc_files2 TYPE bapi_doc_files2.
DATA: ld_dappl TYPE draw-dappl.
PARAMETERS:
p_dokar TYPE dokar,
p_doknr TYPE doknr,
p_dokvr TYPE dokvr,
p_doktl TYPE doktl_d.

SELECT SINGLE * FROM draw INTO ls_draw
  WHERE dokar = p_dokar
  AND   doknr = p_doknr
  AND   dokvr = p_dokvr
  AND   doktl = p_doktl.


CHECK sy-subrc EQ 0.

ls_bapi_doc_aux-doctype = ls_draw-dokar.
ls_bapi_doc_aux-docnumber = ls_draw-doknr.
ls_bapi_doc_aux-docversion = ls_draw-dokvr.
ls_bapi_doc_aux-docpart = ls_draw-doktl.


CALL FUNCTION 'BAPI_DOCUMENT_GETDETAIL2'
  EXPORTING
    documenttype               = ls_bapi_doc_aux-doctype
    documentnumber             = ls_bapi_doc_aux-docnumber
    documentpart               = ls_bapi_doc_aux-docpart
    documentversion            = ls_bapi_doc_aux-docversion
*   GETOBJECTLINKS             = ' '
*   GETCOMPONENTS              = ' '
*   GETSTATUSLOG               = ' '
*   GETLONGTEXTS               = ' '
*   GETACTIVEFILES             = 'X'
*   GETDOCDESCRIPTIONS         = 'X'
*   GETDOCFILES                = 'X'
*   GETCLASSIFICATION          = ' '
*   GETSTRUCTURE               = ' '
*   GETWHEREUSED               = ' '
*   HOSTNAME                   = ' '
*   INHERITED                  = 'X'
* IMPORTING
*   DOCUMENTDATA               =
*   RETURN                     =
 TABLES
*   OBJECTLINKS                =
*   DOCUMENTDESCRIPTIONS       =
*   LONGTEXTS                  =
*   STATUSLOG                  =
    documentfiles              = li_bapi_doc_files2
*   COMPONENTS                 =
*   CHARACTERISTICVALUES       =
*   CLASSALLOCATIONS           =
*   DOCUMENTSTRUCTURE          =
*   WHEREUSEDLIST              =
          .

CHECK sy-subrc EQ 0.
IF NOT li_bapi_doc_files2 IS INITIAL.
  READ TABLE li_bapi_doc_files2 INTO ls_bapi_doc_files2
  INDEX 1.
  ld_dappl = ls_bapi_doc_files2-wsapplication.

  CALL FUNCTION 'CV120_START_APPLICATION'
    EXPORTING
*     PF_API_MODE          =
      pf_dappl             = ld_dappl
*     PF_APPTP             = '1'
      pf_file              = ls_bapi_doc_files2-docfile
*     PF_CHECK_FILE        = ' '
*     PS_DRAW              =
*     PF_APPNR             = ' '
*     PF_URL               = ' '
*     PS_FRONTEND          =
*   TABLES
*     PT_DRAZ              =
*     PT_COMPONENTS        =
*   EXCEPTIONS
*     ERROR                = 1
*     FILE_NOT_FOUND       = 2
*     OTHERS               = 3
            .
  IF sy-subrc <> 0.
* Implement suitable error handling here
  ENDIF.
ENDIF.