r (ECR.ECRFlags) + gt ; ); (# 9 Рулон контрольної стрічки + ECRFlagsToStr (0)); (# 9 Рулон чекової стрічки + ECRFlagsToStr (1)); (# 9 Подкладной документ + ECRFlagsToStr (2) ); (# 9 Подкладной документ проходить під датчиком + ECRFlagsToStr (3)); (# 9 Положення десяткової точки + ECRFlagsToStr (4)); (# 9 Еклз + ECRFlagsToStr (5)); (# 9 Оптичний датчик контр. стрічки + ECRFlagsToStr (6)); (# 9 Оптичний датчик чек. стрічки + ECRFlagsToStr (7)); (# 9 Важіль термоголовки контр. стрічки + ECRFlagsToStr ( 8)); (# 9 Важіль термоголовки чек. стрічки + ECRFlagsToStr (9)); (# 9 Кришка корпусу ФР + ECRFlagsToStr (10)); (# 9 Відмова лівого датчика принтера + ECRFlagsToStr (11)); (# 9 Відмова правого датчика принтера + ECRFlagsToStr (12)); (# 9 Грошовий ящик + ECRFlagsToStr (13)); (# 9 Еклз майже заповнена + ECRFlagsToStr (14)); ( Прапори ФП: lt; raquo ; + IntToStr (ECR.FMFlags) + gt; ); (# 9 ФП1 + FMFlagsToStr (0)); (# 9 ФП2 + FMFlagsToStr (1)); (# 9 Ліцензія + FMFlagsToStr (2)); (# 9 Переповнення ФП + FMFlagsToStr (3)); ( Номер ККМ в залі: + IntToStr (ECR.LogicalNumber)); ( Номер документа: raquo ; + IntToStr (ECR.OpenDocumentNumber)); ( Порт ФР: + IntToStr (ECR.PortNumber)); ( Режим ФР: + IntToStr (ECR.ECRMode) + + ECR. ECRModeDescription); ( підріж ФР: + IntToStr (ECR.ECRAdvancedMode) + + ECR.ECRAdvancedModeDescription); ( Кількість фіскалізація: + IntToStr (ECR.RegistrationNumber)); ( laquo ; Кількість залишилися фіскалізація: + IntToStr (ECR.FreeRegistration)); ( Остання закрита зміна: + IntToStr (ECR.SessionNumber)); ( Вільних записів у ФП: + IntToStr (ECR.FreeRecordInFM)); ( Дата: + DateToStr (ECR.Date)); ( Час: + TimeToStr (ECR.Time)); ( Заводський номер: + ECR.SerialNumber) ; ( ІПН: raquo;+ECR.INN);;.Caption:=laquo;???raquo;;(True);;.ActivePage:=laquo;STATUSraquo;;;TfmMain.FormShow(Sender: TObject) ;: Word ;: string ;;. Items.Clear; i:=1 to MaxNumUser do.Password:=StrToInt (AdminPassw) ;. TableNumber:=2; .RowNumber:=i; .FieldNumber:=2; ECR.ReadTable=0 then begin:=ECR.ValueOfFieldString;.Items.Add(ECR.ValueOfFieldString);;;:=1;.Text:=laquo;raquo;;.Text:=laquo;raquo;;.SetFocus;.ActivePage:=laquo;PAYraquo;;mxProtector.IsRegistered=Falsebegin.ShowModal;:=laquo;АРМ КАССИР - ДЕМО ВЕРСІЯ raquo ;;. Caption:=Demo1; .Caption:=Demo2; .Caption:=Build; begin:= АРМ КАССИР raquo ;; vOrg of
: laOrgName.Caption:= ТОВ ??laquo; розрахунково-касове ЦЕНТРraquo;raquo;;;.Caption:=Ver;.Caption:=Build;;.Visible:=False;.Text:=laquo;raquo;;.Text:=laquo;raquo;;.Value:=0;.Text:=laquo;raquo;;.Text:=laquo;raquo;;.Value:=0;.ReadOnly:=False;.Text:=laquo;raquo;;.Text:=laquo;raquo;;.Value:=0;.Text:=laquo;raquo;;.Text:=laquo;raquo;;.Text:=laquo;raquo;;.Text:=laquo;raquo;;;TfmMain.Payment_Locate(gu, lso: String):Boolean;.taPaymentFind.Filter:=laquo;IdPayType=raquo;+IntToStr(vDepartment);.taPaymentFind.Active:=True;gu=laquo;raquo; thennot DM.taPaymentFind.Locate ( Lso raquo ;, lso, []) Payment_Locate:=FalsePayment_Locate:=Truenot DM.taPaymentFind.Locate ( Gu; Lso raquo ;, VarArrayOf ([gu, lso]), []) Payment_Locate :=FalsePayment_Locate:=True ;; TfmMain.DOLG_Locate (gu, lso: String): Boolean; gu= thennot DM.quDOLG_m.Locate ( Lso raquo ;, lso, []) DOLG_Locate:=FalseDOLG_Locate:=Truenot DM.quDOLG_m.Locate ( Gu; Lso raquo ;, VarArrayOf ([gu, lso]), []) DOLG_Locate :=FalseDOLG_Locate:=True ;; TfmMain.Abon_Locate (lso: String): Boolean; not DM.taAbon.Locate ( A raquo ;, lso, []) Abon_Locate:=FalseAbon_Locate:=True ;; TfmMain.CHILD_Locate (ID:String): Boolean; not DM.taCHILD.Locate ( ID raquo ;, VarArrayOf ([ID]), []) CHILD_Locate:=FalseCHILD_Locate:=True ;; TfmMain.buF4Click (Sender: TObject);nbPanel.ActivePage=laquo;PAYraquo;begin.ActivePage:=laquo;LCDraquo;;.Caption:=laquo;F4-Сборraquo;begin.ActivePage:=laquo;PAYraquo;;.Caption:=laquo;F4-Таблоraquo;;.Enabled:=True;.Enabled:=True;;TfmMain.buF1Click(Sender: TObject) ;. ShowModal ;; TfmMain.edLsoChange (Sender: TObject) ;. Caption:=edLso.Text ;; TfmMain.Key_Enter_Esc_Press (Sender: TObject; var Key: Char); Key of
# 13://Клавіша ENTER (Sender as TWinControl, True, True);:=# 0 ;;
# 27://Клавіша ESC:=# 0 ;;;;; TfmMain.buResetClick (Sender: TObject) ;;; TfmMain.edGuExit (Sender: TObject); not ResetKeybeginLength (edGu.Text )=0begin ( У полі ЖЕУ повинно бути значення! raquo ;, mtError, [mbOk], 0) ;. SetFocus ;; (edGu.Text, CurrentGu, code); code lt; gt; 0begin ( У полі ЖЕУ повинно бути число !!! raquo ;, mtError, [mbOk], 0) ;. SetFocus ;;; TfmMain.edLsoExit (Sender: TObject) ;, s2, s3: String; not ResetKey then//*** ResetKey=False *** //(edLso.Text,CurrentLso,code);(code lt; gt; 0)//and (vDepartment lt; gt; 2) begin ( Значення поля повинно бути числовим raquo ;, mtError, [mbOk], 0) ;. Text:= raquo ;;. SetFocus; if PayType [vDepartment] .Base=TruePayType [vDepartment] .BaseType of
//*********************...
