begin

fmPayAdd.ShowModal;

end;

procedure TfmMain.buRazbivkaClick(Sender: TObject);

begin

fmRazbivka.dpPayDate.Date:=Date;

fmRazbivka.ShowModal;

end;

procedure TfmMain.FormActivate(Sender: TObject);

begin

Report:=0;

end;

procedure TfmMain.edSumChange(Sender: TObject);

begin

LED.Caption:=SumToStrL(edSum.Value,13);

end;

procedure TfmMain.buF6Click(Sender: TObject);

begin

ARM_Exit;

end;

procedure TfmMain.buPrintClick(Sender: TObject);

begin

if MessageDlg('Выполнить операцию?', mtConfirmation, [mbYes,mbNo], 0)=mrYes

then begin (* Выполнить операцию <ДА> *)

if edSum.Value<>0

then begin (* edSum.Value<>0 *)

GuStr:=edGu.Text;

LsoStr:=edLso.Text;

SummaCurr:=edSum.Value;

buPrint.Visible:=False;

buReset.Visible:=False;

laMessage.Visible:=True;

if PayType[vDepartment].DocType=1 (* Бланк *)

then begin

MoneyCurr:=edMoney.Value-PayPercent;

Try

if not FRMode(13)

then OpenStandardFPD; // Открыть стандартный ФПД <OpenFPD>

Finally

Try

if QOO=0

then RegStandardFPD; // Регистрация покупки в стандартном ФПД <RegFPD>

Finally

Try

if QOO>0

then CloseStandardFPD; // Закрыть стандартный ФПД <CloseFPD>

Finally

T300.Enabled:=True;

End

end

End;

end;

if PayType[vDepartment].DocType=2 (* Чек *)

then begin

MoneyCurr:=edMoney.Value;

Try // Открыть чек

Sale; // Открыть чек

Finally

if PayType[vDepartment].Percent<>0 then

begin

vDepartment:=16;

Sale;

end;

Try // Закрыть чек

if QOO>0

then CloseCheck; // Закрыть чек

Finally

laMessage.Visible:=False;

end // Закрыть чек

end; // Открыть чек

end; (* Чек *)

end; (* edSum.Value<>0 *)

end; // *** Выполнить операцию <ДА> *** //

end;

procedure TfmMain.Resetprotector1Click(Sender: TObject);

begin

mxProtector.Reset;

fmProtector.mxProtector1.Reset;

MessageDlg( 'У Вас есть еще 50 запусков!', mtInformation, [ mbOK ], 0 );

end;

procedure TfmMain.buOkClick(Sender: TObject);

begin

if PayType[vDepartment].Percent<>0

then if MessageDlg('ОТБИТЬ ЧЕК КАССОВОГО СБОРА?', mtConfirmation, [mbYes,mbNo], 0)=mrYes

then

Try

vDepartment:=16;

Sale;

Finally

Try

if QOO>0

then CloseCheck; // Закрыть чек

Finally

laMessage.Visible:=False;

vDepartment:=StrToInt(Copy(kcPayDep.Text,1,1));

end;

end;

if (PayType[vDepartment].DocType=2) and (PayType[vDepartment].Percent=0) and (PayType[vDepartment].ChDbl=True)

then if MessageDlg('ОТБИТЬ ДУБЛЕКАТ ЧЕКА?', mtConfirmation, [mbYes,mbNo], 0)=mrYes

then RepeatDocument;

SaveToReport; // Запись в файл

ClearField;

end;

procedure TfmMain.T300Timer(Sender: TObject);

begin

if FRMode(15)

then begin

T300.Enabled:=False;

fmMain.laMessage.Visible:=False;

PrintStandardFPD; // Печать ФПД

buOk.Visible:=True;

buOk.SetFocus;

end

else T300.Enabled:=True;

end;

procedure TfmMain.SpeedButton2Click(Sender: TObject);

begin

PrintStandardFPD;

end;

procedure TfmMain.buF8Click(Sender: TObject);

begin

if ComPort.Connected then

ComPort.Close

else

ComPort.Open;

end;

procedure TfmMain.SpeedButton1Click(Sender: TObject);

begin

GuStr:=edGu.Text;

LsoStr:=edLso.Text;

SummaCurr:=edSum.Value;

MoneyCurr:=edMoney.Value-PayPercent;

SaveToReport;

end;

procedure TfmMain.kcPayDepChange(Sender: TObject);

