Application: gvSIG desktop

-- encoding: utf-8; lang: cosa

create procedure form_onSetvalues form, values as

begin

  print("form_onSetvalues");

end 

create procedure form_onFieldEnter form, field as

begin

  print("form_onFieldEnter");

end 

create procedure form_onFieldExit form, field as

begin

  print("form_onFieldExit");

end 

create procedure form_onFieldChanged form, field as

begin

  print("form_onFieldChanged");

end 

create function form_validate form as

$$

  return true;

$$ 

create procedure form_onLoad form as

$$

  print("form_onLoad");

$$

create procedure form_clear form as

$$

  print("form_clear");

$$

create function form_isReadOnly form as

begin

    if not user().isAuthenticated() then

      return true;

    end if

    return false;

    -- set fecha_accidente = form.getField('FECHA_ACCIDENTE').getValue();

    -- if fecha_accidente = null then

    --   return false;

    -- end if

    -- set fecha_de_cierre = application().getProperty('CEGESEV.accidentes.fecha_de_cierre');

    -- if fecha_de_cierre = null then

    --   return true;

    -- end if

    -- return Date(fecha_de_cierre) > Date(fecha_accidente);

end