En primer lugar se debe generar la orden de Spool a partir del ALV, eso se hace setenado el parámetro “IS_PRINT” en la llamada del ALV.

lv_print-print                  = ’X’.
lv_print-no_print_listinfos     = ’X’.   ” No muestra cabecera de informacion en el pdf
lv_print-no_change_print_params = ’X’. ” Deja por defecto los parametros de impresora.

sy-batch = ’X’. “Se ejecuta de fondo el ALV, de esta forma no aparece el Popup para setear los parameotrs de impresora.

CALL FUNCTION‘REUSE_ALV_LIST_DISPLAY’
EXPORTING
is_layout          = ls_layout
it_fieldcat        = gt_fieldcat[]
is_print           = lv_print
TABLES
t_outtab           = lt_bkpf
EXCEPTIONS
program_error                     = 1
OTHERS                            = 2.

Esto generara una orden de Spool, debemos capturar el numero de orden de la siguiente manera.

DATA: it_tsp01 LIKE tsp01 OCCURS 0 WITH HEADER LINE,
ls_tsp01 TYPE tsp01.

SELECT rqident
INTO CORRESPONDING FIELDS OF TABLE it_tsp01
FROM tsp01
WHERE rqowner  EQ sy-uname
AND rqclient EQ sy-mandt.

*Ordeno en forma descendente para quedarme con el último formulario *generado
SORT it_tsp01 DESCENDING BY rqident.

READ TABLE it_tsp01 INTO ls_tsp01 INDEX 1.

f_rqident = ls_tsp01-rqident.

Para bajar la orden de Spool a formato PDF se usa la siguiente función.

DATA: gd_bytecount LIKE tst01-dsize.

DATA: x_rqid LIKE tsp01-rqident.

DATA: BEGIN OF gt_objaux OCCURS 0.
INCLUDE STRUCTURE tline.
DATA: END OF gt_objaux.

CALL FUNCTION‘CONVERT_ABAPSPOOLJOB_2_PDF’
EXPORTING
src_spoolid              = x_rqid
no_dialog                = space
IMPORTING
pdf_bytecount            = gd_bytecount
TABLES
pdf                      = gt_objaux.

Para poder bajarlo a un archivo PDF, habrá que hacer una conversión.

DATA: lines TYPE STANDARD TABLE OF hlpext WITH HEADER LINE.

LOOP AT gt_objaux.
lines-line+00(002) = gt_objaux-tdformat.
lines-line+02(132) = gt_objaux-tdline.
APPEND lines.
ENDLOOP.

CALL METHOD cl_gui_frontend_services=>gui_download
EXPORTING
filename                = p_file
filetype                = ’BIN’
CHANGING
data_tab                = lines[]

….

Se adjunta un archivo con el ejemplo correspondiente.

z_reporte_pdf

1. Ir a la transacción SE16N (también se logra con la transacción ‘N’).
2. Escribir en el campo de comandos el siguiente código &SAP_EDIT aparecerá el siguiente mensaje “Se ha activado la función de edición SAP”.
3. Se ingresa en el campo tabla el nombre de la tabla que se quiere modificar, se hace una consulta, los campos aparecerán de forma editable.
4. Luego de realizadas la modificaciones correspondientes, se deben guardar los cambios.

Ejemplo.

DATA: t_ui_function TYPE ui_functions.

APPEND cl_gui_alv_grid=>mc_fg_edit TO t_ui_function.

CALL METHOD alv->set_table_for_first_display
EXPORTING
it_toolbar_excluding = t_ui_function
i_structure_name     = ’TY_ITAB’
is_layout            = layout
CHANGING
it_fieldcatalog      = it_fieldcat[]
it_outtab            = t_alv[].

En el ejemplo se eliminan los botones de edición, hay mas opciones en la calse CL_GUI_ALV_GRID, buscar en la solapa de atributos aquellos cuyo tipo de referencia sea UI_FUNC.

Para poder realizar la modificación a la tabla interna hay que recurrir al uso de FIELD-SYMBOL, esta instrucción nos permite manejar punteros.