begin

DepartmentChange;

end;

procedure TfmMain.kcPayDepExit(Sender: TObject);

begin

DepartmentChange;

end;

procedure TfmMain.ComPortRxChar(Sender: TObject; Count: Integer);

var

Str, SS: String;

CurPos : Integer;

begin

ComPort.ReadStr(Str, Count);

CurPos := Pos( FTermChar ,Str);

if CurPos = 0

then begin

FTempStr := FTempStr + Str;

end

else begin

FTempStr := FTempStr + Copy( Str, 1, CurPos-1);

ScStr:=ScStr+FTempStr;

SS:=Copy(ScStr,1,3);

if (SS=']C1') /// Оплата за ЖКУ

then begin

PostingToField(1);

end;

if (SS='PD4') /// Оплата за эл.энергию

then begin

PostingToField(2);

end;

FTempStr := '';

ScStr:='';

end;

end;

procedure TfmMain.ComPortAfterClose(Sender: TObject);

begin

if buF8 <> nil then

buF8.Caption := 'F8-Вкл. сканер';

end;

procedure TfmMain.ComPortAfterOpen(Sender: TObject);

begin

buF8.Caption := 'F8-Выкл. сканер';

end;

procedure TfmMain.buExitClick(Sender: TObject);

begin

AppExit;

end;

procedure TfmMain.buAccessOKClick(Sender: TObject);

var

i: Word;

begin

PasswOK:=0;

CurrentUser:=cbUsers.Text;

CurrentPassw:=edPassword.Text;

if CurrentUser = Admin

then begin //1

CurrentUserNo:=0;

if (CurrentPassw=AdminPassw) and (CurrentPassw=AdminPassw)

then PasswOK:=2;

end //1

else begin //0

For i:=1 to MaxNumUser do begin //(1)

ECR.Password:=StrToInt(AdminPassw);

ECR.TableNumber:=2;

ECR.RowNumber:=i;

ECR.FieldNumber:=2;

If ECR.ReadTable=0 then

if CurrentUser=ECR.ValueOfFieldString then begin //(2)

CurrentUserNo:=i;

PasswOK:=1;

Break;

end; //2

End;//(1)

If (CurrentUserNo<>0) and (PasswOK=1) then begin //1

ECR.Password:=StrToInt(AdminPassw);

ECR.TableNumber:=2;

ECR.RowNumber:=CurrentUserNo;

ECR.FieldNumber:=1;

If ECR.ReadTable=0 then begin //2

if CurrentPassw=ECR.ValueOfFieldInteger

then PasswOK:=2

else PasswOK:=0;

End; //2

End; //1

end; //0

if (PasswOK=2)

then begin

cbUsers.Text:='';

edPassword.Text:='';

fmMain.gsUser.Caption:=CurrentUser;

WinShowing;

end

else begin

MessageDlg('Отказ в доступе!', mtWarning, [mbOk], 0);

CountAccess:=CountAccess+1;

CurrentUser:='';

edPassword.Text:='';

cbUsers.SetFocus

end;

if CountAccess > 3

then AppExit;

end;

end.

ПРИЛОЖЕНИЯ Б

Характеристики существующих программных продуктов.

1) 1С Розница 2.0

Сайт: http://www.v8.1c.ru/retail/

Примерная цена: 10800 р.

Архитектура: Файл/клиент-сервер (трехзвенная архитектура клиент сервер, сервер локально, сервер СУБД тоже локально + 42000. к цене)

Интеграционные возможности: Обмен через FTP/файл/почту с отслеживанием изменений

Возможности разработки: Обширные.

Возможности администрирования: локальная настройка

Достоинства:

- Всё что угодно можно доработать

- Штатная интеграция с типовыми решениями от 1С

- Большое число франчайзинга для поддержки

Недостатки:

- Традиционные для 1С проблемы с обновлениями (как конфигурации так и платформы)

- В файл-серверном варианте проблемы стабильности, и фоновый обмен практически не возможен

- Если учитывать клиент-сервер получается достаточно дорого

2) Сервис+ УКМ 4.0

Сайт: http://www.servplus.ru/trade/supermag/ukm/

Архитектура: Клиент-сервер распределенная. Сервера могут быть связаны между собой. Может быть единый сервер. При потери связи работает без сервера локально. При восстановлении связи синхронизируется.

Интеграционные возможности: Автоматический обмен файлами по настройкам (конвертеры).

