Crear pdf en abap

Solo disponible en BuenasTareas
  • Páginas : 2 (445 palabras )
  • Descarga(s) : 0
  • Publicado : 4 de febrero de 2011
Leer documento completo
Vista previa del texto
Crear PDF en ABAP

Esto si es algo que puede serles muy útil...Por lo menos a mi me ha servido de mucho -:)

Supongamos que tienen que hacer un formulario SapScript y tienen que enviarlo porcorreo...¿Cómo lo hacen? Muy simple -;) Lo convierten en PDF.

Esta función, pide solamente una ruta donde generar el PDF, y toma los datos de la última orden de Spool que hayamos creado.*"----------------------------------------------------------
*"*"Interfase local
*" IMPORTING
*" REFERENCE(FILENAME) TYPE STRING
*"----------------------------------------------------------SELECT RQIDENT
INTO (T_TSP01-RQIDENT)
FROM TSP01
WHERE RQOWNER EQ SY-UNAME
AND RQCLIENT EQ SY-MANDT.
APPEND T_TSP01.
ENDSELECT.

SORT T_TSP01 DESCENDING.

CALLFUNCTION 'CONVERT_OTFSPOOLJOB_2_PDF'
EXPORTING
SRC_SPOOLID = T_TSP01-RQIDENT
NO_DIALOG = ''
IMPORTINGPDF_BYTECOUNT = NUMBYTES
PDF_SPOOLID = PDFSPOOLID
BTC_JOBNAME = JOBNAME
BTC_JOBCOUNT = JOBCOUNTTABLES
PDF = PDF
EXCEPTIONS
ERR_NO_OTF_SPOOLJOB = 1
ERR_NO_SPOOLJOB = 2
ERR_NO_PERMISSION =3
ERR_CONV_NOT_POSSIBLE = 4
ERR_BAD_DSTDEVICE = 5
USER_CANCELLED = 6
ERR_SPOOLERROR = 7ERR_TEMSEERROR = 8
ERR_BTCJOB_OPEN_FAILED = 9
ERR_BTCJOB_SUBMIT_FAILED = 10
ERR_BTCJOB_CLOSE_FAILED = 11
OTHERS =12.

IF SY-SUBRC EQ 0.

CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
BIN_FILESIZE = NUMBYTES
FILENAME = FILENAME...
tracking img