/ - Diff - Application: gvSIG desktop - gvSIG

Revision 46458

     create procedure form_onSetvalues form, values as
     begin
       print("form_onSetvalues");
       -- print('form_onSetvalues');
       pass;
     end
     create procedure form_onFieldEnter form, field as
     begin
       print("form_onFieldEnter");
       -- print('form_onFieldEnter');
       pass;
     end
     create procedure form_onFieldExit form, field as
     begin
       print("form_onFieldExit");
       -- print('form_onFieldExit');
       pass;
     end
     create procedure form_onFieldChanged form, field as
     begin
       print("form_onFieldChanged");
       -- print('form_onFieldChanged ' || field.getName());
       case
         when field.getName() = 'bracketvcs' then
             begin
                 rotationField := form.getField('rotationangleimage');
                 bracket := field.getRelatedFeature();
                 -- print(' bracket: ' ||  tostr(bracket.extinca) );
                 -- print(' bracket rotation: ' ||  tostr(bracket.rotationangleimage) );
                 -- print(' vertical-signal rotation: ' || tostr(rotationField.getValue()) );
                 if rotationField.getValue() is null then
                     rotationField.setValue(bracket.rotationangleimage);
                 end
             end
       end
     end
     create function form_validate form as
     $$
     begin
       -- print('form_validate');
       return true;
     $$
     end
     create procedure form_onLoad form as
     $$
       print("form_onLoad");
     $$
     begin
       -- print('form_onLoad');
       return;
     end
     create procedure form_clear form as
     $$
       print("form_clear");
     $$
     begin
       -- print('form_clear');
       pass;
     end
     create function form_isReadOnly form as
     begin
-...
           return true;
         end if
         return false;
         -- set fecha_accidente = form.getField('FECHA_ACCIDENTE').getValue();
         -- if fecha_accidente = null then
         -- fecha_accidente := form.getField('FECHA_ACCIDENTE').getValue();
         -- if fecha_accidente is null then
         --   return false;
         -- end if
         -- set fecha_de_cierre = application().getProperty('CEGESEV.accidentes.fecha_de_cierre');
         -- if fecha_de_cierre = null then
         -- fecha_de_cierre := application().getProperty('CEGESEV.accidentes.fecha_de_cierre');
         -- if fecha_de_cierre is null then
         --   return true;
         -- end if
         -- return Date(fecha_de_cierre) > Date(fecha_accidente);
         -- return cast(fecha_de_cierre as date) > (fecha_accidente as date);
     end

Also available in: Unified diff