CREATE DOMAIN D_BIGTEXT	AS 	BLOB SUB_TYPE 1 DEFAULT '';

===== ErrorHandler FIBErrorEvent =====
Sender.ClassName = TFIBQuery
Sender.Name = UpdateQuery
Owner.Name = FDSProvider
ConstraintName = 
ExceptionNumber = -1
Lasterror = keOther
SQLCode = -625
IBErrorCode = 335544347
Message = FProvider.FDSProvider.UpdateQuery:
The insert failed because a column definition includes validation constraints.Validation error for column NOTICE, value "*** null ***".

IBMessage = Validation error for column NOTICE, value "*** null ***".

SQLMessage = The insert failed because a column definition includes validation constraints.
KindIBError = keOther

SQL Query = UPDATE PROVIDER
SET 
    SKEY = :SKEY,
    GROUP_ID = :GROUP_ID,
    NAME = :NAME,
    KIND_KEY = :KIND_KEY,
    STATE_KEY = :STATE_KEY,
    PARAMS = :PARAMS,
    MANAGER = :MANAGER,
    PHONES = :PHONES,
    EMAILS = :EMAILS,
    STORE = :STORE,
    SERV_ADDR = :SERV_ADDR,
    SERV_PHONE = :SERV_PHONE,
    NOTICE = :NOTICE,
    POS = :POS
WHERE
    ID = :OLD_ID
    

SKEY : ""
GROUP_ID : "1"
NAME : "Новый поставщик 1"
KIND_KEY : "kDefault"
STATE_KEY : "kDefault"
PARAMS : ""
MANAGER : ""
PHONES : ""
EMAILS : ""
STORE : ""
SERV_ADDR : ""
SERV_PHONE : ""
NOTICE : NULL
POS : "1"
OLD_ID : "1"

CREATE DOMAIN D_BIGTEXT	AS 	BLOB SUB_TYPE 1 DEFAULT ''	NOT NULL;     

CREATE TABLE provider (
   id 		D_PK,
   skey		D_VC32,
   group_id	D_FK,
   name 	D_VC,
   kind_key	D_VC100,
   state_key	D_VC100,
   params	D_VC,
   manager 	D_VC,
   phones 	D_VC,
   emails	D_VC,
   store 	D_VC,
   serv_addr 	D_VC,
   serv_phone 	D_VC,
   notice 	D_BIGTEXT,
   pos 		D_INT,
   CONSTRAINT PK_provider PRIMARY KEY (id),
   CONSTRAINT FK1_provider FOREIGN KEY (group_id) 
   	REFERENCES provider_group(id) 
   		ON DELETE CASCADE
);

procedure TFIBMemoField.SetAsString(const Value: string); 
begin
 with  TFIBDataSet(DataSet).Database do
  if NeedUTFEncodeDDL
   and IsUnicodeConnect or (FCharSetID in UnicodeCharSets) then
    inherited SetAsString(UTF8Encode(Value))
   else
   inherited SetAsString(Value)
end;

    if Length(Value) > 0 then
       inherited SetAsString(Value)
       else
       inherited SetAsString(' ');