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
    asyabahis deneme bonusu deneme bonusu deneme bonusu veren siteler bonus veren siteler bedava bahis casino siteleri deneme bonusu hermesbet
    erotik film izle
    huluhub.com
    vidio bokep
    ankara escort ankara escort bayanlar
    replica watches
    antalya escort
    bedava bahis
    implant fire truck
    deneme bonusu veren siteler