Использование персональных компьютеров для ведения бухгалтерского учёта основных фондов, Дипломная из Информатика

Скачай Использование персональных компьютеров для ведения бухгалтерского учёта основных фондов и еще Дипломная в формате PDF Информатика только на Docsity! Введение Потребность выразить и передать информацию привела к появлению речи, письменности, книгопечатания, почтовой связи, телеграфа, телефона, радио, телевидения и многого другого. С самого раннего детства все мы вовлечены в процессы обмена информацией. Вопросы, ответы, просьбы – все это передача информации. Мы получаем информацию, когда читаем книги, газеты и журналы, слушаем радио или смотрим телевизор. Общение людей друг с другом – это передача информации: сведений и суждений, данных и сообщений. Любая совместная деятельность людей – работа, учеба – невозможна без обмена информацией. Передаваемая информация обычно касается каких-то предметов или нас самих и связана с событиями, которые происходят в окружающем нас мире. Выражение мыслей в письменной форме открыло возможность не только передавать сведения и сообщения, но и накапливать человеческие знания в форме рукописей и рукописных книг и тем самым передавать сокровища человеческой мысли от одного поколения к другому. Совершенно новые возможности для поиска и обработки информации открыло перед людьми изобретение в середине XX века электронных вычислительных машин – ЭВМ. Первоначально ЭВМ создавались для автоматизации вычислений. Затем их научили записывать и хранить информацию на магнитных лентах, печатать ее на бумаге и выводить на экран ЭВМ. По мере развития они стали использоваться для создания архивов, подготовки и редактирования текстов, выполнения чертежных и графических работ, для автоматизации производства и многих других видов человеческой деятельности. Вычислительная техника все более широко используется не только для автоматизации производства, но и в самых различных его сферах. Подобное вовлечение вычислительной и микроэлектронной техники в деятельность различных производственных систем называется компьютеризацией производства. Компьютеризация – это основа технического перевооружения производства, необходимое условие повышения его эффективности. На базе ЭВМ и микропроцессоров создаются технологические комплексы, машины и оборудование, измерительные, регулирующие и информационные системы, ведутся проектно-конструкторские работы и научные исследования, осуществляется информационное обслуживание, обучение и многое другое, что обеспечивает повышение общественной и индивидуальной производительности труда, создание условий для всестороннего и гармоничного развития личности. Для нормального развития и функционирования сложного народнохозяйственного механизма необходимы постоянный обмен информацией между его звеньями, своевременная обработка большого объема данных на различных уровнях управления, что также невозможно без использования ЭВМ. Поэтому от уровня компьютеризации в значительной степени зависит развитие экономики. В процессе своего развития ЭВМ прошли путь от громоздких машин на электронных лампах, общение с которыми было возможно только на машинном языке, до современных ЭВМ. Развитие ЭВМ происходит в двух основных направлениях. Первое – создание мощных многопроцессорных вычислительных систем с производительностью сотни и тысячи миллионов операций в секунду. Второе – создание дешевых и компактных микроЭВМ на базе микропроцессоров. В рамках второго направления развивается производство персональных компьютеров, которые становятся мощным универсальным инструментом, существенно повышающим производительность интеллектуального труда специалистов различного профиля. Персональные компьютеры отличает работа в диалоговом режиме с индивидуальным пользователем; небольшие 1. Организационно-экономическая сущность задачи В начале XXI века в развитии человеческой цивилизации происходят глобальные изменения, ведущие к её новому этапу – постиндустриальному обществу, все шире использующему компьютеризированные орудия труда и информационные технологии. Для современных условий характерно применение высокоэффективного учета основных средств, основанного на использовании новейших технических средств автоматизированной обработки цифровой и текстовой информации на базе компьютеров, объединенных в локальную, единую внутрифирменную вычислительную сеть. Управленческая и финансовая внутрифирменная информационная система представляет собой совокупность информационных процессов, для удовлетворения потребности в информации разных уровней принятия решений, как бухгалтерских, так и управленческих. Информационная система состоит из компонентов обработки информации, внутренних и внешних каналов передачи. Информационный процесс, направленный на получение научно- технической, плановой, контрольной, учетной и аналитической информации, в информационных системах унифицирован и базируется на электронно- вычислительной технике. Повышение эффективности использования информационных систем достигается путем сквозного построения и совместимости информационных систем, что позволяет устранить дублирование и обеспечить многократное использование информации, установить определенные интеграционные связи, ограничить количество показателей, уменьшить объем информационных потоков, повысить степень использования информации. Информационное обеспечение предполагает: распространение информации, т.е. предоставление пользователям информации, необходимой для решения научно-производственных задач; создание наиболее благоприятных условий для распространения информации, т.е. проведение административно- организационных, научно-исследовательских и производственных мероприятий, обеспечивающих ее эффективное распространение. Информация и, особенно, ее автоматизированная обработка, является важным фактором повышения эффективности производства. Важную роль в исполнении информации играют способы ее регистрации, обработки, накопления и передачи, систематизированное хранение информации и выдача ее в требуемой форме, производство новой числовой и иной информации. В современных условиях в крупных организациях созданы и эффективно действуют информационные системы, обслуживающие процесс подготовки и принятия бухгалтерских и управленческих решений, и решающие следующие задачи: обработка данных, обработка информации. Основные фонды (средства) – материальные активы, которые предприятие содержит с целью использования их в процессе производства или поставки товаров, предоставления услуг, сдачи в аренду другим лицам или для осуществления административных и социально-культурных функций, ожидаемый срок полезного использования (эксплуатации) которых более одного года (или операционного цикла, если он больше года). Эксплуатация основных фондов сопряжена с их износом, как физическим, так и моральным. Основные фонды требуют постоянного технического обслуживания. Кроме того, для их использования необходимо проводить текущий и капитальный ремонты, осуществлять реконструкцию, модернизацию, техническое перевооружение и другие улучшения основных фондов. Все эти мероприятия требуют определенных затрат, которые нужно отразить в бухгалтерском и налоговом учете. Данная задача в централизованной бухгалтерии решается ежеквартально. Входными данными для этой задачи являются базы данных: kodgrupp.dbf, kodobj.dbf, ofsys.dbf, ofdv.dbf, kodpodt.dbf, сформированные работниками расчетного отдела на основе нормативных бухгалтерских документов и приказов по организации. В результате решения данной задачи информация баз данных актуализируется, а также могут быть получены следующие документы на бумажном носителе: 1. Оборотная ведомость по подотчетным лицам; 2. Оборотная ведомость по счетам; 3. Сальдовая ведомость на конец квартала; 4. Сальдовая ведомость на конец месяца (по подотчетным лицам); 5. Сводная ведомость начисления амортизации; 6. Инвентарная карточка. Все карточки и ведомости также могут быть выгружены в файл. 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 максимальный объем ОЗУ 128 Mb кэш-память 2х64 Kb Принтер предназначен для вывода информации на бумагу. Все принтеры могут выводить текстовую информацию, многие из них могут выводить рисунки и графики, а некоторые принтеры могут выводить и цветные изображения. Лазерный принтер, который используется при работе программы 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 стал располагать средствами языка 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 F 0 E 4 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. В конце текущего квартала, перед тем как производить расчеты для следующего квартала выполнить переход: 5. Экономическое обоснование программы Применение персональных компьютеров позволяет совершенно по- новому организовать процесс решения многих задач учета, в том числе и задачу данного дипломного проекта – «Разработка программы «Ведение основных фондов» для централизованной бухгалтерии комитета по образованию при администрации г. Богородицка». Входной информацией для этой задачи являются базы данных kodgrupp, kodobj, ofsys, ofdv, kodpodt, сформированные ранее работниками расчётного отдела на основании документов бухгалтерского учета о поступлении, движении и ликвидации объектов основных фондов, содержащие информацию о модификации фондов. Выходная информация представляет собой изменённые БД, а также типовые документы: оборотная ведомость по подотчетным лицам, оборотная ведомость по счетам, сальдовая ведомость на конец квартала, сальдовая ведомость на конец месяца (по подотчетным лицам), сводная ведомость начисления амортизации, инвентарная карточка. Экономическая эффективность – это оценка результатов, выполнение различных действий, направленных на изменение способа, скорости и качества учета. Наиболее распространенным методом определения экономической эффективности является метод сравнения. Его сущность заключается в сопоставлении трудоемкости и себестоимости выполненных работ с аналогичными показателями предыдущих периодов, то есть экономическую эффективность определяют по совокупности высвобож-денного времени, работников, совершенствованию способов обработки информации путём применения более современных методов обработки. Выделяются два вида показателей эффективности: прямая (непосредственно снижает трудовые и стоимостные затраты) и косвенная (косвенно улучшает учет за счет усовершенствований в работе сотрудников бухгалтерии), рассмотренных далее. Основным показателем прямой эффективности является снижение стоимостных и трудовых затрат на расчётные работы. В основе выявления прямой эффективности лежит принцип сопоставления затрат при различных способах решения. Показателями прямой экономической эффективности являются: абсолютное снижение трудовых и стоимостных затрат, показывающих на сколько времени и на какую сумму снизились затраты; относительное снижение трудовых и стоимостных затрат, показывающее, какая часть затрат при предполагаемом варианте экономится; индекс роста производительности труда, показывает, во сколько раз произошло изменение. Косвенная эффективность имеет скрытую форму и проявляется в улучшении качества управления объектом, может быть определена экспертным путем. Косвенная эффективность позволяет оценить влияние задачи на различные стороны деятельности через качественные факторы. Из-за отсутствия единой методики расчета прямой эффективности программных продуктов, внедряемых на персональном компьютере, в данном дипломном проекте по разработке системы ведения основных фондов рассматривается косвенная эффективность. Косвенная эффективность автоматизации задачи ведения основных фондов заключается в следующем: внедрение безбумажной технологии обработки информации сильно сокращает расходы на покупку бумаги и других расходных материалов; использование разработанной программы позволяет упорядочить большие объёмы информации для удобного использования; формировать выходные документы в удобной для пользователя форме. Все вышеперечисленные факторы приводят к уменьшению расходов на обработку экономической информации, повышению производительности труда, получению оперативных данных о состоянии фондов, что в свою очередь влияет на эффективность работы и является основанием для анализа деятельности. Косвенный эффект позволяет оценить влияние задачи на различные стороны деятельности данного объекта. Проявляется он через качественные факторы. Экономическая эффективность задачи ведения основных фондов закладывается уже при разработке проекта. Режимы работы выбираются с таким расчетом, чтобы в своей совокупности они обеспечивали максимальную эффективность задачи. При этом ускоряется не только процесс поиска и обработки данных, но что немаловажно, повышается контроль за качеством выполненной работы. Внедрение новых информационных технологий существенно влияет на характер и способы обслуживания. Таким образом, при наименьших затратах труда и времени, осуществляется оперативный и безошибочный учет и поиск информации. Из этого следует целесообразность внедрения данной задачи на ПЭВМ. Number of data records: 9 Date of last update: 08/28/03 Code Page: 0 Field Field Name Type Width Dec 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 Width Dec 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 Приложение Б 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,81 color scheme 5 && Определение рабочих окон define window okno2 from 5,35 to 22,78 title «ПРОСМОТР» shadow color scheme 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<=0.or.kod>=100 skip loop endif gru(kod)=naim skip enddo use kodobj do while! eof() if kobject<=0.or.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)='Июль' @23,27 say 'HЕ СУЩЕСТВУЕТ OFSYS.DBF….' q=inkey(1) do xquit endif use ofsys x=sys(2020) i=0 parol=0 do while i<len(x) 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()<2000000 @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<5, kvar (kvasys), '?') color scheme 10 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 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А!!!' color scheme 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