Como dije antes F-S es un puntero que tiene como contenido la dirección de un objeto, esto quiere decir, que apunta a un objeto, y esto justamente es lo que se debe hacer, apuntar al objeto (tabla) que carga la tabla (parametro) que queremos modificar.

Para demostrarlo con un ejemplo se ha implementado la BADI WORKER_UPDATE y se ha realizado codigo en el METODO BEFORE_UPDATE para modificar la tabla IT_OPERATION, logicamente es de la clase IMPORTING.

FIELD-SYMBOLS: <fs_tabla> TYPE cobai_t_operation .
FIELD-SYMBOLS: <fs_contrato>  TYPE LINE OF cobai_t_operation.

ASSIGN (‘(SAPLCOBT)AFVG_BT[]‘) TO <fs_tabla>.
Quizas esta sea una de las instrucciones que mas atencion debemos prestar, el parametro ‘(SAPLCOBT)AFVG_BT[]‘ es el objeto al que debe apuntarse el F-S. Si uno realiza un debug podra comprobar que al hacer el llamado a la BADI se estará asignando la tabla AFVG_BT al parametro IT_OPERATION.

Luego ya sera posible modificar la tabla correspondiente.
LOOP AT <fs_tabla> ASSIGNING <fs_contrato>.

<fs_contrato>-fordn = <fs_contrato>-ebeln.
<fs_contrato>-fordp = <fs_contrato>-ebelp.
<fs_contrato>-konnr = ”.
<fs_contrato>-ktpnr = ”.
<fs_contrato>-ebeln = ”.
<fs_contrato>-ebelp = ”.

ENDLOOP.

it_fieldcat-fieldname = ‘WRBTR’.
it_fieldcat-tabname = ‘T_ALV’.
it_fieldcat-scrtext_m = ‘Importe’.
it_fieldcat-datatype = ‘CURR’.
it_fieldcat-cfieldname = ‘WAERS_O’.
APPEND it_fieldcat.
CLEAR it_fieldcat.

La funcion que nos permite quitar ceros es la siguiente.

CALL FUNCTION ‘CONVERSION_EXIT_ALPHA_OUTPUT’

       EXPORTING

                input = c_input

       IMPORTING

               output = c_output.

Donde c_input y c_output son variables de tipo char del mismo rango que tiene la variable de tipo numerica.

Si tenemos que quirarle los ceros a una variables, por ejemplo: nro_doc TYPE bkpf-belnr

Antes de la llamada a la función debemos castear la funcion a tipo Char

MOVE nro_doc TO c_input.

Para agregar ceros a una variable se procede a utilizar la funcion

CALL FUNCTION ‘CONVERSION_EXIT_ALPHA_INPUT’

de la misma manera que se explico en el paso anterior.

Primero se selecciona la pantalla (Dynpro) donde se quiere colocar los parametros del tipo select-option. Luego se escribe el siguiente codigo en la “Lógica de proceso” de dicha dynpro.

Importante: el CALL SUBSCREEN: a_sub0101 debe ir antes del MODULE user_command_0100 de lo contrario comenzará a realizarse el proceso sin que se puedan obtener los datos del select-option.

Luego vamos a modificar el “Layout” de la dynpro.

Alli elegimos el objeto “Area Subscreen” y dibujamos tantos de estos elementos como select-options necesitemos.

Le ponemos el mismo nombre que usamos para hacer la llamada a las subscreen en el paso anterior.

Luego en el include “ZXXX_TOP” se define un select-option de la misma manera que se hace en un programa tipo Report.

SELECTION-SCREEN BEGIN OF SCREEN 0101 AS SUBSCREEN

SELECT-OPTIONS:

      nro_doc FOR bkpf-belnr,

SELECTION-SCREEN END OF SCREEN 0101.

Luego de ejecutar el programa podemos ver el resultado.

Para poder lograr esto existe un programa llamado RSTXSCRP  al ejecutarlo desde la SE38 vemos una pantalla como la que se muestra a continuación.

