|
gracias, gregory sabes soluciones con este codigo, el que colocas esta bien pero cuando se trata de un sapscript, en mi caso es un listado ABAP,
CALL FUNCTION '.....CONVERT_ABAPSPOOLJOB_2_PDF'
EXPORTING
SRC_SPOOLID = SPOOL_ID
IMPORTING
PDF_BYTECOUNT = PBYTE
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
OTHERS = 12.
break mquintero.
CHECK sy-subrc = 0.
* Transfer the 132-long strings to 255-long strings
LOOP AT T_PDF.
TRANSLATE T_PDF USING ' ~'.
CONCATENATE gd_buffer T_PDF INTO gd_buffer.
ENDLOOP.
TRANSLATE gd_buffer USING '~ '.
DO.
it_mess_att = gd_buffer.
APPEND it_mess_att.
SHIFT gd_buffer LEFT BY 255 PLACES.
IF gd_buffer IS INITIAL.
EXIT.
ENDIF.
ENDDO.
append lines of it_mess_att to i_cont_bin.
......
*---------
DESCRIBE TABLE i_cont_bin LINES TAB_LINES.
I_OBJPACK-TRANSF_BIN = 'X'.
I_OBJPACK-HEAD_START = 1.
I_OBJPACK-HEAD_NUM = 1.
I_OBJPACK-HEAD_NUM = 1.
I_OBJPACK-BODY_START = 1.
I_OBJPACK-BODY_NUM = TAB_LINES.
I_OBJPACK-DOC_TYPE = 'PDF'.
i_objpack-doc_size = PBYTE.
MOVE OBJHEAD TO I_OBJPACK-OBJ_DESCR.
MOVE OBJHEAD TO I_OBJPACK-OBJ_NAME.
I_OBJPACK-DOC_SIZE = TAB_LINES * 255.
APPEND I_OBJPACK.
.........
*-----------
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
EXPORTING
DOCUMENT_DATA = DOC_DATA
PUT_IN_OUTBOX = 'X'
TABLES
PACKING_LIST = I_OBJPACK
OBJECT_HEADER = OBJHEAD
CONTENTS_BIN = i_cont_bin
CONTENTS_TXT = OBJTXT
RECEIVERS = IT_RECEIVERS
EXCEPTIONS
TOO_MANY_RECEIVERS = 1
DOCUMENT_NOT_SENT = 2
DOCUMENT_TYPE_NOT_EXIST = 3
OPERATION_NO_AUTHORIZATION = 4
PARAMETER_ERROR = 5
X_ERROR = 6
ENQUEUE_ERROR = 7
OTHERS = 8.
__________________
Mariale
|