HOLA,
VER EL CÓDIGO DE MUESTRA,
LOOP AT IT_F16.
TU MÓDULO DE FUNCIÓN SMARTFORM
LLAMAR A LA FUNCIÓN FM_NAME
EXPORTANDO
-
ARCHIVE_INDEX =
-
ARCHIVE_INDEX_TAB =
-
ARCHIVE_PARAMETERS =
CONTROL_PARAMETERS = W_CPARAM
-
MAIL_APPL_OBJ =
-
MAIL_RECIPIENT =
-
MAIL_SENDER =
OUTPUT_OPTIONS = W_OUTOPTIONS
USER_SETTINGS = ' '
SNAME = SNAME
SFATHER = SFATHER
SDESIG = SDESIG
SPLACE = SPLACE
SDATE = SDATE
YR1 = YR1
TEXT = TXT
IMPORTANDO
JOB_OUTPUT_INFO = T_OTF_FROM_FM
TABLAS
ITF162 = ITF162
EXCEPCIONES
ERROR DE FORMATEO = 1
ERROR INTERNO = 2
ERROR DE ENVÍO = 3
CANCELACIÓN DE USUARIO = 4
OTROS = 5
.
SI SY-SUBRC <> 0.
FIN SI.
T_OTF[] = T_OTF_FROM_FM-OTFDATA[].
LLAMAR A LA FUNCIÓN 'CONVERT_OTF'
EXPORTANDO
FORMATO = 'PDF'
ANCHO_DE_LÍNEA_MÁXIMO = 10 "132
IMPORTANDO
TAMAÑO_DE_ARCHIVO_BINARIO = W_BIN_FILESIZE
TABLAS
OTF = T_OTF
LÍNEAS = T_PDF_TAB
EXCEPCIONES
ERR_ANCHO_DE_LÍNEA_MÁXIMO = 1
ERR_FORMATO = 2
ERR_CONV_NO_POSIBLE = 3
ERR_OTF_MALO = 4
OTROS = 5
.
SI SY-SUBRC <> 0.
MENSAJE ID SY-MSGID TIPO SY-MSGTY NÚMERO SY-MSGNO
CON SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
FIN SI.
BORRAR:W_FULL_PATH,EMPXNO.
DESCOMPACTAR ITF16-EMP_NO A ITF16-EMP_NO.
EMPXNO = ITF16-EMP_NO.
DESPLAZAR EMPXNO IZQUIERDA ELIMINANDO LÍDERES '0'.
CONCATENAR RUTA '\E' EMPXNO '.pdf' EN W_FULL_PATH.
LLAMAR A 'GUI_DOWNLOAD'
EXPORTANDO
TAMAÑO_DE_ARCHIVO_BINARIO = W_BIN_FILESIZE