1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40
|
begin
if get_item_property('rech.editer',label)='Editer' then
set_item_property('rech.editer',label,'valider');
set_item_property('employe.cinemp',update_allowed,property_true);
set_item_property('employe.cinemp',insert_allowed,property_true);
set_item_property('employe.nomemp',update_allowed,property_true);
set_item_property('employe.nomemp',insert_allowed,property_true);
set_item_property('employe.prenomemp',update_allowed,property_true);
set_item_property('employe.prenomemp',insert_allowed,property_true);
set_item_property('employe.dtnaissemp',update_allowed,property_true);
set_item_property('employe.dtnaissemp',insert_allowed,property_true);
set_item_property('employe.sexeemp',update_allowed,property_true);
set_item_property('employe.sexeemp',insert_allowed,property_true);
set_item_property('employe.sitfamilialeemp',update_allowed,property_true);
set_item_property('employe.sitfamilialeemp',insert_allowed,property_true);
set_item_property('employe.adremp',update_allowed,property_true);
set_item_property('employe.adremp',insert_allowed,property_true);
set_item_property('employe.telemp',update_allowed,property_true);
set_item_property('employe.telemp',insert_allowed,property_true);
set_item_property('employe.anc',update_allowed,property_true);
set_item_property('employe.anc',insert_allowed,property_true);
else
set_item_property('rech.editer',label,'Editer');
If :SYSTEM.FORM_STATUS = 'CHANGED' Then
Commit_Form ;
End if ;
end if;
end; |