Tweet
Hola Foro,
tengo que hacer una sustitución (user-exit) para este perform.
PERFORM U999(ZRGGBS000) IF FOUND .
Como este código es estandard, deduzco que no puedo tocarlo.
Mi desarollo está en el FORM y lo que no se muy bien es como pasarle los parámetros.
Os dejo el código , a ver si veis lo que me falta:
FORM u999.
*FORM u999 TABLES tab_contents_txt
* it_attach
* USING p_email
* p_mtitle
* p_format
* p_filename
* p_attdescription
* p_sender_address
* p_sender_addres_type
* CHANGING p_error
* p_reciever.
DATA: int_error TYPE sy-subrc,
int_receiver LIKE sy-subrc.
DATA: w_doc_data LIKE sodocchgi1,
chr_email LIKE somlreci1-receiver.
DATA:
tab_contents_txt LIKE solisti1 OCCURS 0 WITH HEADER LINE,
tab_packing_list LIKE sopcklsti1 OCCURS 0 WITH HEADER LINE,
tab_receivers LIKE somlreci1 OCCURS 0 WITH HEADER LINE.
* Missatge: S'ha donat d' alta l' actuació' PROJ-PSPID PROJ-ZZDESCRIPCIO
DATA: chr_mtitle LIKE sodocchgi1-obj_descr.
* Omplenem el document de dades
w_doc_data-doc_size = 1.
* paràmetres del missatge
w_doc_data-obj_langu = sy-langu.
w_doc_data-obj_name = 'SAPRPT'.
w_doc_data-obj_descr = chr_mtitle .
w_doc_data-sensitivty = 'F'.
* Fill the document data and get size of attachment
* CLEAR w_doc_data.
* READ TABLE it_attach INDEX w_cnt.
* w_doc_data-doc_size =
* ( w_cnt - 1 ) * 255 + STRLEN( it_attach ).
* w_doc_data-obj_langu = sy-langu.
* w_doc_data-obj_name = 'SAPRPT'.
* w_doc_data-obj_descr = ld_mtitle.
* w_doc_data-sensitivty = 'F'.
* CLEAR t_attachment.
* REFRESH t_attachment.
* t_attachment[] = it_attach[].
* cos del missatge
CLEAR tab_packing_list.
REFRESH tab_packing_list.
tab_packing_list-transf_bin = space.
tab_packing_list-head_start = 1.
tab_packing_list-head_num = 0.
tab_packing_list-body_start = 1.
DESCRIBE TABLE tab_contents_txt LINES tab_packing_list-body_num.
tab_packing_list-doc_type = 'RAW'.
APPEND tab_packing_list.
* Create attachment notification
* t_packing_list-transf_bin = 'X'.
* t_packing_list-head_start = 1.
* t_packing_list-head_num = 1.
* t_packing_list-body_start = 1.
*
* DESCRIBE TABLE t_attachment LINES t_packing_list-body_num.
* t_packing_list-doc_type = ld_format.
* t_packing_list-obj_descr = ld_attdescription.
* t_packing_list-obj_name = ld_attfilename.
* t_packing_list-doc_size = t_packing_list-body_num * 255.
* APPEND t_packing_list.
* destinatatis del mail
CLEAR tab_receivers.
REFRESH tab_receivers.
tab_receivers-receiver = chr_email.
tab_receivers-rec_type = 'U'.
tab_receivers-com_type = 'INT'.
* t_receivers-notif_del = 'X'.
* t_receivers-notif_ndel = 'X'.
APPEND tab_receivers.
* break-point.
CALL FUNCTION 'SO_DOCUMENT_SEND_API1'
EXPORTING
document_data = w_doc_data
put_in_outbox = 'X'
* SENDER_ADDRESS = SY-UNAME
* SENDER_ADDRESS_TYPE = 'B'
commit_work = 'X'
* IMPORTING
* SENT_TO_ALL =
* NEW_OBJECT_ID =
* SENDER_ID =
TABLES
packing_list = tab_packing_list
* OBJECT_HEADER =
* CONTENTS_BIN =
contents_txt = tab_contents_txt
* CONTENTS_HEX =
* OBJECT_PARA =
* OBJECT_PARB =
receivers = tab_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
.
* omplenem codi d' error
int_error = sy-subrc.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
* control codi dels receptors del mail
LOOP AT tab_receivers.
int_receiver = tab_receivers-retrn_code.
ENDLOOP.
ENDFORM. "U999
tengo que hacer una sustitución (user-exit) para este perform.
PERFORM U999(ZRGGBS000) IF FOUND .
Como este código es estandard, deduzco que no puedo tocarlo.
Mi desarollo está en el FORM y lo que no se muy bien es como pasarle los parámetros.
Os dejo el código , a ver si veis lo que me falta:
FORM u999.
*FORM u999 TABLES tab_contents_txt
* it_attach
* USING p_email
* p_mtitle
* p_format
* p_filename
* p_attdescription
* p_sender_address
* p_sender_addres_type
* CHANGING p_error
* p_reciever.
DATA: int_error TYPE sy-subrc,
int_receiver LIKE sy-subrc.
DATA: w_doc_data LIKE sodocchgi1,
chr_email LIKE somlreci1-receiver.
DATA:
tab_contents_txt LIKE solisti1 OCCURS 0 WITH HEADER LINE,
tab_packing_list LIKE sopcklsti1 OCCURS 0 WITH HEADER LINE,
tab_receivers LIKE somlreci1 OCCURS 0 WITH HEADER LINE.
* Missatge: S'ha donat d' alta l' actuació' PROJ-PSPID PROJ-ZZDESCRIPCIO
DATA: chr_mtitle LIKE sodocchgi1-obj_descr.
* Omplenem el document de dades
w_doc_data-doc_size = 1.
* paràmetres del missatge
w_doc_data-obj_langu = sy-langu.
w_doc_data-obj_name = 'SAPRPT'.
w_doc_data-obj_descr = chr_mtitle .
w_doc_data-sensitivty = 'F'.
* Fill the document data and get size of attachment
* CLEAR w_doc_data.
* READ TABLE it_attach INDEX w_cnt.
* w_doc_data-doc_size =
* ( w_cnt - 1 ) * 255 + STRLEN( it_attach ).
* w_doc_data-obj_langu = sy-langu.
* w_doc_data-obj_name = 'SAPRPT'.
* w_doc_data-obj_descr = ld_mtitle.
* w_doc_data-sensitivty = 'F'.
* CLEAR t_attachment.
* REFRESH t_attachment.
* t_attachment[] = it_attach[].
* cos del missatge
CLEAR tab_packing_list.
REFRESH tab_packing_list.
tab_packing_list-transf_bin = space.
tab_packing_list-head_start = 1.
tab_packing_list-head_num = 0.
tab_packing_list-body_start = 1.
DESCRIBE TABLE tab_contents_txt LINES tab_packing_list-body_num.
tab_packing_list-doc_type = 'RAW'.
APPEND tab_packing_list.
* Create attachment notification
* t_packing_list-transf_bin = 'X'.
* t_packing_list-head_start = 1.
* t_packing_list-head_num = 1.
* t_packing_list-body_start = 1.
*
* DESCRIBE TABLE t_attachment LINES t_packing_list-body_num.
* t_packing_list-doc_type = ld_format.
* t_packing_list-obj_descr = ld_attdescription.
* t_packing_list-obj_name = ld_attfilename.
* t_packing_list-doc_size = t_packing_list-body_num * 255.
* APPEND t_packing_list.
* destinatatis del mail
CLEAR tab_receivers.
REFRESH tab_receivers.
tab_receivers-receiver = chr_email.
tab_receivers-rec_type = 'U'.
tab_receivers-com_type = 'INT'.
* t_receivers-notif_del = 'X'.
* t_receivers-notif_ndel = 'X'.
APPEND tab_receivers.
* break-point.
CALL FUNCTION 'SO_DOCUMENT_SEND_API1'
EXPORTING
document_data = w_doc_data
put_in_outbox = 'X'
* SENDER_ADDRESS = SY-UNAME
* SENDER_ADDRESS_TYPE = 'B'
commit_work = 'X'
* IMPORTING
* SENT_TO_ALL =
* NEW_OBJECT_ID =
* SENDER_ID =
TABLES
packing_list = tab_packing_list
* OBJECT_HEADER =
* CONTENTS_BIN =
contents_txt = tab_contents_txt
* CONTENTS_HEX =
* OBJECT_PARA =
* OBJECT_PARB =
receivers = tab_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
.
* omplenem codi d' error
int_error = sy-subrc.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
* control codi dels receptors del mail
LOOP AT tab_receivers.
int_receiver = tab_receivers-retrn_code.
ENDLOOP.
ENDFORM. "U999
Comentario