v7: 1C Бухгалтерия 7.7 Проведение инвентаризации без выбора места хранения.

1C 7.7

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 = ЭлементСправочникаПрочиеДоходыИРасходы;
                Докум.Сумма = -БухИт.СКД("С");
                Докум.Количество = -БухИт.СКД("К");
            КонецЕсли;
        КонецЦикла;