112
Приложение 2.
Листинг кода модуля «Продажа излишков материалов со склада»
//*****************************
Процедура ПриОткрытии()
НачДата=НачМесяца (РабочаяДата (} ) КонДата=РабочаяДата ( ) ;
Подокументно=1 ; КонецПроцедуры
//******************************
Процедура Очистить ( ) ВыбКонтрагент=" " ; КонецПроцедуры
Процедура Сформировать ( ) ОбщСумма=0 ;
Если ПустоеЗначение (ВыбКонтрагент) =1 Тогда ПоКонтрагенту="по всем
контрагентам"
Иначе
ПоКонтрагенту=ВыбКонтрагент;
КонецЕсли;
Док=СоздатьОбъект( "Документ") ; Таб=Создать Объект ("Таблица");
Если Подокументно=1 Тогда
Таб . ИсходнаяТаблица ( "Таблица" ) ; Иначе
Таб . ИсходнаяТаблица ("БезДокументов") ; КонецЕсли;
ТабЗн=Создать Объект ("ТаблицаЗначений") ;
ТабЗн . НоваяКолонка ( "Материал" ) ;
ТабЗн . НоваяКолонка ( "Код" ) ;
ТабЗн . НоваяКолонка ( "Кво" ) ;
ТабЗн . НоваяКолонка ( " ЦенаСНДС " ) ;
ТабЗн . НоваяКолонка ( "СуммаСНДС" ) ;
ТабЗн . НоваяКолонка ( "Документ" ) ;
Таб. ВывестиСекцию ( "Шапка") ;
Док.ВыбратьДокументы(НачДата, КонДата);
Пока Док.ПолучитьДокумент()=1 Цикл
Если Док.Вид()"РасходнаяНакладная" Тогда Продолжить;
113
КонецЕсли;
Если Док.Проведен()=0 Тогда
Продолжить; КонецЕсли;
Если Док.ПометкаУдаления()=1 Тогда
Продолжить; КонецЕсли;
Если ПустоеЗначение(ВыбКонтрагент)<>1 Тогда
Если Док.Контрагентовыбконтрагент Тогда
Продолжить; КонецЕсли;
КонецЕсли;
Док.ВыбратьСтроки();
Пока Док.ПолучитьСтроку()=1 Цикл
ТабЗн.НоваяСтрока();
ТабЗн.Материал=Док.Материал.Наименование;
ТабЗн.Код=Док.Товар.Код;
ТабЗн.Кво=Док. Кво;
ТабЗн.ЦенаСНДС=Док.ЦенаСНДС;
ТабЗн.СуммаСНДС=Док.СуммаСНДС;
Если Подокументно=1 Тогда
ТабЗн.Документ=Док.ТекущийДокумент();
КонецЕсли; КонецЦикла; КонецЦикла;
Если Подокументно=1 Тогда
ТабЗн.Свернуть("Материал,Код,ЦенаСНДС,Документ","Кво,СуммаСНДС");
Иначе
ТабЗн.Свернуть("материал,Код","Кво,ЦенаСНДС,СуммаСНДС"); КонецЕсли;
ТабЗн.Сортировать("1+");
ТабЗн.Выбрать Строки();
Пока ТабЗн.ПолучитьСтроку()=1 Цикл
Товар=ТабЗн.Материал;
Код=ТабЗн.Код;
Кво=ТабЗн.Кво;
114
Если Подокументно=1 Тогда
Документ=ТабЗн.Документ; ДатаДокумента=Документ.ДатаДок;
Цена=ТабЗн.ЦенаСНДС;
Иначе
Цена=ТабЗн.СуммаСНДС/Кво;
КонецЕсли;
Сумма=ТабЗн.СуммаСНДС;
ОбщСумма=ОбщСумма+Сумма;
Таб.ВывестиСекцию("Строка"); КонецЦикла;
Таб.ВывестиСекцию("Итог"); Таб.Опции(О,О,О,0); Таб.Показать();
Конец Процедуры