Возможности разработки: возможность создавать скрипты, вызываемые вручную на языке Lua (тип javascript для Linux)

Возможности администрирования: Удаленное централизованное администрирование через удобный web интерфейс

Примерная цена: Дорого - плата за проект.

Достоинства:

- Правильное и красивое архитектурное решение совмещающее локальную и централизованную работу.

- Распространена в супермаркетах продуктов питания

- На клиентских местах не требовательна к аппаратному обеспечению

Недостатки:

- Интерфейс кассира (см. скриншот)

- Не коробочное решение «Установить вы сами не сможете»

3) ШТРИХ-М РМК 6

Сайт: http://www.shtrih-m.ru/modules.php?name=Pages&pa=showpage&cid=711

Архитектура: Файловая.

Интеграционные возможности: Обмен через ftp и сетевые каталоги при появлении файлов

Возможности разработки: нет

Возможности администрирования: локальные, ограниченные.

Примерная цена: 7600

Достоинства:

- Поставляется как «коробочное решение» вместе с POS-терминалами Штрих-М.

Недостатки:

- Особых нет, как и плюсов… Весьма посредственная система.

4) ККС АРМ Кассира 3.0

Сайт: http://www.ccrs.ru/solutions/shops/ARM3.php

Архитектура: Клиент-Сервер

Интеграционные возможности: Обмен через файл, почту, FTP

Возможности разработки: нет

Возможности администрирования: нет

Примерная цена: 8100

Достоинства:

- Дешевый клиент-сервер СУБД MySQL

Недостатки:

- Функциональных возможностей практически нет, даже примитивного расчета скидок

- Интуитивно непонятный интерфейс, даже с опытом трудно разобраться

- написана на java - требовательна к ресурсам, долгий запуск

5) АТОЛ Фронтол 4.x

Сайт: http://www.atol.ru/products/programs/front-office/frontol-32/

Архитектура: Файловая/клиент-сервер/распределенная. Есть специальная служба отвечающая за синхронизацию систем как со стороны «дочерней» так и со стороны «основной» системы. Можно строить архитектуру «деревьев», гибкие настройки синхронизации

Интеграционные возможности: файл, ftp, e-mail с возможностью обмена только изменениями и гибкой настройкой

Возможности разработки: Возможно добавлять скрипты на javascript привязанные к событиям внутри системы.

Возможности администрирования: Обширные. Гибкие настройки. Возможность централизованного администрирования.

Примерная цена: 14500 + 15000 (синхросервер)

Достоинства:

-Хорошая архитектура системы. Возможность построения распределенной архитектуры с online синхронизацией

- Удобный интерфейс (для POS в частности)

- Много функциональных возможностей (практически всё в программе настраивается, вплоть до формул расчета скидок)

- Возможность доработки на javascript - язык простой и известный, скрипты привязываются к событиям.

- Решение может поставляться как «коробка» с POS терминалами от АТОЛ

- Отслеживание изменений, синхронизация через службу

- Собственная техподдержка, большая сеть партнёров

- Интеграция с 1С

Недостатки:

- Учитывая то что синхросервер приобретать нужно отдельно получается уже существенно дороже аналогов

6) Версия Т АРМ Кассира

Сайт: http://www.vtsoft.ru/catalog/soft/detail.php?ID=1084

Архитектура: Файловая

Интеграционные возможности: Только обмен через файлы и только csv и dbf, но с возможностью настройки полей

Возможности разработки: нет

Возможности администрирования: локальные, ограниченные

Примерная цена: 7400

Достоинства:

- Коробочная поставка

Недостатки:

- Интерфейс с меню никак не похож на интерфейс фронт-офисной системы

- Небольшие интеграционные возможности

- Мало возможностей настройки

- Небольшой список поддерживаемого оборудования

ОТЗЫВ

Руководителя дипломного проекта Ф, И. О. на проект студента Ф.И.О. факультета автоматизации технологических процессов Воронежского государственного университета инженерных технологий.

На тему «Проектирование автоматизированного рабочего места кассира-операциониста для ООО“Расчётно - кассовый центр”»

Состав проекта: 117 листов формата A4

а) графическая часть 12 формат А4

1. Тема, цель и задачи дипломного проектирования (2 листа)

2. Схема архитектуры информационной системы ООО «РКЦ» до и после автоматизации

3. Диаграммы прецедентов предметной области

