Имя: Пароль:
1C
1С v8
В форму ОС-6 не тянет остаточную стоимость в раздел 1, столбец 8
Ø (aka AMIGO 22.05.2015 10:15)
0 King-SD
 
22.05.15
05:31
Помогите пожалуйста, в форму ОС-6 не тянет остаточную стоимость в раздел 1, столбец 8,, хотя форма предоставлена типовой конфигурацией и код не был изменен. Однако в Раздел 4 тянется.... Может что нужно поменять в коде печати?
1 Вася Чез
 
22.05.15
05:38
(0) какая конфигурация?
2 King-SD
 
22.05.15
05:40
(1) Бит Отель ПРОФ, на Бухгалтерия Предприятия основана. Читал что в стандартной не всё заполняется в разделе 1. Хотелось бы форму с заполнением
3 Вася Чез
 
22.05.15
05:52
(2) не вижу проблемы сделать внешнюю печатную форму
Остаточная Стоимость = Стоимость ОС - Амортизация ОС.
4 King-SD
 
22.05.15
05:59
(3)Для меня проблема. Сумма амортизации тоже не выводится.
5 Вася Чез
 
22.05.15
06:02
(4) в модуле объекта должна быть процедура ПечатьОС6, ставь точку останова и смотри как и что заполняется.
6 King-SD
 
22.05.15
06:05
(5) Да процедуру то нашёл, я в ней разобраться не могу. Могу скинуть код на просмотр
7 King-SD
 
