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

При проектировании новых зданий Вычислительного центра необходимо соблюдать мероприятия пожарной профилактики, где изложены требования к огнестойкости зданий противопожарным преградам, эвакуации людей. Учитывая высокую стоимость электронного оборудования, все помещения, где расположена вычислительная техника, проектируют I и II степенью огнестойкости.

Таблица 4.5 -- Характеристика пожароопасных свойств веществ

Из таблицы 4.5 видно, что горючие материалы -- твердые вещества. Это позволяет отнести потенциальный пожар в помещении вычислительного центра к классу А, основные характеристики которого представлены в таблице 4.6.

Таблица 4.6 -- Характеристики пожара класса А

Для предотвращения пожара необходимы следующие меры:

а) предотвращение образования горючей среды;

б) предотвращение образования в горючей среде источников зажигания;

в) поддержание температуры и давления горючей среды ниже максимально допустимых по горючести;

г) уменьшение определяющего размера горючей среды ниже максимально допустимого по горючести.

Противопожарную защиту обеспечивают следующие меры:

а) максимально возможное применение негорючих и трудно горючих веществ и материалов вместо материалов пожароопасных;

б) ограничение количества горючих веществ и их надлежащее размещение;

в) изоляция горючей среды;

г) предотвращение распространения пожара за пределы очага;

д) применение средств пожаротушения;

е) применение конструкций объектов с регламентированным пределом огнестойкости и горючестью;

ж) эвакуация людей;

з) применение средств коллективной и индивидуальной защиты;

и) применение средств пожарной сигнализации и средств извещения о пожаре;

к) организация пожарной охраны объекта.

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

ѕ обучение рабочих и служащих правилам пожарной безопасности;

ѕ разработка и реализация норм и правил пожарной безопасности, инструкций о порядке работы с пожароопасными веществами и материалами;

ѕ изготовление и применение средств наглядной агитации по обеспечению пожарной безопасности.

Важной мерой по обеспечению пожарной безопасности является организация пожарной охраны объекта, предусматривающая профилактическое и оперативное обслуживание охраняемых объектов.

При возникновении аварийной ситуации пользователь ЭВМ обязан:

1) во всех случаях обнаружения обрыва проводов питания, неисправности заземления и других повреждений электрооборудования, появления запаха гари немедленно отключить питание и сообщить об аварийной ситуации дежурному инженеру-электронщику;

2) при обнаружении человека, попавшего под напряжение, немедленно освободить его от действия тока путем отключения электропитания и до прибытия врача оказать потерпевшему первую медицинскую помощь;

3) при любых случаях сбоя в работе технического оборудования или программного обеспечения немедленно вызвать инженера электронщика;

4) в случае рези в глазах, резком ухудшении видимости -- невозможности усиления сердцебиения -- немедленно покинуть рабочее место, сообщить о происшедшем руководителю работ и обратиться к врачу;

5) при возгорании оборудования отключить питание и принять меры к тушению очага пожара при помощи углекислотного или порошкового огнетушителя, вызвать пожарную команду и сообщить о происшествии руководителю работ.

ЗАКЛЮЧЕНИЕ

В ходе разработки выпускной квалификационной работы рассмотрена проблема автоматизации рабочего места кассира-операциониста в ООО «Расчетно-кассовый центр».

При рассмотрении данной проблемы были выполнены следующие операции:

1) изучена деятельность предприятия, проанализирована предметная область, проанализирован рынок существующих разработок;

2) спроектирована структура АРМ кассира-операциониста;

3) разработан алгоритм функционирования АРМ кассира-операциониста;

4) разработан механизм обмена данными АРМ кассира-операциониста с существующей информационной системой;

5) разработаны программные модули АРМ кассира-операциониста.

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

Также дано описание машинной реализации комплекса задач, включающей в себя схемы:

1) взаимосвязей программных модулей и информационных файлов;

2) схему работы подсистем.

Разработанная подсистема помимо выполнения основной поставленной цели позволяет также:

1) облегчить работу не только кассира-операциониста, но и всего предприятия в целом;

2) повысит производительность труда;

3) информация станет более доступной;

4) снизится вероятность появления ошибок в отчетности.

