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