Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Delphi Новый топик    Ответить
 DataSetProvider...Глюк или моя ошибка....  [new]
Oleon
Member

Откуда:
Сообщений: 327
На событие BeforeUpdateRecord у меня висит такой код :
while not DeltaDS.Eof do
begin
for i := 0 to DeltaDS.FieldCount - 1 do
begin
if DeltaDs.Fields.NewValue <> Unassigned then
begin
if DeltaDS.Fields.NewValue <> DeltaDS.Fields.OldValue then
begin
//запускаем процедура обработки изменений...
spObligatoryAssessment.Parameters.ParamByName('@Id_Supplier').Value := DeltaDS.FieldByName('Id_Supplier').OldValue;
spObligatoryAssessment.Parameters.ParamByName('@Id_Plu').Value := DeltaDS.FieldByName('Id_Plu').OldValue;
spObligatoryAssessment.Parameters.ParamByName('@FieldName').Value := DeltaDS.Fields.FieldName;
spObligatoryAssessment.Parameters.ParamByName('@TDate').Value := deTDate.Date;
spObligatoryAssessment.Parameters.ParamByName('@Qty').Value := DeltaDS.Fields.NewValue;
try
spObligatoryAssessment.ExecProc;
except
ShowMessage('Ошибка');
end;
end;
end;
end;
DeltaDS.Next;
end;

Applied := True;

В подсвеченном месте ставлю брекпоинт... смотрю в Watches
newValue = 0, но дебаггер считает, что они равны и не идет внутрь....

может как-то по-другому, можно обработчик сделать, чтобы запустить процедуру на те записи, которые изменились...

спасибо.
21 авг 06, 19:06    [3034313]     Ответить | Цитировать Сообщить модератору
 Re: DataSetProvider...Глюк или моя ошибка....  [new]
S.PR
Member

Откуда: Минск
Сообщений: 1275
if VarCompareValue(DeltaDs.Fields[i].NewValue,Unassigned) = vrNotEqual then ...
22 авг 06, 11:09    [3036114]     Ответить | Цитировать Сообщить модератору
 Re: DataSetProvider...Глюк или моя ошибка....  [new]
-=*ShamaN*=-
Member

Откуда: Санкт-Петербург
Сообщений: 807
Есть Unassigned, а есть еще Null, попробуйте с ним...
22 авг 06, 11:18    [3036194]     Ответить | Цитировать Сообщить модератору
 Re: DataSetProvider...Глюк или моя ошибка....  [new]
ilya_sid
Member

Откуда: Moscow
Сообщений: 331
к вариантам неприменимы <>, =, >, < и пр. - для этого есть спец функции
22 авг 06, 11:24    [3036245]     Ответить | Цитировать Сообщить модератору
 Re: DataSetProvider...Глюк или моя ошибка....  [new]
Mikebond
Member

Откуда: Киев
Сообщений: 32
unassined :
if Not VarIsEmpty( DeltaDs.Fields[i].NewValue ) then ...

NULL :
if Not VarIsNULL( DeltaDs.Fields[i].NewValue ) then ...
22 авг 06, 11:29    [3036283]     Ответить | Цитировать Сообщить модератору
 Re: DataSetProvider...Глюк или моя ошибка....  [new]
Oleon
Member

Откуда:
Сообщений: 327
СПАСИБО, ВСЕМ!!!

получилось!
22 авг 06, 11:44    [3036407]     Ответить | Цитировать Сообщить модератору
Все форумы / Delphi Ответить