|
разделение ОС на два | ☑ | ||
---|---|---|---|---|
0
Надяша
19.06.14
✎
10:05
|
// Количество списываемого ОС
Отбор = Новый Структура("Организация, Подразделение, Счет, Субконто1", Организация, ПодразделениеОрганизации, ТекСтрокаРазделяемогоОС.СчетУчета, ТекСтрокаРазделяемогоОС.ОсновноеСредство); ВыборкаЗаписей = РегистрыБухгалтерии.Хозрасчетный.Остатки(Дата, ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.ОсновныеСредства, Отбор,,"Количество"); КоличествоСписываемогоОС = ВыборкаЗаписей.Получить(0).КоличествоОстатокДТ; ошибка:{Документ.ПриказРазделенияОС.МодульОбъекта(322)}: Ошибка при вызове метода контекста (Получить) КоличествоСписываемогоОС = ВыборкаЗаписей.Получить(0).Количество; по причине: Значение индекса выходит за границы диапазона |
|||
1
Wobland
19.06.14
✎
10:06
|
это бывает, когда значение индекса выходит за границы диапазона
|
|||
2
Надяша
19.06.14
✎
10:19
|
не могу выловить ошибку
|
|||
3
Надяша
19.06.14
✎
10:19
|
в чём причина???
|
|||
4
andreymongol82
19.06.14
✎
10:19
|
(0) Ну значит нет элемента с индексом 0 в выборке. То есть ни одного.
|
|||
5
Godofsin
19.06.14
✎
10:21
|
(3) Если ВыборкаЗаписей.Количество() = 0 тогда
Сообщить("Упс... а записей то и нету.."); Возврат; КонецЕсли; |
|||
6
Cube
19.06.14
✎
10:21
|
(2) Перед строкой
КоличествоСписываемогоОС = ВыборкаЗаписей.Получить(0).КоличествоОстатокДТ; вставь строку Сообщить("Я пытаюсь получить первую запись из выборки в которой " + ВыборкаЗаписей.Количество() + " записей. Я молодец."); |
|||
7
andreymongol82
19.06.14
✎
10:21
|
Как минимум нужно
Если ВыборкаЗаписей.Количество()<>0 Тогда КоличествоСписываемогоОС = ВыборкаЗаписей.Получить(0).Количество |
|||
8
Надяша
19.06.14
✎
10:25
|
Количество списываемого ОС не равно 1. Бухгалтерские проводки НЕ БУДУТ СФОРМИРОВАНЫ ! ! !
|
|||
9
Надяша
19.06.14
✎
10:25
|
хотя ОС есть...
|
|||
10
Cube
19.06.14
✎
10:25
|
(8) Хвастаешься?
|
|||
11
Надяша
19.06.14
✎
10:25
|
запуталась окончательно
|
|||
12
Godofsin
19.06.14
✎
10:25
|
(9) Значит корявый отбор
|
|||
13
Wobland
19.06.14
✎
10:26
|
(9) а не находится
|
|||
14
Надяша
19.06.14
✎
10:26
|
чем хвастаться???тупостью своею?
|
|||
15
Cube
19.06.14
✎
10:26
|
(9) На эту дату, по этой организиции и подразделению, на этом счете, да?
|
|||
16
Godofsin
19.06.14
✎
10:27
|
(14) самокритично =)
|
|||
17
Cube
19.06.14
✎
10:28
|
(14) С юмором - это уже хорошо)))))))))
Ты используй запрос, проблем меньше будет... |
|||
18
Godofsin
19.06.14
✎
10:28
|
(17) +1
|
|||
19
Godofsin
19.06.14
✎
10:29
|
Хотя не принципиально
|
|||
20
Рэйв
19.06.14
✎
10:29
|
ВыборкаЗаписей.количество()=0
|
|||
21
Надяша
19.06.14
✎
10:30
|
(20)это я уже поняла
но делая оборотку по ОС вижу,что ОС есть в кол-ве=1 |
|||
22
Рэйв
19.06.14
✎
10:31
|
(21)Значит что-то намудрила с условием.
Делай запросом, не мучайся |
|||
23
AAP
19.06.14
✎
10:31
|
Конфигурация какая?
|
|||
24
Godofsin
19.06.14
✎
10:32
|
(21) Вот как думаешь, почему?
|
|||
25
AAP
19.06.14
✎
10:35
|
+(23)Если не БГУ, то по 01 счету не ведется количественный учет
|
|||
26
Cube
19.06.14
✎
10:36
|
Надяша возьми с ИТС консоль запросов или качни отсюда немного доработанную (кстати, рекомендую именно эту) http://www.lavelin.ru/skachat/summary/4-1s/3-tipovaya-obrabotka-firmy-1s-konsol-zaprosov-dopolnennaya.html
Открой её в режиме "Предприятие" в своей базе. В правое верхнее поле вставь: ВЫБРАТЬ ХозрасчетныйОстатки.Субконто1, ХозрасчетныйОстатки.Субконто2, ХозрасчетныйОстатки.Субконто3, ХозрасчетныйОстатки.СуммаОстаток ИЗ РегистрБухгалтерии.Хозрасчетный.Остатки( &Дата, Счет = &СчетУчета, , Организация = &Организация И Субконто1 = &ОсновноеСредство) КАК ХозрасчетныйОстатки Затем жми сверху кнопку "&Параметры запроса", а там кнопку "Получить из запроса". Заполняй правую колонку у каждого параметра и закрывай эту форму крестиком. Жми кнопку "Выполнить". Если в нижнем поле появилась строка с результатом - то переноси этот запрос в код и работай с ним, если результат пустой, то ты где-то накосячила в параметрах или в запросе... |
|||
27
Godofsin
19.06.14
✎
10:37
|
(26) можно я тоже возьму? =)
|
|||
28
Cube
19.06.14
✎
10:38
|
(25) В БГУ нет хозрасчетного плана счетов, там ЕСПБУ или как там его =))
|
|||
29
Cube
19.06.14
✎
10:38
|
(27) Даже не знаю... Ну ладно, возьми))
|
|||
30
Kamas
19.06.14
✎
10:39
|
ТекСтрокаРазделяемогоОС.СчетУчета, ТекСтрокаРазделяемогоОС.ОсновноеСредство Это кто такие??
|
|||
31
Godofsin
19.06.14
✎
10:39
|
(29) Вот спасибо!!! )))
|
|||
32
Kamas
19.06.14
✎
10:40
|
(29) а я взял без спросу, прости пожалуйста, как назад положить то))
|
|||
33
Godofsin
19.06.14
✎
10:41
|
(32) Поздно, за тобой уже выехали )))
|
|||
34
Надяша
19.06.14
✎
10:43
|
(26)запрос не пустой
|
|||
35
Cube
19.06.14
✎
10:44
|
(32) Ну, мне чужого добра не жалко - ресурс-то не мой)))
Просто я именно этой консолью уже лет шесть пользуюсь - какая она удобная... :) |
|||
36
Wobland
19.06.14
✎
10:45
|
(34) как тебя уговорить примениить это дело в своём коде?
|
|||
37
Kamas
19.06.14
✎
10:45
|
(32) яж через проксю сижу в торе меня так просто не вычислиш
|
|||
38
Надяша
19.06.14
✎
10:45
|
(26)ВЫБРАТЬ
ХозрасчетныйОстатки.Субконто1, ХозрасчетныйОстатки.Субконто2, ХозрасчетныйОстатки.Субконто3, ХозрасчетныйОстатки.СуммаОстаток, ХозрасчетныйОстатки.Счет, ХозрасчетныйОстатки.КоличествоОстатокКт, ХозрасчетныйОстатки.КоличествоОстатокДт, ХозрасчетныйОстатки.КоличествоОстаток ИЗ РегистрБухгалтерии.Хозрасчетный.Остатки( &Дата, Счет = &СчетУчета, , Организация = &Организация И Субконто1 = &ОсновноеСредство) КАК ХозрасчетныйОстатки |
|||
39
Надяша
19.06.14
✎
10:45
|
ХозрасчетныйОстатки.КоличествоОстатокДт при выполнении равно 1
|
|||
40
Kamas
19.06.14
✎
10:46
|
(30) +еще раз постав точку остановки и посмотри что у тебя в ТекСтрокаРазделяемогоОС.СчетУчета, ТекСтрокаРазделяемогоОС.ОсновноеСредство
|
|||
41
Godofsin
19.06.14
✎
10:47
|
(37)
" - Здравствуйте, это ФСБ. - Здравствуйте, я знаю. - Откуда? - Вы мне на выключенный телефон дозвонились." |
|||
42
Cube
19.06.14
✎
10:47
|
(34) Тогда осталось тебе уствоить тот факт, что количественный учет на 01 счете не ведется и вместо всего, что написано в (0) написать:
Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | ХозрасчетныйОстатки.Субконто1, | ХозрасчетныйОстатки.Субконто2, | ХозрасчетныйОстатки.Субконто3, | ХозрасчетныйОстатки.СуммаОстаток, | ХозрасчетныйОстатки.Счет, | ХозрасчетныйОстатки.КоличествоОстатокКт, | ХозрасчетныйОстатки.КоличествоОстатокДт, | ХозрасчетныйОстатки.КоличествоОстаток |ИЗ | РегистрБухгалтерии.Хозрасчетный.Остатки( | &Дата, | Счет = &СчетУчета, | , | Организация = &Организация | И Субконто1 = &ОсновноеСредство) КАК ХозрасчетныйОстатки"; Запрос.УстановитьПараметр("Дата", СюдаВставьПараметр); Запрос.УстановитьПараметр("Организация", СюдаВставьПараметр); Запрос.УстановитьПараметр("ОсновноеСредство", СюдаВставьПараметр); Запрос.УстановитьПараметр("СчетУчета", СюдаВставьПараметр); Выборка = Запрос.Выполнить().Выбрать(); Если Выборка.Следующий() Тогда //Делай что надо КонецЕсли; |
|||
43
Надяша
19.06.14
✎
10:50
|
(30) это созданный документ : в нём существующая ОС разделяется на 2 ОС. Как-то так
|
|||
44
Надяша
19.06.14
✎
10:50
|
(42) счет 01.01
|
|||
45
Надяша
19.06.14
✎
10:51
|
(42) суммовой и количественный
|
|||
46
vicof
19.06.14
✎
10:54
|
(44) На 10.01 ведутся материалы, при чем тут ОС?
|
|||
47
vicof
19.06.14
✎
10:54
|
*сории, сторно, чукча читатель
|
|||
48
vicof
19.06.14
✎
10:55
|
(43) Ос разделить на 2 просто так нельзя, нужно сначала списать существующее, потом принять на учет два новых.
|
|||
49
vicof
19.06.14
✎
10:55
|
И не городить новые документы
|
|||
50
Надяша
19.06.14
✎
10:57
|
я его уже давно нагородила, и он работал
|
|||
51
Надяша
19.06.14
✎
10:57
|
Процедура ОбработкаПроведения(Отказ, РежимПроведения)
// Списание разделяемого ОС Для Каждого ТекСтрокаРазделяемогоОС Из РазделяемоеОС Цикл //// регистр ГрафикиАмортизацииОСБухгалтерскийУчет //Движение = Движения.ГрафикиАмортизацииОСБухгалтерскийУчет.Добавить(); //Движение.Период = Дата; //Движение.Организация = Организация; //Движение.ОсновноеСредство = ТекСтрокаРазделяемогоОС.ОсновноеСредство; //Движение.ГрафикАмортизации = ТекСтрокаРазделяемогоОС.ГрафикАмортизации; //// регистр МестонахождениеОСБухгалтерскийУчет //Движение = Движения.МестонахождениеОСБухгалтерскийУчет.Добавить(); //Движение.Период = Дата; //Движение.ОсновноеСредство = ТекСтрокаРазделяемогоОС.ОсновноеСредство; //Движение.Организация = Организация; //Движение.МОЛ = ТекСтрокаРазделяемогоОС.МОЛ; //Движение.Местонахождение = ТекСтрокаРазделяемогоОС.Местонахождения; // регистр НачислениеАмортизацииОСБухгалтерскийУчет Движение = Движения.НачислениеАмортизацииОСБухгалтерскийУчет.Добавить(); Движение.Период = Дата; Движение.ОсновноеСредство = ТекСтрокаРазделяемогоОС.ОсновноеСредство; Движение.Организация = Организация; Движение.НачислятьАмортизацию = Ложь; // регистр НачислениеАмортизацииОСНалоговыйУчет Движение = Движения.НачислениеАмортизацииОСНалоговыйУчет.Добавить(); Движение.Период = Дата; Движение.ОсновноеСредство = ТекСтрокаРазделяемогоОС.ОсновноеСредство; Движение.Организация = Организация; Движение.НачислятьАмортизацию = Ложь; // регистр ПараметрыАмортизацииОСБухгалтерскийУчет //Движение = Движения.ПараметрыАмортизацииОСБухгалтерскийУчет.Добавить(); //Движение.Период = Дата; //Движение.ОсновноеСредство = ТекСтрокаРазделяемогоОС.ОсновноеСредство; //Движение.Организация = Организация; //Движение.СрокПолезногоИспользования = ТекСтрокаРазделяемогоОС.СрокПолезногоИспользованияБУ; //Движение.ОбъемПродукцииРабот = ТекСтрокаРазделяемогоОС.ОбъемпродукцииРабот; //Движение.СрокИспользованияДляВычисленияАмортизации = ТекСтрокаРазделяемогоОС.СрокИспользованияДляВычисленияАмортизации; //Движение.СтоимостьДляВычисленияАмортизации = ТекСтрокаРазделяемогоОС.СтоимостьДляВычисленияАмортизации; //Движение.ОбъемПродукцииРаботДляВычисленияАмортизации = ТекСтрокаРазделяемогоОС.ОбъемПродукцииРаботДляВычисленияАмортизации; //Движение.КоэффициентАмортизации = ТекСтрокаРазделяемогоОС.КоэффициентАмортизацииБУ; //Движение.КоэффициентУскорения = ТекСтрокаРазделяемогоОС.КоэффициентУскорения; // регистр ПараметрыАмортизацииОСНалоговыйУчет //Движение = Движения.ПараметрыАмортизацииОСНалоговыйУчет.Добавить(); //Движение.Период = Дата; //Движение.ОсновноеСредство = ТекСтрокаРазделяемогоОС.ОсновноеСредство; //Движение.Организация = Организация; //Движение.СрокПолезногоИспользования = ТекСтрокаРазделяемогоОС.СрокПолезногоИспользования; //Движение.КоэффициентАмортизации = ТекСтрокаРазделяемогоОС.КоэффициентАмортизацииНУ; //Движение.ПРДляВычисленияАмортизации = ТекСтрокаРазделяемогоОС.ПРДляВычисленияАмортизацииНУ; // регистр ПервоначальныеСведенияОСБухгалтерскийУчет //Движение = Движения.ПервоначальныеСведенияОСБухгалтерскийУчет.Добавить(); //Движение.Период = Дата; //Движение.ОсновноеСредство = ТекСтрокаРазделяемогоОС.ОсновноеСредство; //Движение.Организация = Организация; //Движение.ИнвентарныйНомер = ТекСтрокаРазделяемогоОС.ИнвентарныйНомер; //Движение.СпособПоступления = ТекСтрокаРазделяемогоОС.СпособПоступления; //Движение.ПервоначальнаяСтоимость = ТекСтрокаРазделяемогоОС.ПервоначальнаяСтоимость; //Движение.СпособНачисленияАмортизации = ТекСтрокаРазделяемогоОС.СпособНачисленияАмортизации; //Движение.ПараметрВыработки = ТекСтрокаРазделяемогоОС.ПараметрВыработки; //Движение.ПорядокПогашенияСтоимости = ТекСтрокаРазделяемогоОС.ПорядокПогашенияСтоимости; // регистр ПервоначальныеСведенияОСНалоговыйУчет //Движение = Движения.ПервоначальныеСведенияОСНалоговыйУчет.Добавить(); //Движение.Период = Дата; //Движение.ОсновноеСредство = ТекСтрокаРазделяемогоОС.ОсновноеСредство; //Движение.Организация = Организация; //Движение.АмортизацияДо2009 = ТекСтрокаРазделяемогоОС.АмортизацияДо2009; //Движение.МетодНачисленияАмортизации = ТекСтрокаРазделяемогоОС.МетодНачисленияАмортизации; //Движение.ПервоначальнаяСтоимостьНУ = ТекСтрокаРазделяемогоОС.ПервоначальнаяСтоимостьНУ; //Движение.СтоимостьДо2002 = ТекСтрокаРазделяемогоОС.СтоимостьДо2002; //Движение.АмортизацияДо2002 = ТекСтрокаРазделяемогоОС.АмортизацияДо2002; //Движение.ПорядокВключенияСтоимостиВСоставРасходов = ТекСтрокаРазделяемогоОС.ПорядокВключенияСтоимостиВСоставРасходов; //Движение.ФактическийСрокИспользованияДо2009 = ТекСтрокаРазделяемогоОС.ФактическийСрокИспользованияДо2009; // регистр ПервоначальныеСведенияОСНалоговыйУчетУСН //Движение = Движения.ПервоначальныеСведенияОСНалоговыйУчетУСН.Добавить(); //Движение.Период = Дата; //Движение.ОсновноеСредство = ТекСтрокаРазделяемогоОС.ОсновноеСредство; //Движение.ПервоначальнаяСтоимостьУСН = ТекСтрокаРазделяемогоОС.ПервоначальнаяСтоимостьУСН; //Движение.СуммаНачисленнойАмортизации = ТекСтрокаРазделяемогоОС.СуммаНачисленнойАмортизации; //Движение.СрокПолезногоИспользования = ТекСтрокаРазделяемогоОС.СрокПолезногоИспользования; //Движение.ДатаПриобретения = ТекСтрокаРазделяемогоОС.ДатаПриобретения; //Движение.Организация = Организация; //Движение.ПорядокВключенияСтоимостиВСоставРасходовУСН = ТекСтрокаРазделяемогоОС.ПорядокВключенияСтоимостиВСоставРасходовУСН; // регистр СобытияОСОрганизаций Движение = Движения.СобытияОСОрганизаций.Добавить(); Движение.Период = Дата; Движение.ОсновноеСредство = ТекСтрокаРазделяемогоОС.ОсновноеСредство; Движение.Организация = Организация; СобытиеВыбытиеОС = Справочники.СобытияОС.НайтиПоНаименованию("Выбыло",Истина); Если СобытиеВыбытиеОС = Справочники.СобытияОС.ПустаяСсылка() Тогда НовоеСобытиеВыбытиеОС = Справочники.СобытияОС.СоздатьЭлемент(); НовоеСобытиеВыбытиеОС.Наименование = "Выбыло"; НовоеСобытиеВыбытиеОС.Записать(); СобытиеВыбытиеОС = НовоеСобытиеВыбытиеОС; Иначе КонецЕсли; Движение.Событие = СобытиеВыбытиеОС; Движение.НомерДокумента = Номер; Движение.НазваниеДокумента = ЭтотОбъект; // регистр СостоянияОСОрганизаций Движение = Движения.СостоянияОСОрганизаций.Добавить(); Движение.Период = Дата; Движение.ОсновноеСредство = ТекСтрокаРазделяемогоОС.ОсновноеСредство; Движение.Организация = Организация; Движение.ДатаСостояния = ЭтотОбъект.Дата; Движение.Состояние = Перечисления.СостоянияОС.СнятоСУчета; // регистр СчетаБухгалтерскогоУчетаОС //Движение = Движения.СчетаБухгалтерскогоУчетаОС.Добавить(); //Движение.Период = Дата; //Движение.ОсновноеСредство = ТекСтрокаРазделяемогоОС.ОсновноеСредство; //Движение.Организация = Организация; //Движение.СчетУчета = ТекСтрокаРазделяемогоОС.СчетУчета; //Движение.СчетНачисленияАмортизации = ТекСтрокаРазделяемогоОС.СчетНачисленияАмортизации; КонецЦикла; // Конец списания разделяемого ОС // Ввод новых ОС //{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ // Данный фрагмент построен конструктором. // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!! Для Каждого ТекСтрокаНовыеОС Из НовыеОС Цикл // регистр ГрафикиАмортизацииОСБухгалтерскийУчет Движение = Движения.ГрафикиАмортизацииОСБухгалтерскийУчет.Добавить(); Движение.Период = Дата; Движение.Организация = Организация; Движение.ОсновноеСредство = ТекСтрокаНовыеОС.ОсновноеСредство; Движение.ГрафикАмортизации = ТекСтрокаНовыеОС.ГрафикАмортизации; // регистр МестонахождениеОСБухгалтерскийУчет Движение = Движения.МестонахождениеОСБухгалтерскийУчет.Добавить(); Движение.Период = Дата; Движение.ОсновноеСредство = ТекСтрокаНовыеОС.ОсновноеСредство; Движение.Организация = Организация; Движение.МОЛ = ТекСтрокаНовыеОС.МОЛ; Движение.Местонахождение = ТекСтрокаНовыеОС.Местонахождения; // регистр НачислениеАмортизацииОСБухгалтерскийУчет Движение = Движения.НачислениеАмортизацииОСБухгалтерскийУчет.Добавить(); Движение.Период = Дата; Движение.ОсновноеСредство = ТекСтрокаНовыеОС.ОсновноеСредство; Движение.Организация = Организация; Движение.НачислятьАмортизацию = ТекСтрокаНовыеОС.НачислятьАмортизациюБУ; // регистр НачислениеАмортизацииОСНалоговыйУчет Движение = Движения.НачислениеАмортизацииОСНалоговыйУчет.Добавить(); Движение.Период = Дата; Движение.ОсновноеСредство = ТекСтрокаНовыеОС.ОсновноеСредство; Движение.Организация = Организация; Движение.НачислятьАмортизацию = ТекСтрокаНовыеОС.НачислятьАмортизациюНУ; // регистр Начисление Амортизации ОС Специальный Коэффициент Налоговоый Учет Движение = Движения.НачислениеАмортизацииОССпециальныйКоэффициентНалоговыйУчет.Добавить(); Движение.Период = Дата; Движение.ОсновноеСредство = ТекСтрокаНовыеОС.ОсновноеСредство; Движение.Организация = Организация; Движение.СпециальныйКоэффициент = ТекСтрокаНовыеОС.СпециальныйКоэффициент; // регистр ПараметрыАмортизацииОСБухгалтерскийУчет Движение = Движения.ПараметрыАмортизацииОСБухгалтерскийУчет.Добавить(); Движение.Период = Дата; Движение.ОсновноеСредство = ТекСтрокаНовыеОС.ОсновноеСредство; Движение.Организация = Организация; Движение.СрокПолезногоИспользования = ТекСтрокаНовыеОС.СрокПолезногоИспользованияБУ; Движение.ОбъемПродукцииРабот = ТекСтрокаНовыеОС.ОбъемпродукцииРабот; Движение.СрокИспользованияДляВычисленияАмортизации = ТекСтрокаНовыеОС.СрокИспользованияДляВычисленияАмортизации; Движение.СтоимостьДляВычисленияАмортизации = ТекСтрокаНовыеОС.СтоимостьДляВычисленияАмортизации; Движение.ОбъемПродукцииРаботДляВычисленияАмортизации = ТекСтрокаНовыеОС.ОбъемПродукцииРаботДляВычисленияАмортизации; Движение.КоэффициентАмортизации = ТекСтрокаНовыеОС.КоэффициентАмортизацииБУ; Движение.КоэффициентУскорения = ТекСтрокаНовыеОС.КоэффициентУскорения; // регистр ПараметрыАмортизацииОСНалоговыйУчет Движение = Движения.ПараметрыАмортизацииОСНалоговыйУчет.Добавить(); Движение.Период = Дата; Движение.ОсновноеСредство = ТекСтрокаНовыеОС.ОсновноеСредство; Движение.Организация = Организация; Движение.СрокПолезногоИспользования = ТекСтрокаНовыеОС.СрокПолезногоИспользованияНУ; Движение.КоэффициентАмортизации = ТекСтрокаНовыеОС.КоэффициентАмортизацииНУ; Движение.ПРДляВычисленияАмортизации = ТекСтрокаНовыеОС.ПРДляВычисленияАмортизацииНУ; // регистр ПервоначальныеСведенияОСБухгалтерскийУчет Движение = Движения.ПервоначальныеСведенияОСБухгалтерскийУчет.Добавить(); Движение.Период = Дата; Движение.ОсновноеСредство = ТекСтрокаНовыеОС.ОсновноеСредство; Движение.Организация = Организация; Движение.ИнвентарныйНомер = ТекСтрокаНовыеОС.ИнвентарныйНомер; Движение.СпособПоступления = ТекСтрокаНовыеОС.СпособПоступления; Движение.ПервоначальнаяСтоимость = ТекСтрокаНовыеОС.ПервоначальнаяСтоимость; Движение.СпособНачисленияАмортизации = ТекСтрокаНовыеОС.СпособНачисленияАмортизации; Движение.ПараметрВыработки = ТекСтрокаНовыеОС.ПараметрВыработки; Движение.ПорядокПогашенияСтоимости = ТекСтрокаНовыеОС.ПорядокПогашенияСтоимости; // регистр ПервоначальныеСведенияОСНалоговыйУчет Движение = Движения.ПервоначальныеСведенияОСНалоговыйУчет.Добавить(); Движение.Период = Дата; Движение.ОсновноеСредство = ТекСтрокаНовыеОС.ОсновноеСредство; Движение.Организация = Организация; Движение.АмортизацияДо2009 = ТекСтрокаНовыеОС.АмортизацияДо2009; Движение.МетодНачисленияАмортизации = ТекСтрокаНовыеОС.МетодНачисленияАмортизации; Движение.ПервоначальнаяСтоимостьНУ = ТекСтрокаНовыеОС.ПервоначальнаяСтоимостьНУ; Движение.СтоимостьДо2002 = ТекСтрокаНовыеОС.СтоимостьДо2002; Движение.АмортизацияДо2002 = ТекСтрокаНовыеОС.АмортизацияДо2002; Движение.ПорядокВключенияСтоимостиВСоставРасходов = ТекСтрокаНовыеОС.ПорядокВключенияСтоимостиВСоставРасходов; Движение.ФактическийСрокИспользованияДо2009 = ТекСтрокаНовыеОС.ФактическийСрокИспользованияДо2009; // регистр ПервоначальныеСведенияОСНалоговыйУчетУСН Движение = Движения.ПервоначальныеСведенияОСНалоговыйУчетУСН.Добавить(); Движение.Период = Дата; Движение.ОсновноеСредство = ТекСтрокаНовыеОС.ОсновноеСредство; Движение.ПервоначальнаяСтоимостьУСН = ТекСтрокаНовыеОС.ПервоначальнаяСтоимостьУСН; Движение.СуммаНачисленнойАмортизации = ТекСтрокаНовыеОС.СуммаНачисленнойАмортизации; Движение.СрокПолезногоИспользования = ТекСтрокаНовыеОС.СрокПолезногоИспользования; Движение.ДатаПриобретения = ТекСтрокаНовыеОС.ДатаПриобретения; Движение.Организация = Организация; Движение.ПорядокВключенияСтоимостиВСоставРасходовУСН = ТекСтрокаНовыеОС.ПорядокВключенияСтоимостиВСоставРасходовУСН; // регистр СобытияОСОрганизаций Движение = Движения.СобытияОСОрганизаций.Добавить(); Движение.Период = Дата; Движение.ОсновноеСредство = ТекСтрокаНовыеОС.ОсновноеСредство; Движение.Организация = Организация; Движение.Событие = ТекСтрокаНовыеОС.Событие; Движение.НомерДокумента = Номер; Движение.НазваниеДокумента = ЭтотОбъект; // регистр СостоянияОСОрганизаций Движение = Движения.СостоянияОСОрганизаций.Добавить(); Движение.Период = Дата; Движение.ОсновноеСредство = ТекСтрокаНовыеОС.ОсновноеСредство; Движение.Организация = Организация; Движение.ДатаСостояния = ТекСтрокаНовыеОС.ДатаСостояния; Движение.Состояние = ТекСтрокаНовыеОС.Состояние; // регистр СпособыОтраженияРасходовПоАмортизацииОСБухгалтерскийУчет Движение = Движения.СпособыОтраженияРасходовПоАмортизацииОСБухгалтерскийУчет.Добавить(); Движение.Период = Дата; Движение.Организация = Организация; Движение.ОсновноеСредство = ТекСтрокаНовыеОС.ОсновноеСредство; Движение.СпособыОтраженияРасходовПоАмортизации = ТекСтрокаНовыеОС.СпособыОтраженияРасходов; // регистр СчетаБухгалтерскогоУчетаОС Движение = Движения.СчетаБухгалтерскогоУчетаОС.Добавить(); Движение.Период = Дата; Движение.ОсновноеСредство = ТекСтрокаНовыеОС.ОсновноеСредство; Движение.Организация = Организация; Движение.СчетУчета = ТекСтрокаНовыеОС.СчетУчета; Движение.СчетНачисленияАмортизации = ТекСтрокаНовыеОС.СчетНачисленияАмортизации; // регистр Протяженность линий Если ТекСтрокаНовыеОС.ПротяженностьЛинии <> 0 Тогда // Движение по регистру ПротяженностиЛинийЭлектропередач РегистрПротяженности = РегистрыСведений.ПротяженностиЛинийЭлектропередач; НаборЗаписей = РегистрПротяженности.СоздатьНаборЗаписей(); НаборЗаписей.Отбор.ДокументОснование.Установить(ЭтотОбъект.Ссылка); НаборЗаписей.Прочитать(); Если НаборЗаписей.Количество()<>0 Тогда НаборЗаписей.Очистить(); НаборЗаписей.Записать(); Иначе КонецЕсли; ДатаДвижения = ЭтотОбъект.Дата; Движение = НаборЗаписей.Добавить(); Движение.Период = ЭтотОбъект.Дата; Движение.ДокументОснование= ЭтотОбъект.Ссылка; Движение.ОсновноеСредство = ТекСтрокаНовыеОС.ОсновноеСредство; Движение.Протяженность = ТекСтрокаНовыеОС.ПротяженностьЛинии; НаборЗаписей.УстановитьАктивность(Истина); НаборЗаписей.Записать(Ложь); КонецЕсли; // Запись реквизитов ОС в справочник ОбъектОС = ТекСтрокаНовыеОС.ОсновноеСредство.ПолучитьОбъект(); ОбъектОС.Автотранспорт = ТекСтрокаНовыеОС.Автотранспорт; ОбъектОС.АдресМестонахождения = ТекСтрокаНовыеОС.АдресМестонахождения; ОбъектОС.АмортизационнаяГруппа = ТекСтрокаНовыеОС.АмортизационнаяГруппа; ОбъектОС.ГруппаОС = ТекСтрокаНовыеОС.ГруппаОС; ОбъектОС.ДатаВыпуска = ТекСтрокаНовыеОС.ДатаВыпуска; ОбъектОС.ЗаводскойНомер = ТекСтрокаНовыеОС.ЗаводскойНомер; ОбъектОС.Изготовитель = ТекСтрокаНовыеОС.Изготовитель; ОбъектОС.КодПоОКОФ = ТекСтрокаНовыеОС.КодПоОКОФ; ОбъектОС.КодРегиона = ТекСтрокаНовыеОС.КодРегиона; ОбъектОС.Комментарий = ТекСтрокаНовыеОС.КомментарийОС; ОбъектОС.НаименованиеПолное = ТекСтрокаНовыеОС.НаименованиеПолное; ОбъектОС.НомерПаспорта = ТекСтрокаНовыеОС.НомерПаспорта; ОбъектОС.ШифрПоЕНАОФ = ТекСтрокаНовыеОС.ШифрПоЕНАОФ; ОбъектОС.РасширеннаяГруппаОС = ТекСтрокаНовыеОС.РасширеннаяГруппаОС; ОбъектОС.ПрочиеСведения = ТекСтрокаНовыеОС.ПрочиеСведения; ОбъектОС.Записать(); // Конец записи реквизитов ОС в справочник КонецЦикла; СтруктураШапкиДокумента = ОбщегоНазначения.СформироватьСтруктуруШапкиДокумента(ЭтотОбъект); Заголовок = ОбщегоНазначения.ПредставлениеДокументаПриПроведении(Ссылка); // Формирование проводок СтрокаРазделяемогоОС = ТекСтрокаРазделяемогоОС; // Вострикова 2012.11.21 // Количество списываемого ОС Отбор = Новый Структура("Организация, Подразделение, Счет, Субконто1", Организация, ПодразделениеОрганизации, ТекСтрокаРазделяемогоОС.СчетУчета, ТекСтрокаРазделяемогоОС.ОсновноеСредство); ВыборкаЗаписей = РегистрыБухгалтерии.Хозрасчетный.Остатки(Дата, ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.ОсновныеСредства, Отбор,,"Количество"); Сообщить("Я пытаюсь получить первую запись из выборки в которой " + ВыборкаЗаписей.Количество() + " записей. Я молодец."); Если ВыборкаЗаписей.Количество()<>0 Тогда //КоличествоСписываемогоОС = ВыборкаЗаписей.Получить(0).Количество КоличествоСписываемогоОС = ВыборкаЗаписей.Получить(0).КоличествоОстатокДТ;КонецЕсли; // Вострикова 2012.11.21 Для Каждого ТекСтрокаНовыеОС Из НовыеОС Цикл // регистр Хозрасчетный Если КоличествоСписываемогоОС <> 1 Тогда Сообщить("Количество списываемого ОС не равно 1. Бухгалтерские проводки НЕ БУДУТ СФОРМИРОВАННЫ ! ! !"); КонецЕсли; // Балансовая стоимость ОС Сумма = ТекСтрокаНовыеОС.БалансоваяСтоимостьБУ; СуммаНУ = ТекСтрокаНовыеОС.БалансоваяСтоимостьНУ; СуммаПР = ТекСтрокаНовыеОС.БалансоваяСтоимостьПР; СуммаВР = ТекСтрокаНовыеОС.БалансоваяСтоимостьВР; Если Сумма <> 0 Или СуммаНУ <> 0 Или СуммаПР <> 0 Или СуммаВР <> 0 Или КоличествоСписываемогоОС =1 Тогда Движение = Движения.Хозрасчетный.Добавить(); Движение.Период = Дата; Движение.СчетДт = ТекСтрокаНовыеОС.СчетУчета; Движение.КоличествоДт = 1; БухгалтерскийУчет.УстановитьСубконто(Движение.СчетДт,Движение.СубконтоДт,"ОсновныеСредства", ТекСтрокаНовыеОС.ОсновноеСредство,Истина, Заголовок); Движение.СчетКт = ТекСтрокаРазделяемогоОС.СчетУчета; Если ТекСтрокаНовыеОС.НомерСтроки = 1 Тогда Движение.КоличествоКт = 1; Иначе КонецЕсли; БухгалтерскийУчет.УстановитьСубконто(Движение.СчетКт,Движение.СубконтоКт,"ОсновныеСредства", ТекСтрокаРазделяемогоОС.ОсновноеСредство,Истина, Заголовок); БухгалтерскийУчет.УстановитьПодразделенияПроводки( Движение, СтруктураШапкиДокумента.ПодразделениеОрганизации, СтруктураШапкиДокумента.ПодразделениеОрганизации); Движение.Организация = Организация; Движение.Сумма = Сумма; // Вострикова 2011.08.24 Запрос = Новый Запрос; Запрос.УстановитьПараметр("Период",ЭтотОбъект.Дата); Запрос.УстановитьПараметр("ОС",ТекСтрокаРазделяемогоОС.ОсновноеСредство); Запрос.Текст = "ВЫБРАТЬ | ПервоначальныеСведенияОСНалоговыйУчетСрезПоследних.ПорядокВключенияСтоимостиВСоставРасходов.Ссылка КАК Ссылка |ИЗ | РегистрСведений.ПервоначальныеСведенияОСНалоговыйУчет.СрезПоследних(&Период, ОсновноеСредство = &ОС) КАК ПервоначальныеСведенияОСНалоговыйУчетСрезПоследних"; Результат = Запрос.Выполнить().Выгрузить(); ПорядокВключенияНУ = Результат.Получить(0).Ссылка; Если ПорядокВключенияНУ = Перечисления.ПорядокВключенияСтоимостиОСВСоставРасходовНУ.НачислениеАмортизации Тогда НалоговыйУчет.ЗаполнитьНалоговыеСуммыПроводки(СуммаНУ,СуммаНУ,СуммаПР,СуммаПР,СуммаВР,СуммаВР,Движение, СтруктураШапкиДокумента.ПрименениеПБУ18); КонецЕсли; //НалоговыйУчет.ЗаполнитьНалоговыеСуммыПроводки(1,1,0,0,0,0,Движение, СтруктураШапкиДокумента.ПрименениеПБУ18); // Вострикова 2011.08.24 Движение.Содержание = "Приказ разделения ОС: Балансовая стоимость ОС"; Движение.НеКорректироватьСтоимостьАвтоматически = Истина; КонецЕсли; // Конец балансовой стоимости ОС // Амортизация ОС Сумма = ТекСтрокаНовыеОС.АмортизацияБУ; СуммаНУ = ТекСтрокаНовыеОС.АмортизацияНУ; СуммаПР = ТекСтрокаНовыеОС.АмортизацияПР; СуммаВР = ТекСтрокаНовыеОС.АмортизацияВР; Если Сумма <> 0 Или СуммаНУ <> 0 Или СуммаПР <> 0 Или СуммаВР <> 0 Тогда Движение = Движения.Хозрасчетный.Добавить(); Движение.Период = Дата; Движение.СчетКт = ТекСтрокаНовыеОС.СчетНачисленияАмортизации; БухгалтерскийУчет.УстановитьСубконто(Движение.СчетКт,Движение.СубконтоКт,"ОсновныеСредства", ТекСтрокаНовыеОС.ОсновноеСредство,Истина, Заголовок); Движение.СчетДт = ТекСтрокаРазделяемогоОС.СчетНачисленияАмортизации; БухгалтерскийУчет.УстановитьСубконто(Движение.СчетДт,Движение.СубконтоДт,"ОсновныеСредства", ТекСтрокаРазделяемогоОС.ОсновноеСредство,Истина, Заголовок); БухгалтерскийУчет.УстановитьПодразделенияПроводки( Движение, СтруктураШапкиДокумента.ПодразделениеОрганизации, СтруктураШапкиДокумента.ПодразделениеОрганизации); Движение.Организация = Организация; Движение.Сумма = Сумма; НалоговыйУчет.ЗаполнитьНалоговыеСуммыПроводки(СуммаНУ,СуммаНУ,СуммаПР,СуммаПР,СуммаВР,СуммаВР,Движение, СтруктураШапкиДокумента.ПрименениеПБУ18); Движение.Содержание = "Приказ разделения ОС: Амортизация ОС"; Движение.НеКорректироватьСтоимостьАвтоматически = Истина; КонецЕсли; // Конец амортизации ОС // Переоценка ОС Сумма = ТекСтрокаНовыеОС.ПереоценкаОС; Если Сумма <> 0 Тогда Движение = Движения.Хозрасчетный.Добавить(); Движение.Период = Дата; Движение.СчетКт = ПланыСчетов.Хозрасчетный.ПриростСтоимостиИмуществаПоПереоценке; БухгалтерскийУчет.УстановитьСубконто(Движение.СчетКт,Движение.СубконтоКт,"ОсновныеСредства", ТекСтрокаНовыеОС.ОсновноеСредство,Истина, Заголовок); Движение.СчетДт = ПланыСчетов.Хозрасчетный.ПриростСтоимостиИмуществаПоПереоценке; БухгалтерскийУчет.УстановитьСубконто(Движение.СчетДт,Движение.СубконтоДт,"ОсновныеСредства", ТекСтрокаРазделяемогоОС.ОсновноеСредство,Истина, Заголовок); Движение.Организация = Организация; Движение.Сумма = Сумма; Движение.Содержание = "Приказ разделения ОС: Переоценка ОС"; Движение.НеКорректироватьСтоимостьАвтоматически = Истина; |
|||
52
Godofsin
19.06.14
✎
11:00
|
ого...
|
|||
53
Надяша
19.06.14
✎
11:01
|
совсем "погано"?
|
|||
54
Надяша
19.06.14
✎
11:01
|
но работало...
|
|||
55
Cube
19.06.14
✎
11:04
|
(51) Жескач)))))
|
|||
56
Cube
19.06.14
✎
11:07
|
(44) Типовая БП 2.0: http://storage8.static.itmages.ru/i/14/0619/h_1403161756_7154951_735d9e35f3.jpg
|
|||
57
Надяша
19.06.14
✎
11:11
|
(56) у нас-ведется, и косяк именно в этом ОС, т.к. для остальных ОС этот документ "функционировал"
|
|||
58
Cube
19.06.14
✎
11:14
|
(57) Не хотелось бы отклоняться от темы, но: как может вестись количественный учет ОС, если каждое ОС уникально, т.к. у каждого ОС свой инвентарный номер?
|
|||
59
vicof
19.06.14
✎
11:17
|
(57) А принять его два раза к учету не могли? Я не удивлюсь, если так и будет. Посмотри документы по нему.
(58) Бухгалтер лучше знает, чем девочка-программист :) |
|||
60
Надяша
19.06.14
✎
11:19
|
(59)нет,был перенесен из 7.7 ввод начальных остатков
|
|||
61
Надяша
19.06.14
✎
11:26
|
по данному ОС была модернизация. Могло ли это повлиять?
|
|||
62
vicof
19.06.14
✎
11:29
|
(61) Я не знаю, как там у вас конфа переписана. Но судя по тому, что у вас бухучет не соблюдают, вполне могла повлиять.
|
|||
63
Надяша
19.06.14
✎
11:30
|
(62) )))
|
|||
64
Cube
19.06.14
✎
11:31
|
(61) Я теперь уже не знаю... :)
|
|||
65
Надяша
19.06.14
✎
11:32
|
(64)ладно,сейчас разберусь-отчитаюсь)))
|
|||
66
dmitn
19.06.14
✎
11:50
|
(48) можно. бух справкой
|
|||
67
vicof
19.06.14
✎
11:52
|
(66) И регистры очень удобно бухсправкой править, ага
|
|||
68
dmitn
19.06.14
✎
11:57
|
(67) зачем?
|
|||
69
vicof
19.06.14
✎
12:00
|
(68) чтобы одно ушло, а два пришло, сроки амортизации разные, стоимость разная в двух средств.
|
|||
70
ИУБиПовиц
19.06.14
✎
12:11
|
А у Вас в тч Разделяемое ОС сколько позиций?, а то у вас идет сначала цикл
Для Каждого ТекСтрокаРазделяемогоОС Из РазделяемоеОС Цикл бла бла бла КонецЦикла а потом ваш отбор И зачем вообще эта тч если мы только 1 ОС разделяем на несколько:) И сколько у вас разделений то , что для них свой документ надо делать? |
|||
71
ИУБиПовиц
19.06.14
✎
12:12
|
(67) Я находил в инете и доделывал по нас обработку в которой указываешь Ос из которое и ОС в которые превращаем, ну и суммы, а она создавала бух справку с движениям по нужным регистрам
|
|||
72
Надяша
19.06.14
✎
13:55
|
снова всем спасибо за помощь!
а дело всё было в обезьянобухгалтере)))), которая изначально в шапке документа выбрала неверное подразделение. И я тоже волшебник-недоучка, весь программный код перековыряла и ваше, уважаемые, время потратила. Короче-проблема решена!!!теперь я в состоянии прыгать до потолка))) |
|||
73
Надяша
19.06.14
✎
13:57
|
P.S. (26) спасибо огромное за консоль;)
|
|||
74
Cube
19.06.14
✎
13:59
|
(72) А теперь смотрим (15) =)))
|
|||
75
Cube
19.06.14
✎
13:59
|
(73) Фотка заполнена - всегда пожалуйста :))
|
|||
76
vicof
19.06.14
✎
14:01
|
(72) Зоопарк автоматизируешь?
|
|||
77
vicof
19.06.14
✎
14:02
|
Основное средство - Слон "Илюша", инв №0000032. Срок амортизации - 600 месяцев
|
|||
78
Надяша
19.06.14
✎
14:07
|
(77)его тоже нужно разделить? )))
|
|||
79
Надяша
19.06.14
✎
14:08
|
(74) я же барышня правильная-ОСВ сформировала и в запрос нужные параметры подставляла)))я даже не думала,что данный бухгалтер так ошибиться могла!!!
|
|||
80
ИУБиПовиц
19.06.14
✎
14:16
|
(79) Если мой дедуктивный сыскной анализ позволил правильно определить организацию Вашу, то бухгалтерам в энергофирме я б точно не доверял:)
|
|||
81
Надяша
19.06.14
✎
14:25
|
(80) ... видимо в коде указана моя фамилия, имя и город тоже известны...и если поискать "данный экземпляр" в небезызвестных соц.сетях-можно определить место работы...и людям нужно доверять!
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |