| 1234567891011121314151617181920212223242526272829303132 |
- $PBExportHeader$f_rp_excute.srf
- global type f_rp_excute from function_object
- end type
- forward prototypes
- global function string f_rp_excute (string arg_command)
- end prototypes
- global function string f_rp_excute (string arg_command);string l_rstl
- string ls_rs
- integer ll_row
- DataStore ds_cmp
- ds_cmp = Create DataStore
- ds_cmp.DataObject = "ds_rp_event"
- ll_row = ds_cmp.InsertRow(0)
- ls_rs = ds_cmp.Modify("cmp.Expression='"+ arg_command + "'")
- IF ls_rs <> '' THEN
- l_rstl="error"
- GOTO ext
- END IF
- ds_cmp.AcceptText()
- l_rstl = string(dec(ds_cmp.Object.cmp[ll_row]))
- ext:
- Destroy ds_cmp
- return l_rstl
- end function
|
