Проблема с отчетом
Модераторы: m0p3e, edward_K, Модераторы
-
- Постоянный гость
- Сообщения: 56
- Зарегистрирован: 29 мар 2005, 17:49
- Откуда: Волгоград Филиал ОАО "Связьтранснефть" НВ ПТУС отдел ОИТ
Проблема с отчетом
Добрый вечер, есть задача, в которой нужно в отчете помимо различной информации, вывести ФИО в определенном падеже.Есть файл odecl.vih, но как его грамотно подщключить и использовать его функции, я не знаю,пробовал много способов, ничего не помогает.Кто-нибудь сталкивался с подобным?
-
- Постоянный гость
- Сообщения: 56
- Зарегистрирован: 29 мар 2005, 17:49
- Откуда: Волгоград Филиал ОАО "Связьтранснефть" НВ ПТУС отдел ОИТ
.LinkForm ’Nformt1_02_2’ Prototype is ’Nformt1_2004’
.NameInList ’Договорное обязательство (Ткаченко М.Е.)’
#include C:\odecl.vih
var
iDecl : Odeclension;
str:string;
str:=iDecl.FIODeclension(Persnrec,FIO,3);
.create view t1
as select appointments.*,staffstruct.*,advfeatures.*,catalogs.*
where ((APPOINTNREC==appointments.nrec and appointments.STAFFSTR /== staffstruct.nrec
and advfeatures.objnrec /== staffstruct.nrec
and advfeatures.position /== catalogs.nrec));
.Fields
FIO
должность
catalogs.CODE
catalogs.LONGNAME
.EndFields
Приложение 1
к «Положению о коммерческой тайне ОАО «ХХХХХХ»
утверждено приказом ОАО «ХХХХХХ»
от 30.04.2008 №
Договорное обязательство _______ str
Мне, ^
(Фамилия, имя. отчество}
при оформлении на должность iDecl.FIODeclension(PERSNREC, FIO,3);
^
(название должности и структурного подразделения)
ОАО «ХХХХХХХ» (далее именуется - Общество) в соответствии Трудовым договором разъясне-но, что по роду исполняемых мною должностных обязанностей я буду допушен(а) к информации, яв-ляющейся коммерческой тайной Общества:
Перечень конкретной информации, составляющей коммерческую тайну, к которым допускается работник
.{table 't1' by appointments.nrec;
^ ^
.}
«_____»______________ 200 года ___________________________
(подпись)
_________________________________________________________________________________________
(собственноручно написанные фамилия, ими, отчество работника )
Перечень конфиденциальной информации, к которой допускается работник, согласован.
Начальник (наименование подразделения) « » 200 года
_________________________________________________________________________________________________
(подпись, фамилия, инициалы начальника подразделения работника) \
Должностное лицо, принявшее Договорное обязательство:
Специалист СБ «_____ »____________________ 200 года
.{t1_2004_Raise CheckEnter
.}
.endform
.NameInList ’Договорное обязательство (Ткаченко М.Е.)’
#include C:\odecl.vih
var
iDecl : Odeclension;
str:string;
str:=iDecl.FIODeclension(Persnrec,FIO,3);
.create view t1
as select appointments.*,staffstruct.*,advfeatures.*,catalogs.*
where ((APPOINTNREC==appointments.nrec and appointments.STAFFSTR /== staffstruct.nrec
and advfeatures.objnrec /== staffstruct.nrec
and advfeatures.position /== catalogs.nrec));
.Fields
FIO
должность
catalogs.CODE
catalogs.LONGNAME
.EndFields
Приложение 1
к «Положению о коммерческой тайне ОАО «ХХХХХХ»
утверждено приказом ОАО «ХХХХХХ»
от 30.04.2008 №
Договорное обязательство _______ str
Мне, ^
(Фамилия, имя. отчество}
при оформлении на должность iDecl.FIODeclension(PERSNREC, FIO,3);
^
(название должности и структурного подразделения)
ОАО «ХХХХХХХ» (далее именуется - Общество) в соответствии Трудовым договором разъясне-но, что по роду исполняемых мною должностных обязанностей я буду допушен(а) к информации, яв-ляющейся коммерческой тайной Общества:
Перечень конкретной информации, составляющей коммерческую тайну, к которым допускается работник
.{table 't1' by appointments.nrec;
^ ^
.}
«_____»______________ 200 года ___________________________
(подпись)
_________________________________________________________________________________________
(собственноручно написанные фамилия, ими, отчество работника )
Перечень конфиденциальной информации, к которой допускается работник, согласован.
Начальник (наименование подразделения) « » 200 года
_________________________________________________________________________________________________
(подпись, фамилия, инициалы начальника подразделения работника) \
Должностное лицо, принявшее Договорное обязательство:
Специалист СБ «_____ »____________________ 200 года
.{t1_2004_Raise CheckEnter
.}
.endform
Не похоже что это рабочий исходник. Вот так должно работать:
Кроме того необходимо проверить что выдают PersNrec и FIO.
Код: Выделить всё
#include C:\odecl.vih
.LinkForm ’Nformt1_02_2’ Prototype is ’Nformt1_2004’
.NameInList ’Договорное обязательство (Ткаченко М.Е.)’
.var
iDecl : Odeclension;
.endvar
.create view t1
as select appointments.*,staffstruct.*,advfeatures.*,catalogs.*
where ((APPOINTNREC==appointments.nrec and appointments.STAFFSTR /== staffstruct.nrec
and advfeatures.objnrec /== staffstruct.nrec
and advfeatures.position /== catalogs.nrec));
.Fields
FIO
iDecl.FIODeclension(PERSNREC, FIO,3);
должность
catalogs.CODE
catalogs.LONGNAME
.EndFields
Приложение 1
к «Положению о коммерческой тайне ОАО «ХХХХХХ»
утверждено приказом ОАО «ХХХХХХ»
от 30.04.2008 №
Договорное обязательство _______ str
Мне, ^
(Фамилия, имя. отчество}
при оформлении на должность ^
^
(название должности и структурного подразделения)
ОАО «ХХХХХХХ» (далее именуется - Общество) в соответствии Трудовым договором разъясне-но, что по роду исполняемых мною должностных обязанностей я буду допушен(а) к информации, яв-ляющейся коммерческой тайной Общества:
Перечень конкретной информации, составляющей коммерческую тайну, к которым допускается работник
.{table 't1' by appointments.nrec;
^ ^
.}
«_____»______________ 200 года ___________________________
(подпись)
_________________________________________________________________________________________
(собственноручно написанные фамилия, ими, отчество работника )
Перечень конфиденциальной информации, к которой допускается работник, согласован.
Начальник (наименование подразделения) « » 200 года
_________________________________________________________________________________________________
(подпись, фамилия, инициалы начальника подразделения работника) \
Должностное лицо, принявшее Договорное обязательство:
Специалист СБ «_____ »____________________ 200 года
.{t1_2004_Raise CheckEnter
.}
.endform
-
- Постоянный гость
- Сообщения: 56
- Зарегистрирован: 29 мар 2005, 17:49
- Откуда: Волгоград Филиал ОАО "Связьтранснефть" НВ ПТУС отдел ОИТ
Сделал все как вы описали, при компиляции выдается ошибка : Ожидается оператор ".Form", ".Autoform",".LinkForm" или "Set Name" (стр 19, поз 1 в С:\odecl.vih) objinterface odeclension;
если переставляю в отчете строку #include C:\odecl.vih после
LinkForm ’Nformt1_02_2’ Prototype is ’Nformt1_2004’
то при компиляции выдается предупреждение: ожидалось имя или описание типа iDecl : Odeclension;
Я так понимаю, мой файл C:\odecl.vih какойто неверный?!
если переставляю в отчете строку #include C:\odecl.vih после
LinkForm ’Nformt1_02_2’ Prototype is ’Nformt1_2004’
то при компиляции выдается предупреждение: ожидалось имя или описание типа iDecl : Odeclension;
Я так понимаю, мой файл C:\odecl.vih какойто неверный?!
VIH-и обычно в файле *.prj подключаются, как-то так:
Код: Выделить всё
#include odecl.vih
#make "MyLinkForm.frm"