Данный АРМ можно внедрять в любом предприятии, занимающемся сбором платежей с населения, которое подходит под требования рассмотренного технического и программного обеспечения.

Усовершенствование может происходить:

1) при добавлении других типов оплаты;

2) при выполнении сбора платежей для сторонних поставщиков услуг населению.

СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ

1. Архангельский А.Я. Программирование в Delphi 2005 / А.Я. Архангельский. - М.: Бином-Пресс, 2006. - 1152 c. - ISBN 5-9518-0042-0.

2. Бакнелл Д.М. Фундаментальные алгоритмы и структуры данных в Delphi. - СПб.: «ДиаСофтЮП», 2003. - 560 с.

3. Боровский А.Н. Программирование в Delphi 2005. - СПб.: БХВ-Петербург, 2005. - 448 с.: ил.

4. Бобровский С.И. Delphi 7. Учебный курс - СПб.: Питер, 2005. - 736 с.: ил.

5. Голицына О.Л., Максимов Н.В., Попов И.И. "Базы данных", М.: ФОРУМ: ИНФРА-М, 2007.

6. Дейт К.Дж. Введение в системы баз данных. - К.; М.; СПб.: Издательский дом "Вильямс", 1999. - 848 с.

7. Епанешников А., Епанешников В. Программирование в среде Turbo Pascal 7.0. - 3-е изд., стер. - М.: ДИАЛОГ-МИФИ, 1995. - 288 с.

8. Конноли Т., Бегг К., Страган А. Базы данных: проектирование, реализация и сопровождение. Теория и практика. - М.: Издательский дом "Вильямс", 2000. - 1120 с.

9. Липаев В.В. Системное проектирование сложных программных средств для информационных систем. - М.: СИНТЕГ, 1999. - 142.

10. Мамиконов А.Г., Кульба В.В., Косяченко С.А., Ужастов И.А. "Оптимизация структур распределенных баз данных.", М., "Наука", 1990.

11. Мейер Д. "Теория реляционных баз данных", М., "Мир", 1987.

12. Орлов С.А. Технологии разработки программного обеспечения. - СПб.: Питер, 2007. - 464 с.

13. Пестриков В.М., Маслобоев А.Н. Delphi на примерах. - СПб.: БХВ-Петербург, 2005. - 496 с.: ил.

14. Рапаков Г.Г., Ржеуцкая С.Ю. Turbo Pascal для студентов и школьников. - СПб.: БХВ-Петербург, 2002. - 352 с.: ил.

15. Сухарев М.В. Основы Delphi. Профессиональный подход - СПб.: Наука и Техника, 2004. - 600 с.: ил.

16. Шаймарданов Р.Б. "Моделирование и автоматизация проектирования структур БД.", М., "Радио и связь", 2005г.

17. Проектирование пользовательского интерфейса на персональных компьютерах. Стандарт фирмы IBM.- М.: Издательство "Лев", 2006. - 186 с.

18. Интернет ресурс http://www.delphimaster.ru/

19. Интернет ресурс http://www.delphikingdom.com/index.asp

20. Интернет ресурс http://www.delphisite.ru/

21. Мейер Д. "Теория реляционных баз данных", М., "Мир", 2006.

22. Орлов С.А. Технологии разработки программного обеспечения. - СПб.: Питер, 2007. - 464 с.

23. Пестриков В.М., Маслобоев А.Н. Delphi на примерах. - СПб.: БХВ-Петербург, 2005. - 496 с.: ил.

24. Рапаков Г.Г., Ржеуцкая С.Ю. Turbo Pascal для студентов и школьников. - СПб.: БХВ-Петербург, 2002. - 352 с.: ил.

25. Сухарев М.В. Основы Delphi. Профессиональный подход - СПб.: Наука и Техника, 2004. - 600 с.: ил.

26. Шаймарданов Р.Б. "Моделирование и автоматизация проектирования структур БД.", М., "Радио и связь", 2005г.

27. Проектирование пользовательского интерфейса на персональных компьютерах. Стандарт фирмы IBM.- М.: Издательство "Лев", 2006. - 186 с.

28. Интернет ресурс http://www.delphimaster.ru/

29. Интернет ресурс http://www.delphikingdom.com/index.asp

