En el Get que estas leyendo ahi mandas a trae a la funcion de la calculadora oGet[1,2] := 0 REDEFINE GET oGet[1,1] VAR oGet[1,2] ID 101 OF oDlg BITMAP "Calc" ACTION MoneyCalc(oGet[1,1]) En la funcion de la la Calculadora FUNCTION MoneyCalc(oObj1) LOCAL nTotal .......... .......... ...........