22.05.15
06:09
Код, относящийся к Разделу 1 -

        Запрос = Новый Запрос;
        Запрос.УстановитьПараметр("Организация", Организация);
        Запрос.УстановитьПараметр("ОсновноеСредство", Ссылка);
        Запрос.УстановитьПараметр("Период", Граница);
        Запрос.УстановитьПараметр("Дата", Выборка.Дата);
        Запрос.Текст =
            "ВЫБРАТЬ
            |    СчетаБухгалтерскогоУчетаОС.СчетУчета,
            |    СчетаБухгалтерскогоУчетаОС.СчетНачисленияАмортизации
            |ПОМЕСТИТЬ СчетаБухгалтерскогоУчетаОС
            |ИЗ
            |    РегистрСведений.СчетаБухгалтерскогоУчетаОС.СрезПоследних(&Период, Организация = &Организация) КАК СчетаБухгалтерскогоУчетаОС
            |ГДЕ
            |    СчетаБухгалтерскогоУчетаОС.ОсновноеСредство = &ОсновноеСредство
            |;
            |
            |////////////////////////////////////////////////////////////////////////////////
            |ВЫБРАТЬ
            |    Истина КАК БухгалтерскаяСтоимость,
            |    ХозрасчетныйОбороты.СуммаОборотДт КАК Остаток
            |ИЗ
            |    РегистрБухгалтерии.Хозрасчетный.Обороты(
            |            &Дата,
            |            &Дата,
            |            ,
            |            ,
            |            ЗНАЧЕНИЕ(ПланВидовХарактеристик.ВидыСубконтоХозрасчетные.ОсновныеСредства),
            |            Организация = &Организация
            |                И Субконто1 = &ОсновноеСредство,
            |            КорСчет В
            |                (ВЫБРАТЬ РАЗЛИЧНЫЕ
            |                    СчетаБухгалтерскогоУчетаОС.СчетУчета
            |                ИЗ
            |                    СчетаБухгалтерскогоУчетаОС)) КАК ХозрасчетныйОбороты
            |
            |ОБЪЕДИНИТЬ ВСЕ
            |
            |ВЫБРАТЬ
            |    Ложь,
            |    ХозрасчетныйОбороты.СуммаОборотДт
            |ИЗ
            |    РегистрБухгалтерии.Хозрасчетный.Обороты(
            |            &Дата,
            |            &Дата,
            |            ,
            |            Счет В
            |                (ВЫБРАТЬ РАЗЛИЧНЫЕ
            |                    СчетаБухгалтерскогоУчетаОС.СчетНачисленияАмортизации
            |                ИЗ
            |                    СчетаБухгалтерскогоУчетаОС),
            |            ЗНАЧЕНИЕ(ПланВидовХарактеристик.ВидыСубконтоХозрасчетные.ОсновныеСредства),
            |            Организация = &Организация
            |                И Субконто1 = &ОсновноеСредство) КАК ХозрасчетныйОбороты";
            
            Результат = Запрос.Выполнить().Выгрузить();
            
            Для Каждого Строчка Из Результат Цикл
                Если Строчка.БухгалтерскаяСтоимость Тогда
                    ОстаточнаяСтоимость = Строчка.Остаток;
                Иначе
                    НакопленнаяАмортизация = Строчка.Остаток;
                КонецЕсли;
            КонецЦикла;
            
            ОстаточнаяСтоимость = ?(ОстаточнаяСтоимость>НакопленнаяАмортизация, ОстаточнаяСтоимость - НакопленнаяАмортизация, 0);
        
    КонецЕсли;
    
    Запрос = Новый Запрос;
    Запрос.Текст =
        "ВЫБРАТЬ
        |    СостоянияОСОрганизаций.Состояние,
        |    СостоянияОСОрганизаций.ДатаСостояния,
        |    СобытияОСОрганизаций.НазваниеДокумента,
        |    СобытияОСОрганизаций.НомерДокумента,
        |    СобытияОСОрганизаций.Событие,
        |    СостоянияОСОрганизаций.Регистратор
        |ИЗ
        |    РегистрСведений.СобытияОСОрганизаций КАК СобытияОСОрганизаций
        |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.СостоянияОСОрганизаций КАК СостоянияОСОрганизаций
        |        ПО СобытияОСОрганизаций.Период = СостоянияОСОрганизаций.ДатаСостояния И СобытияОСОрганизаций.Регистратор = СостоянияОСОрганизаций.Регистратор
        |
        |ГДЕ
        |    СобытияОСОрганизаций.Организация = &Организация И
        |    СостоянияОСОрганизаций.Организация = &Организация И
        |    СобытияОСОрганизаций.ОсновноеСредство = &ОсновноеСредство И
        |    СостоянияОСОрганизаций.ОсновноеСредство = &ОсновноеСредство
        |
        |ОБЪЕДИНИТЬ ВСЕ
        |
        |ВЫБРАТЬ
        |    NULL,
        |    СобытияОСОрганизацийСрезПоследних.Период,
        |    СобытияОСОрганизацийСрезПоследних.НазваниеДокумента,
        |    СобытияОСОрганизацийСрезПоследних.НомерДокумента,
        |    СобытияОСОрганизацийСрезПоследних.Событие,
        |    СобытияОСОрганизацийСрезПоследних.Регистратор
        |ИЗ
        |    РегистрСведений.СобытияОСОрганизаций.СрезПоследних(&ДатаСведений, ОсновноеСредство = &ОсновноеСредство И Организация = &Организация И Событие.ВидСобытияОС В (&МодернизацияИКапРемонт)) КАК СобытияОСОрганизацийСрезПоследних";
    
    Запрос.УстановитьПараметр("Организация", Организация);
    Запрос.УстановитьПараметр("ОсновноеСредство", Ссылка);
    Запрос.УстановитьПараметр("ДатаСведений", ДатаСведений);
    
    ВидыСобытий = Новый СписокЗначений;
    ВидыСобытий.Добавить(Перечисления.ВидыСобытийОС.Модернизация);
    ВидыСобытий.Добавить(Перечисления.ВидыСобытийОС.Достройка);
    ВидыСобытий.Добавить(Перечисления.ВидыСобытийОС.Дооборудование);
    ВидыСобытий.Добавить(Перечисления.ВидыСобытийОС.КапитальныйРемонт);

    
    Запрос.УстановитьПараметр("МодернизацияИКапРемонт", ВидыСобытий);
    Выборка = Запрос.Выполнить().Выбрать();
    
    ДатаПринятия     = '00010101';
    ДокументПринятия = "";
    
    ДатаВвода     = '00010101';
    ДокументВвода = "";
    ДокументВводаНомер = "";
    
    ДатаСписания       = '00010101';
    ДокументСписания   = "";
    РегистраторСписания = Неопределено;
    
    Пока Выборка.Следующий() Цикл
        Если Выборка.Состояние   = Перечисления.СостоянияОС.ПринятоКУчету Тогда
             ДатаПринятия        = Выборка.ДатаСостояния;
             ДокументПринятия    = Выборка.НазваниеДокумента;
        ИначеЕсли Выборка.Состояние = Перечисления.СостоянияОС.СнятоСУчета Тогда
             ДатаСписания        = Выборка.ДатаСостояния;
             ДокументСписания    = Выборка.НазваниеДокумента;
             РегистраторСписания = Выборка.Регистратор;
        Иначе
            ДатаПоследнейМодернизации     = Выборка.ДатаСостояния;
            ДокументПоследнейМодернизации = Выборка.НазваниеДокумента;
        КонецЕсли;
    КонецЦикла;

    Шапка.Параметры.ДатаВвода    = ДатаПринятия;
    Шапка.Параметры.ДатаСписания = ДатаСписания;

    ТабДок.Вывести(Шапка);

    // Балансовая стоимость ОС на момент поступления и первоначально принятый срок полезного использования
    ШапкаРазделов1и2.Параметры.ПервоначальнаяСтоимость    = ТекущиеСведенияОС.ПервоначальнаяСтоимость;
    ШапкаРазделов1и2.Параметры.СрокПолезногоИспользования = СрокИспользования;
    ШапкаРазделов1и2.Параметры.ОстаточнаяСтоимость = ОстаточнаяСтоимость;
    ШапкаРазделов1и2.Параметры.СуммаНачисленнойАммортизации = НакопленнаяАмортизация;

    ТабДок.Вывести(ШапкаРазделов1и2);
    ТабДок.Вывести(ШапкаРаздела3);
    ТабДок.Вывести(СтрокиРаздела3);