30. Интернет ресурс http://www.delphisite.ru/

ПРИЛОЖЕНИЯ А

Листинг главного модуля АРМ «Кассир»

unit MainForm;

procedure TfmMain.Reports;

begin

if BtnYes=True

then begin

Case Report of

1:begin

EnableButtons(False);

Try

ECR.Password:=StrToInt(AdminPassw);

if ECR.PrintReportWithoutCleaning=0 Then

else fmMain.paResultCode.Caption:=IntToStr(ECR.resultCode)+': '+ECR.ResultCodeDescription;

Finally

EnableButtons(True);

End;

end;

2:begin

EnableButtons(False);

Try

ECR.Password:=StrToInt(AdminPassw);

if ECR.PrintReportWithCleaning=0 Then fmPayAdd.ShowModal

else fmMain.paResultCode.Caption:=IntToStr(ECR.resultCode)+': '+ECR.ResultCodeDescription;

Finally

EnableButtons(True);

End;

end;

end;

end;

end;

procedure TfmMain.WinShowing;

begin

if PasswOK<2

then begin

nbMain.ActivePage:='Login';

end;

if PasswOK=2

then begin

nbMain.ActivePage:='Work';

if CurrentUser=Admin

then begin

cbZero.Visible:=True;

cbZero.Checked:=True;

buF2.Enabled:=True;

buF3.Enabled:=True;

buF4.Enabled:=True;

buF5.Enabled:=True;

buF6.Enabled:=True;

paHotKey.Visible:=True;

kcPayDep.SetFocus;

end

else begin

paHotKey.Visible:=True;

kcPayDep.SetFocus;

end;

end;

end;

procedure TfmMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin

fmOnExit.ShowModal;

if Report<>0

then begin

fmMess.ShowModal;

end

else begin

CanClose:=False;

end;

Reports;

end;

procedure TfmMain.FormClose(Sender: TObject; var Action: TCloseAction);

begin

if Report<>0 then AppExit;

end;

procedure TfmMain.buF9Click(Sender: TObject);

begin

Report:=1;

fmMess.ShowModal;

if BtnYes=True

then begin

// Комманда X-отчет

Reports;

end;

end;

procedure TfmMain.buF10Click(Sender: TObject);

begin

Report:=2;

fmMess.ShowModal;

if BtnYes=True

then begin

// Комманда Z-отчет

Reports;

end;

end;

procedure TfmMain.buF2Click(Sender: TObject);

Var n:Integer;

begin

EnableButtons(False);

Try

ECR.Password:=StrToInt(CurrentPassw);

ECR.ShowProperties;

For n:=0 to ComboBox1.Items.Count-1 Do

If ECR.ComNumber=StrToInt(copy(ComboBox1.Items[n],4,255)) Then Begin

ComboBox1.ItemIndex:=n;

Break;

End;

ComboBox2.ItemIndex:=ECR.Baudrate;

SpinEdit1.Value:=ECR.Timeout;

case Integer(ECR.UModel) of

0: Size:=36;

1: Size:=40;

2: Size:=24;

3: Size:=20;

4: Size:=36;

else Size:=40;

end;

Finally

EnableButtons(True);

End;

end;

procedure TfmMain.FormCreate(Sender: TObject);

begin

Connection;

WorkDate:=Date();

Width:=800;

Height:=600;

laWorkPC.Caption:=IntToStr(WorkPC);

laDate.Caption:=DateToStr(WorkDate);

nbMain.ActivePage:='Login';

DM.ADOConnection.Connected:=True;

DM.taPayType.Filter:='org='+IntToStr(vOrg);

