Продажа собственной фирме (интеркомпани) — заполнение отрицательными остатками

1. Открываем конфигуратор. Документы —> Быстрая продажа —> Форма —> Модуль
2. Идем в конец модуля, после последней строки вставляем код

// Предопределенная процедура

//sw

Процедура ОбработкаПодбора(ВыбЗнач, КонтФормыПодбора)

   //есть ставки налогов, есть скидка

   глОбработкаПодбора(Контекст, ВыбЗнач, 1, 1, 1);

КонецПроцедуры // ОбработкаПодбора()

Процедура ЗаполнитьПоОстаткам()

   //проверки

   Если Форма.Параметр <> "Перемещение" Тогда

      Предупреждение("Только для внутрифирменных продаж");

      Возврат;

   ИначеЕсли КоличествоСтрок() <> 0 Тогда

      Если Вопрос("Заполнить по отрицательным остаткам склада покупателя (перед заполнением табличная часть будет очищена)?", "Да+Нет", 60) <> "Да" Тогда

         Возврат;

      КонецЕсли;

      Сообщить("заполняю");

      УдалитьСтроки();

   КонецЕсли;

   //конец проверок



   ТекстЗапросаОстатков="

   |ФирмаПокупат = Регистр.ОстаткиТМЦ.Фирма;

   |Номенклатура = Регистр.ОстаткиТМЦ.Номенклатура;

   |СкладПокупат = Регистр.ОстаткиТМЦ.Склад;

   |Количество = Регистр.ОстаткиТМЦ.Количество;

   |Функция КоличествоКонОст = КонОст(Количество);

   |Группировка Номенклатура без групп;

   |Условие(ФирмаПокупат=ФирмаПокупателя);

   |Условие(СкладПокупат=СкладПокупателя);";



   ЗапросПоОстаткам = СоздатьОбъект("Запрос");

   Если ЗапросПоОстаткам.Выполнить(ТекстЗапросаОстатков) = 0 Тогда

      Возврат;

   КонецЕсли;

   флаг=0; // для отслеживания того что отбор был



   СписокНоменклатуры =СоздатьОбъект("СписокЗначений"); // думаю пригодится. 



   Пока ЗапросПоОстаткам.Группировка(1) = 1 Цикл

      Если ЗапросПоОстаткам.КоличествоКонОст < 0 Тогда //нам нужны отрицательные остатки

         флаг=1;

         НоваяСтрока();

         Номенклатура=ЗапросПоОстаткам.Номенклатура;

         Количество=-ЗапросПоОстаткам.КоличествоКонОст;

         глПересчетТаблЧасти(Контекст,"Номенклатура");

         глПересчетТаблЧасти(Контекст,"Количество");

      КонецЕсли;

   КонецЦикла;



   Если флаг=0 Тогда

      Сообщить("У организации " + ФирмаПокупателя + " по складу " + СкладПокупателя + " не найдено отрицательных остатков");

      Возврат;

   КонецЕсли;

КонецПроцедуры

3. Переходим в диалог формы (слой табличная часть). Вставляем кнопку (Главное меню —> Вставка —> Кнопка).

4. Переходим на кнопке на вкладку «Дополнительно» и заполняем формулу вписанной в модуль процедурой: ЗаполнитьПоОстаткам()

 
5. Сохраняем изменения конфигурации. Запускаем 1С.

Кнопка заполнить работает и экономит время. 5 минут работы ))

зы. спасибо этим публикациям

http://1c.proclub.ru/modules/mydownloads/personal.php?cid=5&lid=3432 

http://forum.infostart.ru/forum11/topic42164/