while not cdsUserMode.Eof do
begin
if not cdsDictMode.Active then cdsDictMode.Open;
cdsDictMode.Append;
cdsDictMode.FieldByName('DISCOUNT_MODE_CODE').AsString := cdsUserMode.FieldByName('DISCOUNT_MODE_CODE').AsString;
cdsDictMode.FieldByName('DISCOUNT_MODE_NAME').AsString := cdsUserMode.FieldByName('DISCOUNT_MODE_NAME').AsString;
cdsDictMode.FieldByName('LABOUR_AMOUNT_DISCOUNT').AsFloat := cdsUserMode.FieldByName('LABOUR_AMOUNT_DISCOUNT').AsFloat;
cdsDictMode.FieldByName('REPAIR_PART_DISCOUNT').AsFloat := cdsUserMode.FieldByName('REPAIR_PART_DISCOUNT').AsFloat;
cdsDictMode.FieldByName('SALES_PART_DISCOUNT').AsFloat := cdsUserMode.FieldByName('SALES_PART_DISCOUNT').AsFloat;
cdsDictMode.FieldByName('ADD_ITEM_DISCOUNT').AsFloat := cdsUserMode.FieldByName('ADD_ITEM_DISCOUNT').AsFloat;
cdsDictMode.Post;
cdsUserMode.Next;
end;