Xailer & OZ Software

Hola: alguien tiene un ejemplo del uso de OnSetValue, gracias.
METHOD DbfDataSet1Create( oSender ) CLASS TForm2
local aValues := {"Mutualizado", "No Mutualizado", "Otra" }
::oDataPac:AddCalcField("cEdad",{|oField|pons_edad(oField:oDataSet:fec_nac)})
::oDataPac:AddCalcField("cMutual", {|oField|aValues[
oField:oDataSet:nro_res ] } )
::oDataPac:cMutual:OnSetValue := {|ofield, value|savetipo(ofield:odataset,
value)}// esta linea genera error
RETURN Nil
--
Rolando Sarrailh
TEL. (0221)-4891480
rsarrailh@ciudad.com.ar

Rolando,
De la propia documentación:
TDataField:OnSetValue := {|o, v| oDataSet:FieldPut( ::nIndex, v ) }
Saludos,
"Rolando Sarrailh" <rsarrailh@gmail.com> escribió en el mensaje
news:44bfff96$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Hola: alguien tiene un ejemplo del uso de OnSetValue, gracias.
>
> METHOD DbfDataSet1Create( oSender ) CLASS TForm2
> local aValues := {"Mutualizado", "No Mutualizado", "Otra" }
> ::oDataPac:AddCalcField("cEdad",{|oField|pons_edad(oField:oDataSet:fec_nac)})
> ::oDataPac:AddCalcField("cMutual", {|oField|aValues[
> oField:oDataSet:nro_res ] } )
>
> ::oDataPac:cMutual:OnSetValue := {|ofield, value|savetipo(ofield:odataset,
> value)}// esta linea genera error
> RETURN Nil
> --
> Rolando Sarrailh
> TEL. (0221)-4891480
> rsarrailh@ciudad.com.ar
>