Дипломная работа: Автоматизация проверки наличия и учета отгрузки материальных ценностей для ООО "Идаванг Агро"

Скачать

Заказать новую работу

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

Смотрите также:

Изложение содержания дела, по которому приняты судебные постановления
_-___-~1
_1-тема-СтрМетал
_1966(~1
_files_materials_5053_prog.ntr