тип переменной ExcelFormat ???

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
galera
Посетитель
Сообщения: 30
Зарегистрирован: 12 июл 2006, 15:14
Откуда: Красноярск
Контактная информация:

тип переменной ExcelFormat ???

Сообщение galera »

Почему при компиляции не воспринимается тип ExcelFormat?
коммент в форме: "В формах написанных разработчиками Галактики использован новый подход,
реализованный через объектную переменную iExcelFormat типа ExcelFormat."
дальше идет объявление переменной:
.var
iExcelFormat : ExcelFormat;
.endvar
но при компиляции требует задать тип, т.е. ExcelFormat как тип не воспринимается.
стоит Галактика 712 support 4.35
Как помочь FCOM переварить этот тип?
galera
Посетитель
Сообщения: 30
Зарегистрирован: 12 июл 2006, 15:14
Откуда: Красноярск
Контактная информация:

Сообщение galera »

Edward, бес комментов непонятно, atl05.txt в данный момент нет возможности скачать. сделала по-тупому - вырезала комменты и вставила в форму все функции без разбору, не помогло
подскажи плиз что сделать?
вот это вставила:
ExcelFormat.vih
===============
#ifndef __ExcelFormat__
#define __ExcelFormat__
ObjInterface ObjExcelFormat;
function EraseSeparator (NumberInString : string) : string;
function NumInStrToDouble (NumberInString : string) : double;
function NumInStrEraseSeparator (NumberInString : string) : string;
function NumInStrEraseSeparatorNotNul (NumberInString : string) : string;
function efFormatExcel (ColDecimalDigit : word ) : string;
function DoubleToStrFormatExcel (Sum : double; ColDecimalDigit : word) : string;
function DoubleToStrFormatNotNul (Sum : double; _Format : string) : string;
function DoubleToStrFormatExcelNotNul (Sum : double; ColDecimalDigit : word) : string;
function NumInStrToFormatExcel (NumberInString : string; ColDecimalDigit : word ) : string;
function NumInStrToFormatExcelNotNul (NumberInString : string; ColDecimalDigit : word ) : string;
function DateToStrFormatExcel (_Date : date ): string;
function DateToStrFormatExcelNotNul (_Date : date ): string;
function efDateStandartFormatExcel : string;
function DateStandartToStrFormatExcel (_Date : date ): string;
function DateStandartToStrFormatExcelNotNul (_Date : date ): string;
function efPeriodFormatExcel : string; // efFormatExcelPeriod
function PeriodToStrFormatExcel (_Date : date ): string;
function PeriodToStrFormatExcelNotNul (_Date : date ): string;
function SrokIspEdIzm (SrokIspNumber : double;
In_EdIzm : word;
Out_EdIzm : word
) : string;
end;
VipInterface ExcelFormat
Implements ObjExcelFormat
#ifdef Atl51
Licensed (Free)
#end;
#end // __ExcelFormat__
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5188
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Сообщение edward_K »

в atl03.txt ищите
это нужно еще заключить в
.Declare
.enddeclare
да вот эти 2 строки тоже не нужно переносить
-----------
ExcelFormat.vih
===============
-----------
кстати проверте что как миниум atl03 у вас установлен на сапорт - без этого сие работать не будет.
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5188
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Сообщение edward_K »

13. ПРОБЛЕМА В ПИР: 102.47762
ПРОЕКТ / ДЕТАЛИЗАЦИЯ:
Инструментарий прикладного программиста / FCOM - язык, компиляция
ЧТО ИЗМЕНЕНО:
Невозможно перекомпилировать формы, использующие объектные интерфейсы
КАК ИЗМЕНЕНО:
В синтаксис fcom добавлена секция

.Declare
.EndDeclare

в данную секцию нужно добавить описание интерфейсов методы
которых будут использованы в форме например:

===========================================================================
==============
.form frmPrimer
.ard
.Declare
ObjInterface ObjExample;
Procedure SimpleProc (i : integer);
Function SimpleFunc (var s : string) : String;
End;
VipInterface MyPublicVip implements ObjExample;
.enddeclare

.var
iVip : MyPublicVip;
.endvar
.fields
st
.endfields

.begin
st := 'frmPrimer';
st := iVip.SimpleFunc(st);
end.
Результат "^"
.begin
iVip.SimpleProc(28);
end.
.endform
===========================================================================
==============

Описания объектных интерфейсов следует брать у разработчиков отчётов.
other95
Новичок
Сообщения: 23
Зарегистрирован: 03 янв 2006, 18:58
Откуда: Санкт-Петербург
Контактная информация:

Сообщение other95 »

А если мне надо переделать несколько форм использующих ExcelFormat?
Я могу как то подключить ExcelFormat.vih прямо через проект?
Или я должен встраивать вышеуказанный код в каждую форму?
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5188
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Сообщение edward_K »

если у вас проект - есть лицензия на vip - то вам достаточно в проекте написать
#include ....
а сей же совет для тех у кого тока Fcom.
other95
Новичок
Сообщения: 23
Зарегистрирован: 03 янв 2006, 18:58
Откуда: Санкт-Петербург
Контактная информация:

Сообщение other95 »

Все разобрался...

надо было просто взять файл gloconst.inc и подключить его в проекте инклюдом первой же строчкой
и проследить чтобы все что инклюдится в файле gloconst.inc тоже должно присутствовать
Ответить