ОС-Отчеты-Выдомости наличия и износа-
задаем название настройки, устанавливаем фильтры, вызываем отчет
"Ведомость износа основных средств 2002г. в формате Excel"
в отчет необходимо вместо фразы ВЕДОМОСТЬ ИЗНОСА ОСНОВНЫХ СРЕДСТВ вставить название настройки (которую ввели в самом начале)
текст отчета
Код: Выделить всё
! г==========================================================================¬
! ¦ (c) 2005 корпорация ГАЛАКТИКА ¦
! ¦ Проект ГАЛАКТИКА ¦
! ¦ Система Бухгалтерский контур ¦
! ¦ Версия 5.85.02, 7.12 ¦
! ¦ Назначение Ведомость наличия ОС (UIN 4702) и НМА (UIN 4705). ¦
! ¦ Ответственный Кузнецов Александр Николаевич ¦
! L==========================================================================-
#include Commission.frn
!=============================================================================
.LinkForm 'OSVed_07_Excel_new' Prototype is 'osopis'
!=============================================================================
.NameInList 'Ведомость износа основных средств (2002 г.) в формате Excel о как'
.Group 'Ведомости наличия ОС <<Россия>>'
#CommissionLinkVar
#CommissionLinkInit(OsOpis)
.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 (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