оптимизация торгово-закупочной деятельности

Оглавление
Аннотация
Введение
1. Аналитическая часть
1.1 Характеристика предприятия и его деятельности
1.2 Организационная структура управления предприятием
1.3 Программная и техническая архитектура ИС предприятия
1.4 Характеристика комплекса задач, задачи и обоснование необходимости автоматизации
1.5 Обзор аналогов программного обеспечения
1.6 Техническое задание
2. Проектная часть
2.1 Выбор инструментальных средств
2.2 Информационное обеспечение задачи
2.3 Описание структуры информационного фонда (диаграмма сущность-связь)
2.4 Характеристика нормативно-справочной, входной и оперативной информации
2.5 Характеристика результатной информации
2.6 Формализация расчётов показателей
2.7 Функциональная структура системы
3. Программная реализация системы
3.1 Дерево функций и сценарий диалога
3.2 Алгоритм работы системы
3.3 Контрольный пример реализации проекта и его описание
4. Оценка экономической эффективности внедрения проекта
4.1 Выбор и обоснование методики расчёта экономической эффективности
4.2 Расчёт показателей экономической эффективности проекта
5. Охрана труда и окружающей
5.1. Разработка мероприятий по охране труда
5.1.1 Нормирование микроклимата помещения
5.1.2.Описание вредных производственных факторов и влияние их на персонал
5.1.2.1.Освещение
5.1.2.2. Шум
5.1.2.3. Обеспечение электробезопасности на рабочем месте
5.2.2 Профилактика возникновения пожаров
5.2.3 Действия сотрудников предприятия в случае возникновения пожара
5.2.4 Действия лиц, прибывших на место пожара
5.2.5 Организация тушения пожаров в помещениях
Заключение
Список литературы
Приложение – Код программы

