dyn. Formel aus Tabelle ?!

Code: Alles auswählen.

erg = 100,25 * ( 16 * 3 + 0,7 ).

Code: Alles auswählen.

DATA: ls_preisformel TYPE ZSD_PREISFORMEL.
CONSTANTS: lc_memid_preisformel TYPE char15 VALUE 'ZSD_PREISFORMEL'.

 SUBMIT zsd_preisformel_cn AND RETURN
                      WITH p_pltyp EQ group
                      WITH p_preis EQ kbetr_new.

* Importieren aus Speicher
    IMPORT zsd_preisformel = ls_preisformel
                             FROM MEMORY ID lc_memid_preisformel.

    FREE MEMORY ID lc_memid_preisformel.

     xkomv-kbetr = ls_preisformel-ergeb.

Code: Alles auswählen.

tables: zsdpriceformcn.

data : result type f,
       basis like vbak-netwr,
       formel(40),
       progr like sy-repid,
       netp like vbak-netwr,
       result2 like vbak-netwr.

data: zsd_preisformel type zsd_preisformel.


CONSTANTS: lc_memid_preisformel TYPE char15 VALUE 'ZSD_PREISFORMEL'.

parameters:   p_pltyp like VBKD-pltyp,
              p_preis like komv-kwert.



* Mit Formel aus Tabelle selektieren anhand Preisliste
  SELECT SINGLE * FROM zsdpriceformcn WHERE zzpltyp = p_pltyp.


formel = zsdpriceformcn-zzformel.

basis = p_preis.

progr = sy-repid.


call function 'EVAL_FORMULA'
     exporting
          formula          = formel
          program          = progr
          routine          = 'GET_EVAL_VALUES'
     importing
          value            = result
     exceptions
          division_by_zero = 4
          exp_error        = 8
          log_error        = 12
          sqrt_error       = 16
          other            = 99.


* aus Float wird "normales" Betragsfeld
result2 = result.

*Ergebnis in Struktur schieben
zsd_preisformel-ergeb = result2.

*exportieren in Speicher
export zsd_preisformel to memory id lc_memid_preisformel.





*******************
form get_eval_values  using   bitch
                      changing wert
                               subrc.

  field-symbols:
    <p>.

  assign (bitch) to <p>.
  if sy-subrc = 0.
    wert = <p>.
  endif.
endform.
*******************