DM.taPayment.Filter :='PayDate = ''' + DateToStr(WorkDate) + '''';

DM.taPayment.Filtered:=True;

DM.taPayType.Active:=True;

DM.taPayment.Active:=True;

DM.quDOLG_m.Active:=True;

cbPayTypeFilter.DropDownBox.Rows:=DM.taPayType.RecordCount;

ReadPayTypTable;

kcPayDep.ItemIndex:=0;

kcKvitType.ItemIndex:=0;

Caption := Caption + ' ' + GetFileVersionInfoStr;

DepartmentChange;

end;

procedure TfmMain.buF3Click(Sender: TObject);

begin

F3.Enabled:=False;

buF3.Enabled:=False;

Memo1.Clear;

EnableButtons(False);

Try

ECR.Password:=StrToInt(CurrentPassw);

If ECR.GetECRStatus=0 Then Begin

gsUser.Caption:=CurrentUser;

With Memo1.Lines Do Begin

Add('ПО ФР:');

Add(#9'Версия: '+ECR.ECRSoftVersion);

Add(#9'Сборка: '+IntToStr(ECR.ECRBuild));

Add(#9'Дата: '+DateToStr(ECR.ECRSoftDate));

Add('ПО ФП:');

Add(#9'Версия: '+ECR.FMSoftVersion);

Add(#9'Сборка: '+IntToStr(ECR.FMBuild));

Add(#9'Дата: '+DateToStr(ECR.FMSoftDate));

Add('Флаги ФР:<'+IntToStr(ECR.ECRFlags)+'>');

Add(#9'Рулон контрольной ленты '+ECRFlagsToStr(0));

Add(#9'Рулон чековой ленты '+ECRFlagsToStr(1));

Add(#9'Подкладной документ '+ECRFlagsToStr(2));

Add(#9'Подкладной документ проходит под датчиком '+ECRFlagsToStr(3));

Add(#9'Положение десятичной точки '+ECRFlagsToStr(4));

Add(#9'ЭКЛЗ '+ECRFlagsToStr(5));

Add(#9'Оптический датчик контр. ленты '+ECRFlagsToStr(6));

Add(#9'Оптический датчик чек. ленты '+ECRFlagsToStr(7));

Add(#9'Рычаг термоголовки контр. ленты '+ECRFlagsToStr(8));

Add(#9'Рычаг термоголовки чек. ленты '+ECRFlagsToStr(9));

Add(#9'Крышка корпуса ФР '+ECRFlagsToStr(10));

Add(#9'Отказ левого датчика принтера '+ECRFlagsToStr(11));

Add(#9'Отказ правого датчика принтера '+ECRFlagsToStr(12));

Add(#9'Денежный ящик '+ECRFlagsToStr(13));

Add(#9'ЭКЛЗ почти заполнена '+ECRFlagsToStr(14));

Add('Флаги ФП:<'+IntToStr(ECR.FMFlags)+'>');

Add(#9'ФП1 '+FMFlagsToStr(0));

Add(#9'ФП2 '+FMFlagsToStr(1));

Add(#9'Лицензия '+FMFlagsToStr(2));

Add(#9'Переполнение ФП '+FMFlagsToStr(3));

Add('Номер ККМ в зале: '+IntToStr(ECR.LogicalNumber));

Add('Номер документа: '+IntToStr(ECR.OpenDocumentNumber));

Add('Порт ФР: '+IntToStr(ECR.PortNumber));

Add('Режим ФР: '+IntToStr(ECR.ECRMode)+ ' '+ECR.ECRModeDescription);

Add('Подрежим ФР: '+IntToStr(ECR.ECRAdvancedMode)+ ' '+ECR.ECRAdvancedModeDescription);

Add('Кол-во фискализаций: '+IntToStr(ECR.RegistrationNumber));

Add('Кол-во оставшихся фискализаций: '+IntToStr(ECR.FreeRegistration));

Add('Последняя закрытая смена: '+IntToStr(ECR.SessionNumber));

Add('Свободных записей в ФП: '+IntToStr(ECR.FreeRecordInFM));

Add('Дата: '+DateToStr(ECR.Date));

Add('Время: '+TimeToStr(ECR.Time));

Add('Заводской номер: '+ECR.SerialNumber);

Add('ИНН: '+ECR.INN);

End;

End

Else

gsUser.Caption:='???';

Finally

EnableButtons(True);

End;

nbPanel.ActivePage:='STATUS';

end;

procedure TfmMain.FormShow(Sender: TObject);

var

i: Word;

ss: string;

begin

WinShowing;

cbUsers.Items.Clear;

For i:=1 to MaxNumUser do

begin

ECR.Password:=StrToInt(AdminPassw);

ECR.TableNumber:=2;

ECR.RowNumber:=i;

ECR.FieldNumber:=2;

If ECR.ReadTable=0 then begin

ss:=ECR.ValueOfFieldString;

cbUsers.Items.Add(ECR.ValueOfFieldString);

end;

end;

CountAccess:=1;

cbUsers.Text:='';

edPassword.Text:='';

cbUsers.SetFocus;

nbPanel.ActivePage:='PAY';

if mxProtector.IsRegistered=False

then begin

fmProtector.ShowModal;

Caption:='АРМ КАССИР - ДЕМО ВЕРСИЯ';

laOrgName.Caption:=Demo1;

laVersion.Caption:=Demo2;

laBuild.Caption:=Build;

end

else begin

Caption:='АРМ КАССИР';

Case vOrg of

1: laOrgName.Caption:='ООО "РАСЧЕТНО-КАССОВЫЙ ЦЕНТР"';

end;

laVersion.Caption:=Ver;

laBuild.Caption:=Build;

end;

paPokaz.Visible:=False;

edOLD1.Text:='';

edNEW1.Text:='';

edSumm1.Value:=0;

edOLD2.Text:='';

edNEW2.Text:='';

edSumm2.Value:=0;

edSum.ReadOnly:=False;

edOLD3.Text:='';

edNEW3.Text:='';

edSumm3.Value:=0;

edFIO.Text:='';

edUl.Text:='';

edNdom.Text:='';

edNkv.Text:='';

end;

function TfmMain.Payment_Locate(gu, lso : String):Boolean;

begin

DM.taPaymentFind.Filter:='IdPayType='+IntToStr(vDepartment);

DM.taPaymentFind.Active:=True;

if gu='' then

if not DM.taPaymentFind.Locate ('Lso', lso,[])

then Payment_Locate:=False

else Payment_Locate:=True

else

if not DM.taPaymentFind.Locate ('Gu;Lso', VarArrayOf([gu, lso]),[])

then Payment_Locate:=False

else Payment_Locate:=True;

end;

function TfmMain.DOLG_Locate(gu, lso: String):Boolean;

begin

if gu='' then

if not DM.quDOLG_m.Locate ('Lso', lso,[])

then DOLG_Locate:=False

else DOLG_Locate:=True

else

if not DM.quDOLG_m.Locate ('Gu;Lso', VarArrayOf([gu, lso]),[])

then DOLG_Locate:=False

else DOLG_Locate:=True;

end;

function TfmMain.Abon_Locate(lso : String):Boolean;

begin

if not DM.taAbon.Locate ('A', lso,[])

then Abon_Locate:=False

else Abon_Locate:=True;

end;

function TfmMain.CHILD_Locate(ID : String):Boolean;

begin

if not DM.taCHILD.Locate ('ID', VarArrayOf([ID]),[])

then CHILD_Locate:=False

else CHILD_Locate:=True;

end;

procedure TfmMain.buF4Click(Sender: TObject);

begin

if nbPanel.ActivePage='PAY'

then begin

nbPanel.ActivePage:='LCD';

buF4.Caption:='F4-Сбор'

end

else begin

nbPanel.ActivePage:='PAY';

buF4.Caption:='F4-Табло'

end;

F3.Enabled:=True;

buF3.Enabled:=True;

end;

procedure TfmMain.buF1Click(Sender: TObject);

begin

fmAbout.ShowModal;

end;

procedure TfmMain.edLsoChange(Sender: TObject);

begin

LED.Caption:=edLso.Text;

end;

procedure TfmMain.Key_Enter_Esc_Press(Sender: TObject; var Key: Char);

begin

Case Key of

#13: // Клавиша ENTER

begin

SelectNext(Sender as TWinControl, True, True );

Key := #0;

end;

#27: // Клавиша ESC

begin

Key := #0;

ClearField;

end;

end;

end;

procedure TfmMain.buResetClick(Sender: TObject);

begin

ClearField;

end;

procedure TfmMain.edGuExit(Sender: TObject);

begin

if not ResetKey

then begin

if Length(edGu.Text) = 0

then begin

MessageDlg('В поле "ЖЭУ" должно быть значение!', mtError, [mbOk], 0);

edGu.SetFocus;

Exit

end;

Val(edGu.Text,CurrentGu,code);

if code <> 0

then begin

MessageDlg('В поле "ЖЭУ" должно быть число!!!', mtError, [mbOk], 0);

edGu.SetFocus;

Exit

end

end;

end;

procedure TfmMain.edLsoExit(Sender: TObject);

var

s1,s2,s3 : String;

begin

if not ResetKey then

begin // *** ResetKey=False *** //

Val(edLso.Text,CurrentLso,code);

if (code <> 0) //and (vDepartment<>2)

then begin

MessageDlg('Значение поля должно быть числовым', mtError, [mbOk], 0);

edLso.Text:='';

edLso.SetFocus;

Exit

end

else if PayType[vDepartment].Base=True

then

Case PayType[vDepartment].BaseType of

//************************************************************

1:begin // *** Case 1 [BaseType=1] поиск в файле DOLG.DBF - массив квитанций выданных в этом месяце *** //

if fmMain.DOLG_Locate(edGU.Text,edLso.Text)

then begin // *** DOLG_Locate=True *** //

LsoFound:=True;

laFIO.Caption:=DM.quDOLG_mFIO.Value;

laAddress.Caption:='ул. '+DM.quDOLG_mUL.Value+

', д. '+IntToStr(DM.quDOLG_mNDOM.Value);

if DM.quDOLG_mNKORP.Value<>''

then laAddress.Caption:=laAddress.Caption+', кор. '+

Trim(DM.quDOLG_mNKORP.Value);

laAddress.Caption:=laAddress.Caption+', кв. '+IntToStr(DM.quDOLG_mNKV.Value);

edFIO.Text:=DM.quDOLG_mFIO.Value;

edUl.Text:=DM.quDOLG_mUL.Value;

if DM.quDOLG_mNKORP.Value<>''

then edNdom.Text:=IntToStr(DM.quDOLG_mNDOM.Value)+DM.quDOLG_mNKORP.Value

else edNdom.Text:=IntToStr(DM.quDOLG_mNDOM.Value);

edNkv.Text:=IntToStr(DM.quDOLG_mNKV.Value);

end // *** DOLG_Locate=True *** //

else begin // *** DOLG_Locate=False *** //

if MessageDlg('Л/счета НЕТ в текущей БАЗЕ, добавить даные плательщика?', mtConfirmation, [mbYes,mbNo], 0)=mrYes // MessageDlg ('Л/счет не существует !', mtWarning, [mbOk], 0);

then begin

LsoFound:=False;

fmAddAbonElk.ShowModal;

laFIO.Caption:=edFIO.Text;

if (edUl.Text<>'') and (edNDOM.Text<>'')

then begin

laAddress.Caption:='ул. '+edUL.Text+

', д. '+edNDOM.Text;

if edNKV.Text<>''

then laAddress.Caption:=laAddress.Caption+', кв. '+edNKV.Text;

end;

end

else edLso.SetFocus;

end; // *** DOLG_Locate=False *** //

if kcKvitType.ItemIndex<>0

then

else begin

if fmMain.ckDOLG.Checked

then //InPaySum:=fmMain.quDOLG_mSUM_S3.Value // 28.09.10

else InPaySum:=DM.quDOLG_mSUM_S7.Value; // 28.09.10

s1:='SELECT GU, LSO, H1, S1, SUM( S7 ) as SUM_S7 FROM Dolg';

if DM.quDOLG_mSUM_S7.Value<>0

then s2:=' WHERE (GU = '+edGu.Text+') AND (LSO = '+edLso.Text+') AND S7<>0'

else s2:=' WHERE (GU = '+edGu.Text+') AND (LSO = '+edLso.Text+')';

s3:=' GROUP BY GU, LSO, H1, S1 ORDER BY GU, LSO, S1;';

DM.quDOLG_p2.Active:=False;

DM.quDOLG_p2.SQL.Clear;

DM.quDOLG_p2.SQL.Add(s1+s2+s3);

DM.quDOLG_p2.ExecSQL;

DM.quDOLG_p2.Active:=True;

end;

InPaySum:=DM.quDOLG_mSUM_S7.Value;

edSum.Value:=InPaySum;

end; // *** Case 1 *** //

//************************************************************

2:begin // *** Case 2 [BaseType=2] поиск в таблице ABON.DBF - таблица абоненты ПЭСК эл.энергия *** //

if Scaner=False

then

if fmMain.Abon_Locate{(COPY(edLso.Text,4,8))} (edLso.Text)

then begin // *** Abon_Locate=True *** //

LsoFound:=True;

edFIO.Text:=DM.taAbonJ.Value;

edUl.Text:=DM.taAbonD.Value;

edNdom.Text:=DM.taAbonE.Value;

edNkv.Text:=DM.taAbonF.Value;

laFIO.Caption:=DM.taAbonJ.Value;

laAddress.Caption:='ул. '+DM.taAbonD.Value+

', д. '+DM.taAbonE.Value+

', кв. '+DM.taAbonF.Value;

edNEW1.SetFocus;

end // *** Abon_Locate=True *** //

else begin // *** Abon_Locate=False *** //

laFIO.Caption:='Абонента НЕТ в текущей БАЗЕ !!!';

laAddress.Caption:='';

edFIO.Text:='';

edUl.Text:='';

edNdom.Text:='';

edNkv.Text:='';

vStringForPrinting:=Trim(PayType[vDepartment].GuPrn+edGu.Text+' '+

Trim(PayType[vDepartment].LsoPrn)+

Trim(PayType[vDepartment].Pref)+Trim(edLso.Text));

edNEW1.SetFocus;

end; // *** Abon_Locate=False *** //

end; // *** Case 2 *** //

//************************************************************

3:begin // *** Case 3 [BaseType=3] поиск в таблице CHILD.DB - таблица учебных заведений *** //

if CHILD_Locate(edLso.Text)

then begin

LsoFound:=True;

vStringForPrinting:=Trim(PayType[vDepartment].LsoPrn)+Trim(DM.taChildLSO.Value);

laFIO.Caption:=Trim(PayType[vDepartment].LsoPrn)+Trim(DM.taChildLSO.Value);

laAddress.Caption:=DM.taChildNAME.Value;

end

else begin

laFIO.Caption:='Л/счета НЕТ в текущей БАЗЕ !!!';

edLso.SetFocus;

end;

end; // *** Case 3 *** //

//*********************************************************

4:begin // *** Case 4 [BaseType=4] *** //

Label11.Caption:=edGu.Text;

if fmMain.DOLG_Locate(edGU.Text,edLso.Text)

then begin // *** DOLG_Locate=True *** //

LsoFound:=True;

laFIO.Caption:=DM.quDOLG_mFIO.Value;

laAddress.Caption:='ул. '+DM.quDOLG_mUL.Value+

', д. '+IntToStr(DM.quDOLG_mNDOM.Value);

if DM.quDOLG_mNKORP.Value<>''

then laAddress.Caption:=laAddress.Caption+', кор. '+

Trim(DM.quDOLG_mNKORP.Value);

laAddress.Caption:=laAddress.Caption+', кв. '+IntToStr(DM.quDOLG_mNKV.Value);

edFIO.Text:=DM.quDOLG_mFIO.Value;

edUl.Text:=DM.quDOLG_mUL.Value;

if DM.quDOLG_mNKORP.Value<>''

then dNdom.Text:=IntToStr(DM.quDOLG_mNDOM.Value)+DM.quDOLG_mNKORP.Value

else edNdom.Text:=IntToStr(DM.quDOLG_mNDOM.Value);

edNkv.Text:=IntToStr(DM.quDOLG_mNKV.Value);

end // *** DOLG_Locate=True *** //

else begin // *** DOLG_Locate=False *** //

if MessageDlg('Л/счета НЕТ в текущей БАЗЕ, добавить даные плательщика?', mtConfirmation, [mbYes,mbNo], 0)=mrYes // MessageDlg ('Л/счет не существует !', mtWarning, [mbOk], 0);

then begin

LsoFound:=False;

fmAddAbonElk.ShowModal;

laFIO.Caption:=edFIO.Text;

if (edUl.Text<>'') and (edNDOM.Text<>'')

then begin

laAddress.Caption:='ул. '+edUL.Text+', д. '+edNDOM.Text;

if edUl.Text<>''

then laAddress.Caption:=laAddress.Caption+', кв. '+edNKV.Text;

end;

end

else edLso.SetFocus;

end; // *** DOLG_Locate=False *** //

end; // *** Case 4 *** //

//************************************************************

5:begin // *** Case 5 [BaseType=5] поиск в PAYMENT - прошлые платежи

if Payment_Locate(edGu.Text, edLso.Text)

then begin

LsoFound:=True;

laFIO.Caption:=DM.taPaymentFindFio.Value;

laAddress.Caption:='ул. '+DM.taPaymentFindUl.Value+

', д. '+DM.taPaymentFindNdom.Value+

', кв. '+DM.taPaymentFindNkv.Value;

end

else begin

laFIO.Caption:='Л/счет НЕ НАЙДЕН в текущей БАЗЕ !!!';

if MessageDlg('Л/счет НЕ НАЙДЕН в текущей БАЗЕ, добавить даные плательщика?', mtConfirmation, [mbYes,mbNo], 0)=mrYes // MessageDlg ('Л/счет не существует !', mtWarning, [mbOk], 0);

then begin

fmAddAbonElk.ShowModal;

laFIO.Caption:=edFIO.Text;

laAddress.Caption:='ул. '+edUL.Text+

', д. '+edNDOM.Text+

', кв. '+edNKV.Text;

end

else edLso.SetFocus;

end;

end; // Case 5 //

End; // *** Case PayType[vDepartmen].BaseType of *** //

vStringForPrinting:=Trim(PayType[vDepartment].GuPrn+edGu.Text+' '+

Trim(PayType[vDepartment].LsoPrn)+

Trim(PayType[vDepartment].Pref)+

Trim(edLso.Text));

if vDepartment>2 then

laFIO.Caption:=vStringForPrinting;

end; // *** ResetKey=False *** //

end;

procedure TfmMain.edSumExit(Sender: TObject);

begin

if not ResetKey then

begin

if edSum.Value=0

then begin

MessageDlg('Не введено значение поля "Сумма"', mtError, [mbOk], 0);

edSum.SetFocus

end;

if edSum.Value>StrToCurr(MaxSummaStr)

then begin

MessageDlg('Значение поля "Сумма" больше '+MaxSummaStr, mtError, [mbOk], 0);

edSum.SetFocus

end;

PaySum:=edSum.Value;

if PayType[vDepartment].Percent<>0 then

begin

PayPercent:=PaySum*(PayType[vDepartment].Percent/100);

edPayPercent.Caption:=FormatFloat('0.00',PayPercent);

end;

if (LsoFound=True) and (PaySum<>InPaySum) {and (InPaySum<>0)} and (vDepartment=1){(PayType[vDepartment].PayNum=1) and (kcKvitType.ItemIndex=0)} then

fmPostSum.ShowModal

else InPaySum:=PaySum;

end;

PayAll:=PaySum;

edPayAll.Caption:=FormatFloat('0.00',PayAll+PayPercent);

edMoney.Value:=PayAll+PayPercent;

end;

procedure TfmMain.edMoneyExit(Sender: TObject);

begin

if not ResetKey

then begin

if (edMoney.Value=0) or (edMoney.Value<edSum.Value)

then begin

MessageDlg('Не введено значение поля "Получено"', mtError, [mbOk], 0);

edMoney.SetFocus

end

else edDelivery.Caption:=FormatFloat('0.00',edMoney.Value-StrToFloat(edPayAll.Caption));

end;

if ((PaySum<>InPaySum) and (pSummSum=0)) and ({PayType[}vDepartment{].PayNum}=1)

then begin

MessageDlg('Сумма платежа меньше суммы к оплате, разбейте сумму по потавщикам !!!', mtError, [mbOk], 0);

edMoney.Value:=0;

edSum.SetFocus

end;

end;

procedure TfmMain.cbPayTypeFilterKeyValueChanged(Sender: TObject);

begin

UpdatePaymentFilter;

end;

procedure TfmMain.edGuChange(Sender: TObject);

begin

LED.Caption:=edGu.Text;

end;

procedure TfmMain.buF5Click(Sender: TObject);