-
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
*         CLIENT                   = SY-MANDT
*          id                      = 'F01'
          id                        = 'F91'
          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-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ELSE.
        itab-linea = 'Aviso Importante' .
        APPEND itab.
*       Agregamos cada línea conseguida en el texto a la tabla que mostraremos
*      En el popup.
*      Hacemos las conversiones entre las lineas, recuerda revisar los tipos de datos.
*      y la longitud de las lineas para no perder datos.

        LOOP AT t_lines.
          IF STRLEN( t_lines-tdline ) > 70 .
            itab-linea = t_lines-tdline(70).
            APPEND itab.
            itab-linea = t_lines-tdline+70(62).
            APPEND itab.
          ELSE.
            itab-linea = t_lines-tdline.
            APPEND itab.
          ENDIF.
        ENDLOOP.
*       ahora mostramos el POPUP con la tabla ya completa.
  CALL FUNCTION 'POPUP_WITH_TABLE_DISPLAY_OK'
          EXPORTING
            endpos_col   = 80 ”definimos ancho, cantidad de col            endpos_row   = 25 ”definimos alto, cantidad de líneas
            startpos_col = 1 ”posición X en pantalla
            startpos_row = 1 ”posición Y,(X,Y) esquina superior Izquierda
            titletext    = 'Mensaje' ”titulo de la ventana, ojo: no funciona bien
          TABLES
            valuetab     = itab ”tabla con las lineas del texto estándar u otro.
          EXCEPTIONS
            break_off    = 1
            OTHERS       = 2.
     ENDIF.

Comentarios

Publicar un comentario

Entradas populares de este blog

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

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 *&---------------------------------------------------------------------* *...
Leer más

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'        ...
Leer más