8 Вася Чез
 
22.05.15
06:26
(7) отладчик, что говорит?
9 hhhh
 
22.05.15
06:31
(7) дату проверьте. Дата формирования отчета какая?
10 King-SD
 
22.05.15
06:33
(8) Ничего не говорит. Просто нет данных, а первоначальную стоимость формирует. При формировании отчета все данные есть
11 Вася Чез
 
22.05.15
06:34
(10) а программист там у вас есть?
12 King-SD
 
22.05.15
06:34
(9) С датой всё в порядке. В отчёте данные формирует, а если через справочник Основные средства запустить печать формы ОС6, то данные не выводятся на печать
13 King-SD
 
22.05.15
06:35
(11) Как такового нет, вот и приходится самому искать способы устранения проблемы. Сам с кодом немного работаю,, если бы знал что исправить, я бы исправил
14 Вася Чез
 
22.05.15
06:48
(13) если есть под рукой бухгалтерия 2.0.64.20, то там можно посмотреть как заполняется печатная форма
15 Вася Чез
 
22.05.15
06:49
16 King-SD
 
22.05.15
06:51
(15) На инфостарте всё платное,,,,неплохо было бы если кто-нибудь скинул форму, либо ссылку на бесплатное скачивание, на платформу 8.2
17 Вася Чез
 
22.05.15
06:53
(16) если нет денег и программиста, остается только самому во все разобраться. удачи.
18 ИУБиПовиц
 
22.05.15
08:00
А что творится с регистрами СобытиеОСОрганизаций и ПервоначальныеСведенияОСБухгалтерскийУчет?
19 ИУБиПовиц
 
22.05.15
08:01
Если в этой конфе они есть:)