Уверенно говорю, что да.А ресы у вас все подключены?
2Masygreen eddi@ap-plastic.ru.
Модераторы: m0p3e, edward_K, Модераторы
Сделал. Компилятор пропустил, т.е. вообще ничего не сказал и рес не скомпилился. Компилил и vih подключил строго в проекте. И какую ошибку многих я повторяю?сделайте ошибку в extattr
Вообще ничего. Он пустой.А в VIP_RES.LOG ничего нет ?
Код: Выделить всё
#define ComponentVersion
Дефайн в проекте отключил, не помогло. ФРМ и РТФ копилю в проектеАлексей писал(а):не делаете дефайн
для ФРМок - напишите в проекте.Код: Выделить всё
#define ComponentVersion
Код: Выделить всё
#define ComponentVersion
#include ExtAttr.Vih
#make "EDD_3_SERTIFONTARA_test.rtf"
Код: Выделить всё
#define ComponentVersion
#include galnet.ccm //константы событий
#include galnet.csc //константы статус-строк
#make "EDD_3_SERTIFONTARA.rtf"
Код: Выделить всё
.LinkForm ’edd_3_SertifOnTara_SHTRIH2_testing’ prototype is tovn
.NameInList ’3. Сертификат на тару исправленный, пробный’
.group ’Накладные на продажу’
.group ’Накладные на продажу (fast)’
.Group 'Рекламационные накладные'
.Group 'Акты на строительство'
#include fldcolor.inc //константы цветов
#include gloconst.inc //Глобальные константы
#include mark.inc //константы пометки
#include summa.frn
#include ttnf_var.frn
#include format.frn
.Set Filler = ’-’
.declare
#include ExtAttr.vih
.enddeclare
.var
Nom : Word;
kolEnter :string;
GetRow :boolean;
GetTransp:boolean;
NRec_MC :comp;
getExtrAttr:iExtAttr; // ЕСЛИ ПИШУ iExtAttr NEW, ТО КОМПИЛЯТОР ВЫДАЕТ ОШИБКУ "ПЕРЕД ИМЕНЕМ ПЕРЕМЕННОЙ И ТИПОМ НАДО СТАВИТЬ ДВОЕТОЧИЕ!"
sName_Det : string;
sIndex_det : string;
sTipCont : string;
.endvar
.Create view vSertificat
......
.fields
.....
getExtrAttr.sGetAttr(coKatMC, vSertificat.SpSopr.cmcUsl,’АВТОВАЗ_НаименованиеДетали’)
....
.endfields
....
Код: Выделить всё
#ifndef _ExtAttr_Func
#define _ExtAttr_Func
#end
#ifndef __XEXTRATTR
#define __XEXTRATTR
#end
#ifdef ComponentVersion
#component "C_ExtClass"
#end
//**************************************************
#doc
Функции для работы с внешними атрибутами документов<br>
</brief>
......
#end
ObjInterface objExtAttr;
!------------------------------------------------------------------------
#doc
Набор функций для создания атрибута, получения ID, показа ошибки.<br>
Возвращает ссылку на внешний аттрибут если существует, если не найден - создает.
#end
Function CreateAttr ( _wTable : word; _Name : string; _Type : word ) : comp ;
........
#doc
Набор функций для извлечения содержания внешних аттрибутов для различных типов<br>
</brief>
Функции возвращают значение внешнего аттрибута по коду таблицы, имени атрибута и nRec-ку записи
для разных типов атрибута.<br>
sGetAttr - возвращает строку для всех типов, преобразовав тип в строку<br>
#end
function sGetAttr (_wTable : word; _cRec : comp; _Name : string) : string;
......
End;
VipInterface iExtAttr implements objExtAttr;