Conversion de Orden de Spool

[amam2605]

Hola a Todos !!! Estoy presentando un detalle al convertir una orden de spool a pdf y su posterior envio, se generan 5 ordenes y justo la primera que se genera cuando llega al correo y le doy abrir me dice que no tiene informacion y da error, que podria revisar?
FORM f_get_spool_covert_pdf.

SELECT rqclient rqo1name INTO (vg_client, vg_name)
FROM tsp01
WHERE rqident = I_TSP01-RQIDENT.


CALL FUNCTION 'RSTS_GET_ATTRIBUTES'
EXPORTING
authority = 'SP01'
client = vg_client
name = vg_name
part = 1
IMPORTING
* CHARCO =
* CREATER =
* CREDATE =
* DELDATE =
* MAX_CREDATE =
* MAX_DELDATE =
* NON_UNIQ =
* NOOF_PARTS =
* RECTYP =
* SIZE =
* STOTYP =
type = vg_tipo
objtype = vg_tipo_obejto
EXCEPTIONS
fb_error = 1
fb_rsts_other = 2
no_object = 3
no_permission = 4.

* Convierto el spool en pdf, desde una tabla de sap
CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'
EXPORTING
src_spoolid = I_TSP01-RQIDENT
no_dialog = ' '
* DST_DEVICE = 'LOCL'
* PDF_DESTINATION =
IMPORTING
pdf_bytecount = vg_numbytes_pdf
pdf_spoolid = vg_pdf_spool_id
* LIST_PAGECOUNT =
btc_jobname = vg_job_name
btc_jobcount = vg_job_id
TABLES
pdf = t_pdf
EXCEPTIONS
err_no_abap_spooljob = 1
err_no_spooljob = 2
err_no_permission = 3
err_conv_not_possible = 4
err_bad_destdevice = 5
user_cancelled = 6
err_spoolerror = 7
err_temseerror = 8
err_btcjob_open_failed = 9
err_btcjob_submit_failed = 10
err_btcjob_close_failed = 11.


Muchas Gracias de antemano

AMAM

[Octaviano]

Hola amam2605,
Intenta agregar lo siguiente al final del código que mostraste:

**//.. Variable obtenida CALL FUNCTION 'RSTS_GET_ATTRIBUTES'
IF vg_tipo_obejto(3) = 'OTF'. " Si es OTF
lt_pdf_aux[] = t_pdf[].

**//.. convierte a XSTRING el PDF Obtenido
CLEAR vl_pdf.
CLEAR lw_pdf_aux.
LOOP AT lt_pdf_aux INTO lw_pdf_aux.
ASSIGN lw_pdf_aux-char TO <f_src> TYPE 'X'.
CONCATENATE vl_pdf <f_src> INTO vl_pdf IN BYTE MODE.
ENDLOOP.
ELSE. " Si no es OTF
lt_pdf_aux[] = t_pdf[].

**//.. convierte a XSTRING
CALL FUNCTION 'SCMS_TEXT_TO_XSTRING'
IMPORTING
buffer = vl_pdf
TABLES
text_tab = lt_pdf_aux
EXCEPTIONS
failed = 1
OTHERS = 2.
IF sy-subrc NE 0.
CLEAR pdf.
ENDIF.
ENDIF.

Lo que esta en la variable vl_pdf es lo que debes enviar por correo.

**//.. Donde
TYPES: BEGIN OF ty_linea,
char TYPE char134,
END OF ty_linea.

DATA: vl_pdf TYPE XSTRING,
lt_pdf_aux TYPE TABLE OF ty_linea.

FIELD-SYMBOLS: <f_src>.

Espero sea de ayuda.