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

Функция RepMenuCheck()

Проверяет наличие записей в отчете и возвращает .F., если хотя бы одна запись существует.
Синтаксис
RepMenuCheck()
Пример:
   ...
m.pcTitle = 'Список (ФИО, возраст, диагноз, б/лист)'
m.BegDate = CTOD('')
m.EndDate = CTOD('')
   ...
RepForm(10,m.pcTitle,@m.BegDate,@m.EndDate,'Дата закрытия б/л с:','по:')
   PatientSelect(m.BegDate,m.EndDate)

&&&  Проверка на пустую базу
     IF RepMenuCheck()=.T.
         MESSAGEBOX("Отчет не будет сделан, т.к в нем нет записей",64,m.pcTitle)
         RELEASE  m.pcTitle, m.BegDate, m.EndDate
         RETURN
     ELSE
         REPORT FORM spisok NOCONSOLE PREVIEW
     ENDIF
   ...
Главная Статистика Содержание Назад Вперёд

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