MUNDOSAP

Regresar   MUNDOSAP > DESARROLLO > Programación ABAP IV
Nombre de Usuario
Contraseña
Home Descargas Registrar FAQ Miembros Calendario Buscar Temas de Hoy Marcar Foros Como Leídos




 
 
 
Herramientas Buscar en Tema Desplegado
Prev Mensaje Previo   Próximo Mensaje Próx
  #1  
Viejo 18/12/09, 10:22:01
Hasurac Hasurac is offline
Member
 
Fecha de Ingreso: nov 2009
Mensajes: 41
Question Mandar un pdf en mail

Hola mi consulta es como puedo enviar un pdf por mail, ósea yo trasformo el smanfromts en pdf pero ahora debo enviarlo por mail y no se como e visto por la red unas opciones pero no logro entenderlas bien si alguien me podria ayudar se lo agradecería hai les pongo el código donde trasformo a pdf


DATA: lv_solicitud TYPE zthr_0004-num_solicitud,
i_pdf LIKE tline OCCURS 100 WITH HEADER LINE,
W_CTRLOP TYPE SSFCTRLOP,
V_LEN_IN LIKE SOOD-OBJLEN,
I_OTF TYPE ITCOO OCCURS 0 WITH HEADER LINE,
W_COMPOP TYPE SSFCOMPOP,
I_TLINE TYPE TABLE OF TLINE," WITH HEADER LINE,
W_RETURN TYPE SSFCRESCL,
SPOOLNO type TSP01-RQIDENT. " Orden Spool


W_CTRLOP-GETOTF = 'X'.
W_CTRLOP-NO_DIALOG = 'X'.
W_COMPOP-TDNOPREV = 'X'.
W_COMPOP-TDDEST = 'LOCL'.
W_COMPOP-TDARMOD = '1'.
W_COMPOP-TDCOPIES = '1'.
W_COMPOP-TDPRINTER = 'SAPWIN'.
W_COMPOP-TDLIFETIME = '8'.

CALL FUNCTION '/1BCDWB/SF00000006'

EXPORTING
CONTROL_PARAMETERS = W_CTRLOP
OUTPUT_OPTIONS = W_COMPOP
USER_SETTINGS = 'X'
"Aca los parametros que necesita el smartform
gp_logo = p_logo
gp_n_solicitud = p_n_solicitud
gp_nom_tra = p_nom_tra
gp_rut_tra = p_rut_tra
gp_empresa = p_empresa
gp_fech_ing_emp = p_fech_ing_emp
gp_sindicato = p_sindicato
gp_tip_boni = p_tip_boni
gp_fech_soli = p_fech_soli
gp_rut_bene = p_rut_ben
gp_nom_famil = p_nom_hc
gp_ap_paterno = p_ap_paterno
gp_ap_materno = p_ap_materno

IMPORTING
JOB_OUTPUT_INFO = W_RETURN "aca me devuelve el smartform
TABLES
tp_for001 = tp_001
EXCEPTIONS
FORMATTING_ERROR = 1
INTERNAL_ERROR = 2
SEND_ERROR = 3
USER_CANCELED = 4
OTHERS = 5.
IF SY-SUBRC NE 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

I_OTF[] = W_RETURN-OTFDATA[].

CALL FUNCTION 'CONVERT_OTF'
EXPORTING
FORMAT = 'PDF'
MAX_LINEWIDTH = 132
IMPORTING
BIN_FILESIZE = V_LEN_IN
TABLES
OTF = I_OTF
LINES = I_TLINE
EXCEPTIONS
ERR_MAX_LINEWIDTH = 1
ERR_FORMAT = 2
ERR_CONV_NOT_POSSIBLE = 3
OTHERS = 4.
IF SY-SUBRC EQ 0.
ENDIF.
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Reglas de Mensajes
no puedes crear nuevos temas
no puedes responder temas
no puedes adjuntar archivos
no puedes editar tus mensajes

El código vB está On
Las caritas están On
Código [IMG] está On
Código HTML está Off
Saltar a Foro


Husos Horarios son GMT. La hora en este momento es 09:59:43.


www.mundosap.com 2006 - Spain
software crm, crm on demand, software call center, crm act, crm solutions, crm gratis, crm web