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

Функция RepMenu()

Выводит на экран окно со списком отчетов.
Синтаксис
RepForm(ArrayList [, cTitle][, lNoEmpty])
Параметры
ArrayList
двумерный массив параметров, где первый параметр строки - элемент списка, второй - выполняемая функция для этого элемента
cTitle
название окна
lNoEmpty
признак проверки на отсутствие пустой записи. Если установлено .T., то проверяется наличие записей в отчете и, если записей нет , то создается пустая запись.
Пример:
   ...
DIMENSION RepList(2,2)
RepList(1,1) = 'Название отчёта 1'     && 1-й элемент списка
RepList(1,2) = 'PatientData1'          && Выполняемая функция
RepList(2,1) = 'Название отчёта 2'     && 2-й элемент списка
RepList(2,2) = 'PatientData2'          && Выполняемая функция

DO RepMenu WITH RepList, 'список отчётов'
   ...
RETURN

****************************
*!  Function: PATIENTDATA1()
****************************
FUNCTION PatientData1
   ...
   REPORT FORM Patient NOCONSOLE PREVIEW
   ...
RETURN
****************************
*!  Function: PATIENTDATA1()
****************************
FUNCTION PatientData2
   ...
RETURN
   ...
Результат:

Функция RepMenu()

Главная Статистика Содержание Назад Вперёд

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