отчёт в формате Excel

[evgem]

Если в готовый отчёт в текстовом формате нужно вставить ешё одно поле, то проблем нет. А если отчёт в формате Excel, то при нажатии кнопки редактирование, выдаётся сообщение, что текст отчёта будет переведён в текстовый формат. После добавления поля и компиляции перевода отчёта в формат Excel не происходит и отчёта не получается даже в текстовом виде.

[Алексей]

никогда не пробовал так делать.

Обычно брал исходинк в ТХТ и сам делал SLK файл, потом его компилировал. Попробуйте сделать так.

[san]

открыть отчет excel - лем, отредактировать. гал комплилятором откомпилировать. нельзя так сделать ?

[Мария_Ф]

Да просто найти исходник этой формы и дописать свое.

[Алексей]

Да он по ф4 доступен что его искать...

[evgem]

после F4 получается
.LinkForm 'OSVED_02_EXCEL' Prototype is 'osopis'
.Group 'Ведомости наличия ОС'
.NameInList 'Ведомость износа основных средств в формате Excel'
.p 60
.DEFO LANDSCAPE
.fields
CommonFormHeader
if (longint(Дата)<>0,DateToStr(Дата, 'DD.MM.YYYY'),'')
Метод
Ф_делитель
Делитель_прописью
Валюта_метода
Группировка
Сортировка
Фильтр
if(wGetTune('OS.SrokIspEdIzm')=0,'мес.','лет')
Ветка
if ( NeedSum1, Trim(DoubleToStr(Итого_верх_стоимость_2, efSumFormatExcel)), '')
if ( NeedSum1, Trim(DoubleToStr(Итого_верх_износ_весь_2, efSumFormatExcel)), '')
if ( NeedSum1, Trim(DoubleToStr(Итого_верх_износ_мес_2, efSumFormatExcel)), '')
if ( NeedSum1, Trim(DoubleToStr(Итого_верх_остаточная_2, efSumFormatExcel)), '')
if ( NeedSum1, Trim(DoubleToStr(Итого_верх_стоимость, efSumFormatExcel)), '')
if ( NeedSum1, Trim(DoubleToStr(Итого_верх_износ_весь, efSumFormatExcel)), '')
if ( NeedSum1, Trim(DoubleToStr(Итого_верх_износ_мес, efSumFormatExcel)), '')
if ( NeedSum1, Trim(DoubleToStr(Итого_верх_остаточная, efSumFormatExcel)), '')
if (Выбыл_в_текущем_периоде, '*' + ИнвНомер, ИнвНомер)
Наименование
Код_нормы
if (double(Норма)=0,'',DoubleToStr(double(Норма), efCoefficientFormatExcel))
Срок_использования
if (longint(Дата_поступления)<>0,DateToStr(Дата_поступления, 'DD.MM.YYYY'),'')
Trim(DoubleToStr(Количество, efKolFormatExcel))
Trim(DoubleToStr(Стоимость, efSumFormatExcel))
Trim(DoubleToStr(Износ_весь, efSumFormatExcel))
Trim(DoubleToStr(Износ_мес, efSumFormatExcel))
Trim(DoubleToStr(Остаточная, efSumFormatExcel))
Итого
Trim(DoubleToStr(Итого_стоимость_2, efSumFormatExcel))
Trim(DoubleToStr(Итого_износ_весь_2, efSumFormatExcel))
Trim(DoubleToStr(Итого_износ_мес_2, efSumFormatExcel))
Trim(DoubleToStr(Итого_остаточная_2, efSumFormatExcel))
Trim(DoubleToStr(Итого_стоимость, efSumFormatExcel))
Trim(DoubleToStr(Итого_износ_весь, efSumFormatExcel))
Trim(DoubleToStr(Итого_износ_мес, efSumFormatExcel))
Trim(DoubleToStr(Итого_остаточная, efSumFormatExcel))
С_учетом_выбывших_в_периоде
.endfields
^
ВЕДОМОСТЬ ИЗНОСА ОСНОВНЫХ СРЕДСТВ
по состоянию на ^
^
^ ( ^ ) ^
^
^
Фильтры:
.{CheckEnter FILTEROS1
^
.}
.{
.[H
Остаточная
стоимость
исп.@@@@
.]H
.{CheckEnter GRUPPAOS1
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@&&&&
.{?internal;(NeedSum1 and (Учет_выбывших <> 4 ))
&&&&
.}
.}
.{CheckEnter NAMEOS1
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ^&&&&&&&.&@@@@@@@@@@&&&&&
.}
.{CheckEnter ITOGOS1
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@&&&&
.{?internal;(Учет_выбывших <> 4)
&&&&
.}
.}
.}
.{?internal;(Учет_выбывших <> 4 )
* - с учетом выбывших в отчетном ^
.}
Бухгалтер

Ответственный за выпуск
.endform
что дальше делать?

[Трещин]

сохраните это в filename.slk, и в Ехеле расставте поля как вам надо,
код формы должен лежать в первом столбце, а тело как угодно.
а потом открыть и откомпилить в FCOM...

[evgem]

А потом запускать его в виде отчёта? То есть включить его пунктом в меню в Галактике нельзя?

[Мария_Ф]

Запускаться он будет отчетом из той группы отчетов, которая указана в названии формы (.Group 'Ведомости наличия ОС' ).

[evgem]

Ещё вопрос по Excel: не могу запустить дизайнер отчётов Galrepdesigner, хотя в настройках есть Galrepbuilder, но не вижу панель GalRepPanel.