Anuncio

Colapsar
No hay anuncio todavía.

Descargar imagen transacción SE78

Colapsar
X
  • Filtrar
  • Tiempo
  • Mostrar
Limpiar Todo
nuevos mensajes

  • Descargar imagen transacción SE78

    Hola!

    tengo el siguiente problema, quiero descargar una imagen que veo en la transacción SE78, cómo hago para descargarla? porque llegaron a decirme que haga una captura de pantalla, pero lógicamente tengo pérdida de calidad en la imagen.

    Alguna idea mejor?

  • #2
    Hola juanma,

    te paso la que para mi fue la mejor solución en su momento:

    Código:
    REPORT Z_DOWNLOAD_SE78.
    
    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.
    
    CALL FUNCTION 'SAPSCRIPT_GET_GRAPHIC_BDS'
      EXPORTING
        I_OBJECT       = 'GRAPHICS'
        I_NAME         = 'NOMBRE'
        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 'WS_DOWNLOAD'
      EXPORTING
        BIN_FILESIZE            = GRAPHIC_SIZE
        FILENAME                = 'C:\FirmaAsociado.bmp'
        FILETYPE                = 'BIN'
      TABLES
        DATA_TAB                = GRAPHIC_TABLE
      EXCEPTIONS
        INVALID_FILESIZE        = 1
        INVALID_TABLE_WIDTH     = 2
        INVALID_TYPE            = 3
        NO_BATCH                = 4
        UNKNOWN_ERROR           = 5
        GUI_REFUSE_FILETRANSFER = 6.
    
    IF SY-SUBRC  0.
      MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
              WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
    Espero que te sea de utilidad.

    Comentario

    Trabajando...
    X