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

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
107
СПИСОК ЛИТЕРАТУРЫ
1. «О бухгалтерском учете» Федеральный закон от 06.12.2011 г. № 402-ФЗ.
2. Положение по бухгалтерскому учету материально-производственных запасов
- ПБУ 5/01. Утв. Приказом МФ РФ от 09.06.01 /№44н.
3. ГОСТ Р ИСО/МЭК 12207-99, Руководящий документ, Госстандарт
России, Москва, 2004
4. Патрушина С.М. Информационные системы в бухгалтерском учете: Учебное
пособие. М. ИКЦ «МарТ», 2009.
5. Рязанцева Н.А., Рязанцев Д.Н. 1С: Предприятие. Бухгалтерский учет. Секреты
работы. - СПб.: БХВ-Петербург, 2007.
6. 1С: Предприятие 8.3 Бухгалтерия сельскохозяйственного предприятия.
7. Аглицкий И. Информационные технологии и бизнес. // Эксперт
автоматизации, 1999, №29
8. М.Г. Радченко, Е.Ю. Хрусталева 1С: Предприятие 8.3. Версия для обучения
программированию 1С-Паблишинг, 2014г.
9. План счетов бухгалтерского учета финансово-хозяйственной деятельности
организаций и Инструкция по его применению. – М.: Информационное
агентство ИПБ-БИНФА, 2004.
10. Аппаратное обеспечение вычислительных систем / Д.В. Денисов, В.А.
Артюхин, М. Ф. Седненков; под ред. Д.В. Денисова. – М.: Маркет ДС, 2010 – 184
с. (Университетская серия.)
11. Грекул В.И., Денищенко Г.Н., Коровкина Н.Л. Проектирование
информационных систем - М.: ИУИТ, 2012 .
12. Информационная безопасность и защита информации, Мельников В. П., М.:
Академия, 2012.
13. Кузнецов С. Д. Базы данных. Модели и языки – М.: Бином-Пресс, 2013 г.
14. Методология функционального моделирования IDEF0, Руководящий
документ, Госстандарт России
15. Модель процессов MSF, Microsoft 2002.
108
16. О.Л. Голицына, И.И. Попов, Н.В. Максимов Базы данных. Учебное пособие.
3-е изд., перераб. и доп. М.: ФОРУМ, 2012.
17.Беленькая М.Н., Малиновский С.Т., Яковенко Н.В. Администрирование в
информационных системах. Научно-популярное издание. - М.: Горячая линия -
Телеком, 2011.
18.Култыгин О.П. Администрирование баз данных. СУБД MS SQL Server. - М:
Московская финансово-промышленная академия, 2012 -232 с. (Университетская
серия).
19.Устройство и функционирование информационных систем. Н. З. Емельянова,
Т. Л. Партыка, И. И. Попов., Учебное пособие. М. : ФОРУМ : НИЦ ИНФРА-М,
2012. 448 с.
20. Сайт Компании «Идавaнг Агро» - www.idavang.ru.
109
ПРИЛОЖЕНИЯ
110
Приложение 1.
Листинг кода модуля «Остатки материалов на складах».
//************************************************
Процедура ПриОткрытии ( ) Склад=Константа.ОсновнойСклад; )
Конец процедуры
//************************************************
Процедура Очистить()
ВыбСклад="" ;
Конец процедуры
//************************************************
Процедура Сформировать()
ОбщСуммаР=О;
Если ПустоеЗначение(ВыбСклад)=l Тогда
ТекСклад="все склады";
Иначе
ТекСклад=ВыбСклад;
КонецЕсли;
Спр=СоздатьОбъект ("Справочник. Материалы");
РегОст = СоздатьОбъект("Регистр.ОстаткиМатериалов");
Таб=СоздатьОбъект ("Таблица") ; Таб.ИсходнаяТаблица ("Таблица") ;
ТабЗн=СоздатьОбъект("ТаблицаЗначений"); ТабЗн.НоваяКолонка("Материал");
ТабЗн. НоваяКолонка"( "Код") ; ТаБЗн. НоваяКолонка ("Остаток") ;
ТабЗн.НоваяКолонка("ЦенаРозничная"); ТаБЗн.НоваяКолонка("Документ");
ТабЗн. НоваяКолонка ("Дата") ; Таб. ВывестиСекцию ( "Шапка") ;
Спр.ВыбратьЭлементы();
Пока Спр. Получить Элемент ( ) = 1 Цикл
Если Спр.ЭтоГруппа()=l Тогда
Продолжить; КонецЕсли;
Если Спр.ПометкаУдаления()=l Тогда
Продолжить;
111
КонецЕсли ; ТаБЗн.НоваяСтрока();
ТабЗн. материал=Спр. Наименование; ТабЗн. Код=Спр. Код;
Если Пустое3начение(Вы6Склад)=1 Тогда
ТабЗн.остаток=Регост.Сводныйостаток(,Спр.текущийЭлемент()"
,остатокМатериала ") ;
Иначе
ТабЗН. Остаток=РегОст. СводныйОстаток (, Спр. ТекущийЭлемент () ,
ВыбСклад, "остаток” )материала) ;
КонецЕсли ;
ТабЗн.ЦенаРозничная=Спр.РозничнаяЦена.Получить(РабочаяДата());
КонецЦикла;
ТабЗн. Свернуть ("Материал, Код, Остаток",, ЦенаРозничная") ;
ТабЗн . Сортировать (" 1 +") ;
ТабЗн. Вы6ратьСтроки () ;
Пока Таб3н. Получить Строку () =1 Цикл
Если ВыводитьНулевыеОстатки=О Тогда
Если Та63н.Остаток<=О Тогда
Продолжить;
КонецЕсли;
КонецЕсли;
Материал=ТабЗн. Материал;
Код=Таб3н. Код;
Остаток=Таб3н. Остаток; ЦенаРозничная=Таб3н.ЦенаРозничная;
ОбщаяСуммаР=ОбщСуммаР+Остаток*ЦенаРозничная;
Таб. ВывестиСекцию ( "Строка") ; КонецЦикла;
Таб. ВывестиСекцию ("Итог") ;
Таб.Опции(О,О,О,О); Таб.Показать();
КонецПроцедуры
//***************************************************
Источник: https://baza.diplomsite.ru/previewfile/2015

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

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