Перечисленные параметры оказывают влияние на функциональную деятельность человека, на его самочувствие, здоровье и на надежность работы средств вычислительной техники.
Уровни положительных и отрицательных аэронов в воздухе помещения с ПЭВМ должны соответствовать нормам СанПиН 2.2.2.542-96.
Для нормализации климата в рабочей зоне необходимо:
удаление излишков явной теплоты, обеспечение оптимальной скорости движения воздуха на рабочем месте с помощью вентиляции;
для повышения влажности воздуха в помещениях с ПЭВМ следует применять увлажнители воздуха, заправляемые ежедневно дистиллированной или прокипяченной питьевой водой;
проветривание помещений, что обеспечивает улучшение качественного состава воздуха и аэроионный режим;
устройство кондиционирования.
5.1.2.Описание вредных производственных факторов и влияние их на персонал
5.1.2.1.Освещение
Хорошее освещение рабочих мест - одно из важнейших требований охраны труда. При работе с вычислительной техникой важно создать благоприятные условия для освещения. При недостаточном освещении зрительное восприятие снижается, развивается близорукость, появляются болезни глаз и головные боли. Из-за постоянного напряжения зрения наступает зрительное утомление. Постоянный перевод взгляда с достаточно освещенного предмета на плохо освещенный вызывает профессиональную болезнь - нистагм. Длительная работа при высокой освещенности может привести к светобоязни - повышенной чувствительности глаз к свету с характерным слезотечением, воспалением слизистой оболочки или роговицы глаза.
Согласно нормам проектирования искусственного освещения СниП 23-03-95 для зрительной работы очень высокой точности (наименьший размер объекта различения составляет 0,15-0,3) естественное освещение КЕО - 2,5%, искусственное освещение - 500 лк. Нормы освещения взяты из условий бокового естественного и общего искусственного освещения для подразряда зрительной работы. При применении ламп накаливания теплые цвета выглядят чистыми, насыщенными, а холодные - серыми и грязными. При использовании ртутных ламп теплые цвета воспринимаются серыми. Наиболее правильная цветопередача наблюдается при освещении люминесцентными лампами.
5.1.2.2. Шум
Шум – это беспорядочное сочетание звуков различной частоты и интенсивности (силы), возникающих при механических колебаниях в твердых, жидких и газообразных средах. Шум отрицательно влияет на организм человека, и в первую очередь на его центральную нервную систему и сердечно-сосудистую системы. Длительное воздействие шума снижает остроту слуха и зрения, повышает кровяное давление, утомляет центральную нервную систему, в результате чего ослабляется внимание, увеличивается количество ошибок в действиях работающего, снижается производительность труда. Воздействие шума приводит к появлению профессиональных заболеваний и может явиться также причиной несчастного случая.
Источниками шума внутри рассматриваемого офиса являются компьютеры, принтер, факс и кондиционер.
В настоящее время нормативами, регламентирующими требования к звукоизоляции, являются СНиП 23-03-2003 "Защита от шума", а также Санитарные нормы СН 2.2.4/2.1.8.562-96 "Шум на рабочих местах, в помещениях жилых, общественных зданий "
В соответствии с СанПиН 3223-85 от 12.03.85 «Санитарные нормы допустимых уровней шума на рабочих»:
при выполнении основной работы на мониторах и ПЭВМ (диспетчерские, операторские, расчетные, кабины и посты управления, залы вычислительной техники и др.) где работают инженерно - технические работники, осуществляющие лабораторный, аналитический или измерительный контроль, уровень шума не должен превышать 60 дБА.
В помещениях операторов ЭВМ (без дисплеев) уровень шума не должен превышать 65 дБА.
На рабочих местах в помещениях для размещения шумных агрегатов вычислительных машин (АЦПУ, принтеры и др.) уровень шума не должен превышать 75 дБА.
Допустимые уровни шума в рассматриваемом помещении представлены в таблице 9.
Таблица 9 - Допустимые уровни шума
Рабочее место Уровни звукового давления в дБ в октавных полосах со среднегеометрическими частотами, Гц. Уровни звука, дБА 63 125 250 500 1000 2000 4000 8000 Помещения программистов вычислительных машин 71 61 54 49 45 42 40 38 50
Снизить уровень шума в помещениях с мониторами и ПЭВМ можно использованием звукопоглощающих материалов с максимальными коэффициентами звукопоглощения в области частот 63 - 8000 Гц для отделки помещений (разрешенных органами и учреждениями Госсанэпиднадзора России), подтвержденных специальными акустическими расчетами.
5.1.2.3. Обеспечение электробезопасности на рабочем месте
Электрический ток представляет собой скрытый тип опасности, т.к. его трудно определить в токо- и нетоковедущих частях оборудования, которые являются хорошими проводниками электричества. Смертельно опасным для жизни человека считают ток, величина которого превышает 0,05А, ток менее 0,05А – безопасен (до 1000 В). С целью предупреждения поражений электрическим током к работе должны допускаться только лица, хорошо изучившие основные правила по технике безопасности.
В соответствии с правилами электробезопасности в служебном помещении должен осуществляться постоянный контроль состояния электропроводки, предохранительных щитов, шнуров, с помощью которых включаются в электросеть компьютеры, осветительные приборы, другие электроприборы.
5.2.2 Профилактика возникновения пожаров
Пожарная безопасность может быть обеспечена мерами пожарной профилактики и активной пожарной защиты. Пожарная профилактика включает комплекс мероприятий, направленных на предупреждение пожара или уменьшение его последствий. Активная пожарная защита ( меры, обеспечивающие успешную борьбу с пожарами или взрывоопасной ситуацией.
Мероприятия по пожарной профилактике разделяются на организационные, технические, режимные и эксплуатационные.
Организационные мероприятия – предусматривают правильную эксплуатацию машин и внутризаводского транспорта, правильное содержание зданий, территории, обеспечение планами эвакуации на каждом этаже, противопожарный инструктаж и тому подобное.
Технические мероприятия – предусматривают соблюдение противопожарных правил и норм при проектировании зданий, при устройстве электропроводов и оборудования, отопления, вентиляции, освещения, правильное размещение оборудования.
Режимные мероприятия ( предусматривают запрещение курения в неустановленных местах, запрещение сварочных и других огневых работ в пожароопасных помещениях и тому подобное.
Эксплуатационные мероприятия ( предусматривают своевременную профилактику, осмотры, ремонты и испытание технологического оборудования [13].
Пользователи допускаются к работе на персональных ЭВМ только после прохождения инструктажа по безопасности труда и пожарной безопасности в лаборатории в целом и на каждом рабочем месте.
5.2.3 Действия сотрудников предприятия в случае возникновения пожара
В случае возникновения пожара:
позвонить в пожарную часть по телефону 01;
назвать объект возгорания, точный адрес объекта возгорания, фамилию сообщающего, организовать встречу пожарных;
принять по возможности меры по эвакуации людей, тушению пожара и сохранности материальных ценностей;
сообщить руководству и лицам, ответственным за пожарную безопасность на предприятии.
5.2.4 Действия лиц, прибывших на место пожара
Лица, прибывшие на место пожара, обязаны:
в случае угрозы жизни людей немедленно организовать их спасение, используя для этого имеющиеся силы и средства;
при необходимости отключить электроэнергию (за исключением систем противопожарной защиты), остановить работу агрегатов и аппаратов, остановить работу систем вентиляции в аварийном и смежным с ним помещениях;
прекратить все работы в здании, кроме работ, связанных с мероприятиями по ликвидации пожара;
удалить за пределы опасной зоны всех работников, не участвующих в тушении пожара;
осуществить общее руководство по тушению пожара да прибытия пожарной команды;
одновременно с тушением пожара организовать эвакуацию материальных ценностей;
организовать встречу пожарных и оказать помощь в выборе кратчайшего пути для подъезда к очагу пожара и водоисточникам;
приступить к тушению пожара имеющимися первичными средствами пожаротушения.
5.2.5 Организация тушения пожаров в помещениях
В соответствии с «Правилами пожарной безопасности РФ» помещения с ПЭВМ, помещения для сервисной аппаратуры, архивов, копировально-множительного оборудования и т.п. необходимо оборудовать дымовыми пожарными извещателями. В этих помещениях в начале пожара при горении различных пластмассовых, изоляционных материалов и бумажных изделий выделяется значительное количество дыма и мало теплоты. В других помещениях, в том числе в кабельных каналах, воздуховодах допускается применение тепловых пожарных извещателей.
При производстве современных устройств используются материалы с такими свойствами, чтобы не способствовать распространению пожара. Также при сгорании таких материалов нежелательно большое выделение дыма, а также вредных веществ, которые могут влиять на человека в критической обстановке и на его здоровье.
Заключение
Цель дипломной работы – повышение эффективности управления торгово-закупочной деятельностью на предприятии ООО «ЭльКомфорт» путем разработки ИС оптимизации торгово-закупочной деятельности.
Разработанная система торгово-закупочной деятельности на предприятии ООО «ЭльКомфор» позволит сотрудникам компании вести учет номенклатуры товара, вести учет складских операций, контролировать состояние остатков на складе для своевременного пополнения запасов.
Интерфейс системы позволяет осуществлять ввод информации с минимальной вероятностью ошибок оператора, так как активно использует списки выбора, маски ввода и автозаполнение. На большую часть логических ошибок созданы обработчики, выдающие соответствующие сообщения.
Также система позволяет автоматизировать формирование отчетов.
Дальнейшее совершенствование системы возможно в направлении разработки web-интерфейса, разработка интерфейса позволит клиентам компании осуществлять заказ продукции через интернет.
Другим направление совершенствования системы является разработка экспертной составляющей позволяющей самостоятельно принимать решение на пополнение запасов.
Внедрение системы является целесообразным, так как она полностью адаптирована под задачи компании. Также разработка и внедрение системы осуществляется собственными силами, что в свою очередь снижает затраты компании на ежегодное приобретение лицензии (как, например, для 1С), на администрирование системы сторонней компанией, на переобучение сотрудников.
Таким образом, цель работы можно считать достигнутой, а задачи решенными.
Список литературы
Адамов В. Е. и др. Экономика и статистика фирм: Учебник. — М.: Финансы и статистика, 2003. — 288 с.
Акперов И. Г. и др. Казначейская система исполнения бюджета Российской Федерации: Учеб. пособие. — М.: Финансы и статистика, 2004. — 352 с.
Алиев Б. Х. Налоги и налогообложение: Учеб. пособие. — М.: Финансы и статистика, 2005. — 416 с.
Андреев В. Д. Внутренний аудит: Учеб. пособие. — М.: Финансы и статистика, 2003. — 464 с.
Андрейчиков А. В., Андрейчикова О. Н. Анализ, синтез, планирование решений в экономике: Учебник. — 2-е изд., перераб. и доп. — М.: Финансы и статистика, 2004 — 464 с.
Анесянц С. А. Основы функционирования рынка ценных бумаг: Учеб. пособие. — М.: Финансы и статистика, 2005. — 144 с.
Анфилатов В. С. и др. Системный анализ в управлении: Учебное пособие. — М.: Финансы и статистика, 2002. — 368 с.
Бабаева З. Д. Бухгалтерский учет финансово-хозяйственной деятельности организаций: методология, задачи, тесты: Учеб. пособие. — М.: Финансы и статистика, 2004. — 544 с.
Бабаш А. В. Криптография. — М.: СОЛОН-Р, 2002. — 512 с.
Банк В. Р., Семенов С. К. Организация и бухгалтерский учет банковских операций: Учеб. пособие. — М.: Финансы и статистика, 2004. — 352 с.
Барановская Т. П. и др. Информационные системы и технологии в экономике: Учебник. — 2-е изд., доп. и перераб. — М.: Финансы и статистика, 2005 — 416 с.
Барбаумов В. Е. и др. Финансовые инвестиции. — М.: Финансы и статистика, 2003. — 544 с.
Барский А. Б. Нейронные сети: распознавание, управление, принятие решений (Прикладные информационные технологии. — М.: Финансы и статистика, 2004. — 176 с.
Бережная Е. В., Бережной В. И. Математические методы моделирования экономических систем: Учеб. пособие. — 2-е изд., перераб. и доп. — М.: Финансы и статистика, 2005. — 432 с.
Благодатских В. А. и др. Стандартизация разработки программных средств: Учеб. пособие. — М.: Финансы и статистика, 2005. — 288 с.
Варфоломеев В. И. Назаров С. В. Алгоритмическое моделирование элементов экономических систем. Практикум: Учеб. пособие. — 2-е изд., перераб. и доп. — М.: Финансы и статистика, 2004. — 264 с.
Вахрин П. И. Финансы и кредит. — М.: ИТК Дашков и К, 2004. — 584 с.
Вендров А. М. Проектирование программного обеспечения экономических информационных систем: Учебник. — 2-е изд., перераб. и доп. — М.: Финансы и статистика, 2005. — 544 с.
Галанов В. А. Рынок ценных бумаг: Учебник. — 2-е изд. перераб. и доп. — М.: Финансы и статистика, 2004. — 448 с.
Гвозденко А. А. Основы страхования: Учебник. — 2-е изд. перераб. и доп. — М.: Финансы и статистика, 2005. — 320 с.
Гетия И. Г. Безопасность при работе на ПЭВМ. — М.: НПЦ Профессионал-Ф, 2001. — 140 с.
Гетия И. Г. и др. Экология компьютерной техники. — М.: МГАПИ, 1996. — 68 с.
Гост 15.971–90. Системы обработки информации: Термины и определения. — М.: Изд-во стандартов, 1994.
Гост 19.001–77. Единая система программной документации: Общие положения. — М.: Изд-во стандартов, 1994.
Гост 19.101–77. Единая система программной документации: Виды программ и программных документов. — М.: Изд-во стандартов, 1994.
Гост 19.102–77. Единая система программной документации: Стадии разработки. — М.: Изд-во стандартов, 1994.
Гост 19.105–78. Единая система программной документации: Общие требования к программным документам. — М.: Изд-во стандартов, 1994.
Гост 19.201–78. Единая система программной документации: Техническое задание. Требования к содержанию и оформлению. — М.: Изд-во стандартов, 1994.
Гост 19.202–78. Единая система программной документации: Спецификация. Требования к содержанию и оформлению. — М.: Изд-во стандартов, 1994.
Гост 19.404–79. Единая система программной документации: Пояснительная записка: Требования к содержанию и оформлению. — М.: Изд-во стандартов, 1994.
Гост 19.502–78. Единая система программной документации: Описание применения. Требования к содержанию и оформлению. — М.: Изд-во стандартов, 1994.
Приложение – Код программы
unit main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, SUIImagePanel, SUIGroupBox, SUIPageControl, SUITabControl,
ExtCtrls, SUIForm, SUIButton, StdCtrls, SUIComboBox, SUIEdit, Mask,
Grids, DBGrids, SUIDBCtrls, DB, ADODB, jpeg;
type
TForm1 = class(TForm)
suiForm1: TsuiForm;
suiPageControl1: TsuiPageControl;
suiTabSheet1: TsuiTabSheet;
suiTabSheet2: TsuiTabSheet;
suiGroupBox1: TsuiGroupBox;
suiGroupBox2: TsuiGroupBox;
suiDBGrid1: TsuiDBGrid;
suiPanel1: TsuiPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
suiMaskEdit1: TsuiMaskEdit;
suiNumberEdit1: TsuiNumberEdit;
suiComboBox1: TsuiComboBox;
suiButton1: TsuiButton;
suiButton2: TsuiButton;
suiButton3: TsuiButton;
suiDBGrid2: TsuiDBGrid;
suiPanel2: TsuiPanel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
suiMaskEdit2: TsuiMaskEdit;
suiNumberEdit2: TsuiNumberEdit;
suiComboBox2: TsuiComboBox;
suiButton4: TsuiButton;
suiButton5: TsuiButton;
suiButton6: TsuiButton;
suiGroupBox3: TsuiGroupBox;
suiDBGrid3: TsuiDBGrid;
suiPanel3: TsuiPanel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
suiMaskEdit3: TsuiMaskEdit;
suiNumberEdit3: TsuiNumberEdit;
suiButton7: TsuiButton;
suiButton8: TsuiButton;
suiButton9: TsuiButton;
suiGroupBox4: TsuiGroupBox;
suiDBGrid4: TsuiDBGrid;
suiPanel4: TsuiPanel;
Label16: TLabel;
Label17: TLabel;
suiNumberEdit4: TsuiNumberEdit;
suiNumberEdit5: TsuiNumberEdit;
suiEdit1: TsuiEdit;
suiMaskEdit5: TsuiMaskEdit;
suiMaskEdit7: TsuiMaskEdit;
suiMaskEdit8: TsuiMaskEdit;
suiEdit2: TsuiEdit;
ADOConnection1: TADOConnection;
toperacii: TADOTable;
tsklad: TADOTable;
tzayv: TADOTable;
DataSource1: TDataSource;
DataSource2: TDataSource;
DataSource3: TDataSource;
suiComboBox3: TsuiComboBox;
suiComboBox4: TsuiComboBox;
suiButton10: TsuiButton;
DataSource4: TDataSource;
ADOQuery1: TADOQuery;
suiButton11: TsuiButton;
suiButton12: TsuiButton;
suiButton13: TsuiButton;
suiButton14: TsuiButton;
procedure suiButton7Click(Sender: TObject);
procedure suiButton9Click(Sender: TObject);
procedure suiButton8Click(Sender: TObject);
procedure suiDBGrid3CellClick(Column: TColumn);
procedure suiButton1Click(Sender: TObject);
procedure suiButton2Click(Sender: TObject);
procedure suiButton3Click(Sender: TObject);
procedure suiButton4Click(Sender: TObject);
procedure suiButton6Click(Sender: TObject);
procedure suiButton5Click(Sender: TObject);
procedure suiDBGrid2CellClick(Column: TColumn);
procedure FormCreate(Sender: TObject);
procedure suiDBGrid1CellClick(Column: TColumn);
procedure suiButton10Click(Sender: TObject);
procedure suiPageControl1Click(Sender: TObject);
procedure suiButton11Click(Sender: TObject);
procedure suiButton12Click(Sender: TObject);
procedure suiButton14Click(Sender: TObject);
procedure suiButton13Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
fl1,fl2,fl3,fl4:boolean;
implementation
{$R *.dfm}
Процедура добавления товара в справочник
procedure TForm1.suiButton7Click(Sender: TObject);
begin
try
tsklad.Append;
tsklad.FieldByName('kod_tovar').AsString:=suiMaskEdit3.text;
tsklad.FieldByName('cost').AsString:=suiNumberEdit4.text;
tsklad.FieldByName('treb').AsInteger:=strtoint(suiNumberEdit3.text);
tsklad.FieldByName('kol').AsInteger:=strtoint(suiNumberEdit5.text);
tsklad.FieldByName('nazv').AsString:=suiedit1.text;
tsklad.FieldByName('nehvat').AsInteger:=StrToInt(suiNumberEdit5.text)-strtoint(suiNumberEdit3.text);
tsklad.Post;
Except
MessageDlg('Ошибка ввода данных!',mtInformation,[mbYes],0);
end;
ADOQuery1.Active:=false;
ADOQuery1.Active:=true;
suiComboBox3.Items.Add(tsklad.FieldValues['kod_tovar']+' '+tsklad.FieldValues['nazv']);
suiComboBox4.Items.Add(tsklad.FieldValues['kod_tovar']+' '+tsklad.FieldValues['nazv']);
end;
Процедура удаления товара из справочника
procedure TForm1.suiButton9Click(Sender: TObject);
var i:integer;
begin
tsklad.Delete;
ADOQuery1.Active:=false;
ADOQuery1.Active:=true;
tsklad.First;
suiComboBox3.Clear;
suiComboBox4.Clear;
for i:=0 to tsklad.RecordCount-1 do
begin
suiComboBox3.Items.Add(tsklad.FieldValues['kod_tovar']+' '+tsklad.FieldValues['nazv']);
suiComboBox4.Items.Add(tsklad.FieldValues['kod_tovar']+' '+tsklad.FieldValues['nazv']);
tsklad.Next;
end;
end;
Процедура редактирования товара в справочнике
procedure TForm1.suiButton8Click(Sender: TObject);
begin
try
tsklad.Edit;
tsklad.FieldByName('kod_tovar').AsString:=suiMaskEdit3.text;
tsklad.FieldByName('cost').AsString:=suiNumberEdit4.text;
tsklad.FieldByName('treb').AsInteger:=strtoint(suiNumberEdit3.text);
tsklad.FieldByName('kol').AsInteger:=strtoint(suiNumberEdit5.text);
tsklad.FieldByName('nazv').AsString:=suiedit1.text;
tsklad.FieldByName('nehvat').AsInteger:=StrToInt(suiNumberEdit5.text)-strtoint(suiNumberEdit3.text);
tsklad.Post;
Except
MessageDlg('Ошибка ввода данных!',mtInformation,[mbYes],0);
end;
ADOQuery1.Active:=false;
ADOQuery1.Active:=true;
end;
Процедура заполнения формы товара при выборе записи
procedure TForm1.suiDBGrid3CellClick(Column: TColumn);
begin
suiMaskEdit3.text:=tsklad.FieldValues['kod_tovar'];
suiNumberEdit4.text:=tsklad.FieldValues['cost'];
suiNumberEdit3.text:=tsklad.FieldValues['treb'];
suiNumberEdit5.text:=tsklad.FieldValues['kol'];
suiedit1.text:=tsklad.FieldValues['nazv'];
end;
Процедура добавления складской операции
procedure TForm1.suiButton1Click(Sender: TObject);
var i:integer;
begin
try
toperacii.Append;
toperacii.FieldByName('kod_tovar').AsString:=copy(suiComboBox3.text,0,4);
toperacii.FieldByName('kod_oper').AsString:=suiMaskEdit1.text;
toperacii.FieldByName('type_oper').AsString:=suiComboBox1.text;
toperacii.FieldByName('kol').AsInteger:=strtoint(suiNumberEdit1.text);
toperacii.FieldByName('data_oper').AsString:=suiMaskEdit5.text;
toperacii.Post;
Except
MessageDlg('Ошибка ввода данных!',mtInformation,[mbYes],0);
end;
if suiComboBox1.text='поступление' then
begin
tsklad.Filter:='kod_tovar='+copy(suiComboBox3.text,0,4);
tsklad.Filtered:=true;
tsklad.Edit;
tsklad.FieldValues['kol']:=tsklad.FieldValues['kol']+strtoint(suiNumberEdit1.text);
tsklad.post;
tsklad.Edit;
tsklad.FieldByName('nehvat').AsInteger:=tsklad.FieldValues['kol']-tsklad.FieldValues['treb'];
tsklad.Post;
tsklad.Filtered:=false;
end;
if suiComboBox1.text='отгрузка' then
begin
tsklad.Filter:='kod_tovar='+copy(suiComboBox3.text,0,4);
tsklad.Filtered:=true;
tsklad.Edit;
tsklad.FieldValues['kol']:=tsklad.FieldValues['kol']-strtoint(suiNumberEdit1.text);
tsklad.post;
tsklad.Edit;
tsklad.FieldByName('nehvat').AsInteger:=tsklad.FieldValues['kol']-tsklad.FieldValues['treb'];
tsklad.post;
tsklad.Filtered:=false;
end;
ADOQuery1.Active:=false;
ADOQuery1.Active:=true;
end;
Процедура редактирования складской операции
procedure TForm1.suiButton2Click(Sender: TObject);
begin
try
toperacii.Edit;
toperacii.FieldByName('kod_tovar').AsString:=copy(suiComboBox3.text,0,4);
toperacii.FieldByName('kod_oper').AsString:=suiMaskEdit1.text;
toperacii.FieldByName('type_oper').AsString:=suiComboBox1.text;
toperacii.FieldByName('kol').AsInteger:=strtoint(suiNumberEdit1.text);
toperacii.FieldByName('data_oper').AsString:=suiMaskEdit5.text;
toperacii.Post;
Except
MessageDlg('Ошибка ввода данных!',mtInformation,[mbYes],0);
end;
end;
Процедура удаления складской операции
procedure TForm1.suiButton3Click(Sender: TObject);
var i:integer;
begin
toperacii.Delete;
end;
Процедура добавления заявки на поставку товара
procedure TForm1.suiButton4Click(Sender: TObject);
begin
try
tsklad.Filtered:=false;
tsklad.Filter:='kod_tovar='+copy(suiComboBox4.text,0,4);
tsklad.Filtered:=true;
tzayv.Append;
tzayv.FieldByName('kod_tovar').AsString:=copy(suiComboBox4.text,0,4);
tzayv.FieldByName('kod_zayv').AsString:=suiMaskEdit2.text;
tzayv.FieldByName('status').AsString:=suiComboBox2.text;
tzayv.FieldByName('kol').AsInteger:=strtoint(suiNumberEdit2.text);
tzayv.FieldByName('data_podachi').AsString:=suiMaskEdit7.text;
tzayv.FieldByName('data_post').AsString:=suiMaskEdit8.text;
tzayv.FieldByName('kontragent').AsString:=suiEdit2.text;
tzayv.FieldByName('stoim').Asfloat:=strtoint(suiNumberEdit2.text)*tsklad.FieldValues['cost'];
tzayv.Post;
Except
MessageDlg('Ошибка ввода данных!',mtInformation,[mbYes],0);
end;
//tsklad.Filtered:=false;
//tsklad.Filter:='kod_tovar='+copy(suiComboBox4.text,0,4);
//tsklad.Filtered:=true;
tsklad.Edit;
tsklad.FieldValues['treb']:=tsklad.FieldValues['treb']+strtoint(suiNumberEdit2.text);
tsklad.post;
tsklad.Edit;
tsklad.FieldByName('nehvat').AsInteger:=tsklad.FieldValues['kol']-tsklad.FieldValues['treb'];
tsklad.Post;
tsklad.Filtered:=false;
ADOQuery1.Active:=false;
ADOQuery1.Active:=true;
end;
Процедура удаления заявки на поставку товара
procedure TForm1.suiButton6Click(Sender: TObject);
begin
tzayv.Delete;
end;
Процедура редактирования заявки на поставку товара
procedure TForm1.suiButton5Click(Sender: TObject);
begin
try
tzayv.edit;
tzayv.FieldByName('kod_tovar').AsString:=copy(suiComboBox4.text,0,4);
tzayv.FieldByName('kod_zayv').AsString:=suiMaskEdit2.text;
tzayv.FieldByName('status').AsString:=suiComboBox2.text;
tzayv.FieldByName('kol').AsInteger:=strtoint(suiNumberEdit2.text);
tzayv.FieldByName('data_podachi').AsString:=suiMaskEdit7.text;
tzayv.FieldByName('data_post').AsString:=suiMaskEdit8.text;
tzayv.FieldByName('kontragent').AsString:=suiEdit2.text;
tzayv.Post;
Except
MessageDlg('Ошибка ввода данных!',mtInformation,[mbYes],0);
end;
end;
Процедура заполнения формы заявки после выбора из списка
procedure TForm1.suiDBGrid2CellClick(Column: TColumn);
begin
suiComboBox3.text:=tzayv.Fieldvalues['kod_tovar'];
suiMaskEdit2.text:=tzayv.Fieldvalues['kod_zayv'];
suiComboBox2.text:=tzayv.Fieldvalues['status'];
suiNumberEdit2.text:=inttostr(tzayv.Fieldvalues['kol']);
suiMaskEdit7.text:=tzayv.Fieldvalues['data_podachi'];
suiMaskEdit8.text:=tzayv.Fieldvalues['data_post'];
suiEdit2.text:=tzayv.Fieldvalues['kontragent'];
end;
Процедура обновления списков после запуска программы
procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
fl1:=false;
fl2:=false;
fl3:=false;
fl4:=false;
suiPageControl1.ActivePageIndex:=0;
tsklad.First;
for i:=0 to tsklad.RecordCount-1 do
begin
suiComboBox3.Items.Add(tsklad.FieldValues['kod_tovar']+' '+tsklad.FieldValues['nazv']);
suiComboBox4.Items.Add(tsklad.FieldValues['kod_tovar']+' '+tsklad.FieldValues['nazv']);
tsklad.Edit;
tsklad.FieldByName('nehvat').AsInteger:=tsklad.FieldValues['kol']-tsklad.FieldValues['treb'];
tsklad.Post;
tsklad.Next;
end;
ADOQuery1.Active:=false;
ADOQuery1.Active:=true;
end;
Процедура заполнения формы складской операции после выбора из списка
procedure TForm1.suiDBGrid1CellClick(Column: TColumn);
begin
suiComboBox3.text:=toperacii.FieldValues['kod_tovar'];
suiMaskEdit1.text:=toperacii.FieldValues['kod_oper'];
suiComboBox1.text:=toperacii.FieldValues['type_oper'];
suiNumberEdit1.text:=inttostr(toperacii.FieldValues['kol']);
suiMaskEdit5.text:=toperacii.FieldValues['data_oper'];
end;
Процедура изменения статуса заявки на «выполнена»
procedure TForm1.suiButton10Click(Sender: TObject);
begin
tzayv.edit;
tzayv.FieldByName('status').AsString:='выполнена';
tzayv.Post;
tsklad.Filter:='kod_tovar='+tzayv.FieldValues['kod_tovar'];
tsklad.Filtered:=true;
tsklad.Edit;
tsklad.FieldValues['treb']:=tsklad.FieldValues['treb']-tzayv.FieldValues['kol'];
tsklad.post;
tsklad.Filtered:=false;
// ADOTable1.Refresh;
end;
Процедура фильтрации складских операций по дате
procedure TForm1.suiButton11Click(Sender: TObject);
begin
if fl1=false then
if suiMaskEdit5.Text='__.__.__' then MessageDlg('Введите дату операции!',mtInformation,[mbYes],0)
else
begin
toperacii.Filter:='data_oper='+suiMaskEdit5.Text;
toperacii.Filtered:=true;
fl1:=true;
suiButton11.Caption:='Снять фильтр';
end
else
begin
fl1:=false;
suiButton11.Caption:='Фильтр по дате';
toperacii.Filtered:=false;
end;
end;
Процедура фильтрации складских операций по наименованию товара
procedure TForm1.suiButton12Click(Sender: TObject);
begin
if fl2=false then
if suiComboBox3.Text='' then MessageDlg('Выберите наименование товара!',mtInformation,[mbYes],0)
else
begin
toperacii.Filter:='kod_tovar='+copy(suiComboBox3.Text,0,4);
toperacii.Filtered:=true;
fl2:=true;
suiButton12.Caption:='Снять фильтр';
end
else
begin
fl2:=false;
suiButton12.Caption:='Фильтр по наименованию';
toperacii.Filtered:=false;
end;
end;
Процедура фильтрации заявок по наименованию товара
procedure TForm1.suiButton14Click(Sender: TObject);
begin
if fl3=false then
if suiComboBox4.Text='' then MessageDlg('Выберите наименование товара!',mtInformation,[mbYes],0)
else
begin
tzayv.Filter:='kod_tovar='+copy(suiComboBox4.Text,0,4);
tzayv.Filtered:=true;
fl3:=true;
suiButton14.Caption:='Снять фильтр';
end
else
begin
fl3:=false;
suiButton14.Caption:='Фильтр по наименованию';
tzayv.Filtered:=false;
end;
end;
Процедура фильтрации заявок по дате подачи
procedure TForm1.suiButton13Click(Sender: TObject);
begin
if fl4=false then
if suiMaskEdit7.Text='__.__.__' then MessageDlg('Введите дату подачи заявок!',mtInformation,[mbYes],0)
else
begin
tzayv.Filter:='data_podachi='+suiMaskEdit7.Text;
tzayv.Filtered:=true;
fl4:=true;
suiButton13.Caption:='Снять фильтр';
end
else
begin
fl4:=false;
suiButton13.Caption:='Фильтр по дате';
tzayv.Filtered:=false;
end;
end;
end.
45