* создаем тестовую БД
CREATE DATABASE DBCheck
****** это подготовитльная работа 
* создаем курсор куда запишем текст нашей процедуры
CREATE CURSOR tmp (TextProc M)
* собственно текст
INSERT INTO tmp (TextProc) VALUES ('Function Summ' + + CHR( 13 ) + CHR( 10 ) )
replace TextProc WITH 'replace SumTwoDigit with FirstDigit + SecondDigit' + + CHR( 13 ) + CHR( 10 )  ADDITIVE IN tmp
replace TextProc WITH 'EndFunc' ADDITIVE IN tmp
* записываем из Мемо на диск в текстовый файл
COPY MEMO TextProc TO mytemp.txt
USE             
* добавляем процедуру (ХП) в контейнр БД
APPEND PROCEDURES FROM mytemp.txt   
* компилируем нашу ХП
COMPILE DATABASE DBCheck
****** конец подготовки
****** Такой изврат нужен, что бы добавить ХП в БД, поскольку нет штатной
****** команды CREATE PROCEDURE

* Создаем тестовую табличку, и в ней пишем правило поля check Summ()
* вызывающее нашу ХП
CREATE TABLE TableSum (FirstDigit n( 12 , 2 ) DEFAULT  0 , SecondDigit n( 12 , 3 ) DEFAULT  0 , SumTwoDigit n( 12 , 3 ), check Summ() )
* заносим одну запись
INSERT INTO TableSum (FirstDigit , SecondDigit) VALUES ( 1 . 2 ,  2 . 2  )
* смотрим на сумму SumTwoDigit
BROWSE
* изменяем первое поле
replace FirstDigit WITH  2 . 8  IN TableSum
* смотрим на сумму
BROWSE