Страница 1 из 1
отчёт в формате Excel
Добавлено: 28 фев 2006, 12:45
evgem
Если в готовый отчёт в текстовом формате нужно вставить ешё одно поле, то проблем нет. А если отчёт в формате Excel, то при нажатии кнопки редактирование, выдаётся сообщение, что текст отчёта будет переведён в текстовый формат. После добавления поля и компиляции перевода отчёта в формат Excel не происходит и отчёта не получается даже в текстовом виде.
Добавлено: 28 фев 2006, 13:36
Алексей
никогда не пробовал так делать.
Обычно брал исходинк в ТХТ и сам делал SLK файл, потом его компилировал. Попробуйте сделать так.
Добавлено: 28 фев 2006, 13:54
san
открыть отчет excel - лем, отредактировать. гал комплилятором откомпилировать. нельзя так сделать ?
Добавлено: 28 фев 2006, 14:09
Мария_Ф
Да просто найти исходник этой формы и дописать свое.
Добавлено: 28 фев 2006, 14:13
Алексей
Да он по ф4 доступен
что его искать...
Добавлено: 28 фев 2006, 16:05
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
что дальше делать?
Добавлено: 28 фев 2006, 16:17
Трещин
сохраните это в filename.slk, и в Ехеле расставте поля как вам надо,
код формы должен лежать в первом столбце, а тело как угодно.
а потом открыть и откомпилить в FCOM...
Добавлено: 28 фев 2006, 18:03
evgem
А потом запускать его в виде отчёта? То есть включить его пунктом в меню в Галактике нельзя?
Добавлено: 01 мар 2006, 08:07
Мария_Ф
Запускаться он будет отчетом из той группы отчетов, которая указана в названии формы (.Group 'Ведомости наличия ОС' ).
Добавлено: 30 мар 2006, 18:39
evgem
Ещё вопрос по Excel: не могу запустить дизайнер отчётов Galrepdesigner, хотя в настройках есть Galrepbuilder, но не вижу панель GalRepPanel.