Код: Выделить всё
#component "L_DOGOVOR"
const
sciAQAEnEsc178=7500;
end;
planstatus statusLine
{
(sciAQAEnEsc178..sciAQAEnEsc178)
{
'~F1~ Помощь', cmHelp, kbF1;
'~Alt-F10~ Меню',cmHotKeys,kbAltF10;
'~Enter~ Редактирование', cmDefault, kbNoKey;
'~F7~ Создать', cmInsert, kbF7;
'~F8~ Удалить', cmDelete, kbF8;
'~Ins~ Пометить',cmAqaMarkRec, kbIns;
'', cmAqaMarkAll, kbGrayPlus;
'', cmAqaUnMarkAll, kbGrayMinus;
'', cmAQAUpDownloadScript,kbCtrlF2;
'',cmResize,kbCtrlF5;
'',cmSysMenu,kbCtrlF10;
'',cmCalculator,kbShiftF2;
'',cmEvaluateAndModify,kbCtrlF4;
'',cmLastHelp,kbAltF1;
'',cmHelp,kbF1;
// '',cmCallIndex,kbShiftF1;
'',cmQuit,kbAltX;
'',cmMenu,kbF10;
'',cmCalendar, kbAltF4;
'',cmAqaReport,kbCtrlP;
}
}
interface Plan 'Производственные планы' (,,scPPlan) ;
show at (,,76,25);
var name:string;
data:date;
status:string;
podr:string;
t_plan:string;
browse bPPlan;
fields
data 'Дата':[15],protect, noAutoSize;
name 'Номер плана':[25],protect, noAutoSize;
status 'Статус':[7],protect, noAutoSize;
podr 'Подразделение':[25],protect, noAutoSize;
t_plan 'Тип плана':[4],protect, noAutoSize;
end;
handleevent
cmDefault:
{
RunInterface('PlanCorrect');
}
end
end.
