Mceci

[Mceci]

Hola a todos...Espero me puedan ayudar...

Quisiera saber si es posible guardar imagenes en SAP para despues poder extraerlas y mostrarlas en una transaccion Z y si ademas de esto es posible que el proceso de guardar asi como extraer la imagen sea realizado en fondo o mejor dicho que sea transparente para el usuario.

No se si me explique bien bueno espero me puedan ayudar y muchas gracias de antemano.

Saludos.

[DCErick]

Hola a todos...Espero me puedan ayudar...

Quisiera saber si es posible guardar imagenes en SAP para despues poder extraerlas y mostrarlas en una transaccion Z y si ademas de esto es posible que el proceso de guardar asi como extraer la imagen sea realizado en fondo o mejor dicho que sea transparente para el usuario.

No se si me explique bien bueno espero me puedan ayudar y muchas gracias de antemano.

Saludos.

Subir Imagen <--No se si esa te ayude eso....

[DCErick]

Tenia pensado pasarte el codigo para mostrarla en una Dynpro, pero ya alguien lo hizo anteriormente:

Imagen en Dynpro

[Mceci]

Imagen

Muchisimas gracias bueno lo de subir la imagen ya quedo ... solo me falta el desplegado de dicha imagen...

[Mceci]

imagen

Tenia pensado pasarte el codigo para mostrarla en una Dynpro, pero ya alguien lo hizo anteriormente:

Imagen en Dynpro

Hola Erick oye pues con una mala noticia y es que este codigo no me funciono y es q al momento de mandar llamar la funcion WWW_GET_MIME_OBJECT me retorna la excepcion 1 de object_not_found ....

[DCErick]

Hola Erick oye pues con una mala noticia y es que este codigo no me funciono y es q al momento de mandar llamar la funcion WWW_GET_MIME_OBJECT me retorna la excepcion 1 de object_not_found ....

mmmm Ok, dame chance y mas al rato te pongo el codigo que yo uso...

[DCErick]

Hola Erick oye pues con una mala noticia y es que este codigo no me funciono y es q al momento de mandar llamar la funcion WWW_GET_MIME_OBJECT me retorna la excepcion 1 de object_not_found ....

Aqui tienes el codigo, por ahora no puedo depurarlo mucho y comentarlo, pero creo que esta facil de entender... Si alguna variable, estructura o algo te sale que no está declarada me lo haces saber y te digo como se tiene que declarar....

Eto actualmente lo tengo en un module....

Creo que solo necesitaras agregar un Custom control en la Dynpro donde quieres mostrar la imagen, yo lo nombre de esta forma 'CC_FIRMADISTRIBUIDOR', por si quieres probarlo sin modificar nada ...

    CONSTANTS: c_tdobject_2 LIKE stxbitmaps-tdobject VALUE 'GRAPHICS',
                   c_tdid_2     LIKE stxbitmaps-tdid     VALUE 'BMAP'.

    DATA:l_bytecount_2 TYPE i,
         l_content_2   TYPE STANDARD TABLE OF bapiconten INITIAL SIZE 0,
         l_tdname_2    LIKE stxbitmaps-tdname,
         l_tdbtype_2   LIKE stxbitmaps-tdbtype.

    DATA: BEGIN OF graphic_table_2 OCCURS 0,
            line(255) TYPE x,
          END OF graphic_table_2.

    DATA: graphic_size_2 TYPE i,
          g_result_2                     TYPE i VALUE '1',
          graphic_url_2(255).

    DATA: h_picture_2       TYPE REF TO cl_gui_picture,
          h_pic_container_2 TYPE REF TO cl_gui_custom_container.

*  IF wg_rdb1 EQ 'X'.
*    l_tdbtype = 'BCOL'.
*  ELSE.
    l_tdbtype_2 = 'BMON'.
*  ENDIF.

*Rescata datos de la imagen
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
      EXPORTING
        input  = zdp_aval-kunnr
      IMPORTING
        output = zdp_aval-kunnr.

    SELECT SINGLE tdname
             FROM stxbitmaps
             INTO l_tdname_2
            WHERE tdobject EQ c_tdobject_2
              AND tdname   EQ zdp_aval-kunnr
              AND tdid     EQ c_tdid_2
              AND tdbtype  EQ l_tdbtype_2.

    IF sy-subrc EQ 0.

      IF NOT h_picture_2 IS INITIAL.
        CALL METHOD h_picture_2->free.
      ENDIF.

      IF NOT h_pic_container_2 IS INITIAL.
        CALL METHOD h_pic_container_2->free.
      ENDIF.

* Obtiene tamaño de la imagen
      CALL FUNCTION 'SAPSCRIPT_GET_GRAPHIC_BDS'
        EXPORTING
          i_object       = c_tdobject_2
          i_name         = l_tdname_2
          i_id           = c_tdid_2
          i_btype        = l_tdbtype_2
        IMPORTING
          e_bytecount    = l_bytecount_2
        TABLES
          content        = l_content_2
        EXCEPTIONS
          not_found      = 1
          bds_get_failed = 2
          bds_no_content = 3
          OTHERS         = 4.

* Obtiene caracteristicas de la imagen convertida a BMP 256
      CALL FUNCTION 'SAPSCRIPT_CONVERT_BITMAP'
        EXPORTING
          old_format               = 'BDS'
          new_format               = 'BMP'
          bitmap_file_bytecount_in = l_bytecount_2
        IMPORTING
          bitmap_file_bytecount    = graphic_size_2
        TABLES
          bds_bitmap_file          = l_content_2
          bitmap_file              = graphic_table_2
        EXCEPTIONS
          OTHERS                   = 1.

* Obtiene url de la imagen
      CALL FUNCTION 'DP_CREATE_URL'
        EXPORTING
          type     = 'image'                                "#EC NOTEXT
          subtype  = 'X-UNKNOWN' " 'X-UNKNOWN'
          size     = graphic_size_2
          lifetime = 'T'  " 'T'
        TABLES
          data     = graphic_table_2
        CHANGING
          url      = graphic_url_2
        EXCEPTIONS
          OTHERS   = 4.

      CHECK sy-subrc EQ 0.

* Crea objeto Container
      CREATE OBJECT h_pic_container_2
          EXPORTING container_name =  'CC_FIRMADISTRIBUIDOR'.

* Relaciona objeto container a tipo imagen
      CREATE OBJECT h_picture_2
          EXPORTING parent = h_pic_container_2.

* Sete tipo de visualización
      CALL METHOD h_picture_2->set_display_mode
        EXPORTING
          display_mode = cl_gui_picture=>display_mode_normal.

* Carga imagen
      CALL METHOD h_picture_2->load_picture_from_url
        EXPORTING
          url    = graphic_url_2
        IMPORTING
          RESULT = g_result_2.
*  ELSE.
*   CALL SCREEN '0100'.
    ENDIF.

[Mceci]

Imagen

Muchisimas gracias por tu ayuda ya salio ...