sapscript programa dallanarak deger alma,standart text smartforma deger atama,sapscript font

***Standart text'e programdan,smartformdan değer atama

Ornek olarak bir standart textiniz var diyelim bunu smartformda basıyorsunuz ve bu text'in son satırı ise soyle son satırda diyelim ki yetkili kisi veya basan userın adı tarzı bir değişken kısım var bunun icin yapmamız gereken soyle

Burda gv_authorized diye bir değişkenimiz var buda programdan smartforma gonderdıgımız bir değişken .




Alttaki sekılde standart text olarak eklememizle cıktımızda artık yer almaktadır .




***Sapscriptten programa dallanarak sapscripte dondurme 

sapscripttin ici :

Degisken tanımlanır kullanılcak deger programa gonderılıp bu degıskene hesaplanarak cekılır

DEFINE &LV_STCEG& = '' .
PERFORM FIND_STCEG IN PROGRAM YILFI_GLI001
USING &ZIS_FORM-KONTO&
CHANGING &LV_STCEG&
ENDPERFORM.

Program tarafında onemli olan sey form adından sonra
 TABLES in_par STRUCTURE itcsy out_par STRUCTURE itcsy.

in_par degeri ve outpar degeridir bunları giren ve cıkan olarak dusunebılırız istedigimiz her islemi yapıp scripte donduruyor olabılırız .

PROGRAM  yilfi_gli001.
*&---------------------------------------------------------------------*
*&      Form  calculate_betrag
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_ZINSZAHL text
*      -->P_BETRAG   text
*----------------------------------------------------------------------*
FORM calculate_betrag TABLES in_par STRUCTURE itcsy out_par STRUCTURE itcsy.

  DATA lv_betrag TYPE BTRGAB.
  READ TABLE in_par INDEX 1. """WITH KEY name = 'ZINSSATZTAB-BETRAG'.
  TRANSLATE in_par-value USING '. , '.
  CONDENSE in_par-value NO-GAPS.
  lv_betrag = in_par-value .
  lv_betrag = lv_betrag / 100.

  READ TABLE out_par INDEX 1.
  WRITE lv_betrag TO out_par-value CURRENCY 'USD'.

  CONDENSE out_par-value.

  MODIFY out_par INDEX 1.
ENDFORM.                    "calculate_betrag

FORM convert_btrgab TABLES in_par STRUCTURE itcsy out_par STRUCTURE itcsy.

  DATA lv_betrag TYPE BTRGAB.
  READ TABLE in_par INDEX 1. """WITH KEY name = 'ZINSSATZTAB-BETRAG'.
  TRANSLATE in_par-value USING '. , '.
  CONDENSE in_par-value NO-GAPS.
  lv_betrag = in_par-value .
  lv_betrag = lv_betrag / 100.

  READ TABLE out_par INDEX 1.
  WRITE lv_betrag TO out_par-value CURRENCY 'USD'.

  CONDENSE out_par-value.

  MODIFY out_par INDEX 1.
ENDFORM.                    "calculate_betrag
*&---------------------------------------------------------------------*
*&      Form  find_stceg
*&---------------------------------------------------------------------*
FORM find_stceg TABLES in_par STRUCTURE itcsy out_par STRUCTURE itcsy.
  READ TABLE in_par INDEX 1.

  DATA lv_kunnr TYPE kunnr .
  lv_kunnr = in_par-value.

  DATA lv_stceg TYPE kna1-stceg.

  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    EXPORTING
      input  = lv_kunnr
    IMPORTING
      output = lv_kunnr.


  SELECT SINGLE stceg
    INTO lv_stceg
    FROM kna1
   WHERE kunnr = lv_kunnr.

  READ TABLE out_par INDEX 1.

  out_par-value = lv_stceg.

  MODIFY out_par INDEX 1.

ENDFORM.                    "find_stceg

***Sap Script Fonts 
c0 7 x 9 Standard (86XX font)
c1 7 x 11 OCR (86XX font)
c2 10 x 14 Standard (86XX font)
c3-c6 User-defined fonts
c7 5 x 7 Standard (86XX font)
c8-c19 User-defined fonts
c20 8 point
c21 12 point
c22 20 point
c23 OCR A
c24 OCR B size 2
c25 Swiss Mono 721 standard outline font
c26 Swiss Mono 721 bold outline font
c28 Dutch Roman 801 proportional outline font
c30 6 point monospace bold
c31 8 point monospace bold
c32 10 point monospace standard
c33 10 point monospace bold
c34 12 point monospace bold
c35 16 point monospace standard
c36 16 point monospace bold
c37 20 point monospace bold
c38 24 point monospace standard
c39 24 point monospace bold
c40 30 point monospace bold
c41 36 point monospace bold