Anuncio

Colapsar
No hay anuncio todavía.

Programa para descargar imágenes de SAP

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

  • Programa para descargar imágenes de SAP

    Código:
    REPORT ZDOWNLOAD.
    
    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         = 'ZPRUEBA'
        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.
Trabajando...
X