Stuff

-- Fait par Jean-Pierre Deschamps
if not :SYSTEM.EVENT_WINDOW IN ('FEN_RAP_EQUIPEMENTVEHICULE', 'FEN_RAP_ENTRETIEN', 'FEN_RAP_PIECE', 'FEN_RAP_EMPLOYE', 'FEN_RAP_FOURNISSEUR', 'FEN_RAP_REVENU', 'FEN_RAP_DEPENSE', 'FEN_RAP_TAXES') THEN
	IF :SYSTEM.BLOCK_STATUS IN ('CHANGED','INSERT') AND CONFIRMER('AL_QUESTION','Voulez-sauvegarder les modifications ?','') = ALERT_BUTTON1 THEN
				do_key('COMMIT_FORM');
	END IF;
--ELSE
--	CLEAR_FORM;
END IF;

CLEAR_block(no_validate);

go_block('MENU_PRINCIPAL');
hide_window(:SYSTEM.EVENT_WINDOW);
show_window('FEN_MENU_PRINCIPAL');