grabar smartforms en pdf

[zebalia]

Nada tio, no me tira... no me queda claro donde le pongo el nombre del fichero. Me imagino que en la propia ruta no?

[Neo_25]

Si, en la propia ruta y le dices q extensión es.

Yo creo q usé este código para subir un fichero txt al servidor.

No te vale lo de abrir una ventana e indicar donde s ebaja?

[zebalia]

Si, en la propia ruta y le dices q extensión es.

Yo creo q usé este código para subir un fichero txt al servidor.

No te vale lo de abrir una ventana e indicar donde s ebaja?

Al final lo he hecho con una ventana. Gracias Neo, no lo habría conseguido sin tu ayuda

[Neo_25]

De nada,
a mí también me viene bien cuando me ponen el código.

Si podrías explicar un poco lo de la ventana o poner el código.

Hasta otra.

[zebalia]

Si, yo he usado los siguientes forms para sacar la ventanita.

**************FORMS
*---------------------------------------------------------------------*
* FORM GET_FILE_OUT
*---------------------------------------------------------------------*
FORM get_file_out USING value(p_type) value(p_path)
CHANGING filename p_pc.
PERFORM get_file_in_out USING p_type p_path 'S'
CHANGING filename p_pc.
ENDFORM. " GET_FILE_OUT

*---------------------------------------------------------------------*
* FORM GET_FILE_in_out
*---------------------------------------------------------------------*
FORM get_file_in_out USING value(p_type) value(p_path) value(mode)
CHANGING filename p_pc.
DATA:
* mode VALUE 'S' , "Save mode
* mode VALUE 'O' , "Open mode
mask(120) ,
title(19).
title = 'Localizar fichero'.
IF p_type = 'ASC'.
mask = ',PDF,*.PDF.'.
"mask = ',PDF,*.pdf'.
ELSE.
* mask = ',TRACM ASC,*.ASC,TRACM SDF,*.SDF.'.
mask = ',*,*,BIN,*.bin,*.PDF.'.
"mask = ',*,*,BIN,*.bin,PDF,*.pdf.'.
ENDIF.

* WINDOW STARTING AT 1 25 ENDING AT 12 45.

CALL FUNCTION 'WS_FILENAME_GET'
EXPORTING
* DEF_FILENAME = ' '
def_path = p_path
mask = mask
mode = mode
title = title
IMPORTING
filename = filename
* RC =
EXCEPTIONS
inv_winsys = 01
no_batch = 02
selection_cancel = 03
selection_error = 04.

CASE sy-subrc.
WHEN 0.
* message s899.
p_pc = 'X'. "c_ftp_marcado.
WHEN 1.
MESSAGE ID '00' TYPE 'E' NUMBER '398' WITH
'Error nº '(915) sy-subrc
' Introduzca el nombre correcto '(916)
' No es posible ayuda selección '(917).
WHEN 2.
MESSAGE ID '00' TYPE 'E' NUMBER '398' WITH
'Error nº '(015) sy-subrc
' Introduzca el nombre correcto '(916)
' No es posible ayuda selección '(917).
WHEN 3.
MESSAGE ID '00' TYPE 'S' NUMBER '398' WITH
'Cancelación de selección de ficheros'(918).
WHEN 4.
MESSAGE ID '00' TYPE 'E' NUMBER '398' WITH
'Error nº'(915) sy-subrc.
ENDCASE.
ENDFORM.







Despues de todo esto, he puesto esto para llamar a la ventana.

PARAMETERS: p_fich LIKE rlgrap-filename OBLIGATORY, "Fichero de texto
p_pc AS CHECKBOX default 'X'.


AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_fich.

* Ayuda para localizar los itabs locales.
PERFORM get_file_out USING 'ASC' 'C:\*.*'
CHANGING p_fich p_pc.

[crounly]

Si quieres conseguir la ruta de un directorio de SAP en la AL11 puedes usar este código:

DATA: server_dir TYPE DIRPROFILENAMES,
dir_al11 TYPE TYPE DIRNAME_AL11

CALL 'C_SAPGPARAM' ID 'NAME' FIELD server_dir
ID 'VALUE' FIELD dir_al11.

EJ: si el nombre en la AL11 es DIR_TMP, en dir_al11 tendras la ruta asociada a ese nombre.

[crounly]

Para desde la pantalla de seleccion te salte el explorador


SELECTION-SCREEN BEGIN OF BLOCK BLOCK02 WITH FRAME TITLE TEXT-S02.
PARAMETERS: f1 like RLGRAP-FILENAME OBLIGATORY DEFAULT 'C:\',
SELECTION-SCREEN END OF BLOCK BLOCK02.

* Ayudas, lanzar el explorador
AT SELECTION-SCREEN ON VALUE-REQUEST FOR f1.
PERFORM SET_filepath changing f1.

