v7: 1C Бухгалтерия 7.7 Проведение инвентаризации без выбора места хранения.
☑
0
Darhon
23.06.14
✎
08:15
Доброе время суток. Есть бухгалтерия 77. В ней есть куча красных товаров без принадлежности к складу. Бухгалтер хочет убрать красноту инвентаризацией. Но она без указания склада пишет "проводки формируются только в том случае если указано место хранения тмц" Возможно ли провести документ не выбирая место хранения. Заранее спасибо.
1
ДенисЧ
23.06.14
✎
08:18
Штатной нет.
Но никто не мешает ввести ручную операцию...
2
Darhon
23.06.14
✎
08:28
5 000 позиций ((
3
Arh01
23.06.14
✎
08:54
(2) Обработка по заполнению бух.справки или генерации операции пишется за 5-10 минут.
4
Arh01
23.06.14
✎
09:08
Например для бух.справки
БухИт = СоздатьОбъект("БухгалтерскиеИтоги");
БухИт.ИспользоватьСубконто(ВидыСубконто.Номенклатура, ,1,0);
БухИт.ВыполнитьЗапрос(Докум.ДатаДок,Докум.ДатаДок, "41.1");
БухИт.ВыбратьСубконто();
Пока БухИт.ПолучитьСубконто() = 1 Цикл
Если БухИт.СКД("К")<0 Тогда
Докум.НоваяСтрока();
Докум.СчетДт = СчетПоКоду("41.1");
Докум.НазначитьТип("СубконтоДт1", Докум.СчетДт.ВидСубконто(1));
Докум.СубконтоДт1 = БухИт.Субконто();
Докум.СчетКт = СчетПоКоду("91.1");
Докум.НазначитьТип("СубконтоКт1", Докум.СчетКт.ВидСубконто(1));
Докум.СубконтоКт1 = ЭлементСправочникаПрочиеДоходыИРасходы;
Докум.Сумма = -БухИт.СКД("С");
Докум.Количество = -БухИт.СКД("К");
КонецЕсли;
КонецЦикла;
Закон Брукера: Даже маленькая практика стоит большой теории.