lunes, 23 de junio de 2014

Imágenes o logos dinámicos en un SapScript

Programación:
  TYPESBEGIN OF ty_logo,
*        tdobject TYPE tdobject,
        tdname TYPE  tdobname, "tdname,
*        tdid TYPE tdid,
        tdbtype TYPE tdbtype,
        tdresolut TYPE tdresolut,
  END OF ty_logo.

PERFORM zlogo_get '0300'.

  FORM zlogo_get USING p_bukrs TYPE bukrs.
*
    CASE p_bukrs.
      WHEN '0300'.
        gl_logo-tdname 'LOGO_0300'.
        gl_logo-tdbtype 'BCOL'.
        gl_logo-tdresolut 300.
      WHEN '0200'.
        gl_logo-tdname 'LG_0200'.
        gl_logo-tdbtype 'BCOL'.
        gl_logo-tdresolut 200.
      WHEN '0400'.
        gl_logo-tdname 'LOG4EX'.
        gl_logo-tdbtype 'BCOL'.
        gl_logo-tdresolut 200.
      WHEN '0500'.
        gl_logo-tdname 'LOGONEW'.
        gl_logo-tdbtype 'BCOL'.
        gl_logo-tdresolut 200.
      WHEN OTHERS.
    ENDCASE.
*
    CALL FUNCTION 'WRITE_FORM'
      EXPORTING
        window 'LOGO_SOC'.
*
  ENDFORM.  

En la ventana LOGO_SOC comando /:
BITMAP &GL_LOGO-TDNAME& OBJECT GRAPHICS ID BMAP TYPE &GL_LOGO-TDBTYPE& DPI &GL_LOGO-TDRESOLUT&

1 comentario:

  1. gran aportación!!!

    si es que no hay nada, como ser un gran programador.

    ResponderEliminar