*&---------------------------------------------------------------------*
*& Form SET_filepath
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* <--P_F1 text
*----------------------------------------------------------------------*
FORM SET_filepath CHANGING P_F1.

data : fullpath TYPE string,
l_usract TYPE i.

CALL FUNCTION 'GUI_FILE_SAVE_DIALOG'
EXPORTING
WINDOW_TITLE = 'Explorardor de windows'
DEFAULT_EXTENSION = 'txt'
DEFAULT_FILE_NAME = 'Prueba'
IMPORTING
FULLPATH = fullpath
USER_ACTION = l_usract
.

if l_usract <> 9.
p_f1 = fullpath.
endif.
ENDFORM. " SET_filepath

PD: lo siento , pero no me deja incluir las etiquetas de código....

[leonel.vedo]

A ver si te sirve. Yo es lo q uso.

************************************************** *********** S M A R T F O R M
************************************************** ********
***---------------------------------------------------------
*** Configuración y creación del smartform
***---------------------------------------------------------
**-------------------
** variables para sacar los datos del smartform
**-------------------
*DATA:
* lfm_name TYPE rs38l_fnam,
* lw_ctrlop TYPE ssfctrlop,
* lw_compop TYPE ssfcompop,
* lw_return TYPE ssfcrescl,
* li_otf TYPE itcoo OCCURS 0 WITH HEADER LINE,
* lv_len_in TYPE i,
* li_tline TYPE TABLE OF tline WITH HEADER LINE.
*
*
******
** OBTENEMOS LOS DATOS DEL SMARTFORM
******
** llamo a mi smartform ZSGCF0001
*CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
* EXPORTING
* formname = 'ZSGCF0001' "nombre del smartform
* IMPORTING
* fm_name = lfm_name
* EXCEPTIONS
* no_form = 1
* no_function_module = 2
* OTHERS = 3.
*IF sy-subrc <> 0.
* MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
* WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
*ENDIF.
*
** para no verlo y que se marquen solos algunos botones
** para que se mande imprimir directamente
*lw_ctrlop-getotf = 'X'. "Retorno tab.OTF. Sin imprimir, visualizar
*lw_ctrlop-no_dialog = 'X'.
*lw_compop-tddest = 'LOCA'. "impresora local
*
** variables de entrada y salida para el smartform
*CALL FUNCTION lfm_name
* EXPORTING
* control_parameters = lw_ctrlop
* output_options = lw_compop
* user_settings = ' ' "tiene q estar con el espacio para q no salga la ventanita de impresión
* e_task = pi_e_task
* e_object = pi_e_object
* i_estimation = pi_i_estimation
* i_text_detail = pi_i_text_detail
* IMPORTING
* job_output_info = lw_return
* EXCEPTIONS
* formatting_error = 1
* internal_error = 2
* send_error = 3
* user_canceled = 4
* OTHERS = 5.
*IF sy-subrc <> 0.
* MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
* WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
*ENDIF.
*
*li_otf[] = lw_return-otfdata[].
*
*
******
** Obtengo el PDF en una tabla interna
******
*CALL FUNCTION 'CONVERT_OTF'
* EXPORTING
* format = 'PDF'
* max_linewidth = 132
* IMPORTING
* bin_filesize = lv_len_in
* TABLES
* otf = li_otf[]
* lines = li_tline
* EXCEPTIONS
* err_max_linewidth = 1
* err_format = 2
* err_conv_not_possible = 3
* err_bad_otf = 4
* OTHERS = 5.
*IF sy-subrc <> 0.
* MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
* WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
*ENDIF.

Yo tengo un smartform y hay un reporte el cual lo utiliza. Lo que yo debo hacer es agregarle la opcion de guardarlo en un .PDF.
Lo hace pero el pdf que me genera posee letras muy pegadas, casi superpuestas y dibuja lineas donde no deberia.
Agradeceria cualquier sugerencia.
Gracias

[Juan Pablo Andujar]

PDFs en SAP

Hay varias maneras de generar PDF's desde SAP, sobrtodo desde Smartforms. Fijate si te sirve este link EN CASTELLANO, que explica en las opciones en general

http://www.teknodatips.com.ar/sap-netweaver/175-generacion-de-pdf-en-sap-desde-spool-y-otros.html

o si no este que es más detallado

http://www.teknodatips.com.ar/sap-netweaver/8-como-crear-formularios-de-impresion-basados-en-pdf-e-imprimirlos-desde-un-programa-abap.html

Suerte!

[Ariel-StaFe]

Consulta

Neo_25:
Como estas.. en una de tus respusetas - declaraciones.. declaras
FIELD-SYMBOLS: <fs_txt> TYPE ty_tyl_txt.
Me podrias dar la declaracion de ty_tyl_txt ?
Muchisimas gracias