--Вычисляем длину поля первичного ключа для таблицы, записываем в iIDLength
        SELECT pa.atttypmod INTO iIDLength
		FROM
			pg_class pc, pg_attribute pa
		WHERE
			pc.relname=cTableName AND
			pa.attname=cTableName||'id' AND
			pc.relkind='r' AND
			pa.attrelid=pc.oid AND
			pa.attstorage='x';
	IF iIDLength=- 1  THEN
           SELECT pt.typtypmod INTO iIDLength
		FROM
			pg_class pc, pg_attribute pa, pg_type pt
		WHERE
			pc.relname=cTableName AND
			pa.attname=cTableName||'id' AND
			pc.relkind='r' AND
			pa.attrelid=pc.oid AND
			pa.attstorage='x' AND
			pt.oid=pa.atttypid AND
			pt.typstorage='x';	
	END IF;
	iIDLength:=iIDLength- 4 ;