Comentarios en: Cargar imagenes en Dynpros http://blog.sap4.com/2006/12/29/cargar-imagenes-en-dynpros/ Weblogs de SAP en Castellano Tue, 06 Jan 2009 02:18:23 +0000 http://wordpress.org/?v=2.6.2 By: Blag http://blog.sap4.com/2006/12/29/cargar-imagenes-en-dynpros/#comment-6 Blag Wed, 10 Jan 2007 13:20:22 +0000 http://blog.sap4.com/2006/12/29/cargar-imagenes-en-dynpros/#comment-6 Tienes razón Andrés -:P La idea es crear un Dynpro "200" y colocar un Custom Control llamado "PICTURE" y un SubScreen Area llamado "SubVentana". Luego, crear el programa: ************************************************************************ * INFORMACION GENERAL * *----------------------------------------------------------------------* * Nombre del programa: Z_DUMMY_TREE * * Fecha/Autor: 26.08.2006 / Alvaro Tejada Galindo. * ************************************************************************ REPORT z_dummy_atg_3. TABLES: SPFLI. TYPES: PICT_LINE(256) TYPE C. DATA: PICT_TAB TYPE TABLE OF PICT_LINE, URL(255) TYPE C. DATA: CONTAINER1 TYPE REF TO CL_GUI_CUSTOM_CONTAINER, PICTURE TYPE REF TO CL_GUI_PICTURE. DATA: L_BYTECOUNT TYPE I, L_TDBTYPE LIKE STXBITMAPS-TDBTYPE, L_CONTENT TYPE STANDARD TABLE OF BAPICONTEN INITIAL SIZE 0. DATA: GRAPHIC_SIZE TYPE I. DATA: BEGIN OF GRAPHIC_TABLE OCCURS 0, LINE(255) TYPE X, END OF GRAPHIC_TABLE. *&-----------------------------------------------------------&* *& SELECTION-SCREEN &* *&-----------------------------------------------------------&* SELECTION-SCREEN BEGIN OF SCREEN 200 AS SUBSCREEN. PARAMETERS: CARRID TYPE SPFLI-CARRID, CONNID TYPE SPFLI-CONNID. SELECTION-SCREEN END OF SCREEN 200. *&-----------------------------------------------------------&* *& START-OF-SELECTION &* *&-----------------------------------------------------------&* START-OF-SELECTION. CALL SCREEN 100. *&-----------------------------------------------------------* *& Module STATUS_0100 OUTPUT * *&-----------------------------------------------------------* * PBO * *------------------------------------------------------------* MODULE STATUS_0100 OUTPUT. PERFORM LOAD_IMAGE. ENDMODULE. " STATUS_0100 OUTPUT *------------------------------------------------------------* * FORM LOAD_IMAGE * *------------------------------------------------------------* * Cargamos la imagen * *------------------------------------------------------------* FORM LOAD_IMAGE. CREATE OBJECT: CONTAINER1 EXPORTING CONTAINER_NAME = 'PICTURE', PICTURE EXPORTING PARENT = CONTAINER1. CALL FUNCTION 'SAPSCRIPT_GET_GRAPHIC_BDS' EXPORTING I_OBJECT = 'GRAPHICS' I_NAME = 'ENJOY' I_ID = 'BMAP' I_BTYPE = 'BCOL' IMPORTING E_BYTECOUNT = L_BYTECOUNT TABLES CONTENT = L_CONTENT EXCEPTIONS NOT_FOUND = 1 BDS_GET_FAILED = 2 BDS_NO_CONTENT = 3 OTHERS = 4. CALL FUNCTION 'SAPSCRIPT_CONVERT_BITMAP' EXPORTING OLD_FORMAT = 'BDS' NEW_FORMAT = 'BMP' BITMAP_FILE_BYTECOUNT_IN = L_BYTECOUNT IMPORTING BITMAP_FILE_BYTECOUNT = GRAPHIC_SIZE TABLES BDS_BITMAP_FILE = L_CONTENT BITMAP_FILE = GRAPHIC_TABLE EXCEPTIONS OTHERS = 1. CALL FUNCTION 'DP_CREATE_URL' EXPORTING TYPE = 'IMAGE' SUBTYPE = 'BMP' TABLES DATA = GRAPHIC_TABLE CHANGING URL = URL. CALL METHOD PICTURE->LOAD_PICTURE_FROM_URL EXPORTING URL = URL. CALL METHOD PICTURE->SET_DISPLAY_MODE EXPORTING DISPLAY_MODE = PICTURE->DISPLAY_MODE_FIT_CENTER. ENDFORM. Y dentro del dynpro: PROCESS BEFORE OUTPUT. MODULE STATUS_0100. CALL SUBSCREEN: SUBVENTANA INCLUDING SY-REPID '0200'. PROCESS AFTER INPUT. MODULE USER_COMMAND_0100. CALL SUBSCREEN: SUBVENTANA. Con esto, conseguimos tener una imagen junto con un SELECTION-SCREEN. Saludos, Blag. Tienes razón Andrés -:P

La idea es crear un Dynpro “200″ y colocar un Custom Control llamado “PICTURE” y un SubScreen Area llamado “SubVentana”. Luego, crear el programa:

************************************************************************
* INFORMACION GENERAL *
*———————————————————————-*
* Nombre del programa: Z_DUMMY_TREE *
* Fecha/Autor: 26.08.2006 / Alvaro Tejada Galindo. *
************************************************************************
REPORT z_dummy_atg_3.

TABLES: SPFLI.

TYPES: PICT_LINE(256) TYPE C.
DATA: PICT_TAB TYPE TABLE OF PICT_LINE,
URL(255) TYPE C.