Si lo que se deseea principalmente es conservar una copia del SAPscript, ingresamos en el campo Nombre de objeto, el nombre del sapscript a ser exportado y en el campo Modo(EXPORT, IMPORT) escribimos EXPORT.

Luego presionamos F8. Nos aparecera una ventana de dialogo donde introduciremos la ruta donde se almacenará el archivo correspondiente al sapscript, luego precionamos Aceptar, si el SAPscript no contenia errores nos aparecerá una ventana como la siguiente.

 Si en lugar de exportar se hubiera querido Importar el SAPscript en el sistema, en la pantalla que se presenta en el paso 2 tendriamos que  ingresar el valor IMPORT en el campo Modo(EXPORT, IMPORT).

MESSAGE S001(zmensajes) WITH ‘&’.

Haciendo dobleclick en ‘zmensajes’ nos despliega la pantalla donde podremos cargar los diferentes mensajes que queremos mostrar.

El valor ’S’ antes del numero correponde al tipo de mensajes.

El número de 3 digitos corresponde al mensaje cargado por el usuario.

Son 5 los tipos de mensajes soportados.

• Tipo A(Abend): Se muestra el mensaje en una ventana de dialogo, luego de responder se cierra el programa.
• Tipo E(Error): Muestra un mensaje de error en la barra de estado.
• Tipo I(Information): Se muestra en mensaje en un popup, luego de que el usuario responda continua el proceso del sistema.
• Tipo S(Success): Muestra el mensaje en la barra de estatus.
• Tipo W(warning): Similar al tipo E.

Breve explicacion.

La ruta se almacena en una tabla interna del tipo FILETABLE la cual tiene un campo tipo char de 1024.
Para tener acceso a la ruta hay q extraer el registro de la tabla, para eso se hace un READ TABLE a una variable que contiene un registro del tipo FILETABLE.
Hay diferentes funciones que abren el explorador de directorios como la ws_filename_get o f4_filename, pero utilizo la siguiente porque es la mas reciente y aplica la metodologia de orientacion a objetos, el resto estan comenzando a ser obsoletas.

Ademas en el ejemplo, se permite cargar archivos de cualquier extension, si solo se quisiera cargar archivos de extension txt el parametro si cargaria de la siguiente forma.

file_filter = cl_gui_frontend_services=>filetype_text

******************************************************
* Parametro donde se guardara la ruta del archivo.
******************************************************
PARAMETERS: p_file(1024) TYPE c OBLIGATORY.

************************************************************************
* Evento sobre p_file que llama al procedimiento q cargara el archivo
************************************************************************
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
  PERFORM get_file USING p_file.

 FORM get_file USING p_p_file.

  DATA: sy_rc TYPE i,
             file_t TYPE filetable,
             wa_file LIKE LINE OF file_t.
  

  CALL METHOD cl_gui_frontend_services=>file_open_dialog
    EXPORTING
      window_title            = ‘Carga de archivos.’
*      default_extension       = ”
*      default_filename        =
      file_filter             = cl_gui_frontend_services=>filetype_all
*      with_encoding           =
      initial_directory       = ‘c:\Windows\’
*      multiselection          =
    CHANGING
      file_table              = file_t
      rc                      = sy_rc
*      user_action             =

*     file_encoding           =
    EXCEPTIONS
      file_open_dialog_failed = 1
      cntl_error              = 2
      error_no_gui            = 3
      not_supported_by_gui    = 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.

  READ TABLE file_t INDEX 1 INTO wa_file.
  p_p_file = wa_file.

ENDFORM.                    ” GET_FILE

Windows_title = Nombre de la ventana de dialogo.              Tipo:  STRING
default_extension = Extencion por defecto.                         Tipo:  STRING
defaul_filename = propuesta de nombre del archivo.           Tipo:  STRING
file_filter = Filtro para la extencion del archivo.                   Tipo:  STRING
with_encoding = codificacion de archivos.            

initial_directory = Directorio inicial donde comenzar la busqueda    Tipo: STRING
multiselection = Permite una seleccion multiple      

RC = Devuelve número de archivos o -1 en caso de error.
file_tabla = Tabla con el archivo seleccionado.
user_action = Accion del usuario