para IVAN RE:Problemas con Evaluate
Tu ocupas validacion y extracion de datos, usa esto
string error_syntaxfromSQL,new_syntax,error_create
decimal {2} ldec_resultado=0.00
string ls_formula = '(123/(456*789))^2' //asinas la formula o
ls_formula= sle_1.text //capturas la formula en un SingleLineEdit
//asignas la formula a un campo-sql
new_syntax = SQLCA.SyntaxFromSQL('SELECT '+ls_formula +' as CAMPOX' , 'Style(Type=Form)', error_syntaxfromSQL)
if Len(error_syntaxfromSQL) > 0 then
ls_error= left(error_syntaxfromSQL, Pos(upper(error_syntaxfromSQL), "SELECT")-6)+"'"
messagebox('Error#1 en la Formula','La Sintaxis de la Formula es invalida,Por Favor rectifique la sintaxis.~r~n'+ ls_error,STOPSIGN!)
return
end if
// en tu W_ventana pon un marco de DW vacia y asignale esto:
dw_1.Create(new_syntax, error_create)
IF Len(error_create) > 0 THEN
messagebox('Error#2 en la Formula','La Sintaxis de la Formula es invalida o esta ma delimitado por las comas y comillas,Por Favor rectifique la sintaxis.~r~n'+ error_create,STOPSIGN!)
return
END IF
dw_1.insertrow(1)
ldec_resultado = dw_1.GetITemDecimal(1,'CAMPOX')
messagebox('El resultado de mi formula: '+ls_formula+' es ',ldec_resultado)
//fin
Espero te sirva
atte.
Victor //:-)