DATA: CONTAINER1 TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
PICTURE TYPE REF TO CL_GUI_PICTURE.

DATA: L_BYTECOUNT TYPE I,
L_TDBTYPE LIKE STXBITMAPS-TDBTYPE,
L_CONTENT TYPE STANDARD TABLE OF BAPICONTEN
INITIAL SIZE 0.

DATA: GRAPHIC_SIZE TYPE I.

DATA: BEGIN OF GRAPHIC_TABLE OCCURS 0,
LINE(255) TYPE X,
END OF GRAPHIC_TABLE.

*&———————————————————–&*
*& SELECTION-SCREEN &*
*&———————————————————–&*
SELECTION-SCREEN BEGIN OF SCREEN 200 AS SUBSCREEN.
PARAMETERS: CARRID TYPE SPFLI-CARRID,
CONNID TYPE SPFLI-CONNID.
SELECTION-SCREEN END OF SCREEN 200.

*&———————————————————–&*
*& START-OF-SELECTION &*
*&———————————————————–&*
START-OF-SELECTION.
CALL SCREEN 100.

*&———————————————————–*
*& Module STATUS_0100 OUTPUT *
*&———————————————————–*
* PBO *
*————————————————————*
MODULE STATUS_0100 OUTPUT.
PERFORM LOAD_IMAGE.

ENDMODULE. ” STATUS_0100 OUTPUT

*————————————————————*
* FORM LOAD_IMAGE *
*————————————————————*
* Cargamos la imagen *
*————————————————————*
FORM LOAD_IMAGE.

CREATE OBJECT: CONTAINER1 EXPORTING CONTAINER_NAME = ‘PICTURE’,
PICTURE EXPORTING PARENT = CONTAINER1.

CALL FUNCTION ‘SAPSCRIPT_GET_GRAPHIC_BDS’
EXPORTING
I_OBJECT = ‘GRAPHICS’
I_NAME = ‘ENJOY’
I_ID = ‘BMAP’
I_BTYPE = ‘BCOL’
IMPORTING
E_BYTECOUNT = L_BYTECOUNT
TABLES
CONTENT = L_CONTENT
EXCEPTIONS
NOT_FOUND = 1
BDS_GET_FAILED = 2
BDS_NO_CONTENT = 3
OTHERS = 4.

CALL FUNCTION ‘SAPSCRIPT_CONVERT_BITMAP’
EXPORTING
OLD_FORMAT = ‘BDS’
NEW_FORMAT = ‘BMP’
BITMAP_FILE_BYTECOUNT_IN = L_BYTECOUNT
IMPORTING
BITMAP_FILE_BYTECOUNT = GRAPHIC_SIZE
TABLES
BDS_BITMAP_FILE = L_CONTENT
BITMAP_FILE = GRAPHIC_TABLE
EXCEPTIONS
OTHERS = 1.

CALL FUNCTION ‘DP_CREATE_URL’
EXPORTING
TYPE = ‘IMAGE’
SUBTYPE = ‘BMP’
TABLES
DATA = GRAPHIC_TABLE
CHANGING
URL = URL.

CALL METHOD PICTURE->LOAD_PICTURE_FROM_URL EXPORTING URL = URL.
CALL METHOD PICTURE->SET_DISPLAY_MODE
EXPORTING DISPLAY_MODE = PICTURE->DISPLAY_MODE_FIT_CENTER.

ENDFORM.

Y dentro del dynpro:

PROCESS BEFORE OUTPUT.
MODULE STATUS_0100.
CALL SUBSCREEN: SUBVENTANA INCLUDING SY-REPID ‘0200′.

PROCESS AFTER INPUT.
MODULE USER_COMMAND_0100.
CALL SUBSCREEN: SUBVENTANA.

Con esto, conseguimos tener una imagen junto con un SELECTION-SCREEN.

Saludos,

Blag.

]]> By: andres http://blog.sap4.com/2006/12/29/cargar-imagenes-en-dynpros/#comment-5 andres Wed, 10 Jan 2007 10:16:22 +0000 http://blog.sap4.com/2006/12/29/cargar-imagenes-en-dynpros/#comment-5 Blag, creo que sería interesante que si respondes a un comentario, no lo mandaras sólo por correo, sino que lo adjuntaras también como comentario. Blag, creo que sería interesante que si respondes a un comentario, no lo mandaras sólo por correo, sino que lo adjuntaras también como comentario.

]]> By: Blag http://blog.sap4.com/2006/12/29/cargar-imagenes-en-dynpros/#comment-4 Blag Tue, 09 Jan 2007 19:45:57 +0000 http://blog.sap4.com/2006/12/29/cargar-imagenes-en-dynpros/#comment-4 Ya te mandé el correo con lo que necesitas -:) Saludos, Blag. Ya te mandé el correo con lo que necesitas -:)

Saludos,

Blag.

]]> By: Luis Valencia http://blog.sap4.com/2006/12/29/cargar-imagenes-en-dynpros/#comment-3 Luis Valencia Tue, 09 Jan 2007 16:31:31 +0000 http://blog.sap4.com/2006/12/29/cargar-imagenes-en-dynpros/#comment-3 Hola... Kiero insertar una imagen en un report (utilizando quizas la estructura de un selection-screen) y no se si es posible. Ya vi que enla dynpro se puede, pero no se si en un report sea posible. Me puedes ayudar? Gracias Hola…
Kiero insertar una imagen en un report (utilizando quizas la estructura de un selection-screen) y no se si es posible. Ya vi que enla dynpro se puede, pero no se si en un report sea posible.

Me puedes ayudar?

Gracias

]]>