Obtener el siguiente número secuencial

Donde el parámetro NR_RANGE_NR es de tipo INRI-NRRANGENR y el parámetro OBJETO es de tipo INRI-OBJECT.

CALL FUNCTION 'NUMBER_GET_NEXT' EXPORTING nr_range_nr = '01' object = 'ZOBJ_RP' IMPORTING number = pch_numpre EXCEPTIONS interval_not_found = 1 number_range_not_intern = 2 object_not_found = 3 quantity_is_0 = 4 quantity_is_not_1 = 5 interval_overflow = 6 buffer_overflow = 7 OTHERS = 8. IF sy-subrc = 0. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF.

Convertir campos del ALV en totalizables

Para que los botones de sumatoria y subtotales se activen en un listado se deberán especificar los campos que se deseen totalizar a partir de referencias a campos de tablas estándar. De este modo SAP conocerá el tipo (decimales, signo, etc.) y podrá realizar las sumas de manera correcta.

CLEAR ls_fcat. ls_fcat-fieldname = 'SUELDO' . ls_fcat-datatype = 'MAXBT' . " Nómina de personal ls_fcat-coltext = 'Empresa/0,60' . ls_fcat-seltext = 'Empresa/0,60' . ls_fcat-ref_field = 'BETRG' . ls_fcat-ref_table = 'PC207' . ls_fcat-do_sum = 'X'. APPEND ls_fcat TO gt_fieldcat_mt .

Si, además, marcamos el campo "DO_SUM", esto hará que se muestra una línea de totales al final del listado.

Ocultar campos de pantalla

Hay veces en las que se hace necesario ocultar ciertos campos de la pantalla de selección. Sobre todo cuando se utilizan bases de datos lógicas que incluyen campos propios. En estos casos habrá que saber en primer lugar cuál es el nombre de los campos que deseamos ocultar. Ésto se puede lograr visualizando la pantalla de selección estándar del sistema (dynpro nº 1000). Los campos se recogen en la pestaña Lista de elementos y dentro de ésta deberemos ir a la pestaña Grupos modif./Funciones para conocer los grupos a los que están asignados.

Supongamos que deseamos ocultar aquellos campos que pertenezcan al GRUPO1 YB1. El lugar donde debemos codificar ésto es en el evento AT SELECTION-SCREEN OUTPUT. Y el código sería el siguiente:

AT SELECTION-SCREEN OUTPUT. *-------------------------- LOOP AT SCREEN. IF screen-group1 = 'YB1'. screen-invisible = '1'. screen-input = '0'. MODIFY SCREEN. ENDIF. ENDLOOP.

Nótese que el campo INPUT puesto a 0 sirve para aquellos campos de entrada salida, ya que si no especificamos este valor, aunque se pongan invisibles se seguirán mostrando.

Llamadas a listados con retorno

Algunas veces se crean programas que, en función de unas opciones de selección, permiten visualizar un tipo de listado u otro. Lo ideal es que el usuario no tenga salir del programa y volver a cada vez que quiera cambiar de listado, sino volver a la pantalla de selección y desde ahí elegir el nuevo listado que desea visualizar.

Esto se consigue mediante la combinación CALL SCREEN + LEAVE TO SCREEN 0. A continuación se muestra un ejemplo.

En el programa principal habrá un código del siguiente estilo:

END-OF-SELECTION. *-------------------------------------------- * se muestra el listado correspondiente IF p_rb_mt = 'X'. CALL SCREEN '0100'. ELSEIF p_rb_me = 'X'. CALL SCREEN '0200'. ELSEIF p_rb_te = 'X'. CALL SCREEN '0300'. ENDIF.

Y los módulo PAI de las pantallas deberán contener un código similar a éste:

*----------------------------------------------------------------------* * MODULE user_command_0100 INPUT *----------------------------------------------------------------------* * *----------------------------------------------------------------------* MODULE user_command_0100 INPUT. *--> respuesta comandos dynpro CASE ok_code. WHEN 'EXIT' OR 'CANC'. LEAVE PROGRAM. WHEN 'BACK'. LEAVE TO SCREEN 0. ENDCASE. ENDMODULE. "USER_COMMAND_0100 INPUT

Es importante hacer uso del CALL SCREEN ya que si utilizamos la sentencia LEAVE TO SCREEN 0 con SET SCREEN nos echará del programa.