Faça o SAP falar com você

Parece bobeira, mas imagine que na empresa existem pessoas com deficiência visual! Pois é, isto ajudaria à interação ao SAP. Claro que para este fim, o deficiente visual precisa de todos os recursos básicos. E na minha opinião, na complexidade total do SAP, acho que não seria possível, mas para acessar programas simples.... Quem sabe! Bom, o idioma é inglês, mas... funciona!

REPORT ZSAPeiros.

INCLUDE ole2incl.                                                "Obj Ole

DATA:
  obj_ole   TYPE ole2_object,                                    "Obj Ole
  obj_voice TYPE ole2_object,                                    "Obj Voz
  gt_mara   TYPE TABLE OF mara,                                  "Tab Mara
  lv_text1  TYPE string VALUE 'Congratulations! Found records.', "Texto 1
  lv_text2  TYPE string VALUE 'Attention! Records not found.'.   "Texto 2

TABLES mara.

SELECT-OPTIONS s_matnr FOR mara-matnr OBLIGATORY.

INITIALIZATION.
  %_s_matnr_%_app_%-text = 'Material'.

END-OF-SELECTION.
  CREATE OBJECT obj_voice 'SAPI.SpVoice'.

  SELECT * FROM mara
     INTO TABLE gt_mara
          WHERE matnr IN s_matnr.

  IF sy-subrc IS INITIAL.
    WRITE: / lv_text1.
    CALL METHOD OF obj_voice 'Speak' = obj_ole
      EXPORTING #1 = lv_text1.
  ELSE.
    WRITE: / lv_text2.
    CALL METHOD OF obj_voice 'Speak' = obj_ole
      EXPORTING #1 = lv_text2.
  ENDIF.