Подскажите пожалуйста
Как можно изменить значение вводимого поля в CHECK(правило для поля)

Пусть существует таблица Пользлвателей

Create TABLE tblUser;
    (FLD_ID I NOT NULL PRIMARY KEY,;
     FLD_NAME C(30) NOT NULL,;
     FLD_Inic  C(6) NOT NULL)

И вводится запись, в поле Инициалы, которой случайно стоит две точки

INSERT INTO tblUser (fld_id,fld_name,fld_inic) value(1,'Иванов','П..П.')

Перепробовал варианты передачи параметра по ссылке:
    (   @   ,    SET UDFPARMS TO REFERENCE    )

Можно ли на прямую обратится к вводимому элементу или каким-либо другим способом?????????
Можно ли как-нибудь это обойти??????

Не понял, а что не так? Длина значения вроде 6 не превышает. Или надо отловить какую-то конкретную ошибку?

Это сообщение отредактировал(а) Данкинг - 10.1.2009, 01:16

Проблема в том что я не хочу выводить сообщение об ошибк, ведь ее запросто исправить. Я хочу изменить
занчение в ф-ции myfun, так чтобы в таблицу оно попало без лишней точки. А при передачи значения по ссылке @ вылетает ошибка. А не SET UDFPARMS TO REFERENCE вообще не реагирует , либо передает ноль.

Ну, оставляй одну точку при вводе:

Привет.

Не поучается.
Я хочу в функции, которая  пишется при создании. таблицы  "myfun" изменить значение,
а    Replace  вызывает эту же функцию, вобщем бесконечный цикл.
Необходимо изменить значение именно в функции "myfun".

Вот пример(смысла в нем нет, а вот действия выполняймые в нем необходимо сделать):

Файл проверки:           файл    bld.prg
          SET PROCEDURE TO crtbd.prg
          crtbd()
          SET PROCEDURE TO f.prg
          SET UDFPARMS TO REFERENCE
          INSERT INTO table1 (i,l,c) VALUES (0,.f.,'нет')
          USE table1
          BROWSE

Создание базы и таблицы:       файл  crtbd,prg
          FUNCTION crtbd
          CLOSE DATABASES ALL
          SET SAFETY OFF
          CREATE DATABASE data1
          CREATE TABLE table1;
                   (i I CHECK fi(@i),;
                    l L CHECK fl(@l),;
                    c C(10) CHECK fc(@c))

функции для CHECK                     файл  f.prg
          PROCEDURE fi
             LPARAMETERS i
             EXTERNAL ARRAY i
             i=1
             RETURN .t.
          ENDPROC

         PROCEDURE fl
            LPARAMETERS l
            EXTERNAL ARRAY l
            l=.t.
            RETURN .t.
         ENDPROC

         PROCEDURE fc
            LPARAMETERS c
            EXTERNAL ARRAY c
            c='Да'
            RETURN .t.
         ENDPROC

Ты намудрил чего-то вообще. Что в принципе сделать надо, т.е. задача какая? Техзадание.  

Необходимо (в примере из трех файлов). в файле f.prg,там где ф-ции изменить значение вводимого поля.

Т.е. пользователь ввел несовсем корректные данные, но есть строгие правила.

Выполняя INSERT, вызывается, для каждого поля своя функция проверки данных, если несовсем

коректные данные хочу их исправить, ну а если же совсем не то ввели - то откат, путе возврата из этой

функции false.

Ну, а на этапе ввода почему нельзя проверять? Он вводит же в Edit'ы или как там у тебя реализовано.

Это сообщение отредактировал(а) Данкинг - 10.1.2009, 23:31

Не я понимаю что перед вводом можно вызвать эту ф-ция (и проблемы нет).

Ну к примеру вводит в GRID, основаный на VIEW которы к тому же рассылает данные по таблицам.

То есть изменеие должно непостредственно происходит в функция указанных в CHECK.

Можно ли как на прямую обратится к элементу поля таблицы.(Или они protected)

*!*    Привет.

*!*    Вобщем я нашел решение!!!(Если интересно, смотри ниже).

*!*    Еще раз постановка задачи:

*!*    Необходимо в функции, определенной в CHECK при создании таблицы,
*!*    изменить не совсем корректно введенные данные. (Пример без особого смысла)

PUBLIC cas
cas=.T.
CLOSE DATABASE ALL
CREATE DATABASE bd1
CREATE TABLE tbl1 ( fld1 C(10) CHECK fstr( fld1,'fld1' ) )
INSERT INTO tbl1 (fld1) VALUES ("Нет")
USE tbl1
BROWSE

FUNCTION fstr
PARAMETERS flds,cmdfld
IF cas
  cas=.F.
  REPLACE &cmdfld WITH ALLTRIM(flds)+", Да!!!"
ELSE
  cas=.T.
ENDIF
RETURN cas

P.S.: Спасибо за REPLACE, без него не обошолся бы наверное.(Не знаешь как собрать *.fll)

А вообще у тебя фокс какой? Версия т.е.

VFP8!!!