Формирование баз данных по учёту планов и остатков сырья в цехе (FoxPro) (стр. 4 из 4)
Эффективность – мера того, на сколько экономно используются ресурсы при выполнении поставленной задачи.
Наиболее распространенным методом определения экономической эффективности является метод сравнения. Его сущность заключается в сопоставлении трудоемкости и себестоимости выполненных работ с аналогичными показателями предыдущих периодов.
Выделяются два вида эффективности: прямая и косвенная.
Основным показателем прямой эффективности является снижением стоимостных и трудовых затрат на информационные работы. При решении задачи работникам бухгалтерии приходилось бы вручную обрабатывать поступающие оперативные данные.
При корректировке информации вручную довольно не просто найти требуемые данные по каждому наименованию сырья, цеху, числовым характеристикам, описывающим планы и потребности каждого подразделения и внести необходимые изменения, так как на это уйдёт много времени и к тому же при ёе выполнении легко допустить случайную ошибку, а в анализе и принятии решения о необходимости и объеме заказов на поставку сырья на следующий месяц это недопустимо.
Входными данными для данной задачи являются базы данных, которые содержат информацию для расчета средней цены заготовки сырья и информацию о планах, остатках, и потребностях сырья за предыдущий месяц для каждого цеха по каждому наименованию.
В результате решения задачи «Формирование баз данных по учёту планов и остатков сырья в цехе» формируются базы данных RSC, PORP, содержащие информацию о потребности в сырье, остатках сырья на складах и в цехе. Вследствие того, что формируемые базы данных хранятся на жестком диске, все допущенные ошибки могут быть легко исправлены, что и реализует один из режимов работы программы. С целью дополнительного контроля правильности ввода существует возможность получить контрольные распечатки баз данных.
Автоматизация данной задачи позволяет:
упорядочить большие объёмы информации для ее последующего удобного использования;
уменьшить затраты времени на поиск необходимых данных, внесения различных изменений, обработку данных, оформления выходных документов;
исключить ошибки;
формировать выходные документы в удобной для пользователя форме.
Это приводит к уменьшению административно-управленческих расходов, повышению производительности труда, сокращению сроков выдачи документов, что в свою очередь влияет на эффективность предприятия.
Косвенный эффект позволяет оценить влияние задачи на различные стороны деятельности предприятия. Проявляется он через качественные факторы. Экономическая эффективность задачи «Формирование баз данных по учёту планов и остатков сырья в цехе» закладывается уже при разработке проекта. Режимы работы выбираются с таким расчетом, чтобы в своей совокупности они обеспечивали максимальную эффективность задачи.
При этом ускоряется не только процесс поиска и обработки данных, но что немаловажно, повышается контроль за качеством выполненной работы.
Приложение 1
Входнаяинформация
Structure for database: C:\SCENZ\PORP.DBF
Number of data records: 71
Date of last update: 28.05.03
Code Page: 866
Field Field Name Type Width Dec Index Collate
1 MES Character 8
2 GR Numeric 2
3 KOD Character 3
4 NCEX Character 12
5 NSR Character 19
6 ISM Character 2
7 NATUR Numeric 4 1
8 USLST Numeric 3
9 PLAN Numeric 6
10 RASN Numeric 10 5
11 POTR Numeric 8 1
12 OSTC Numeric 12 3
13 CENC Numeric 15 3
14 OST1 Numeric 12 3
15 CENC1 Numeric 15 3
** Total ** 132
Structure for database: C:\SCENZ\RSC.DBF
Number of data records: 43
Date of last update: 28.05.03
Code Page: 866
Field Field Name Type Width Dec Index Collate
1 MES Character 8
2 GR Numeric 2
3 NSR Character 19
4 ISM Character 2
5 POTR Numeric 8 1
6 OSTC Numeric 12 3
7 CENC Numeric 12 2
8 OSTSKL Numeric 10 3
9 CENSKL Numeric 15 2
10 SUM Numeric 10
** Total ** 99
PORP.DBF
RSC.DBF
Приложение 2
Приложение 3
Текст программы
**** SREDC
SET date german
SET TALK OFF
SET scoreboard off &&невыводитьсостояние NumLock, CapsLock и Insert
SETSAFETYOFF && Файл можно перезаписывать
SET STATUS OFF
SET DELETED ON
SET ESCAPE OFF
load colwind1
pv=.F.
DOWHILE.T.
? SYS(2002) && включение / выключение курсора
DO rbox
SET COLOR TO +w/b
@ 8,19,15,57 box' '
SET COLOR TO n/w,+w/br
@ 9,20 say 'средняя цена заготовления пост. сырья'
@ 10,20 prompt '1. ввод планов и остатков в цехе'
@ 11,20 prompt '2. ввод ост. на скл. и поступивш. сырья '
@ 12,20 prompt '3. расчет цены заготовления'
@ 13,20 prompt '4. печать'
@ 14,20 prompt '5. выход'
menu to r
DO case
CASE r=1
SET COLOR TO +w/b
DO vdat
DO vposc
CASE r=2
SET COLOR TO +w/b
DO voskl
CASE r=3
SET COLOR TO +w/b
DO rasc
CASE r=4
SET COLOR TO +w/b
DO pechat
CASE r=5
SET COLOR to+w/b
CLOSE ALL
? SYS (2002,1)
QUIT
ENDCASE
enddo
PROCEDURE vdat
CLOSE ALL
CLEAR
DO WHILE.T.
SELECT 2
USE rsc INDEX gr
SELECT 1
USE porp INDEX gr
mes1=mes
@ 1,10 say «введитемесяцрасчета» get mes1 pict 'xxxxxxxx'
? SYS (2002,1)
READ
DO vix
IF pv
CLEAR
return to master
ENDIF
CLEAR
IFmes#mes1
@ 9,10 say 'дата нового месяца. удалить информацию за предыдущий месяц'
@ 10,10 say 'датапредыдущегомесяца'
@ 10,35 say mes pict'xxxxxxxx'
@ 11,19,13,60 box
SET COLOR TO n/w,+w/br
@ 12,20 prompt ' да '
@ 12,40 prompt ' нет '
menu to r
IF r=2
SET COLOR TO +w/b
CLEAR
? SYS (2002,1)
LOOP
ENDIF
IF r=1
DO WHILE.not.sof()
REPLACE mes WITH mes1, plan WITH 0, potr with o
*repl mes with mes1, potr with 0
REPLACE ostc WITH ostc1, cenc WITH cenc1
SKIP
ENDDO
SELECT 2
DO while.not. EOF()
REPLACE ostc1 WITH 0, cenc1 wiyh 0, kv WITH 0, sym1 WITH 0, src WITH 0, rasx WITH 0, srcrac WITH 0, cens WITH 0
SKIP
ENDDO
SELECT 1
ENDIF
ENDIF
EXIT
ENDDO
CLEAR
SET COLOR TO +w/b
return
procedure VPOSC
CLEAR
GO top
@ 24,0 say 'ENTER – ввод PgDn-экранвниз PgUp – экранвверх Ctrl/ End – выход / сохр Esc – выход Home – начполя'
DEFINE WINDOW okn1;
from 0,0;
TO 23,79;
COLOR SCHEME 10
ACTIVATE WINDOW okn1
KEYBOARD '{Backtab}'+'{tab}'
BROWSE TITLE 'ввод данных для расчета;'
field nceh:h='наим. цеха':w=.f.;
nsr:h='наим. сырья':w=.F.;
ism:h='изм. ':W=.f.;
kod:h='код';
plan:h='план';
rasn:h='расх. ном.';
ostc:h='ост. в цехе';
cenc:h='цена';
lock 3:
color scheme 10
DEACTIVATE WINDOW okn1
PROCEDURE voskl
CLOSE ALL
CLEAR
@ 24,0 say 'Enter-ввод PgDn-экранвниз PgUp – экранвверх Ctrl/End – выход /сохр Esc – вых Home – нач. поля'
USE it INDEX iitog
DEFINE WINDOW okn1;
from 0,0;
TO 23,79;
COLOR SCHEME 10
ACTIVATE WINDOW okn1
KEYBOARD '{Backtab}'+'{tab}'
BROWSE TITLE 'ввод данных для расчетиа';
FIELDS nsr:h='наим. сырья': W=.f.;
ism:h='изм.': W=.f.;
ostckl:h='ост. на скл.';
censkl:h='цена';
kv:h='постю кол.';
src:h='сред. цена пост.';
rasx:h='расх. достав.';
LOCK 2; &&с блокировкой записи
COLOR SCHEME 10
DEACTIVATE WINDOW okn1
Список литературы
1. Автоматизированное рабочее место в системе управления предприятием. Сборник научных трудов, – Ленинград, 1989.
2. В.В. Шураков. Автоматизированное рабочее место для статической обработки данных, 1990.
3. Глушаков С.В., Ломотько Д.В. Базы данных. – Харьков: Издательство «Фолио», 2001
4. Данилевский Ю.Г., Петухов ИА., Шибанов B.C. Информационная технология в промышленности. Л.: Машиностроение, 1988, 284 с.
5. Информационные системы в экономике. Под ред. профессора В.В. Дипа, М.: Финансы и статистика, 1996, 270 с.
6. Козлова Е.П., Парашутин КВ., Бабченко Т.Н., Галанина Е.Н. Бухгалтерский учет – М.: Финансы и статистика, 1996, 276 с.
7. П.И. Камышанов. Практическое пособие по бухгалтерскому учету: – Издание третье, дополненное и переработанное – Москва: ООО «МЕДпресс»; – Элиста: АПП «Джангар», 1998. – 528 с.
8. Попов А.А. Программирование в среде СУБД FoxPro 2.0. Построение систем обработки данных. – М.: Издательство Март, 1996