|
Реферат: Автоматизация рабочего места менеджера по учету товара (Компьютеры)
МИНТРАНС
Московская Государственная Академия Водного Транспорта
РЕФЕРАТ
по предмету:
Автоматизированные системы обработки экономической информации
Тема: «Автоматизация рабочего места менеджера по учету товара»
Выполнил:
студент 2 курса
группа ЭУ-99
шифр 99036
Чигир А.Н.
Проверил:
Москва
2000
Содержание
Введение
1. Задача
2. Требования к системе
3. Пользователи системы
4. Обследование предметной области
5. Описание пользователей
6. Запросы и регламентные задачи
7. Описание алгоритма работы программы
8. Выбор СУБД
9. Даталогическая модель
10. Справочники
Приложение:
Схема данных
Словарь данных
Введение
Одной из самых сложных задач для фирмы, занимающейся торговой
деятельностью, является точный и упорядоченный учет материальных средств.
При очень большом обороте первичных документов становится очень сложным их
упорядочивание. Как правило, многие фирмы до сих пор, при таком
стремительном развитии компьютерной техники и программного обеспечения, не
имеют четко отлаженного компьютерного учета.
Одной из проблем несовершенства методов ведения учета – является
недальновидность руководства фирм.
Мною рассмотрены программы 1С-СКЛАД и возможных ее аналогов,
автоматизирующей складской учет на малых и средних предприятиях. Наибольшее
внимание мною направлено на анализ построения правильных структур баз
данных, т.е. на даталогическое проектирование.
1. Задачи.
Выделим предметную область. Это учет товарооборота на фирме
занимающейся торговой деятельностью. Сюда входит и учет товаров на складе
( на нескольких складах), оформление документов по отгрузке и при
оприходованию товара на склад, ведение реестра поставщиков и покупателей,
учет взаиморасчетов с юридическими и частными лицами и получение отчетной
информации о продажах.
Основной задачей ставится правильная организации структуры хранения
информации (т.е. структуры баз данных.), алгоритмов ввода, чтения,
корректировки информации. А сама программа представляет собой справочную
систем.
2. Требования к системе.
Требования к разрабатываемой системе:
. Четкая и логичная структура баз данных;
. Наличие минимум третьей нормальной формы для всех создаваемых
структур данных;
. Наличие логически грамотных связей между компонентами структуры
данных;
. Способы получения информации из системы.
Что касается требований к аппаратным ресурсам, то здесь все зависит от
размеров автоматизируемого учета, хотя бывает достаточным платформа на
основе 386 процессора и операционной системы ДОС.
3 Пользователи системы
Система предназначена для очень широкого круга пользователей.
Первыми пользователями этой системы будут кладовщик и/или менеджер,
т.к. они будут вводит первичные документы. По мере надобности они могут
удалять документы, изменять уже существующие документы, добавлять
информацию о новых покупателях, формировать отчеты для отслеживания
неточностей в учете. Но этими людьми круг пользователей не заканчивается.
Система может быть использована бухгалтером для получении информации о
суммах приходных и расходных накладных, долгах поставщикам, и долгов
клиентов нам. Кроме того, они могут участвовать в этой системе, например,
вводить выписки из банка, которые будут погашать задолженности.
Для главного менеджера фирмы система тоже может представлять интерес.
Например, он может посмотреть объемы продаж, товарооборота за определенный
период, определить товар пользующийся, который приносит наибольший доход
(самый продаваемый товар) и получить другую статистическую информацию.
4. Обследование предметной области.
Необходимо проанализировать предметную область, т.к. обычно системы
складского учета разрабатываются под конкретного заказчика.
Для анализа предметной области выбрана конкретная фирма, и на ёё
примере исследовались информационные потребности менеджера, кладовщика,
бухгалтера и других пользователей системы.
При более подробном рассмотрении работы менеджера был выявлен перечень
документов и типовых операций, необходимых для ведения учета. Для
оприходования товара использовались документы либо приходная накладная,
либо возврат от покупателя. Расход товара оформлялся либо расходной
накладной, либо возврат поставщику.
После выявления полного перечня необходимых документов и выполняемых
типовых операций была разработана сложная структура баз данных (приведена
ниже) основным требованием к которой - были универсальность, логичность,
наглядность.
Для проектирования структур баз данных были формализованы первичные
документы (выделен реквизитный минимум, проанализированы связи между ними)
и сформированы структуры записей БД. Затем путем нормализации структур
данных они были сведены к структурам данных, удовлетворяющим требованиям
третьей нормальной формы.
5. Описание пользователей
Для рассматриваемой системы может существовать большое множество
категорий пользователей, но предлагаемая программа предполагает
пользователя, которому необходима справочная информация.
Для каждой хорошей системы всегда должен существовать администратор,
который будет сопровождать систему, устранять ошибки, а при расширении
предметной области дорабатывать программные модули.
Что касается конечных пользователей, то тут могут быть почти все
сотрудники фирмы, причем для каждого сотрудника может быть запрограммирован
тип доступа (чтение, изменение, добавление, удаление и др.) к документам,
справочникам, регистрам и другой информации в системе.
6. Запросы и регламентные задачи
Для системы основным запросом является запрос на получение движения по
определенному товару за конкретный промежуток времени. Этот запрос
выполняется на основании данных хранящихся в базах данных, которые можно
условно отнести к «Регистрам».
Также в системе могут реализованы следующие запросы:
. информация о долге клиента (или нашем долге клиенту)
. любая информация, которая может быть получена на основании
документов (например, сумма отгрузок клиенту за определенный
период, и др.)
Регламентной задачей для проектируемой системы является расчет объемов
продаж (например, за наличный или безналичный расчет).
Регламентным запросом является получение информации об остатках
товаров и движении товара по документам и вывод полученной информации в
видеоформу.
7. Описание алгоритма работы системы
В данном разделе, описывается: каким образом должна функционировать
проектируемая система на основании выбранной предметной области.
Рассмотрим цепочку документов, которые необходимо оформить для отпуска
товара при расчете за безналичный расчет.
Сначала клиент выбирает нужный ему товар в необходимом количестве. На
основании этой заявки (возможно устной) менеджер выписывает этому клиенту
счет для оплаты. В случае если клиент еще не существует в системе, то его
необходимо добавить. Когда клиенту выписан счет, это не говорит о том, что
товар клиенту отдан, но документ в систему введен. Для этого этот вид
документов не учитывается в базах учитывающих движение товаров (назовем их
регистрами). Позже, когда клиент оплатил, выписанный ему счет, и деньги
попали на наш расчетный счет, бухгалтер вводит выписку из банка,
соответствующим документом, например, «приход денег на счет».
Соответственно в системе появляется наш долг клиенту на сумму, которую он
оплатил. Через некоторое время клиент приходит, чтобы получить свой товар и
тогда менеджер выписывает ему расходную накладную и налоговую накладную по
безналичному расчету (можно ввести на основании ранее выписанного счета).
При выписывании накладной система автоматически заносит информацию о том,
что клиенту был отдан товар на сумму указанную в накладной, и таким образом
погашает наш долг клиенту. Кроме этого документ проходит по регистрам
движений и остатков товаров, т.е. информация о количестве проданного товара
заносится в соответствующие базы данных.
На основании выданной клиенту накладной, кладовщик отдает товар. Таким
образом, мы получили четкую систему отгрузки товара.
Процедура отгрузки товара за наличный расчет происходит аналогичным
образом, только счет при этом не выписывается, деньги оформляются
документом «приходный кассовый ордер» или другим подобным и при оформлении
накладных указывается что продажа произведена за наличный расчет.
Поступление товара на склад может возникать в двух случаях. Во-первых,
при поступлении товара от поставщика, а во-вторых, при возврате товара от
покупателя.
В первом случае оформляется приходная накладная от поставщика за
наличный или безналичный расчет, а деньги поставщику (подразумевается в
системе) отдаем документом «платежное поручение» или «расходный кассовый
ордер» или другим документом.
Если оформляется возврат от покупателя, то процедура идентична, только
в накладной указывается соответствующий признак накладной.
8. Выбор СУБД
Для реализации спроектированной системы могла бы подойти любая СУБД
среднего уровня (например, Microsoft Access), может быть реализована в
среде FoxPro. Эта система вполне подходит для составления программы,
обслуживающей проектируемую систему, а именно:
V СУБД является специализированной программой для работы с реляционными БД,
что значительно упрощает процесс даталогического проектирования;
V У нее довольно мощный язык, удобный для программирования приложений
средней сложности;
V Наличие большого количества мастеров позволяет быстро создавать удобный
для конечных пользователей интерфейс, формировать красивые отчеты
V Эта система очень нетребовательна к аппаратным ресурсам и может
выполняться на любом компьютере на котором установлена система Windows (и
сама СУБД)
V Отдельные утилиты позволяют создавать конечный исполняемый файл, и тогда
это очень значительно упрощает распространение программы.
9. Даталогическая модель
После подробного анализа предметной области на этапе инфологического
проектирования были получены реквизиты баз данных. После этого было
произведено распределение этих реквизитов по записям БД, затем базы были
декомпозированы до тех пор, пока не получились структуры, удовлетворяющие
требованиям третьей нормальной формы и обладающие минимальной избыточностью
(хотя избыточность должна присутствовать для ускорения процессов обработки
информации).
10. Справочники
Теперь кратко опишем назначение каждого справочника.
Справочник товаров предназначен для хранения товаров. Причем код
должен быть уникальным во всем справочнике. Каждый товар имеет приходную и
продажную цены, ед. измерения и производителя, который хранится в
справочнике производители.
Справочник производители сохраняет код производителя и его полное
наименование. Поле Coment предназначено для дополнительной информации по
производителю.
Справочник склад содержит код и название всех складов в системе.
В справочнике клиентов хранится вся необходимая информация о фирме-
покупателе или фирме-поставщике. В то время как в справочнике фирм
хранится информация о наших фирмах, т.е. фирмах от лица которых мы
работаем.
Справочник Вид Накладной хранит в себе все виды документов, которые
могут быть выданы системой. Например:
- Приходная накладная;
- Расходная накладная;
- Счет;
- Перемещение;
- Налоговая накладная
и другие.
Справочник виды продаж может содержать информацию такого рода: ЗаНал;
ЗаБН; Вкредит. Что будет означать, как была проведена операция – за
наличные, безналичные деньги или в кредит.
Справочник сотрудников хранит всех возможных пользователей системы и
краткую информацию о них, причем каждому из них можно указать статус.
Например: 1-Администратор;
2-Менеджер; 3-Бухгалтер, и т.д. А уже программист определит для кого какие
возможности доступны, а какие недоступны.
Справочник признаков накладной хранит информацию Следующего вида,
например: 1-Продажа; 2-Возврат Поставщику; 3- Покупка; 4-Возврат
Покупателю.
База данных в которой хранятся шапки документов – просто хранит все
необходимые реквизиты документа. Уникальным во всей системе является номер
документа. Он специально объявлен текстовым. По этому номеру в базе,
которая хранит табличные части, мы может отыскать те позиции, которые
принадлежат этому документу. Если построить индексный файл по полю Number
(он построен в системе), то став на первый элемент, соответствующий этому
документу, можно получить все остальные элементы по порядку, т.к. в шапке
документа хранится количество строк в нем.
Регистры остатков товаров хранят остатки товаров по каждому складу в
отдельности. Получается как таблица, где столбцы соответствуют складам, а
строки – товарам, а на пересечении – будет количество товара на конкретном
складе.
В регистре движения остатков товаров отражается каждая операция, над
этим товаром (приход или расход) и указывается, какой документ осуществил
данное движение и когда.
Регистры взаиморасчетов идентичны регистрам остатков, только учитывают
движение денежных средств.
Схема данных
Словарь данных
Словарь данных, необходимых для хранения в системе, получается очень
объемным. Поэтому сейчас приводится только словарь данных для документов.
Для упомянутых выше документов необходимо сохранять следующие реквизиты:
|№ пп |Наименование элемента |Имя |Примечания |
| |данных | | |
|1. |Номер документа |Number |Значение |
| | | |формируется |
| | | |автоматически |
|2. |Дата оформления |Date | |
|3. |Вид документа |DocType | |
|4. |Признак накладной |Priznak |Имеет смысл |
| | | |только для |
| | | |накладной |
|5. |Фирма |Firm | |
|6. |Клиент |Klient | |
|7. |Вид продажи |SailType | |
|8. |Склад |Sklad | |
|9. | | | |
|10. |Основание для выписки |Osnov | |
| |документа | | |
|11. |Автор документа |Author | |
|12. |Наименование товара. |Tovar | |
|13. |Цена за единицу |Price | |
|14. |Количество |Kol | |
|15. |Сумма |Sum | |
|16. |НДС |NDS | |
|17 |Проведен |Proveden |Проходит |
| | | |документ по |
| | | |регистрам или |
| | | |нет |
-----------------------
[pic]
Реферат на тему: Автоматизация расчета начислений заработной платы в строительном управлении N 151
Государственный комитет Российской Федерации
по высшему образованию
ГОСУДАРСТВЕННАЯ АКАДЕМИЯ УПРАВЛЕНИЯ
имени СЕРГО ОРДЖОНИКИДЗЕ
Институт управления и предпринимательства в строительстве
Кафедра производственного менеджмента в строительстве
КУРСОВОЙ ПРОЕКТ
по курсу "Автоматизация и моделирование
процессов управления"
Тема проекта: " Автоматизация расчета начислений
заработной платы в строительном управлении N 151"
Выполнил: Ростовцев А.И., ПМ- строй III-2
Проверил: Сороко Г.Я.
Москва-1997.
Содержание.
1. Введение;
2. Экономико-организационная сущность задачи;
3. Входная и выходная информация, структура файлов;
4. Блок-схема алгоритма решения задачи;
5. Краткие сведения по техническому и общесистемному программному
обеспечению;
6. Тексты программ (в приложении);
7. Инструкция пользователя;
8. Результаты решения задачи на ПЭВМ.
Экономико-организационная сущность задачи.
По заданию на курсовое проектирование производится автоматизация
расчета начисления заработной платы в строительном управлении N 152. Данная
задача реализуется экономистом-бухгалтером отдела бухгалтерского учета и
отчетности строительного управления.
При автоматизации задачи должны быть учтены следующие основные
требования:
-оптимальное для пользователя представление исходной и конечной информации.
-простота и удобство в эксплуатации программы автоматизации;
Входная и выходная информация, в программе представлена отдельными
файлами (по каждому участку строительного управления за определенный месяц)
в виде таблиц.
В программе предусмотрен расчет доплаты из коллективного фонда оплаты
труда к зарплате работника по тарифу и его индивидуальным выплатам,
распределяемого в соответствии с коэффициентом трудового участия
(КТУ).Величина этого коллективного фонда определяется как разность между
фондом заработной платы на текущий месяц, который определяет руководство в
зависимости от выполнения производственной программы, и суммой зарплаты по
тарифу и индивидуальных выплат по всем участкам ("ПОСОБИЯ" и "БОЛЬНИЧНЫЙ"
при расчете выплат из коллективного фонда исключаются, так как
выплачиваются из специальных фондов).
При расчете дополнительной заработной платы для каждого работника
определяется величина набранных им в текущем месяце баллов, которая
рассчитывается как произведение зарплаты по тарифу (с учетом выходных и
сверхурочных) работника и полученного им КТУ.
Далее определяются нормативные коэффициенты доплаты из коллективного
фонда для рабочих и служащих. Величина нормативного коэффициента для
рабочих равна отношению части коллективного фонда на рабочих к сумме баллов
по рабочим. Величина нормативного коэффициента для ИТР равна отношению
части коллективного фонда на ИТР к сумме баллов по ИТР.
При распределении коллективного фонда между рабочими и ИТР
предусматривается равенство общей зарплаты рабочего 5-го разряда (т.е.
сумма зарплаты по тарифу и доплаты распределенной по КТУ без учета
индивидуальных начислений) общей зарплате мастера (при окладе мастера -
250000).
Доплата из коллективного фонда каждому работнику рассчитывается как
произведение количества баллов данного работника и соответствующего
нормативного коэффициента.
Также в программе рассчитываются начисления по каждому работнику
итоговой суммы заработной платы, включающей зарплату по тарифу (в том числе
оплату за выходные и сверхурочные),доплату из коллективного фонда и
индивидуальные выплаты, при этом "БОЛЬНИЧНЫЙ" и "ПОСОБИЯ" складываются
только для определения общей суммы начислений.
Входная и выходная информация, структура файлов.
|Имя |Размер |Тип | |
|файла |файла |файла |Функции файла |
| |[байт] | | |
|pr1.dp|256 |исходный |Определяет структуру программы, |
|r | | |осуществляет ее запуск при |
| | | |компиляции |
| | | |программы. |
|pr1.ex|224768 |рабочий |Определяет структуру программы, |
|e | | |осуществляет ее запуск. |
|pr1.op|279 |формат- |Определяет взаимодействие программы |
|t | |ный |с Windows; опции ее запуска. |
|start.|1951 |исходный |Отвечает за интерфейс общения с |
|pas | | |пользователем, ввод дополнительной |
| | | |информации из файла base.dat при |
| | | |компиляции программы. |
|start.|5312 |рабочий |Отвечает за интерфейс общения с |
|dcu | | |пользователем, ввод дополнительной |
| | | |информации из файла base.dat. |
|start.|1205 |формат- |Отвечает за опции интерфейса |
|dfm | |ный |пользователя, графическую часть |
| | | |программы. |
|unit1.|1090 |исходный |Осуществляет идентификацию |
|pas | | |переменных при компиляции программы.|
|unit1.|1856 |рабочий |Осуществляет идентификацию |
|dcu | | |переменных. |
|unit2.|2357 |исходный |Осуществляет ввод данных из входных |
|pas | | |таблиц при компиляции программы. |
|unit2.|7440 |рабочий |Осуществляет ввод данных из входных |
|dcu | | |таблиц. |
|unit3.|2432 |исходный |Осуществляет основной расчет при |
|pas | | |компиляции программы. |
|unit3.|7488 |рабочий |Осуществляет основной расчет. |
|dcu | | | |
|unit4.|918 |исходный |Осуществляет вывод данных в выход- |
|pas | | |ные таблицы при компиляции |
| | | |программы. |
|unit4.|2848 |рабочий |Осуществляет вывод данных в выход- |
|dcu | | |ные таблицы. |
|base.d|30 |входной |Файл, хранящий дополнительную |
|at | | |информацию. |
|shapka|1126 |входной |Файл, хранящий шапку выходной |
| | | |таблицы. |
|X-1-Y.|изменя-|входной |Таблицы входной информации №1, где X|
|txt |ется | | |
| | | |- № участка, а Y- № месяца. |
|X-2-Y.|изменя-|входной |Таблицы входной информации №2, где X|
|txt |ется | | |
| | | |- № участка, а Y- № месяца. |
|X-Y.tx|изменя-|выходной |Таблицы выходной информации, где X- |
|t |ется | | |
| | | |№ участка, а Y- № месяца. |
Краткие сведения по техническому и общесистемному
программному обеспечению.
Минимальная конфигурация компьютера:
- Оболочка или операционная система: Windows 3.1, Windows 95 , Windows NT
или OS/2,MAC (поддержка 16-bit-ного кода и символьной кодировки Windows
3.1)
- 2 MB RAM
- VGA Card
- Hard Drive 15 Mb
- Floppy drive 1.44 MB
Коротко о программе:
Программа " Автоматизация расчета начислений заработной платы в
строительном управлении N 151" была написана Delphi 1.0 for Windows 3.1 и
скомпилирована в 16-ти битном коде. Предусмотрен удобный интерфейс
пользователя, возможность запуска программы параллельно с другими
программами, что ускоряет работу пользователя и делает программу более
практичной. У программы есть один большой недостаток и в то же время
достоинство: программа работает в кодировке символов Windows, что делает
возможным делать удобную ландшафтную печать из Windows, использовать
полученную информацию в других приложениях Windows. Для упрощения программы
я не предусмотрел в ней встроенного конвектора для перевода файлов в формат
DOS, поэтому для использования результатов в приложениях DOS следует
перевести выходные файлы в нужный формат. Это можно сделать при помощи
стандартного редактора WordPad или Write.
Общий размер программы составляет 252 246 байт. Программа не содержит
самораспаковывающихся архивов, файлов, что делает возможность ее быстрого
запуска прямо с незащищенной дискеты. Но лучше производить запуск с
жесткого диска, так как скорость обращения к нему и скорость записи на него
выше, чем у дискеты, так же это повысит надежность сохранения информации. В
принципе данная программа- примитивная демонстрационная версия, которую
можно развить в настоящую хорошую программу: организовать вызов встроенного
редактора, вывод на принтер, систему помощи, меню с всплывающими
подсказками, "сделать конфетку". Возможности Delphi 1.0 for Windows 3.1
очень велики, при использовании 32-bit-ного кода они почти не ограничены.
Существует множество библиотек и модулей, при подключении которых можно
сделать настоящего монстра, который будет делать все, что хочешь и будет
прост в обращении.
Программа была написана под Windows 3.1, но может работать и под
другими оболочками, эмулирующих работу Windows 3.1 -OS/2; MAC,
поддерживающих 16-bit-ный код и кодировку Windows3.1- Windows NT, Windows
95.
Тексты программ (в приложении).
Главный запускающий файл программы.
Pr1.dpr
program Pr1;
uses
Forms,
Start in 'START.PAS' {Form1},
unit1 in 'UNIT1.PAS',
unit2 in 'UNIT2.PAS',
unit3 in 'UNIT3.PAS',
unit4 in 'UNIT4.PAS';
{$R *.RES}
begin
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
Файл определяющий ввод дополнительной информации через интерфейс программы.
Start.pas
unit Start;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls,Unit1,Unit2,Unit3,Unit4;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
Label4: TLabel;
Edit2: TEdit;
Label5: TLabel;
Edit3: TEdit;
Label6: TLabel;
Edit4: TEdit;
Label7: TLabel;
Edit5: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
str(n_mes,mw);
system.assign(f,'vhodbase.dat');
rewrite(f);
z:=Edit3.Text;
writeln(f,z);{val(z,fzp,conv);}{ФЗП}
z:=Edit2.Text;
writeln(f,z);{val(z,kol_d,conv);} {Кол-во дней}
z:=Edit5.Text;
writeln(f,z);{val(z,tar_rab,conv);} {Тариф рабочего 5-го разряда}
z:=Edit4.Text;
writeln(f,z);{val(z,oc_m,conv);} {Оклад мастера}
z:=Edit1.Text;
writeln(f,z);{val(z,n_mes,conv);}
system.close(f);
Unit2.vvod;
Unit3.prog;
Unit4.vivod;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text:='0';
Edit2.Text:='0';
Edit3.Text:='0';
Edit4.Text:='0';
Edit5.Text:='0';
system.assign(f,'vhodbase.dat');
reset(f);
readln(f,z);val(z,fzp,conv);{ФЗП}
Edit3.Text:=FloatToStr(fzp);
readln(f,z);val(z,kol_d,conv); {Кол-во дней}
Edit2.Text:=IntToStr(kol_d);
readln(f,z);val(z,tar_rab,conv); {Тариф рабочего 5-го разряда}
Edit5.Text:=IntToStr(tar_rab);
readln(f,z);val(z,oc_m,conv); {Оклад мастера}
Edit4.Text:=FloatToStr(oc_m);
readln(f,z);val(z,n_mes,conv);
Edit1.Text:=IntToStr(n_mes);
system.close(f);
end;
end.
Файл, отвечающий за идентификацию переменных.
Unit1.pas
unit unit1;
interface
{ Раздел констант }
const mes:array [1..12] of string
[8]=('Январь','Февраль','Март','Апрель','Май',
'Июнь','Июль','Август','Сентябрь','Октябрь','Ноябрь','Декабрь');
{ Описание переменных }
VAR n_mes:integer;{N месяца}
conv:integer; {перем.-конвектор}
f,f1:system.text;
z,s,mw:string;x,y:real; {дополнительные переменные}
kol_d,tar_rab: integer; {Исходная информация}
fzp,oc_m:extended; {Исходная информация}
kol_vo:array[1..4] of integer; {Количество работников в группе}
ktu:array[1..4,1..20] of real; {КТУ}
fio:array[1..4,1..20] of string[16]; {ФИО}
a:array[1..4,1..20,3..20] of longint; {Выходная информация}
t:array[1..4,1..20,1..7] of real; {Тариф/оклад и табель}
balls:array[1..4,1..20] of extended; {Баллы работников}
br,bi:extended; {Сумма баллов}
{ i,j,g,h,}c:integer; {переменные-счетчики}
nkr,nki,p,q:extended; {Нормативные коэффициенты, Доля ИТР,Перем.-
счетчик}
fr,fi:real; { Средства распред. по КТУ рабочим и ИТР}
implementation
end.
Файл, отвечающий за ввод данных из входных таблиц.
Unit2.pas
unit unit2;
interface
uses unit1;
procedure vvod;
implementation
procedure vvod;
var i,j,g,h:integer;
begin
{ Считывание данных из первой таблицы }
for i:=1 to 4 do kol_vo[i]:=0;
for i:=1 to 4 do begin
str(i,s);assign(f,'vhod'+s+'-1-'+mw+'.txt');reset(f);
for j:=1 to 7 do readln(f,z); {пропустить шапку таблицы}
repeat readln(f,z);kol_vo[i]:=kol_vo[i]+1;
j:=pos('|',z);z:=copy(z,j+1,250); {Пропускаем номер}
j:=pos('|',z);fio[i,kol_vo[i]]:=copy(z,1,j-1);z:=copy(z,j+1,250);
{ФИО}
j:=pos('|',z);val(copy(z,1,j-
1),ktu[i,kol_vo[i]],conv);z:=copy(z,j+1,300);{КТУ}
{Разряд работника}
j:=pos('|',z);val(copy(z,1,j-
1),a[i,kol_vo[i],6],conv);z:=copy(z,j+1,300);
{Тариф/оклад работника}
j:=pos('|',z);val(copy(z,1,j-
1),t[i,kol_vo[i],1],conv);z:=copy(z,j+1,300);
{Табель времени работника}
j:=pos('|',z);val(copy(z,1,j-
1),t[i,kol_vo[i],2],conv);z:=copy(z,j+1,300);
j:=pos('|',z);val(copy(z,1,j-
1),t[i,kol_vo[i],3],conv);z:=copy(z,j+1,300);
{Выходные работника}
j:=pos('|',z);val(copy(z,1,j-
1),t[i,kol_vo[i],4],conv);z:=copy(z,j+1,300);
j:=pos('|',z);val(copy(z,1,j-
1),t[i,kol_vo[i],5],conv);z:=copy(z,j+1,300);
{ Сверхурочные работника}
j:=pos('|',z);val(copy(z,1,j-
1),t[i,kol_vo[i],6],conv);z:=copy(z,j+1,300);
j:=pos('|',z);val(copy(z,1,j-1),t[i,kol_vo[i],7],conv);
until eof(f);
close(f);end;
{ Считывание данных из второй таблицы }
for i:=1 to 4 do begin
str(i,s);assign(f,'vhod'+s+'-2-'+mw+'.txt');reset(f);
for g:=1 to 7 do readln(f,z); {пропустить шапку таблицы}
for g:=1 to kol_vo [i] do begin
readln(f,z);j:=pos('|',z);z:=copy(z,j+1,250);
j:=pos('|',z);z:=copy(z,j+1,250);
for h:=8 to 10 do begin j:=pos('|',z);val(copy(z,1,j-1),x,c);
a[i,g,h]:=round(x);fzp:=fzp-a[i,g,h];z:=copy(z,j+1,250);end;
j:=pos('|',z);val(copy(z,1,j-1),x,c);
a[i,g,18]:=round(x);z:=copy(z,j+1,250);
for h:=11 to 12 do begin j:=pos('|',z);val(copy(z,1,j-1),x,c);
a[i,g,h]:=round(x);fzp:=fzp-a[i,g,h];z:=copy(z,j+1,250);end;
j:=pos('|',z);val(copy(z,1,j-1),x,c);a[i,g,19]:=round(x);
for h:=13 to 16 do begin z:=copy(z,j+1,250);j:=pos('|',z);
val(copy(z,1,j-1),x,c);a[i,g,h]:=round(x);fzp:=fzp-a[i,g,h];end;
end;
close(f);end;
end;
end.
Файл, отвечающий за основной расчет.
Unit3.pas
unit unit3;
interface
uses unit1;
procedure prog;
implementation
procedure prog;
var i,j,h:integer;
begin
br:=0;
bi:=0;
for i:=1 to 4 do for j:=1 to kol_vo[i] do begin
if a[i,j,6]=0 then balls[i,j]:=t[i,j,1]*t[i,j,2]/kol_d
else balls[i,j]:=t[i,j,1]*t[i,j,3];
a[i,j,3]:=round(balls[i,j]);
{Выходные}
if a[i,j,6]=0 then begin a[i,j,4]:=round(1.5*t[i,j,1]*t[i,j,4]/kol_d);
balls[i,j]:=balls[i,j]+t[i,j,1]*t[i,j,4]/kol_d;end
else begin balls[i,j]:=balls[i,j]+t[i,j,1]*t[i,j,5];
a[i,j,4]:=round(1.5*t[i,j,1]*t[i,j,5]);end;
{Сверхурочные}
if a[i,j,6]0 then begin
balls[i,j]:=balls[i,j]+t[i,j,1]*(t[i,j,6]+t[i,j,7]);
a[i,j,5]:=round(t[i,j,1]*(1.5*t[i,j,6]+2*t[i,j,7]));end
else begin
balls[i,j]:=balls[i,j]+t[i,j,1]*(t[i,j,6]+t[i,j,7])/8/kol_d;
a[i,j,5]:=round(t[i,j,1]*(1.5*t[i,j,6]+2*t[i,j,7])/8/kol_d);end;
{Расчет баллов}
balls[i,j]:=balls[i,j]*ktu[i,j];
if a[i,j,6]0 then br:=br+balls[i,j] else bi:=bi+balls[i,j];
for h:=3 to 5 do fzp:=fzp-a[i,j,h];{Уменьшение ФЗП}
end;
{writeln (' bi: ',round(bi),' br: ',round(br));}
{ Надбавка по КТУ }
nkr:=0.75*fzp/br;nki:=0.25*fzp/bi;
{writeln('fzp ',round(fzp));}
p:=0;
q:=1;
{ Цикл оптимизации}
repeat
if round (oc_m+oc_m*1.5*nki)>
round(tar_rab*8*kol_d+tar_rab*8*kol_d*1.5*nkr)
then begin p:=p+q; q:=q/10; end;
p:=p-q;
nkr:=(1-p)*fzp/br;
nki:=p*fzp/bi;
{ writeln (round (oc_m+oc_m*1.5*nki),'
',round(tar_rab*8*kol_d+tar_rab*8*kol_d*1.5*nkr));
writeln ('oc_m ',round(oc_m),' nki ',round( nki));
writeln ('oc_m ',round(oc_m),' nkr ',round( nkr));}
until round (oc_m+oc_m*1.5*nki)
round(tar_rab*8*kol_d+tar_rab*8*kol_d*1.5*nkr);
{writeln ('ok ',round (oc_m+oc_m*1.5*nki),'
',round(tar_rab*8*kol_d+tar_rab*8*kol_d*1.5*nkr));
writeln ('ok nkr : ',round(nkr) ,' nki : ',nki);}
{ Зарплата по КТУ выпл. рабочим }
for i:=1 to 3 do
for j:=1 to kol_vo[i] do a[i,j,7]:=round(nkr*balls[i,j]);
{ Зарплата по КТУ выпл. ИТР }
for j:=1 to kol_vo[i] do a[4,j,7]:=round(nki*balls[4,j]);
{ Итоговое суммирование }
for i:=1 to 4 do
for j:=1 to kol_vo[i] do begin
a[i,j,17]:=0;a[i,j,20]:=0;
for h:=3 to 5 do a[i,j,17]:=a[i,j,17]+a[i,j,h];
for h:=7 to 16 do a[i,j,17]:=a[i,j,17]+a[i,j,h];
for h:=17 to 19 do a[i,j,20]:=a[i,j,20]+a[i,j,h];
end;
end;
end.
Файл, отвечающий за вывод данных в выводные таблицы.
Unit4.pas
unit unit4;
interface
uses unit1;
procedure vivod;
implementation
procedure vivod ;
var i,j,h:integer;
begin
{Вывод в таблицу}
for i:=1 to 4 do begin
str(i,s);assign(f,'vihod'+s+'-'+mw+'.txt');rewrite(f);
s:='Таблица заработной платы по ' +s+' участку на '+mes[n_mes]+'
месяц';
writeln(f,s);
{Создание шапки таблицы}
assign(f1,'vhod/shapka');reset(f1);
for j:=1 to 6 do begin readln(f1,z);writeln(f,z);end;close(f1);
for j:=1 to kol_vo[i] do begin {Вывод данных в таблицу}
write(f,'|');write(f,j:2);write(f,'|');
write(f,fio[i,j]:16);write(f,'|');
for h:=3 to 5 do begin write(f,a[i,j,h]:8);write(f,'|');end;
str(round(balls[i,j]),s);write(f,s:8);write(f,'|');
for h:=7 to 20 do begin write(f,a[i,j,h]:8);write(f,'|');end;
write(f,j:2);writeln(f,'|');
end;
close(f);
end;
{readln;}
end;
end.
Список идентификаторов, используемых в программе:
n_mes -№ месяца;
conv -перем.-конвектор;
f,f1 -текстовые;
z,s,mw:string;x,yl -дополнительные переменные;
kol_d,tar_rab, fzp,oc_m -Исходная информация;
kol_vo[1..4] -Количество работников в группе;
ktu[1..4,1..20] -КТУ;
fio[1..4,1..20] -Фамилия, Имя, Очество работника;
a[1..4,1..20,3..20] -Выходная информация из таблицы;
t:[1..4,1..20,1..7] -Тариф, оклад и табель;
balls[1..4,1..20] of extended -Баллы работников;
br,bi -Суммы баллов рабочих и ИТР;
i,j,g,h,c; -переменные-счетчики;
nkr,nki,p,q -Нормативные коэффициенты, Доля ИТР,Перем.-счетчик;
fr,fi -Средства распред. по КТУ рабочим и ИТР;
mes -наименование месецев;
Дополнительно:
Программа осуществляет построчный ввод из входных файлов, обрабатывает их
при помощи рабочих файлов, делая построчный вывод в выходные файлы. Для
функционирования программы используются форматные файлы. Максимальный объем
вводимой информации ограничен структурой таблицы. Помимо основных,
программа использует стандартные модули языка Delphi.
Инструкции пользователя.
Создание входной информации:
Перед запуском программы необходимо создать соответствующие входные
файлы в директории VHOD на основе уже имеющихся файлов. При работе в
Windows, пользователю рекомендуется создавать их при помощи стандартного
редактора Write (WordPad). Каждому участку в каждом месяце соответствует
два файла. Формат файлов должен строго соответствовать формату уже
имеющихся файлов, сохраняя структуру таблицы. Наименование файлов должно
соответствовать следующим стандартам:
-Имя первого файла: X-1-Y.txt , где X- номер участка, а Y- номер месяца.
-Имя второго файла: X-2-Y.txt , где X- номер участка, а Y- номер месяца.
Запуск программы:
Запуск программы осуществляется после запуска Windows или эмулятора
Windows 3.1 в случае использования OS/2 или MAC. Запускающий файл- файл
pr1.exe. После запуска программы перед пользователем появляется ее
интерфейс.
Пользование программой:
После успешного запуска пользователь задает параметры и коэффициенты
расчетов. После того, как соответствующие коэффициенты и параметры
определены, необходимо нажать клавишу Счет на интерфейсе программы.
Информация будет проанализирована и выведена в таблицы.
Просмотр выходной информации:
Выходные таблицы находятся в поддиректории VIHOD. Каждому участку в
каждом месяце соответствует определенный файл:
-Имя файла: X-1-Y.txt , где X- № участка, а Y- № месяца.
При работе в Windows, пользователю рекомендуется просматривать их при
помощи стандартного редактора Write (WordPad), или Notepad.
Дополнительные операции:
Дополнительные операции над выходной информацией, как печать выходных
таблиц, перевод их в кодировку DOS и др., пользователю рекомендуется
проводить используя стандартные средства операционной системы или оболочки.
| |
