lunes, 27 de enero de 2014

Form para llenar un "Rango" con Set de Datos (SAP-ABAP)

*&---------------------------------------------------------------------*
*&      Form  F_GET_SET_DATA
*&---------------------------------------------------------------------*
FORM f_get_set_data TABLES p_t_range
                                           USING p_v_set.

  REFRESHp_t_range[].
  SELECT  setleaf~valsign      AS sign
                  setleaf~valoption  AS option
                  setleaf~valfrom    AS low
                  setleaf~valto        AS high
  INTO CORRESPONDING FIELDS OF TABLE p_t_range
  FROM  setheader INNER JOIN setleaf
    ON  setleaf~setclass  EQ setheader~setclass
   AND  setleaf~subclass  EQ setheader~subclass
   AND  setleaf~setname   EQ setheader~setname
  WHERE setheader~setname EQ p_v_set.

ENDFORM.                    "f_get_set_data

INVOCAR LA FORM:


  RANGES:
  lr_kschl FOR komv-kschl.

  PERFORM f_get_set_data TABLES lr_kschl
                                              USING 'Z0004'.  "set  creado en la trx GS01

No hay comentarios:

Publicar un comentario