|
#1
|
|||
|
|||
Prueba a descomentar esta linea:
"commit_work = 'X' |
#2
|
|||
|
|||
ya lo he hecho y sigue saliendo el mismo error ... he probado el codigo en otras maquinas y el error es el mismo ...
la verdad es q estoy bastante desesperada porq tengo q terminar este codigo para ya y no me funciona gracias |
#3
|
||||
|
||||
Posiblemente sea un error del BASIS, está configurada la salida por internet dentro de la SCOT???, tal vez sea por eso y t tas rompiendo las neuronas , de no ser asi a preocuparse
__________________
David Carballido Córdova |
#4
|
|||
|
|||
ENvio de mensajes SAPOffice
Yo utilizo como template este trozo de codigo y me funciona.
REPORT ZABEL_SEND_MAIL_NEW . ************************************************************************ *** COPIA DE function module:QFOA_MAIL_SENDING DATA: L_SOUD LIKE SOUD, L_OBJECT_HD_CHANGE LIKE SOOD1, L_SOOD LIKE SOOD, L_OBJCONT LIKE SOLI OCCURS 0 WITH HEADER LINE, L_RECEIVERS LIKE SOOS1 OCCURS 0 WITH HEADER LINE. * Initialization. CLEAR: L_SOUD, L_OBJECT_HD_CHANGE, L_SOOD, L_OBJCONT, L_RECEIVERS. REFRESH: L_OBJCONT, L_RECEIVERS. * Mail Type. MOVE 'RAW' TO L_SOOD-OBJTP. * Header. MOVE: SY-LANGU TO L_OBJECT_HD_CHANGE-OBJLA, 'TEXT-020' TO L_OBJECT_HD_CHANGE-OBJNAM, 'TEXT-021' TO L_OBJECT_HD_CHANGE-OBJDES, 'Descripcion' TO L_OBJECT_HD_CHANGE-OBJDES+20(12), 'F' TO L_OBJECT_HD_CHANGE-OBJSNS. *----------------------------------------------------------------------* * TEXT fill *----------------------------------------------------------------------* *Line content. CLEAR L_OBJCONT. APPEND L_OBJCONT. *Line MOVE: 'TEXT-040' TO L_OBJCONT. APPEND L_OBJCONT. *Line MOVE: 'TEXT-027' TO L_OBJCONT. APPEND L_OBJCONT. * Mail Receivers. MOVE 'AGARCIA' TO L_RECEIVERS-RECNAM. MOVE SPACE TO L_RECEIVERS-RECESC. MOVE SPACE TO L_RECEIVERS-ACONE. MOVE 'X' TO L_RECEIVERS-SNDEX. APPEND L_RECEIVERS. * Mail Sender MOVE SY-UNAME TO L_SOUD-USRNAM. CALL FUNCTION 'SO_OBJECT_SEND' EXPORTING OBJECT_HD_CHANGE = L_OBJECT_HD_CHANGE OBJECT_TYPE = L_SOOD-OBJTP TABLES OBJCONT = L_OBJCONT RECEIVERS = L_RECEIVERS EXCEPTIONS ACTIVE_USER_NOT_EXIST = 01 COMPONENT_NOT_AVAILABLE = 02 FOLDER_NOT_EXIST = 03 FOLDER_NO_AUTHORIZATION = 04 FORWARDER_NOT_EXIST = 05 NOTE_NOT_EXIST = 06 OBJECT_NOT_EXIST = 07 OBJECT_NOT_SENT = 08 OBJECT_NO_AUTHORIZATION = 09 OBJECT_TYPE_NOT_EXIST = 10 OPERATION_NO_AUTHORIZATION = 11 OWNER_NOT_EXIST = 12 PARAMETER_ERROR = 13 SUBSTITUTE_NOT_ACTIVE = 14 SUBSTITUTE_NOT_DEFINED = 15 USER_NOT_EXIST = 16 X_ERROR = 17. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|