Изучение банков справочной информации

 

Все исходные данные я брал в ОАО СГЦ «Западный». Мое индивидуальное задание разработать АИС «Учет реализации продукции предприятия».

Для разработки АИС мне необходима была информация о продукции предприятия,  группах и другой различной информации, которая была взята у программиста.

9. Индивидуальное задание

Постановка задачи

Разработать АИС «Учет реализации продукции предприятия.

Описание предметной области

Разработка АИС  которая включает в себя информацию об выпускаемой продукции предприятия. Эта программа будет использоваться бухгалтерами для учета  количества продукции, что упростит работу, и совершение различных ошибок.

Описание круга задач, решаемых программой

АИС представляет форму на которой находится таблица с данными, кнопками и полями для ввода. Позволяет добавлять данные в базу данных, изменять, удалять и выводить на печать.

Входная и выходная информация

Входная информация это информация которую мы вводим в БД через поля для ввода (Категория, ФИО, должность, табельный номер, и т.д.). Выходной информацией является выводом всех этих данных на печать.

Проектирование задачи

Алгоритм решения задачи

Алгоритм решения задачи можно разделить на несколько этапов:

• Разработка интерфейса программы,

• Создание форм,

• Анализ входных данных и определения реакции программы в случае их ошибочности,

• Анализ выходных данных и определения реакции программы в случае их ошибочности,

• Тестирование программы, исправление ошибок.

Физическая структура

Перем ТекущееСостояние; // если "0" - (открытие журнала, готов к вводу);

                                // "1" - (открыт ввод чека, идет заполнение чека);

                                 // "2" - (состояние Х).

Перем ИнфТекст;

Перем ТекущаяКарта;

Перем ТекущийТН; 

Перем ТекущаяКартаСтрокой;

Перем ТекущийСотрудник;

Перем ФИО;

Перем БалансСотрудника;

Перем УдержаниеСотрудника;

Перем Доступно;

Перем БухИт;

Перем БухИтДень;

Перем СчБС;

Перем ИтогПоКассе;

Перем ИтогПоСотруднику;

Перем ФлагКонтроля;

//_____________________________________________________________________________    

Процедура ИтогПоКассе()

БухИтДень.ИспользоватьСубконто(ВидыСубконто.Кассы,глКасса,2);

БухИтДень.ИспользоватьСубконто(ВидыСубконто.Сотрудники);

БухИтДень.ВыполнитьЗапрос(РабочаяДата(),РабочаяДата(), СчБС,,,,,"С");  

ИтогПоКассе=БухИтДень.ДО("С");

КонецПроцедуры //ИтогПоКассе

 

 

//__________________________________ПечатьЧекаТаблицы()___________________________________________  

Процедура ПечатьЧекаТаблицы()

Таб=СоздатьОбъект("Таблица");

Таб.ИсходнаяТаблица("Чек");

   

ДатаПечати=ТекущаяДата();

ВремяПечати=ТекущееВремя();

Предприятие=Константа.НазваниеОрганизации; 

НомерЧека=ТекущийДокумент.НомерДок;

Покупатель=ТекущийДокумент.Сотрудник;

СуммаПоЧеку=ТекущийДокумент.СуммаЧека;

НомерКарты=""+Лев(ТекущийДокумент.Сотрудник.НомерКарты,3)+"****"+Прав(ТекущийДокумент.Сотрудник.НомерКарты,3);

ИмяКассы=ТекущийДокумент.Касса;

   

Таб.ВывестиСекцию("Шапка");

 

//Таб.ТолькоПросмотр(1);

Таб.ПараметрыСтраницы(1,,,0,0,0,0,0,0,0);

Таб.КоличествоЭкземпляров(1);

//Таб.Показать("Печать чека" );

//Если НастройкаПечати=1 Тогда

//  Таб.Напечатать(1); Форма.Обновить();

//Иначе Таб.Напечатать(0); Форма.Обновить();

//КонецЕсли;

Таб.Напечатать(0);

 

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

//_____________________________________________________________________________

 

Процедура ПечатьЧека()

Таб=СоздатьОбъект("Таблица");

Таб.ИсходнаяТаблица("Чек");

   

ДатаПечати=ТекущаяДата();

ВремяПечати=ТекущееВремя();

Предприятие=Константа.НазваниеОрганизации;

Покупатель=ТекущийСотрудник;

СуммаПоЧеку=Калькулятор;

НомерКарты=ТекущаяКартаСтрокой;

   

Таб.ВывестиСекцию("Шапка");

 

Таб.ТолькоПросмотр(1);

Таб.ПараметрыСтраницы(1,,,,,0,0,0,0,1);

Таб.КоличествоЭкземпляров(1);

Таб.Показать("Печать чека" );

//Таб.Напечатать(0);

Логическая структура

Программа состоит из справочников,  чеков магазина, сотрудники переход по которым возможно при помощи  кнопок.

Для работы программы используются  базы данных:

Описание программы

⇐ Предыдущая123456789Следующая ⇒

Поделиться: