SET SQL DIALECT 3; SET NAMES WIN1251; SET TERM ^ ; CREATE PROCEDURE REPORT_DEFAULTS AS DECLARE VARIABLE MAX_ID INTEGER; begin /* REP_INDEX : RepCardList,RepEventList,RepWorkTime,RepDelPep,RepPep,RepWorkTime2,RepWorkTimeDetail*/ /* PRINTINDEX : Определение индексов дано в Report\UnitVar.pas QRIndex qrCardList, {0} qrEventList, {1} qrWorkTime, {2} qrPepDel {3} */ /* PROCNAME : Report_GetCardList, Report_GetEventList, Report_WorkTime, Report_PepInfo, Report_PepInfo, Report_WorkTimeBuh, Report_WorkTimeDetail */ /* PRINTCAPTION : QR_CARD, QR_EVENT, QR_WORKTIME, QR_PEP_DEL, QR_PEP, QR_WORKTIME, QR_WORKTIME QR_PEP_DEL = 'Cписок уволенных сотрудников'; QR_PEP = 'Cписок сотрудников'; QR_WORKTIME = 'Журнал рабочего времени'; QR_EVENT = 'Журнал событий'; QR_CARD = 'Список пропусков'; */ /* REPTYPE : Определение типов дано в Common\UnitConst.pas //User access flag fAcsCardList = 512; fAcsEventList = 1024; fAcsWorkTime = 2048; fAcsDelPep = 4096; fAcsPep = 16384; fAcsWorkTime2 = 32768; */ /* REPCAPTION: Cписок карточек, Журнал событий, Журнал рабочего времени, Журнал уволенных, Журнал сотрудников, Журнал рабочего времени 2, Детальный журнал рабочего времени */ INSERT INTO REPORTS (REP_INDEX, PRINTINDEX, PRINTCAPTION, REPTYPE, REPCAPTION, PROCNAME) VALUES ('RepCardList', 0, 'Список пропусков', 512, 'Cписок карточек', 'Report_GetCardList'); max_id = GEN_ID(GEN_REPORTS_ID,0); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'OrgName', 'Организация'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'PepName', 'ФИО сотрудника'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'ID_CARD', 'Код карточки'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'AccessName', 'Категория'); INSERT INTO REPORTS (REP_INDEX, PRINTINDEX, PRINTCAPTION, REPTYPE, REPCAPTION, PROCNAME) VALUES ('RepEventList', 1, 'Журнал событий', 1024, 'Журнал событий', 'Report_GetEventList'); max_id = GEN_ID(GEN_REPORTS_ID,0); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'DateTime', 'Время'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'EventName', 'Тип события'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'Source', 'Источник'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'Note', 'Информация'); INSERT INTO REPORTS (REP_INDEX, PRINTINDEX, PRINTCAPTION, REPTYPE, REPCAPTION, PROCNAME) VALUES ('RepWorkTime', 2, 'Журнал рабочего времени', 2048, 'Журнал рабочего времени', 'Report_WorkTime_Order'); max_id = GEN_ID(GEN_REPORTS_ID,0); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'Date', 'Дата'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'OrgName', 'Организация'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'PepName', 'ФИО сотрудника'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'Time_IN', 'Прибыл'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'Time_Delay', 'Опоздал'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'Time_OUT', 'Убыл'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'Time_Before', 'Отклонение'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'Time_Work', 'Работал'); INSERT INTO REPORTS (REP_INDEX, PRINTINDEX, PRINTCAPTION, REPTYPE, REPCAPTION, PROCNAME) VALUES ('RepDelPep', 3, 'Cписок уволенных сотрудников', 4096, 'Журнал уволенных', 'Report_PepInfo'); max_id = GEN_ID(GEN_REPORTS_ID,0); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'OrgName', 'Организация'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'FIO', 'ФИО'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'DateBirth', 'День рождения'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'PlaceLife', 'Место жительства'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'PlaceReg', 'Место регистрации'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'PhoneHome', 'Дом. телефон'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'PhoneWork', 'Раб. телефон'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'PhoneCellular', 'Сот. телефон'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'NumDoc', '№ док.'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'DateDoc', 'Дата выдачи док.'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'PlaceDoc', 'Место выдачи док.'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'WorkStart', 'Начало работы'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'WorkEnd', 'Конец работы'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'Post', 'Должность'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'PlaceBirth', 'Место рождения'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'Note', 'Заметки'); INSERT INTO REPORTS (REP_INDEX, PRINTINDEX, PRINTCAPTION, REPTYPE, REPCAPTION, PROCNAME) VALUES ('RepPep', 3, 'Cписок сотрудников', 16384, 'Журнал сотрудников', 'Report_PepInfo'); max_id = GEN_ID(GEN_REPORTS_ID,0); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'OrgName', 'Организация'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'FIO', 'ФИО'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'DateBirth', 'День рождения'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'PlaceLife', 'Место жительства'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'PlaceReg', 'Место регистрации'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'PhoneHome', 'Дом. телефон'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'PhoneWork', 'Раб. телефон'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'PhoneCellular', 'Сот. телефон'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'NumDoc', '№ док.'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'DateDoc', 'Дата выдачи док.'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'PlaceDoc', 'Место выдачи док.'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'WorkStart', 'Начало работы'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'WorkEnd', 'Конец работы'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'Post', 'Должность'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'PlaceBirth', 'Место рождения'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'Note', 'Заметки'); /* INSERT INTO REPORTS (REP_INDEX, PRINTINDEX, PRINTCAPTION, REPTYPE, REPCAPTION, PROCNAME) VALUES ('RepWorkTime2', 2, 'Журнал рабочего времени', 32768, 'Журнал рабочего времени 2', 'Report_WorkTimeBuh'); max_id = GEN_ID(GEN_REPORTS_ID,0); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'Date', 'Дата'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'OrgName', 'Организация'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'PepName', 'ФИО сотрудника'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'Time_IN', 'Прибыл'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'Time_Delay', 'Опоздал'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'Time_OUT', 'Убыл'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'Time_Before', 'Отклонение'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'Time_Work', 'Работал'); */ INSERT INTO REPORTS (REP_INDEX, PRINTINDEX, PRINTCAPTION, REPTYPE, REPCAPTION, PROCNAME) VALUES ('RepWorkTimeDetail', 2, 'Журнал рабочего времени', 2048, 'Детальный журнал рабочего времени', 'Report_WorkTimeDetail'); max_id = GEN_ID(GEN_REPORTS_ID,0); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'Date', 'Дата'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'OrgName', 'Организация'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'PepName', 'ФИО сотрудника'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'Time_IN', 'Прибыл'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'Time_Delay', 'Опоздал'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'Time_OUT', 'Убыл'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'Time_Before', 'Отклонение'); INSERT INTO REPORTCELLS ( ID_REP, FIELDNAME, FIELDCAPTION) VALUES (:max_id, 'Time_Work', 'Работал'); end ^ SET TERM ; ^ execute procedure REPORT_DEFAULTS; drop procedure REPORT_DEFAULTS; EXIT; END;