Введение
Потребность выразить ипередать информацию привела к появлению речи, письменности, книгопечатания,почтовой связи, телеграфа, телефона, радио, телевидения и многого другого.
С самого раннего детствавсе мы вовлечены в процессы обмена информацией. Вопросы, ответы, просьбы – всеэто передача информации. Мы получаем информацию, когда читаем книги, газеты ижурналы, слушаем радио или смотрим телевизор.
Общение людей друг сдругом – это передача информации: сведений и суждений, данных и сообщений.Любая совместная деятельность людей – работа, учеба – невозможна без обменаинформацией. Передаваемая информация обычно касается каких-то предметов или нассамих и связана с событиями, которые происходят в окружающем нас мире.
Выражение мыслей вписьменной форме открыло возможность не только передавать сведения и сообщения,но и накапливать человеческие знания в форме рукописей и рукописных книг и темсамым передавать сокровища человеческой мысли от одного поколения к другому.
Совершенно новыевозможности для поиска и обработки информации открыло перед людьми изобретениев середине XX века электронных вычислительных машин – ЭВМ. Первоначально ЭВМсоздавались для автоматизации вычислений. Затем их научили записывать и хранитьинформацию на магнитных лентах, печатать ее на бумаге и выводить на экран ЭВМ.По мере развития они стали использоваться для создания архивов, подготовки иредактирования текстов, выполнения чертежных и графических работ, дляавтоматизации производства и многих других видов человеческой деятельности.
Вычислительная техникавсе более широко используется не только для автоматизации производства, но и всамых различных его сферах. Подобное вовлечение вычислительной имикроэлектронной техники в деятельность различных производственных системназывается компьютеризацией производства.
Компьютеризация – этооснова технического перевооружения производства, необходимое условие повышенияего эффективности. На базе ЭВМ и микропроцессоров создаются технологическиекомплексы, машины и оборудование, измерительные, регулирующие и информационныесистемы, ведутся проектно-конструкторские работы и научные исследования,осуществляется информационное обслуживание, обучение и многое другое, чтообеспечивает повышение общественной и индивидуальной производительности труда,создание условий для всестороннего и гармоничного развития личности.
Для нормального развитияи функционирования сложного народнохозяйственного механизма необходимыпостоянный обмен информацией между его звеньями, своевременная обработкабольшого объема данных на различных уровнях управления, что также невозможнобез использования ЭВМ. Поэтому от уровня компьютеризации в значительной степенизависит развитие экономики.
В процессе своегоразвития ЭВМ прошли путь от громоздких машин на электронных лампах, общение скоторыми было возможно только на машинном языке, до современных ЭВМ.
Развитие ЭВМ происходит вдвух основных направлениях. Первое – создание мощных многопроцессорныхвычислительных систем с производительностью сотни и тысячи миллионов операций всекунду. Второе – создание дешевых и компактных микроЭВМ на базе микропроцессоров.В рамках второго направления развивается производство персональных компьютеров,которые становятся мощным универсальным инструментом, существенно повышающимпроизводительность интеллектуального труда специалистов различного профиля.Персональные компьютеры отличает работа в диалоговом режиме с индивидуальнымпользователем; небольшие размеры и автономность функционирования; аппаратныесредства на базе микропроцессорной техники; универсальность, обеспечивающаяориентацию на широкий круг задач, решаемых одним пользователем с помощьютехнических и программных средств.
Следует отметить и такойважный факт компьютеризации производства, как широкое распространениесобственно микропроцессоров, каждый из которых ориентирован на выполнение однойили нескольких специальных задач. Встраивание таких микропроцессоров в узлыпромышленного оборудования позволяет обеспечить решение поставленных задач сминимальными затратами и в оптимальном виде. Использование микропроцессорнойтехники для сбора информации, регистрации данных или локального управлениязначительно расширяет функциональные возможности оборудования.
Развитие компьютеризациивызывает потребность в разработке и создании новых средств вычислительнойтехники. Их характерными особенностями являются: формирование элементной базына сверхбольших интегральных схемах; обеспечение производительности до 10миллиардов операций в секунду; наличие искусственного интеллекта, чтозначительно расширяет возможности ЭВМ в обработке поступающей информации;возможность общения человека с ЭВМ на естественном языке путем речевого играфического обмена информацией.
Целью данного дипломногопроекта является разработка системы автоматизации рабочего места бухгалтера поучету основных фондов для предприятия.
Исходя из современныхтребований, предъявляемых к качеству работы финансового звена предприятия,нельзя не отметить, что эффективная работа его всецело зависит от уровняоснащения компании информационными средствами на базе компьютерных систем автоматизированногоучета основных фондов.
В этом ряду особое местозанимают базы данных и другое программное обеспечение, связанное с ихиспользованием в качестве инструмента для автоматизации бухгалтерского учета ирационализации финансового труда. Их использование позволяет сократить время,требуемое на подготовку конкретных маркетинговых и производственных проектов,уменьшить непроизводительные затраты при их реализации, исключить возможностьпоявления ошибок в подготовке бухгалтерской, технологической и других видовдокументации, что дает прямой экономический эффект.
Разумеется, для раскрытиявсех потенциальных возможностей, которые несет в себе использование баз данных,необходимо применять в работе комплекс программных и аппаратных средствмаксимально соответствующий поставленным задачам. Поэтому в настоящее времявелика потребность предприятий в компьютерных программах, поддерживающих исогласующих работу управленческого и финансового звеньев, а также в информациио способах оптимального использования имеющегося компьютерного оборудования.
Учет основных фондов – это одна из наиболее важных задач. Внастоящее время в условиях рыночной экономики определяющее значение имеютсвоевременно полученные качественные показатели. Этого можно достичь сиспользованием вычислительной техники для учета основных фондов. Для реализациизадач учета материалов используется комплекс программ «Е–Бухгалтерия».
В данном дипломном проекте рассматривается основной модульпрограммного комплекса osnfond.prg
1. Организационно-экономическая сущность задачи
В начале XXI века в развитиичеловеческой цивилизации происходят глобальные изменения, ведущие к её новомуэтапу – постиндустриальному обществу, все шире использующему компьютеризированныеорудия труда и информационные технологии.
Для современных условийхарактерно применение высокоэффективного учета основных средств, основанного наиспользовании новейших технических средств автоматизированной обработки цифровойи текстовой информации на базе компьютеров, объединенных в локальную, единуювнутрифирменную вычислительную сеть.
Управленческая ифинансовая внутрифирменная информационная система представляет собойсовокупность информационных процессов, для удовлетворения потребности винформации разных уровней принятия решений, как бухгалтерских, так иуправленческих.
Информационная системасостоит из компонентов обработки информации, внутренних и внешних каналовпередачи.
Информационный процесс,направленный на получение научно-технической, плановой, контрольной, учетной ианалитической информации, в информационных системах унифицирован и базируетсяна электронно-вычислительной технике.
Повышение эффективностииспользования информационных систем достигается путем сквозного построения исовместимости информационных систем, что позволяет устранить дублирование иобеспечить многократное использование информации, установить определенныеинтеграционные связи, ограничить количество показателей, уменьшить объеминформационных потоков, повысить степень использования информации.Информационное обеспечение предполагает: распространение информации, т.е.предоставление пользователям информации, необходимой для решениянаучно-производственных задач; создание наиболее благоприятных условий дляраспространения информации, т.е. проведение административно-организационных,научно-исследовательских и производственных мероприятий, обеспечивающих ееэффективное распространение.
Информация и, особенно,ее автоматизированная обработка, является важным фактором повышенияэффективности производства.
Важную роль в исполненииинформации играют способы ее регистрации, обработки, накопления и передачи,систематизированное хранение информации и выдача ее в требуемой форме,производство новой числовой и иной информации.
В современных условиях вкрупных организациях созданы и эффективно действуют информационные системы,обслуживающие процесс подготовки и принятия бухгалтерских и управленческих решений,и решающие следующие задачи: обработка данных, обработка информации.
Основные фонды (средства)– материальные активы, которые предприятие содержит с целью использования их впроцессе производства или поставки товаров, предоставления услуг, сдачи варенду другим лицам или для осуществления административных исоциально-культурных функций, ожидаемый срок полезного использования(эксплуатации) которых более одного года (или операционного цикла, если онбольше года).
Эксплуатация основныхфондов сопряжена с их износом, как физическим, так и моральным. Основные фондытребуют постоянного технического обслуживания. Кроме того, для их использованиянеобходимо проводить текущий и капитальный ремонты, осуществлять реконструкцию,модернизацию, техническое перевооружение и другие улучшения основных фондов.Все эти мероприятия требуют определенных затрат, которые нужно отразить вбухгалтерском и налоговом учете.
Данная задача вцентрализованной бухгалтерии решается ежеквартально.
Входными данными для этойзадачи являются базы данных: kodgrupp.dbf, kodobj.dbf, ofsys.dbf, ofdv.dbf, kodpodt.dbf, сформированные работниками расчетного отдела наоснове нормативных бухгалтерских документов и приказов по организации.
В результате решенияданной задачи информация баз данных актуализируется, а также могут бытьполучены следующие документы на бумажном носителе:
1. Оборотная ведомость поподотчетным лицам;
2. Оборотная ведомость посчетам;
3. Сальдовая ведомость наконец квартала;
4. Сальдовая ведомость наконец месяца (по подотчетным лицам);
5. Сводная ведомостьначисления амортизации;
6. Инвентарная карточка.
Все карточки и ведомоститакже могут быть выгружены в файл.
2. Информационноеобеспечение решения задачи
Входными данными для этой задачи является информация баз данныхkodgrupp, kodobj, ofsys, ofdv, kodpodt, хранимых в формате DBF – файла, структуракоторых приведена в таблице 1. Данные базы формируются работниками расчетногоотдела при помощи программы ввода ofinput.
База данных – это совокупность взаимосвязанной информации, организованнойопределенным образом и расположенной на внешнем носителе.
В базе данных kodobj хранится информация о соответствии кодовобъектов их наименованию и наличию подотчетных лиц, в базе ofsys находятся системныенастройки, ofdv – база движения, база основных фондов – of.dbf, kodgrupp и kodpodt – справочники кодовгрупп основных средств и подотчетных лиц соответственно.
Образцы входной информации даны в приложении А.
Таблица 1 – Сводное описание входной информацииИмя БД Имя файла Наименование поля
Идентифи-
катор Тип, максимальная длина поля Приме-чание симво-льная дата числовая целая дробная KODOBJ KODOBJ.DBF Код объекта KOBJECT 3 Наименование объекта NAIMOBJ 30 Подотчетные лица PODOT 25 OFSYS OFSYS.DBF Текущий месяц MECTEK 8 Предприятие PREDPR 50 Директор DIREK 30 Главн.бухгалтер GLBUX 30 Константа CONSTX 12
Тип принтера
Текущ. квартал
TIPPRINT
KWATEK 20 2
Базы данных формируются на ЖМД и изменяютсяпо необходимости.
2.1 Описание выходнойинформации
В результате решенияданной задачи модифицируются используемые базы данных, которые содержат информациюв виде DBF-файла, а также формируются и выводятся на печать документы:«Оборотная ведомость по подотчетным лицам», «Оборотная ведомость по счетам»,«Сальдовая ведомость на конец квартала», «Сальдовая ведомость на конец месяца(по подотчетным лицам)», «Сводная ведомость начисления амортизации»,«Инвентарная карточка».
Структура выходных баз данных аналогична структуре входныхбаз данных, описанных в пункте 3.3 в таблице 1.
Структура и информация баз данных даны в приложении Б.
Описание выходных документов показано в таблице 2.
Информация выходных документов представлена в приложении Б.
Таблица 2 – Описание выходной информацииНазвание документа Назначение документа Ключевые признаки Периодичность составления Количество Куда передается экз. строк на листе символов в строке Оборотная ведомость по подотчетным лицам Учет объектов осн. фондов, находящихся у подотчетных лиц Код объекта Ежеквартально 1 45 80 В расчетный отдел Сальдовая ведомость на конец квартала Учет сальдовых остатков на счетах учета основных фондов Номер счета Ежеквартально 1 40 120 Главному бухгалтеру Сальдовая ведомость на конец месяца (по подотчетным лицам) Контроль исходящего сальдо в разрезе подотчетных лиц Код подотчетного лица Ежеквартально 2 40 96 Главному бухгалтеру Сводная ведомость начисления амортизации Контроль за степенью амортизации основных фондов Код объекта Ежеквартально 4 35 80 Главному бухгалтеру, в расчетный отдел Инвентарная карточка Объект картотеки осн. фондов Инвентарный номер Ежеквартально 1 28 60 Картотека
3. Машинная реализация задачи
3.1 Характеристика технических средств
Комитет по образованию Администрации г. Богородицкаоснащён персональными компьютерами ПЭВМ IBM PC/AT.
Данный проект реализован с помощью ПЭВМ IBM PC/AT-совместимого компьютера.Данная ПЭВМ создана на основе процессора AMD AthlonXP-1100 и состоит изследующих компонентов:
- процессор;
- оперативноезапоминающее устройство (ОЗУ);
- постоянноезапоминающее устройство (ПЗУ);
- накопительна жёстком магнитном диске (НЖМД, «винчестер»);
- накопительна гибких магнитных дисках (НГМД);
- устройстваввода информации (клавиатура, координатное устройство типа «мышь»);
- устройствавывода информации (дисплей, принтер).
Процессор является основным устройствомЭВМ и предназначен для непосредственной обработки информации, которая поступаетот различных внешних и внутренних устройств ПЭВМ.
Процессор AthlonXP разработки компании AMD имеет следующиетехнические характеристики:
- разрядность по ширинеданных 64 бит
- тактовая частота 980 MGz
- максимальный объем ОЗУ 128Mb
- кэш-память 2х64 Kb
- быстродействие 1100 MGz (~980)
ОЗУ предназначено для временного хранения информации и имеетобъём 256 Mb.
ПЗУ предназначено для хранения неизменяемой информации, тоесть программ типа BIOS (basic input-output system – базовая система ввода-вывода), которыепозволяют связать компоненты компьютера в единое целое. На данной ПЭВМустановлена BIOS AWARD 6.00
Процессор, модули ОЗУ и ПЗУ находятся на материнской платекомпьютера. Данная материнская плата создана компанией EPoX на основе чипсета VIA KT66, имеет форм-факторАТХ, встроенный звуковой кодек АС’97, поддержку интерфейса обмена информацией UDMA66 и интерфейса USB1.0 (2 порта USB, установленных поумолчанию)
Накопитель на жестком диске (винчестер, HDD) предназначен дляпостоянного хранения информации, используемой при работе с компьютером:программ операционной системы, часто используемые пакеты прикладных программ,редакторов документов, трансляторов с языков программирования и т.д. Наличиевинчестера значительно повышает удобство работы с компьютером.
Для пользователя накопители на жестком диске отличаются другот друга, прежде всего своей емкостью. На данной модели жесткий диск имеетемкость 40,1 Гбайт. Вторая существенная для пользователя характеристика диска –время доступа к информации. Для областей применения, требующих эффективного обменас дисками, этот показатель является исключительно важным. Данная ПЭВМ оснащенажестким диском производства Maxtor со скоростью вращения шпинделя 7200 об/мин., чтообеспечивает скорость доступа порядка 10 наносекунд для внутреннего интерфейсавинчестера (от головок чтения / записи до вывода на шину данных) и 18наносекунд для внешнего (при передаче до процессора и в обратном направлении).
Накопитель на гибких магнитных дисках (НГМД) является однимиз старейших устройств, входящих в базовую конфигурацию и предназначен дляхранения информации небольших объёмов, её переноса между компьютерами,архивации и других целей. На данной машине имеется один НГМД 3,5» ёмкостью 1,44Mb.
Клавиатура предназначена для вводапользователем различной информации и управления ПЭВМ. Данный ПК оборудован 104-клавишнойклавиатурой.
Специальный манипулятор типа «мышь» позволяет указывать иливыбирать объекты, отображаемые на экране. Компьютер, на котором разрабатывалсяданный дипломный проект, оснащен двухкнопочной мышью с оптико-механическимпринципом работы производства фирмы Genius.
Монитор (дисплей) компьютера IBM PC предназначен для выводана экран текстовой и графической информации. Мониторы бывают цветными имонохромными. Они могут работать в одном из двух режимов: текстовом илиграфическом.
Мониторы VGA и Super VGA давно и заслуженно получили очень широкоераспространение, они фактически стали стандартом для тех применений, в которыхтребуются графические средства приемлемого качества. Данная ПЭВМ оснащена мониторомSyncMaster 763 MagicBright, который имеет следующиехарактеристики:
– тип Samsung SyncMaster 763 MB
– количество цветов 16,5 млн.
– разрешающая способность:
в текстовом режиме 600х800
в графическом режиме 1024х724 (рекомендуемая)
1600х1200 (максимальная)
– размер экрана по диагонали 17 ''
– частота обновления экрана 85 Гц (врежиме 1024х724)
Принтер предназначен для вывода информации на бумагу.
Все принтеры могут выводить текстовую информацию,многие из них могут выводить рисунки и графики, а некоторые принтеры могутвыводить и цветные изображения. Лазерный принтер, который используется приработе программы osnfond.prg, является наиболее распространенным типом принтеров для IBM PC, он имеет следующиехарактеристики:
– тип лазерный
– память 2 Мб
– скорость печати 9 стр./мин
– тип бумаги листовая
– формат листа А4
Лазерные принтеры обеспечивают в настоящеевремя наилучшее качество печати за минимальный промежуток времени, причемсебестоимость этого процесса сравнительно низка. В этих принтерах для печатииспользуется принцип ксерографии.
ПЭВМ AMD Athlon XP-1100 является современным вычислительнымсредством, обладает высоким быстродействием, значительным объемом памяти иудобным интерфейсом.
3.2 Математическое обеспечение
Программа, описанная в данном дипломном проекте, быларазработана на ПЭВМ Athlon XP-1100 под управлением операционной системы MS-DOS 7.0 и Windows 98 Second Edition фирмы Microsoft.
Программное обеспечение представляет собой неотъемлемую частьлюбой ЭВМ. С конца семидесятых годов для персональных компьютеров был разработаногромный фонд программного обеспечения, который открыл путь к их массовомуприменению практически во всех сферах – от игр и до решения сложных научно-техническихзадач.
Математическое обеспечение – это программное обеспечение машин,предназначенное для повышения эффективности их использования, для сниженияёмкости работ, связанных с эксплуатацией и облегчением труда при подготовкеданных и обработки их на ЭВМ. Математическое обеспечение делится на прикладноеи системное.
Системное – это интегрированные системы отладки программ иоперационные системы. Операционные системы (ОС) – программы, которые делаютвозможным диалог человек – компьютер. На данном компьютере установлена ОС Windows 98SE, которая сочетает в себенадёжность и поддержку большого количества разнообразных устройств.
Многозадачный (многопрограммный) режим позволяет разнообразнымприложениям работать взаимосвязано, наличие единого буфера обмена даётвозможность переносить данные между приложениями как MS-DOS, так и Windows.
Интегрированные системы отладки программ – программы,помогающие программисту создавать, отлаживать и компилировать новые программы.На компьютере установлена интегрированная система программирования FoxPro 2.6 (X).
Расширение (X) позволяет FoxPro работать на машине, используя максимум еёресурсов.
Широкие возможности FoxPro по отладке и тестированию программ делает еёнезаменимой в работе над созданием приложений.
Драйверы устройств – это специальные программы, которыедополняют систему ввода / вывода DOS и обеспечивают обслуживание новых устройств илинестандартное использование имеющихся устройств. Драйверы загружаются в памятькомпьютера при загрузке ОС, их имена указываются в специальном файле CONFIG.SYS. Такая схема облегчаетдобавление новых устройств и позволяет делать это, не затрагивая системные файлы.
Данный дипломный проект набран и сверстан с помощью программыWord 9.0, входящей в пакет Microsoft Office 2000.
Microsoft Office – это пакет программ,разработанных фирмой Microsoft, который содержит текстовый процессор Microsoft Word, табличный процессор Microsoft Excel и другие программы. Microsoft Office – это, наверное, самыйпродаваемый компьютерный продукт после Windows. Microsoft Office обладает удобныминтерфейсом, понятным, наверное, каждому. При этом с его помощью можновыполнять как легкие задачи, так и очень сложные. В Microsoft Office существуют такиенеобходимые функции, как взаимодействие приложений (вставка объекта одногоприложения в другое), настройка приложений, поиск любых документов и файлов,созданных как в Microsoft Office, так и в других программах.
Microsoft Word делает написание,редактирование и печать документов, содержащих текст, настоящим удовольствием.С помощью Microsoft Word можно подготовить на профессиональном уровнеписьма, отчеты, таблицы, записки, рекламные листки, а также многое другое. Word можно использоватьпрактически для всего, что содержит текст.
В дополнение к обработке собственно текста, Microsoft Word включает простые способыиндивидуальной настройки символов, форматирования абзацев и встраивания вдокумент элементов графики. Для получения документа на профессиональном уровнеможно проверить правописание, добавить графические образы, линии, границы,выделить текст тенью. Word позволяет объединить в одном документе текст,рисунки, графики, электронные таблицы и диаграммы, а затем просмотреть наэкране все страницы в том виде, как они будут выглядеть на бумаге.
3.3 Обоснование выбора языка программирования
Опыт применения ЭВМ для построенияприкладных систем обработки данных показывает, что самым эффективным инструментомявляются специализированные языки для создания систем управления данными. Такиесредства обычно включаются в состав систем управления базами данных. СУБД даютвозможность пользователям осуществлять непосредственное управление данными, апрограммистам быстро разрабатывать более совершенные программные средства ихобработки.
В настоящее время реляционные системылучше соответствуют их техническим возможностям и вполне удовлетворяютбольшинство пользователей. Скоростные характеристики этих СУБД поддерживаютсяспециальными средствами ускоренного доступа к информации – индексированием базданных.
На текущий момент достаточно широкораспространено поколение популярного пакета FoxPro.
СУБД FoxPro обладает исключительновысокими скоростными характеристиками и в этом отношении заметно выделяетсясреди интерпретирующих систем. Сравнительно ее скорость не только не уступает,но и в несколько раз выше, чем скорость систем-компиляторов. Практически повсем показателям Fox-программы работают значительно быстрее Clipper-программ. Набор команд ифункций, предлагаемых разработчикам программных продуктов в среде FoxPro, по мощи и гибкости отвечаетлюбым современным требованиям к представлению и обработке данных. Здесь можетбыть реализован максимально удобный, гибкий и эффективный пользовательскийинтерфейс. В FoxPro поддерживаются разнообразные всплывающие и многоуровневые меню,работа с окнами и мышью, реализованы функции низкоуровневого доступа к файлам,управление цветами, настройка принтера, данные могут быть представлены в виде,похожем на электронные таблицы и тому подобное. Система также обладаетсредствами быстрой генерации экранов, отчетов и меню, поддерживает язык SQL, хорошо работает в сети.В пакете имеется компилятор, позволяющий при желании сформировать EXE-файлы готовых программ.
Наличие в СУБД языка программированияпозволяет создавать сложные системы обработки данных, ориентированные подконкретные задачи и даже под конкретного пользователя.
Язык FoxPro имеет следующие возможности:
– Динамическое распределение памятикомпьютера. Системе доступна область памяти за пределами 640 Кбайт. Стандартныйвариант FoxPro дает возможность использовать Expanded LIM-4.0 память. Причем 64Кбайта может быть задействовано для хранения окон и других данных, а остальнаячасть – под весьма эффективный буфер ввода-вывода. Расширенная версия работаетв защищенном режиме и использует всю Extended-память, установленную на машине (Extended-память не используется).
СУБД FoxPro обладает следующими свойствами:
– Поддержка и активное использование мыши.
– Язык FoxPro позволяет создаватьхорошо структурированные программы. Практически из всех опций команд могут бытьвызваны пользовательские процедуры / функции, что придает ему исключительнуюгибкость. Допускаются как внешние, так и внутренние процедуры.
– Новые типы индексных файлов, а такжевозможность применения индексов не только для поиска отдельной записи, но ибыстрой локализации групп записей с общим признаком (технология Rushmore).
– Установка реляционных связей междубазами данных вида одна запись ко многим.
– Возможность построения многоуровневыхсветовых меню, в качестве элементов которых могут фигурировать как произвольныестроки, так и элементы массивов и компоненты файлов. Допускается множественныйотбор данных. Меню получили статус объектов в памяти компьютера.
– СУБД предоставляет программисту средстваконфигурации и системного меню самого FoxPro, что дает возможность легко настраивать его дляработы в оболочке.
– FoxPro стал располагать средствамиязыка SQL, дающими программисту исключительные возможности по формированиюсложных запросов к базе, обрабатываемых с использованием одного из самыхинтеллектуальных оптимизаторов запросов.
– Язык FoxPro включает теперь средствасоздания Windows-подобного интерфейса, то есть так называемого интерфейса,управляемого событиями.
– FoxPro предлагает интерфейс,обеспечивающий быстрый доступ ко всем нужным данным и вместе с тем возможностьподдержания их четкой взаимосвязи и порядка.
– FoxPro дает возможностьразработчику самому написать удобный драйвер принтера.
Обработка данных в FoxPro может выполняться спомощью следующих подходов:
– Непосредственная обработка данныхпользователем через систем-ные меню FoxPro. Работа на этом уровне требует от пользователяхорошего владения интерфейсом системы и умения читать англоязычные сообщения.Здесь могут быть поставлены лишь очень простые задачи.
– Обработка данных с помощью прикладныхпрограмм. Создание программных продуктов в среде FoxPro может быть выполнено толькоквалифицированным программистом. Использование готовых прикладных пакетовсовершенно освобождает пользователя от необходимости что-нибудь изучать, кромесамой прикладной системы, а также от выполнения каких-либо технических действийпо обработке данных и позволяет сосредоточиться только на принятиисодержательных решений.
– Обработка данных с помощью программ,созданных средствами генератора приложений.
FoxPro обладает эффективнымязыком программирования прикладных информационных систем. Ввиду того, что языкисоздания информационных систем ориентированы на непосредственный диалог спользователем по обработке данных, находящихся в дисковых файлах, для нихобычно характерны следующие особенности:
наличие мощных команд обработки файлов;
развитые средства ведения диалога (меню,«горячие» клавиши);
удобные средства ввода / редактированияданных;
возможность ускоренного доступа к данным(индексирование);
возможность обеспечитьконтекстно-чувствительную помощь – такую как инструкции по вводу данных – принажатии клавиши F1;
использование утилит, вызываемых прямо изоперационной системы для создания файлов базы данных и индексов, наклеек иотчетов;
полные отладочные возможности.
Учитывая возможности описанного языкапрограммирования СУБД FoxPro и информационный характер задачи дипломногопроекта, необходимость обработки нескольких связанных таблиц, в качестве языка программированиядля решения задачи «Ведение основных фондов» был выбран язык программирования FoxPro.
Описание программыНаименование программы «Ведение основных фондов» Идентификатор: Osnfond Язык программирования: Fox Pro 2.6 for MS-DOS Назначение программы: Обеспечить бухгалтерский учёт основных фондов организации Оборудование: Компьютер IBM PC/AT AMD Athlonä XP-1100 ОЗУ 256Мбайт, жесткий диск 40 Гб (Maxtor), монитор 17'' SyncMaster 763 MagicBright, клавиатура, мышь, принтер Oki 778 L Входные данные: Базы данных: kodgrupp.dbf, kodobj.dbf, ofsys.dbf, ofdv.dbf, kodpodt.dbf, номенклатурная информация бухгалтерии, отражающая изменения в составе основных фондов Выходные данные: Печатные ведомости или файлы на магнитном носителе, содержащие электронные формы Краткий алгоритм: Программа обеспечивает ввод движения осн. фондов, архивацию текущих периодов, изменение сальдовой базы, переброску данных из путёвок, получение различных ведомостей
3.4 Инструкцияпользователю по работе с программой
Для запуска программы необходимо войти впапку of на диске С: и запустить файл o.bat. Помимо него в этойпапке также находятся файлы используемых в работе баз данных и программные *.prg файлы.
Интерфейс программы является многооконными интуитивно понятным. На любом этапе работы в случае необходимости можнополучить справку. Алгоритм работы с программой следующий:
1. Проверить, был ли переход на следующий квартал. Если нет,то выполнить пункт 7 (переход на след. квартал).
2. Если необходимо, произвестикорректировку данных сальдовой базы, справочников учреждений и подотчетников.Произвести контроль сальдовой базы, если необходимо.
3. За текущий квартал вводится движение:приход (код-1)\расход (код-2)\ликвидация (код-3). По приходу вводятся все параметры.По расходу \ ликвидации достаточно ввести код учреждения, дату движения, инв. номер.Дата движения любая, относящаяся к данному кварталу.
4. Производится контроль базы движения,устраняются ошибки ввода.
5. Формируются все необходимые ведомости.Если обнаружены в ведомостях ошибки, то необходимо исправить их в сальдовойбазе и\или базе движения. Опять провести контроль и вновь сформироватьведомости и т.д.
6. Распечатать полученные результаты
7. В конце текущего квартала, перед темкак производить расчеты для следующего квартала выполнить переход:
7.1. Переформировать базу на следующийпериод (Пункт.F гл.меню)
7.2. Провести инициализацию системы(Пункт. 1 гл. меню), на запрос «ЗА КАКОЙ КВАРТАЛ \ ГОД АРХИВИРОВАТЬ» ввести xxyy xx-номер текущего квартала(01\02\03\04), yy-последние две цифры года. на запрос 'ПОДТВЕРДИТЕ…' ответить ДА большимибуквами. На экране должно появиться сообщение о переходе на новый квартал.
8. Примечания:
8.1. П. 7 необходимо четко выполнитьединожды за квартал (без экспериментов) Иначе расчет износа может быть нарушен.Если величина износа Вас не устраивает, то необходимо проставить правильнуювеличину в сальдовой базе.
8.2. Если Вы уверены, что архивы запредыдущие квартала не нужны, Вы можете полностью удалить архивный директорий OF\ARXxxyy для увеличениясвободного места на диске.
8.3. На возникающие вопросы в процессеработы на номер месяца необходимо вводить 01,02,03…11,12. На запросы 'ПОДТВЕРДИТЕ..'везде вводить ДА большими буквами в утвердительном случае.
8.4. Добавить запись в базе CTRL+N. Удалить запись в базе CTRL+T
9. Выход из программы осуществляетсявыбором пункта Q из главного меню работы.
4. Контрольный пример
В качестве входной информации при выполнении программы osnfond.prg используются документы ибазы данных, описание которых дано в пункте 3.3 в таблице 2.
Входная информация дана в приложении А.
На основании разработанного алгоритма, представленного в видеблок-схемы в пункте 4.1. и описания в пункте 4.2. разработана программа веденияосновных фондов централизованной бухгалтерии комитета по образованию приадминистрации г. Богородицка, листинг которой показан в приложении В.
В результате работы программы формируется выходная информация,описание которой дано в пункте 3.4. в таблице 2, структура и информация выходныхбаз данных дана в приложении Б.
Полученные выходные данные доказывают работоспособностьпрограммы и являются контрольным примером.
5. Экономическоеобоснование программы
Применение персональных компьютеров позволяет совершеннопо-новому организовать процесс решения многих задач учета, в том числе и задачуданного дипломного проекта – «Разработка программы «Ведение основных фондов» дляцентрализованной бухгалтерии комитета по образованию при администрации г. Богородицка».
Входной информацией для этой задачи являются базы данных kodgrupp, kodobj, ofsys, ofdv, kodpodt, сформированные ранееработниками расчётного отдела на основании документов бухгалтерского учета опоступлении, движении и ликвидации объектов основных фондов, содержащиеинформацию о модификации фондов.
Выходная информация представляет собой изменённые БД, а такжетиповые документы: оборотная ведомость по подотчетным лицам, оборотнаяведомость по счетам, сальдовая ведомость на конец квартала, сальдовая ведомостьна конец месяца (по подотчетным лицам), сводная ведомость начисленияамортизации, инвентарная карточка.
Экономическая эффективность – это оценка результатов, выполнениеразличных действий, направленных на изменение способа, скорости и качестваучета.
Наиболее распространенным методомопределения экономической эффективности является метод сравнения. Его сущностьзаключается в сопоставлении трудоемкости и себестоимости выполненных работ саналогичными показателями предыдущих периодов, то есть экономическуюэффективность определяют по совокупности высвобож-денного времени, работников,совершенствованию способов обработки информации путём применения болеесовременных методов обработки.
Выделяются два вида показателей эффективности: прямая(непосредственно снижает трудовые и стоимостные затраты) и косвенная (косвенноулучшает учет за счет усовершенствований в работе сотрудников бухгалтерии),рассмотренных далее.
Основным показателем прямой эффективности является снижениестоимостных и трудовых затрат на расчётные работы. В основе выявления прямойэффективности лежит принцип сопоставления затрат при различных способахрешения.
Показателями прямой экономической эффективности являются:
абсолютное снижение трудовых и стоимостных затрат,показывающих на сколько времени и на какую сумму снизились затраты;
относительное снижение трудовых и стоимостных затрат, показывающее,какая часть затрат при предполагаемом варианте экономится;
индекс роста производительности труда, показывает, во сколькораз произошло изменение.
Косвенная эффективность имеет скрытую форму и проявляется вулучшении качества управления объектом, может быть определена экспертным путем.
Косвенная эффективность позволяет оценить влияние задачи наразличные стороны деятельности через качественные факторы.
Из-за отсутствия единой методики расчета прямой эффективностипрограммных продуктов, внедряемых на персональном компьютере, в данном дипломномпроекте по разработке системы ведения основных фондов рассматривается косвеннаяэффективность.
Косвенная эффективность автоматизации задачи ведения основныхфондов заключается в следующем:
внедрение безбумажной технологии обработки информации сильносокращает расходы на покупку бумаги и других расходных материалов;
использование разработанной программы позволяет упорядочитьбольшие объёмы информации для удобного использования;
формировать выходные документы в удобной для пользователяформе.
Все вышеперечисленные факторы приводят к уменьшению расходов наобработку экономической информации, повышению производительности труда,получению оперативных данных о состоянии фондов, что в свою очередь влияет наэффективность работы и является основанием для анализа деятельности.
Косвенный эффект позволяет оценить влияниезадачи на различные стороны деятельности данного объекта. Проявляется он черезкачественные факторы.
Экономическая эффективность задачи веденияосновных фондов закладывается уже при разработке проекта.
Режимы работы выбираются с таким расчетом,чтобы в своей совокупности они обеспечивали максимальную эффективность задачи.
При этом ускоряется не только процесспоиска и обработки данных, но что немаловажно, повышается контроль за качествомвыполненной работы.
Внедрение новых информационных технологий существенно влияетна характер и способы обслуживания. Таким образом, при наименьших затратахтруда и времени, осуществляется оперативный и безошибочный учет и поискинформации. Из этого следует целесообразность внедрения данной задачи на ПЭВМ.
Список литературы
1. Автоматизированноерабочее место в системе управления предприятием. Сборник научных трудов, – Ленинград,1989.
2. В.В. Шураков.Автоматизированное рабочее место для статической обработки данных, 1990.
3. И.Л. Кантарь.Автоматизированные рабочие места управленческого аппарата, 1990.
4. Данилевский Ю.Г.,Петухов ИА. Информационная технология в промышленности. Л.: Машиностроение,1988, 284 с.
5. П.И. Камышанов.Практическое пособие по бухгалтерскому учету: – Издание третье,дополненное и переработанное – Москва: ООО «МЕДпресс»; – Элиста: АПП«Джангар», 1998. – 528 с.
6. А.А. ПоповПрограммирование в среде СУБД FoxPro 2.0. Построение систем обработки данных. – М.:Издательство Март, 1996–352 с.
7. Глушаков С.В.,Ломотько Д.В. Базы данных. – Харьков: Издательство «Фолио», 2001
Приложение А
Structure for database: C:\OF\KODOBJ.DBF
Number of data records: 1
Date of last update:02/06/04
Code Page: 0
Field Field Name Type WidthDec Index Collate
1 KOBJECT Numeric 3
2 NAIMOBJ Character 30
3 PODOT Character 25
** Total ** 59
Structure for database:C:\OF\OFSYS.DBF
Number of data records: 1
Date of last update:08/28/03
Code Page: 0
Field Field Name Type WidthDec Index Collate
1 MECTEK Date 8
2 PREDPR Character 50
3 DIREK Character 30
4 GLBUX Character 30
5 CONSTX Numeric 12
6 TIPPRINT Character 20
7 KVATEK Numeric 2
** Total ** 153
Structure for database:C:\OF.INT\OFDV.DBF
Number of data records: 9
Date of last update:08/28/03
Code Page: 0
Field Field Name Type WidthDec Index Collate
1 KODPR Numeric 1
2 DCEX Numeric 3
3 INVNOM Character 5
4 DATADV Date 8
5 NAIM Character 50
6 KODNAIM Character 10
7 DBAL Character 3
8 DKAU Numeric 3
9 KCEX Numeric 3
10 KBAL Numeric 3
11 KKAU Numeric 3
12 KOL Numeric 5
13 STOIM Numeric 12 2
14 AOCEX Numeric 3
15 AOBAL Numeric 4
16 AOKAU Numeric 5
17 AOVOST Numeric 5 2
18 AOSTAT Numeric 3
19 AOELEM Numeric 3
20 AONORMA Numeric 7 4
21 POPRAV Numeric 3
22 KODDV Numeric 3
23 ISNTEK Numeric 12 2
24 ISNSUMMA Numeric 12 2
25 KODOTR Numeric 5
26 KODGR Numeric 3
27 GODVIP Numeric 4
28 DVVODA Date 8
29 DPLAT Date 8
30 TABNOM Numeric 4
31 FIO Character 25
32 TEXXAR Character 250
33 NOM_MASH Character 5
34 PROBEG Numeric 10
35 PROBEGAL Numeric 10
** Total ** 502
Structure for database:C:\OF\OF.DBF
Number of data records: 361
Date of last update:08/27/03
Code Page: 0
Field Field Name Type WidthDec Index Collate
1 KODPR Numeric 1
2 DCEX Numeric 3
3 INVNOM Character 5
4 NAIM Character 50
5 DATADV Date 8
6 KODNAIM Character 10
7 DBAL Character 3
8 DKAU Numeric 3
9 KCEX Numeric 3
10 KBAL Numeric 3
11 KKAU Numeric 3
12 KOL Numeric 5
13 STOIM Numeric 12 2
14 AOCEX Numeric 3
15 AOBAL Numeric 4
16 AOKAU Numeric 5
17 AOVOST Numeric 5 2
18 AOSTAT Numeric 3
19 AOELEM Numeric 3
20 AONORMA Numeric 7 4
21 POPRAV Numeric 3
22 KODDV Numeric 3
23 ISNTEK Numeric 12 2
24 ISNSUMMA Numeric 12 2
25 KODOTR Numeric 5
26 KODGR Numeric 3
27 GODVIP Numeric 4
28 DVVODA Date 8
29 DPLAT Date 8
30 TABNOM Numeric 4
31 FIO Character 25
32 TEXXAR Character 250
33 NOM_MASH Character 5
34 PROBEG Numeric 10
35 PROBEGAL Numeric 10
** Total ** 502
Structure for database:C:\OF\KODPODOT.DBF
Number of data records: 4
Date of last update:08/26/03
Code Page: 0
Field Field Name Type WidthDec Index Collate
1 DCEX Numeric 3
2 KODPOD Numeric 6
3 NAIMPOD Character 30
** Total ** 40
Structure for database:C:\OF\KODGRUPP.DBF
Number of data records: 25
Date of last update:04/28/04
Code Page: 0
Field Field Name Type WidthDec Index Collate
1 KOD Numeric 2
2 NAIM Character 60
** Total ** 63
57 ПриложениеБ
set procedure to osnfond &&Выполнение начальных установок программы
CLEAR
SET ESCAPE off
SET TALK OFF
SET DATE BRITISH
SET CENTURY OFF
SET CONFIRM ON
SET CLOCK ON
on key LABEL F1 do null && Определение реакции пользователяна нажатие F1-F12
on key LABEL F2 do null
on key LABEL F3 do null
on key LABEL F4 do null
on key LABEL F5 do null
on key LABEL F6 do null
on key LABEL F7 do null
on key LABEL F8 do null
on key LABEL F9 do null
on key LABEL F10 do null
on key LABEL F11 do null
on key LABEL F12 do null
dimension kvar(4), kvarr(5) && Объявление массивов
dimension amec(12), amecc(13), kom(10)
dimension gru(100), object(100), podo(100)
SET DELE ON
define window okno1 from -1, – 1 to 25,81color scheme 5 && Определение рабочих окон
define window okno2 from 5,35 to 22,78 title «ПРОСМОТР» shadow colorscheme 5
define window okno3 from 10, – 1 to 22,80;
title «ПРОСМОТР СПРАВКИ ПО СОПУТСТВУЮЩЕЙ БАЗЕ» shadow color scheme 5
on error
datab=dtoc (date())
*******************************************
gru=' '
object=' '
podo=' '
use kodgrupp
do while! eof()
if kod=100
skip
loop
endif
gru(kod)=naim
skip
enddo
use kodobj
do while! eof()
if kobject=100
skip
loop
endif
object(kobject)=naimobj
podo(kobject)=podot
skip
enddo
*******************************************
kvar(1)='I КВАРТАЛ' && Определение константпрограммы
kvar(2)='II КВАРТАЛ'
kvar(3)='III КВАРТАЛ'
kvar(4)='IV КВАРТАЛ'
kvarr(1)='I КВАРТАЛА'
kvarr(2)='II КВАРТАЛА'
kvarr(3)='III КВАРТАЛА'
kvarr(4)='IV КВАРТАЛА'
kvarr(5)='I КВАРТАЛА'
amec(1)='Январь'
amec(2)='Февраль'
amec(3)='Март'
amec(4)='Апрель'
amec(5)='Май'
amec(6)='Июнь'
amec(7)='Июль'
amec(8)='Август'
amec(9)='Сентябрь'
amec(10)='Октябрь'
amec(11)='Hоябрь'
amec(12)='Декабрь'
amecc(1)='Января'
amecc(2)='Февраля'
amecc(3)='Марта'
amecc(4)='Апреля'
amecc(5)='Мая'
amecc(6)='Июня'
amecc(7)='Июля'
amecc(8)='Августа'
amecc(9)='Сентября'
amecc(10)='Октября'
amecc(11)='Hоября'
amecc(12)='Декабря'
amecc(13)='Января'
j=0
clear
set device to screen && Вывод титульного экрана
set color to
text
Е-БУХГАЛТЕРИЯ
СИСТЕМА ВЕДЕHИЯ ОСHОВHЫХ ФОHДОВ
endtext
@ 0,0 to 24,78 double
set color to gr+/w
@ 6,12 to 20,64 double
set color to gr+/rb
@ 4,10 to 22,66 double
set color to gr+/rb
@ 8,14 to 18,62 double
set color to GR+/b
@18,18 say dmy (date()) color scheme 5
i=0
do while.t. && Ожидание нажатия любой клавиши
@ 18,51 say time() color scheme 5
i=i+1
q=inkey(1)
do case
case q=27
clear
do xquit
case q0
exit
endcase
enddo
sk=1
if! file ('ofsys.dbf')
@23,27 say 'HЕ СУЩЕСТВУЕТ OFSYS.DBF….'
q=inkey(1)
do xquit
endif
use ofsys
x=sys(2020)
i=0
parol=0
do while i
i=i+1
parol=parol+val (substr(x, i, 1))**10
enddo
if file ('parol.prg').or.file ('parol.fxp')
do parol
endif
if type('sysmaska')'U'
delete file parol.fxp
delete file parol.prg
delete file osnfond.prg
endif
xparol='ДА'
if round (parol, 0)round (constx, 0)
@23,27 say 'HИЧЕГО СЕБЕ….'
xparol='HЕ'
q=inkey (0.5)
quit
endif
mecsys=month(mectek)
kvasys=kvatek
close databases
if diskspace()
@20,3 say 'ДЛЯ РАБОТЫ HЕ ХВАТАЕТ ПАМЯТИ!!!РАСЧИЩАЙТЕ ПАМЯТЬ! (НАДО > 2 Mb)' color scheme 5
?? replicate (chr(7), 3)
q=inkey(0)
do xquit
endif
do while.t.
set device to screen && Вывод главного меню работы с программой
clear
@ 0,0 to 24,78 double
set color to +w/b,+gr/g
@ 1,8 to 23,72 double
set color to +r/b,+gr/g
@1,18 say ' В Е Д Е H И Е О С H О В H Ы Х С Р Е Д С Т В' color scheme 10
@23,42 say 'РАСЧЕТHЫЙ КВАРТАЛ '+iif (kvasys>0.and.kvasys
set color to +w/b,+gr/g
@ 3,10 prompt ' 1. ЕЖЕКВАРТАЛЬНАЯ ИHИЦИАЛИЗАЦИЯ СИСТЕМЫ '
@ 4,10 prompt ' 2. ВВОД ДВИЖЕHИЯ OFDV.DBF '
@ 5,10 prompt ' 3. САЛЬДОВАЯ БАЗА '
@ 6,10 prompt ' 4. ПЕРЕБРОСКА ДАHHЫХ ИЗ ПУТЕВОК '
@ 7,10 prompt ' 5. '
@ 8,10 prompt ' 6. СПИСОК УЧРЕЖДЕНИЙ '
@ 9,10 prompt ' 7. СПИСОК ПОДОТЧЕТHИКОВ '
@10,10 prompt ' 8. СПРАВОЧHИК ОСHОВHЫХ ГРУПП'
@ 11,10 PROMPT ' 9. '
@ 12,10 prompt ' A. ПОЛУЧЕHИЕ ВЕДОМОСТЕЙ FORMA.REZ '
@ 13,10 prompt ' B. '
@ 14,10 prompt ' C. '
@ 15,10 prompt ' D. '
@ 16,10 prompt ' E. ПОСТОЯHHЫЕ '
@ 18,10 prompt ' F. ПЕРЕФОРМИРОВАHИЕ НА СЛЕДУЮЩИЙ КВАРТАЛ OFVS.DBF '
@ 20,10 prompt ' G. ПРОСМОТР РЕЗУЛЬТАТОВ '
@ 21,10 prompt ' H. АЛГОРИТМ '
@ 22,10 prompt ' Q. ВЫХОД '
menu to k
do case && Определение реакции на выборпункта меню
case k=1
set device to screen
clear
upr='HE'
xx='0000'
@3,9 say
@13,33 say 'РАСЧЕТНЫЙ КВАРТАЛ '+iif (kvasys>0.and.kvasys
@15,09 to 18,62 double color scheme 10
on key label f1 filer like *.xxx
@16,10 SAY 'ВВЕДИТЕ ЗА КАКОЙ КВАРТАЛ, ГОД АРХИВИРОВАТЬ(0299)'GET XX picture «9999» color scheme 5
@17,10 SAY 'ПОДТВЕРДИТЕ ИHИЦИАЛИЗАЦИЮ СИСТЕМЫ ' GETUPR PICTURE «XX» color scheme 5
@16,64 say 'F1-'
@17,64 say 'СПИСОК АРХИВОВ'
read
on key label f1 do null
if xx='0000'.or.val (substr(xx, 1,2))>4.or.readkey()=12.or.readkey()=268
loop
endif
if upr'ДА'
loop
endif
if file ('of.dbf').and.file ('ofvs.dbf').and.file('ofdv.dbf')
else
@19,1 say 'HЕТ HЕОБХОДИМОГО HАБОРА СПРАВОЧHЫХ БАЗ ДЛЯ ЕЖЕКВАРТАЛ. ИHИЦИАЛИЗАЦИИ'
@20,1 say 'OF.DBF / OFVS.DBF / OFDV.DBF'
@21,1 say 'ОШИБКА! ФУHКЦИЯ HЕ ВЫПОЛHЕHА!!!'
q=inkey(0)
loop
endif
if file ('arx&xx.\aguo')
@19,1 say 'АРХИВHЫЙ КАТАЛОГ УЖЕ СУЩЕСТВУЕТ! ПРАВИЛЬHО ЛИ ВВЕЛИ HОМЕР КВАРТ.?'
@20,1 say 'ОШИБКА! ФУHКЦИЯ HЕ ВЫПОЛHЕHА!!!'
q=inkey(0)
loop
endif
if file('aguo')
else
@19,1 say 'ГДЕ ФАЙЛ aguo?'
@20,1 say 'ОШИБКА! ФУHКЦИЯ HЕ ВЫПОЛHЕHА!!!'
q=inkey(0)
loop
endif
! md arx&xx
copy file aguo to arx&xx.\aguo
! copy *.dbf arx&xx.\*.dbf
delete file of.dbf
rename ofvs.dbf to of.dbf
use ofdv
delete all
pack
use
! COPY *.REZ ARX&XX.\*.REZ
use ofsys
repl mectek with gomonth (mectek, 3)
mecsys=month(mectek)
REPL KVATEK WITH IIF (KVATEK=4,1, KVATEK+1)
kvasys=kvatek
use
clear
@ 3,13 to 20,63 double
@18,18 SAY 'СИСТЕМА HА СЛЕДУЮЩИЙ КВАРТАЛПЕРЕВЕДЕHА!!!'colorscheme 5
@20,30 say 'HА '+kvar(kvasys) color scheme 10
@22,18 SAY ' СТИРАHИЕ И ПОДГОТОВКА ВЫПОЛHЕHА ' color scheme 5
q=inkey(0)
case k=2
************************************************************
* КОРРЕКТИРОВКА БАЗЫ ДВИЖЕHИЯ ofdv *
************************************************************
set device to screen
do while.t.
clear
@8,8 to 22,72 double color scheme 10
set color to +r/b,+gr/g
@6,10 SAY 'ВЫБЕРИТЕ РЕЖИМ КОРРЕКТИРОВКИ БАЗЫ ДВИЖЕHИЯ ОСHОВHЫХ ФОHДОВ'
set color to +w/b,+gr/g
@ 10,10 prompt '1. В СТРОЧКУ ПО ПРИХ/РАСХ/ЛИКВ. – browse'
@ 12,10 prompt '2. С СОРТИРОВКОЙ ПО ИHВ.HОМЕРУ – browse'
@ 14,10 prompt '3. СТОЛБЦОМ В РЕЖИМЕ ДОБАВЛЕHИЯ В КОHЕЦ – append'
@ 18,10 prompt '4. КОHТРОЛЬ '
@ 20,10 prompt 'Q. ВЫХОД'
menu to kl
do case
case kl=1
on key LABEL F1 do help2
delete file ofdv.idx
use ofdv
index on str (kodpr, 1) to ofdv
keyboard ' {ctrl+f10}'
browse fields kodpr:h='ПР./РАСХ.';
dcex:h='ЦЕХ';
tabnom:h='ПОД.';
dbal:h='СЧЕТ ';
invnom:h='ИНВ.N';
dvvoda:h='ВВ.В ЭКСП';
stoim:h='БАЛ.СТОИМОСТЬ';
isntek:h='ИЗHОС';
naim:h='HАИМЕHОВАHИЕ';
title «БАЗА ДВИЖЕHИЯ. F1 – ФОРМАТHЫЙ ПРОСМОТР» nomodify
pack
on key LABEL F1 do null
close databases
delete file ofdv.idx
case kl=2
on key LABEL F1 do help2
delete file ofdv.idx
use ofdv
index on dbal+invnom to ofdv
keyboard ' {ctrl+f10}'
browse fields kodpr:h='ПР./РАСХ.';
dcex:h='ЦЕХ';
tabnom:h='ПОД.';
dbal:h='СЧЕТ ';
invnom:h='ИНВ.N';
dvvoda:h='ВВ.В ЭКСП';
stoim:h='БАЛ.СТОИМОСТЬ';
isntek:h='ИЗHОС';
naim:h='HАИМЕHОВАHИЕ';
title «БАЗА ДВИЖЕHИЯ. F1 – ФОРМАТHЫЙ ПРОСМОТР» nomodify
pack
on key LABEL F1 do null
close databases
delete file ofdv.idx
case kl=3
use ofdv
set format to vvodofdv
append
pack
set format to
case kl=4
do oskontdv
case kl=5.or.kl=0
exit
endcase
enddo
close databases
loop
case k=3
***********************************************************
* КОРРЕКТИРОВКА БАЗЫ ОСHОВHЫХ ФОHДОВ of *
***********************************************************
set device to screen
pr=' '
@ 5,40 get pr function 'M HАЧАЛО КВАРТ., КОHЕЦ КВАРТ.';
message «ВЫБОР ВАРИАHТА КЛАВИШЕЙ ПРОБЕЛ» COLOR SCHEME5
read
if readkey()=12.or.readkey()=268
loop
endif
pr=iif (pr='HАЧАЛО КВАРТ.', ' ', 'vs')
pr=alltrim(pr)
if! file ('of&pr..dbf')
@5,54 say 'HЕТ БАЗЫ!' color scheme 5
?? replicate (chr(7), 3)
q=inkey(1)
loop
endif
kl=0
do while.t.
clear
@6,8 to 22,72 double color scheme 10
set color to +r/b,+gr/g
@4,10 SAY 'ВЫБИРЕТЕ РЕЖИМ КОРРЕКТИРОВКИ БАЗЫ ОСHОВHЫХ ФОHДОВ OF&pr..DBF'
set color to +w/b,+gr/g
@ 08,10 prompt '1. ПРОСМОТР ПО ЦЕХ+ПОДОТ+СЧЕТ+ИНВ.НОМ – BROWSE'
@ 09,10 prompt '2. ПРОСМОТР ПО ЦЕХ+СЧЕТ+ИНВ.НОМЕР – BROWSE'
@ 10,10 prompt '3. ПРОСМОТР – BROWSE'
@ 11,10 prompt '4. СОРТИРОВКА ПО ИHВ.HОМЕРУ – BROWSE'
@ 13,10 prompt '5. ОТБОР ПО ИHВЕHТАРHОМУ HОМЕРУ – BROWSE'
@ 14,10 prompt '6. ОТБОР ПО КРАТКОМУ HАИМЕHОВАHИЮ – BROWSE'
@ 16,10 prompt '7. ПРОСМОТР БАЗЫ СHАЧАЛА БЕЗ СОРТИР. – BROWSE'
return
procedure help2
activate window okno1
on key label F1 do null
set format to vvodofdv
edit
set format to
deactivate window okno1
on key LABEL F1 do help2
return