procedure TTNEWPROMOTIONALINFO.DataSetSDSDISCOUNTBeforeDelete(DataSet: TDataSet);
begin
Inherited;
{ if not DataSetSDSTDALLTYPE.Active then
DataSetSDSTDALLTYPE.Open;
DataSetSDSTDALLTYPE.Edit;
DataSetSDSTDALLTYPE.Post;
DataSetSDSTDALLTYPE.Edit;
DataSetSDSTDALLTYPE.First;
while not DataSetSDSTDALLTYPE.Eof do
begin
if DataSetSDSTDALLTYPE.FieldByName('FDisAcountID').AsString=DataSetSDSDISCOUNT.FieldByName('FID').AsString then
begin
//DataSetSDSTDALLTYPE.ReadOnly:=false;
FCanDelete:=true;
DataSetSDSTDALLTYPE.Delete;
FCanDelete:=false;
exit;
end;
DataSetSDSTDALLTYPE.Next;
end; }
end;