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

Функция RepMenuCursor()

Создает пустую запись текущей структуры.
Синтаксис
RepMenuCursor()
Примеры:
   ...
CREATE TABLE cTestDB (A1 N(2), A2 C(50))
? RepMenuCheck()        && Проверка на пустую базу
.T.
RepMenuCursor()
? RepMenuCheck()        && Проверка на пустую базу
.F.
  ...
   ...
m.pcTitle = 'Список (ФИО, возраст, диагноз, б/лист)'
m.BegDate = CTOD('')
m.EndDate = CTOD('')
   ...
RepForm(10,m.pcTitle,@m.BegDate,@m.EndDate,'Дата закрытия б/л с:','по:')
   PatientSelect(m.BegDate,m.EndDate)

&&&  Проверка на пустую базу
     IF RepMenuCheck()
         RepMenuCursor()
     ENDIF
   ...
Главная Статистика Содержание Назад Вперёд

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