|
El codigo esta abajo . Bueno no lo probe pero el usuario no quiere ver ese pegote en la sost . Yo creo que es un problema de configuracion estoy cambiando parametros en la Scot pero de momento nada .
Gracias y un saludo
CLEAR: w_documentdata, i_objpack, i_objatt.
REFRESH: i_objpack, i_objatt.
d_spool = i_spool-spool.
* Recuperamos los datos que se van a adjuntar en el mail
CALL FUNCTION 'RSPO_RETURN_SPOOLJOB'
EXPORTING
rqident = d_spool
* FIRST_LINE = 1
* LAST_LINE =
* DESIRED_TYPE =
* IMPORTING
* REAL_TYPE = G_DOC_TYPE
TABLES
buffer = i_objatt
* BUFFER_PDF =
EXCEPTIONS
no_such_job = 1
job_contains_no_data = 2
selection_empty = 3
no_permission = 4
can_not_access = 5
read_error = 6
type_no_match = 7
OTHERS = 8.
w_documentdata-obj_name = 'MENSAJE'.
IF i_spool-fuera = 'X'.
w_documentdata-obj_descr = text-c06.
ELSE.
w_documentdata-obj_descr = text-c05.
ENDIF.
CONCATENATE w_documentdata-obj_descr ':' i_spool-arbpl
i_spool-descr
INTO w_documentdata-obj_descr SEPARATED BY space.
w_documentdata-sensitivty = 'F'.
w_documentdata-obj_expdat = sy-datum + 30.
w_documentdata-no_change = 'X'.
CLEAR i_objpack-transf_bin.
i_objpack-head_start = 1.
i_objpack-head_num = 10.
i_objpack-body_start = 1.
i_objpack-body_num = 10.
i_objpack-doc_type = 'RAW'.
APPEND i_objpack.
* Datos del attachment / contenido
DESCRIBE TABLE i_objatt LINES d_lines.
READ TABLE i_objatt INDEX d_lines.
w_documentdata-doc_size =
( d_lines - 1 ) * 255 + STRLEN( i_objatt ).
i_objpack-transf_bin = 'X'.
i_objpack-head_start = 1.
i_objpack-head_num = 1.
i_objpack-body_start = 1.
i_objpack-body_num = d_lines.
i_objpack-doc_type = 'ALI'.
i_objpack-obj_name = 'CALIBRACION'.
i_objpack-obj_descr = text-c05.
i_objpack-doc_size = d_lines * 255.
APPEND i_objpack.
REFRESH: i_receivers, i_mail.
CLEAR: i_receivers, i_mail.
SELECT low
FROM zsreceivers
INTO TABLE i_mail
WHERE repid = sy-repid
AND criterio = c_ptrab
AND valor = i_spool-arbpl.
CLEAR wrk_receivers.
wrk_receivers-com_type = 'INT'.
wrk_receivers-rec_type = 'U'.
LOOP AT i_mail.
IF sy-tabix <> 1.
wrk_receivers-copy = 'X'.
ENDIF.
wrk_receivers-receiver = i_mail-zzmail.
TRANSLATE wrk_receivers-receiver TO LOWER CASE. "#EC TRANSLANG
APPEND wrk_receivers TO i_receivers.
ENDLOOP.
REFRESH i_objcont.
CLEAR i_objcont.
d_linea = text-c04.
APPEND d_linea TO i_objcont.
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
EXPORTING
document_data = w_documentdata
* PUT_IN_OUTBOX = 'X'
commit_work = 'X'
* IMPORTING
* SENT_TO_ALL =
* NEW_OBJECT_ID =
TABLES
packing_list = i_objpack
* OBJECT_HEADER =
contents_bin = i_objatt
contents_txt = i_objcont
* CONTENTS_HEX =
* OBJECT_PARA =
* OBJECT_PARB =
receivers = i_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.
ENDLOOP.
ENDIF.
|