ocus ;;// *** DOLG_Locate=False *** //;// *** Case 4 ***//
//**************************************** ********************
: begin//*** Case 5 [BaseType=5] пошук в PAYMENT - минулі платежіPayment_Locate (edGu.Text, edLso.Text) begin:=True; .Caption:=DM.taPaymentFindFio. Value; .Caption:= вул. + DM.taPaymentFindUl.Value +
laquo ;, д. + DM.taPaymentFindNdom.Value +
laquo ;, кв. + DM.taPaymentFindNkv.Value; begin.Caption:= Л/рахунок НЕ ЗНАЙДЕНО в поточній БАЗІ !!! raquo ;; MessageDlg ( Л/рахунок НЕ ЗНАЙДЕНО в поточній БАЗІ, додати дані платника? raquo ;, mtConfirmation, [mbYes, mbNo], 0)=mrYes//MessageDlg ( Л/рахунок не існує! raquo ;, mtWarning, [mbOk], 0); begin.ShowModal; .Caption:=edFIO.Text; .Caption := вул. + edUL.Text +
laquo ;, д. + edNDOM.Text +
laquo ;, кв. + edNKV.Text; edLso.SetFocus ;;;// Case 5 //;// *** Case PayType [vDepartmen] .BaseType of *** //:=Trim(PayType[vDepartment].GuPrn+edGu.Text+laquo; + (PayType [vDepartment] .LsoPrn) + (PayType [ vDepartment] .Pref) + (edLso.Text)); vDepartment gt; 2 then.Caption:=vStringForPrinting ;;// *** ResetKey=False *** //;TfmMain.edSumExit(Sender: TObject); not ResetKey thenedSum.Value=0begin ( Не введене значення поля Сума raquo ;, mtError, [mbOk], 0) ;. SetFocus; edSum.Value gt; StrToCurr (MaxSummaStr) begin ( Значення поля Сума більше + MaxSummaStr, mtError, [mbOk], 0) ;. SetFocus;:=edSum.Value; PayType [ vDepartment] .Percent lt; gt; 0 then:=PaySum*(PayType[vDepartment].Percent/100);.Caption:=FormatFloat(laquo;0.00raquo;,PayPercent);;(LsoFound=True) and (PaySum lt; gt; InPaySum) {and (InPaySum lt; gt; 0)} and (vDepartment=1) {(PayType [vDepartment] .PayNum=1) and (kcKvitType.ItemIndex=0)} then.ShowModalInPaySum:=PaySum;;:=PaySum;.Caption:=FormatFloat(laquo;0.00raquo;,PayAll+PayPercent);.Value:=PayAll+PayPercent;;TfmMain.edMoneyExit(Sender: TObject); not ResetKeybegin (edMoney.Value=0) or (edMoney.Value lt; edSum.Value) begin ( Не введене значення поля Отримано raquo ;, mtError, [mbOk], 0);.SetFocusedDelivery.Caption:=FormatFloat(laquo;0.00raquo;,edMoney.Value-StrToFloat(edPayAll.Caption));;((PaySumlt;gt;InPaySum) and (pSummSum=0)) and ({PayType [} vDepartment {]. PayNum}=1) begin ( Сума платежу менше суми до оплати, розбийте суму по потавщікам !!! raquo ;, mtError, [mbOk], 0 ) ;. Value:=0; .SetFocus ;; TfmMain.cbPayTypeFilterKeyValueChanged (Sender: TObject) ;;; TfmMain.edGuChange (Sender: TObject) ;. Caption:=edGu.Text ;; TfmMain.buF5Click (Sender: TObject);.ShowModal ;; TfmMain.buRazbivkaClick (Sender: TObject) ;. dpPayDate.Date:=Date;.ShowModal;;TfmMain.FormActivate(Sender: TObject);:=0 ;; TfmMain.edSumChange (Sender: TObject) ;. Caption :=SumToStrL (edSum.Value, 13) ;; TfmMain.buF6Click (Sender: TObject); _ Exit ;; TfmMain.buPrintClick (Sender: TObject); MessageDlg ( Виконати операцію? raquo ;, mtConfirmation, [mbYes, mbNo] , 0)=mrYesbegin (* Виконати операцію lt; ДА gt; *) edSum.Value lt; gt; 0begin (* edSum.Value lt; gt; 0 *):=edGu.Text;:=edLso.Text;:=edSum.Value;.Visible:=False;.Visible:=False;.Visible:=True;PayType[vDepartment].DocType=1 (* Бланк *) begin:=edMoney.Value-PayPercent; not FRMode (13) OpenStandardFPD;//Відкрити стандартний ФПД lt; OpenFPD gt; QOO=0RegStandardFPD;//Реєстрація покупки в стандартному ФПД lt; RegFPD gt; QOO gt; 0CloseStandardFPD; //Закрити стандартний ФПД lt; CloseFPD gt; .Enabled:=True ;;; PayType [vDepartment] .DocType=2 (* Чек *) begin:=edMoney.Value;//Відкрити чек;//Відкрити чекPayType [vDepartment] .Percent lt ; gt; 0 then:=16 ;;;//Закрити чекQOO gt; 0CloseCheck;//Закрити чек.Visible:=False;//Закрити чек;//Відкрити чек; (* Чек *); (* edSum.Value lt; gt; 0 *);//*** Виконати операцію lt; ДА gt; *** //;TfmMain.Resetprotector1Click(Sender: TObject) ;. Reset; .mxProtector1.Reset; ( У Вас є ще 50 запусків! raquo ;, mtInformation, [mbOK], 0) ;; TfmMain.buOkClick (Sender: TObject); PayType [vDepartment] .Percent lt; gt; 0if MessageDlg ( відбити ЧЕК касові збори? raquo ;, mtConfirmation, [mbYes, mbNo ], 0)=mrYes:=16 ;; QOO gt; 0CloseCheck;//Закрити чек.Visible:=False;:=StrToInt (Copy (kcPayDep.Text, 1,1)) ;;; (PayType [vDepartment] .DocType =2) and (PayType [vDepartment] .Percent=0) and (PayType [vDepartment] .ChDbl=True) if MessageDlg ( відбити ДУБЛЕКАТ ЧЕКА? raquo ;, mtConfirmation, [mbYes, mbNo], 0)=mrYesRepeatDocument; ;// Запис у файл ;; TfmMain.T300Timer (Sender: TObject); FRMode (15) begin.Enabled:=False; .laMessage.Visible:=False ;;// Друк ФПД.Visible:=True; .SetFocus; T300.Enabled:=True ;; TfmMain.SpeedButton2Click (Sender: TObject) ;;; TfmMain.buF8Click (Sender: TObject); ComPort.Connected then.Close.Open; ; TfmMain.SpeedButton1Click (Sender: TObject);:=edGu.Text;:=edLso.Text;:=edSum.Value;:=edMoney.Value-PayPercent;;;TfmMain.kcPayDepChange(Sender: TObject) ;;; TfmMain.kcPayDepExi...
