-
Metodo / Funciones para obtener los datos del ALV a la tabla interna.
Este paso es especialmente util cuando el ALV  es Editable y entonces queremos saber cuales son los cambios que sufre la data.

En tu form para capturar el comando de usuario puedes colocar el siguiente código que te permite pasar los datos que están en el ALV la tabla interna que usaste para cargarlo al inicio.

FORM user_command USING lv_okcode LIKE sy-ucomm l_selfield TYPE slis_selfield.
 
* l_selfield este campo solo nos permite saber la ultima columna donde el usuario coloco el 
* puntero del ratón antes de pulsar sobre un boton en el alv o un atajo con el teclado como "* Ctrl+J" ademas tambien nos permite saber el valor de la celda. 

   CASE lv_okcode.
*  cuando el usuario presionó sobre el botón modificar
    WHEN 'MODIFY'.
 
* mover los datos del ALV tabla a la tabla interna.
      DATA : ref_grid TYPE REF TO cl_gui_alv_grid. "new
 
      IF ref_grid IS INITIAL.
        CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
          IMPORTING
            e_grid = ref_grid.
      ENDIF.
 
      IF NOT ref_grid IS INITIAL.
        " Ahora que tenemos la referencia al alv le pedimos nos pases los datos
        " a la tabla interna.
        CALL METHOD ref_grid->check_changed_data.
      ENDIF.
      PERFORM USAR_DATOS_CAMBIADOS.
* por ultimo si hacemos mas cambios los datos de la tabla interna pedimos al ALV 
* que refresque sus datos.
      l_selfield-refresh = c_check.
 
ENDFORM.                    "USER_COMMAND


Esto me funciono trabajando con los ALV con catalogo y layout LVC
LVC_S_FCAT, LVC_T_FCAT, LVC_T_LAYO, LVC_S_LAYO  
Bueno espero les sea de Ayuda...

















































Comentarios








Publicar un comentario
























Entradas populares de este blog









Cargar Texto estándar y mostrar en un POPUP






-















     DATA :   t_lines   TYPE STANDARD TABLE OF   tline  WITH HEADER LINE .   DATA :  BEGIN OF  itab  OCCURS  0 ,                 linea  TYPE   char70 ,              END OF   itab .          CALL FUNCTION  'READ_TEXT'        EXPORTING           id                        =   'F01'              language              =  sy - langu           name             =  name           object           =  'EKKO'          TABLES            lines                     =  t_lines          EXCEPTIONS           id                          =  1           language                =  2          name                           =  3          not_found                      =  4          object                         =  5          reference_check                =  6          wrong_access_to_archive        =  7           OTHERS                         =  8                  .        IF   sy - subrc <>  0 . *       MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO *               WITH SY-








Leer más










Crear un campo de entrada, parametro, como un listbox en abap.






-















    SELECTION-SCREEN BEGIN OF BLOCK   b1  WITH FRAME TITLE  text- 001.        PARAMETERS    :     s_denom  TYPE  c  LENGTH   40 AS LISTBOX VISIBLE LENGTH   50.  SELECTION-SCREEN END OF BLOCK   b1 .   *Ahora necesitamos que al hacer clic para ver los valores posibles de la lista  *ser carguen los valores desde una subrutina en el evento value-request.   AT SELECTION-SCREEN ON VALUE-REQUEST FOR   s_denom .     PERFORM   lista_denominacion .   *&---------------------------------------------------------------------*  *&      Form  LISTA_DENOMINACION  *&---------------------------------------------------------------------*  *      PERMITE EN DEMANDA LLENAR LOS VALORES DEL LISTBOX  *----------------------------------------------------------------------*  *  -->  p1        text  *  <-- nbsp="" p2="" span="" text="">  *----------------------------------------------------------------------*  FORM   lista_denominacion  .     REFRESH   








Leer más










Leer Parametros de Dynpro.






-














Imagen







    Esto me funciona para recopilar los parámetros de la dynpro para luego poder usarlos en código donde aun por cuestiones de eventos no son accesibles.   Como ejemplo de uso tenemos, cuando queremos usar lo que escribió el usuario como fuente para ayudas de Busquedas.      Este es el Código.   Supongamos que tengamos estos parámetro de entrada en nuestro Reporte.   INITIALIZATION . repid = sy-repid. “ importante para saber de que pantalla y dynpro debo tomar los parámetros. dynpro  = sy-dynnr.   PARAMETERS :  p_ani TYPE  p1771-ayear OBLIGATORY VALUE  CHECK ,           p_per TYPE  p1771-perid OBLIGATORY VALUE  CHECK ,           p_mod TYPE  objid,           p_sec TYPE  objid ,           p_eve TYPE  objid .      Y tenemos que desarrollar una ayuda de búsqueda para uno de ellos pero necesitamos  los datos introducidos con anterioridad por el usuario   Entonces hacemos el llamado   AT  SELECTION- SCREEN  ON  VALUE -REQUEST FOR  p_mod. PERFORM  ayuda_modulos.   Y entonces dentro de el PERF








Leer más