4. Процесс приема платежей с точки зрения плательщика коммунальных платежей в BPMN (Business Process Modeling Notation) нотации

5. Процесс приема платежей с точки зрения кассира-операциониста в BPMN нотации

6. Схема обмена данными между АРМом кассира и информационно-расчетной системой «ИНКОМУС Квартиросъемщик»

7. Функциональная структура АРМ «Кассир»

8. Экранные формы АРМ «Кассир» (2 листа)

9. Отчеты и электронные реестры

б) аналитическая часть на 22 страницах, содержащая следующие разделы:

1. Технико-экономическая характеристика предметной области

2. Характеристика предприятия

3. Характеристика подразделения

4. Обоснование необходимости использования вычислительной техники

5. Постановка задачи

6. Анализ существующих разработок и обоснование выбора

в) Проектная часть на 24 страницах, содержащая следующие разделы:

1. Информационное обеспечение задачи

2. Программное обеспечение задачи

3. Общие положения

4. Разработка экранных форм

5. Структурная схема пакета

6. Технологическое обеспечение задачи

7. Организация обеспечения задачи

8. Схема технологического процесса сбора, передачи, обработки и выдачи информации

2. Характеристика проекта

Тема дипломной работы относится к проблеме автоматизации сбора платежей с населения за ЖКУ и прочие услуги.

Для решения поставленной задачи процесс приема платежей рассмотрен как система массового обслуживания, построен бизнес процесс с использованием BPMN нотации для определения «узких мест» предметной области.

В данной работе дипломником проанализированы: деятельность предприятия, предметная область, рынок существующих разработок. Спроектирована структура АРМ кассира-операциониста. Разработан алгоритм функционирования АРМ кассира-операциониста и механизм обмена данными с существующей информационной системой.

Разработано программное и информационное обеспечение компонент автоматизированного рабочего места, основными объектами которого являются модули, написанные с использованием инструмента быстрой разработки Delphi 7.0 на языке Object Pascal.

Графическая часть дипломной работы выполнена технически грамотно в соответствии с требованиями ЕСКД. Пояснительная записка работы составлена в достаточном объеме и полностью соответствует своему назначению.

В процессе дипломного проектирования Курышев Е.В. проявил себя трудолюбивым, исполнительным, добросовестным, специалистом, владеющим средствами программирования в среде Delphi 7.0, способным решать сложные технические задачи.

3. Оценка дипломного проекта:

______________________________________________________________________________________________________________________________

Руководитель: ________________

" _ " 2013 г.

РЕЦЕНЗИЯ

Ф. И. О. на выпускную квалификационную работу

Тема квалификационной работы «Проектирование автоматизированного рабочего места для ООО «Расчетно-кассовый центр»

На рецензию была представлена выпускная квалификационная работа в следующем объеме: пояснительная записка 105 листов, графическая часть 12 листов.

Общее заключение рецензента на выпускную квалификационную работу.

Квалификационная работа Ф. И. О.. «Проектирование автоматизированного рабочего места для ООО «Расчетно-кассовый центр» носит прикладной характер, может быть использована в работе различных предприятий, осуществляющих сбор платежей за ЖКУ и прочие услуги с населения. Работа оптимизирует сбор платежей, что позволит максимально увеличить скорость приема платежей при этом, исключив ошибки связанные с «человеческим фактором», а также формирования выходной документации в виде электронных реестров установленного образца.

Деятельность отдельных людей, групп, коллективов и организаций зависит от их информированности и способности эффективно использовать имеющуюся информацию для принятия решений. Прежде чем предпринять какие-то действия необходимо провести большую работу по сбору и переработке информации, ее осмыслению и анализу. Современные сферы деятельности все больше нуждаются в соответствующем информационном обслуживании. Необходима разработка автоматизированных рабочих мест для предприятий в сфере жилищно-коммунальных услуг.

В процессе обучения в университете и подготовки квалификационной работы студент Ф. И. О. изучил задачу кассира-операциониста применительно к приему платежей с населения, методы ее решения. Создал базу данных для автоматизации. Разработал программное обеспечение АРМ «Кассир», и внедрил его на предприятии ООО «Расчетно-кассовый центр. Выпускная квалификационная работа заслуживает внимания и положительной оценки.

Рецензент

Начальник отдела АСУП ООО «Расчетно-кассовый центр»,

_________ ___________ Ф. И. О..

дата подпись

Размещено на Allbest.ru