Автоматизация учета материалов на складе в среде "1C:Предприятие" в соответствии с особенностями финансовой деятельности предприятия

Дипломная работа - Компьютеры, программирование

ть("Материал,Код,ЦенаСНДС,Документ","Кво,СуммаСНДС"); Иначе

ТабЗн.Свернуть("материал,Код","Кво,ЦенаСНДС,СуммаСНДС"); КонецЕсли;

ТабЗн.Сортировать("1+");

ТабЗн.Выбрать Строки();

Пока ТабЗн.ПолучитьСтроку()=1 Цикл

Товар=ТабЗн.Материал;

Код=ТабЗн.Код;

Кво=ТабЗн.Кво;

Если Подокументно=1 Тогда

Документ=ТабЗн.Документ; ДатаДокумента=Документ.ДатаДок; Цена=ТабЗн.ЦенаСНДС;

Иначе

Цена=ТабЗн.СуммаСНДС/Кво;

КонецЕсли;

Сумма=ТабЗн.СуммаСНДС;

ОбщСумма=ОбщСумма+Сумма;

Таб.ВывестиСекцию("Строка"); КонецЦикла;

Таб.ВывестиСекцию("Итог"); Таб.Опции(О,О,О,0); Таб.Показать();

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