Code: Select all
procedure MyQueryCalcFields(DataSet: TDataSet);
begin
if MyQuerySTOCK_DESC.AsString='GOOD' then
MyQuerySTOCK_LOT.AsString:='LOT A'
else MyQuerySTOCK_LOT.AsString:='LOT Z'
end;
Code: Select all
procedure MyQueryCalcFields(DataSet: TDataSet);
begin
if MyQuerySTOCK_DESC.AsString='GOOD' then
MyQuerySTOCK_LOT.AsString:='LOT A'
else MyQuerySTOCK_LOT.AsString:='LOT Z'
end;