Руководство по программе МедКарта
Главная Статистика Содержание Назад Вперёд

Функция RecCopyTo()

Копирует текущую запись базы данных в cAlias
Синтаксис
RecCopyTo(cAlias)
Параметры
cAlias
имя (псевдоним) для файла базы данных, в которую копируется запись
Пример:
   ...
LOCAL m.lnSelect, m.lcFolder

m.lnSelect = SELECT()
m.lcFolder = m.DirBase + '\00000099\'

IF NOT OpenDBF(m.DirData+'IbjData.dbf','IbjBase')
   SELECT (m.lnSele)
   RETURN
ENDIF

&& открываем базу с псевдонимом 'IbjCopy'
IF OpenDBF(m.lcFolder+'IbjData.dbf','IbjCopy') &&
   SELECT IbjBase
&& Копируем текущую запись БД 'IbjBase' в базу 'IbjCopy'
  IF RecCopyTo('IbjCopy')
      WAIT WINDOW NOWAIT 'Добавлена новая запись в ' + DBF('IbjCopy')
   ENDIF
   USE IN IbjCopy
ENDIF

SELECT (m.lnSelect)
RETURN
   ...
Главная Статистика Содержание Назад Вперёд

Copyright © 2003-2006 ДПБ № 6 Предложения и замечания направляйте на MedCard@dpb6.ru