Проект слишком большой. Я его выслать не могу. Но проблема такая.
Есть справочники:простые и составные.Составные - это те, которые в своем описании ссылаются на уже существуующие справочники.Нужно отображать их все.
Как я это делаю:
На клиенте используется Ado.
На клиенты исходя из построенного спец. образом представления, говорящего, какие поля как обзывать и если поле подстановочное, то из какой таблицы брать его значение.
Например,
| Код |
CREATE VIEW dbo.VW_CALL_NOTES
AS
SELECT dbo.call_notes.cd AS [_ID],
dbo.call_notes.nm AS [Наименование],
dbo.call_notes.short_nm AS [Краткое_наименование],
IsNull(dbo.call_notes.spec_reg_type_cd,'') AS [_#Тип спецучета*@dbo.spec_reg_type$cd%nm],
dbo.call_notes.start_date AS [_START],
dbo.call_notes.finish_date AS [_FINISH]
FROM dbo.call_notes LEFT OUTER JOIN
dbo.spec_reg_type ON
dbo.call_notes.spec_reg_type_cd = dbo.spec_reg_type.cd
WHERE dbo.call_notes.finish_date is null
|
База на MS SQL Server.Формируется компонент таблица, которая если поле подстановочное, то делает его как lookup и формирует к нему динамический набор данных.Если поле просто типа fkData тоего и создает с соблюдением типов.
Вот и все.
Проблема: при постировании данных
а). если поле неподстановочное, то все нормально.
б). Если поле подстановочное, то выдается сообщение об ошибке "Проверьте значение всех состояний"+ эта ошибка происходит в юните Adodb в строке.
Recordset.Fields[FieldNo-1].Value := Data;
Постирования не происходит.
при этом Data имеет правильное значение.
| Код |
procedure UpdateData;
var
I: Integer;
FieldData: PVariantList;
Data: OleVariant;
begin
try
FieldData := PVariantList(ActiveBuffer + SizeOf(TRecInfo));
for I := 0 to FModifiedFields.Count - 1 do
with TField(FModifiedFields[I]) do
if not ReadOnly then
begin
Data := FieldData[Index];
if not VarIsEmpty(Data) then
Recordset.Fields[FieldNo-1].Value := Data;
end;
if (Recordset.EditMode * (adEditInProgress + adEditAdd)) <> 0 then
Recordset.Update(EmptyParam, EmptyParam);
except
CursorPosChanged;
Recordset.CancelUpdate;
raise;
end;
end;
|
 |