Имя: Пароль:
1C
1C 7.7
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 = ЭлементСправочникаПрочиеДоходыИРасходы;
                Докум.Сумма = -БухИт.СКД("С");
                Докум.Количество = -БухИт.СКД("К");
            КонецЕсли;
        КонецЦикла;
Закон Брукера: Даже маленькая практика стоит большой теории.