******************* ********************
: begin//*** Case 1 [BaseType=1] пошук у файлі DOLG.DBF - масив квитанцій виданих цього місяця *** //fmMain.DOLG_Locate(edGU.Text,edLso. Text) begin//*** DOLG_Locate=True *** //:=True;.Caption:=DM.quDOLG_mFIO.Value;.Caption:=laquo;ул. + DM.quDOLG_mUL.Value +
laquo ;, д. raquo;+IntToStr(DM.quDOLG_mNDOM.Value);DM.quDOLG_mNKORP.Valuelt;gt;laquo;raquo;laAddress.Caption:=laAddress.Caption+laquo;, кор. + (DM.quDOLG_mNKORP.Value) ;. Caption:=laAddress.Caption + laquo ;, кв. raquo;+IntToStr(DM.quDOLG_mNKV.Value);.Text:=DM.quDOLG_mFIO.Value;.Text:=DM.quDOLG_mUL.Value;DM.quDOLG_mNKORP.Valuelt;gt;laquo;raquo;edNdom.Text:=IntToStr(DM.quDOLG_mNDOM.Value)+DM.quDOLG_mNKORP.ValueedNdom.Text:=IntToStr(DM.quDOLG_mNDOM.Value);.Text:=IntToStr(DM.quDOLG_mNKV.Value);//*** DOLG_Locate=True ***//begin//*** DOLG_Locate=False ***//MessageDlg ( Л/рахунки НІ в поточній БАЗІ, додати дані платника? Raquo ;, mtConfirmation, [mbYes, mbNo ], 0)=mrYes//MessageDlg ( Л/рахунок не існує! raquo ;, mtWarning, [mbOk], 0); begin:=False; .ShowModal; .Caption:=edFIO.Text; (edUl.Text lt ; gt; ) and (edNDOM.Text lt; gt; ) begin.Caption:= вул. + edUL.Text +
laquo ;, д. + edNDOM.Text; edNKV.Text lt; gt; laAddress.Caption:=laAddress.Caption + laquo ;, кв. + edNKV.Text ;; edLso.SetFocus ;;// *** DOLG_Locate=False *** //kcKvitType.ItemIndexlt;gt;0beginfmMain.ckDOLG.Checked//InPaySum:=fmMain.quDOLG_mSUM_S3.Value//28.09.10InPaySum:=DM.quDOLG_mSUM_S7.Value;// 28.09.10:= SELECT GU, LSO, H1, S1, SUM (S7) as SUM_S7 FROM Dolg raquo ;; DM.quDOLG_mSUM_S7.Value lt; gt; 0s2:= WHERE (GU= + edGu.Text + ) AND (LSO= + edLso.Text + ) AND S7 lt; gt; 0 s2:= WHERE (GU= + edGu.Text + ) AND (LSO= + edLso.Text + ) raquo ;;:= GROUP BY GU, LSO, H1, S1 ORDER BY GU, LSO, S1;raquo;;.quDOLG_p2.Active:=False;.quDOLG_p2.SQL.Clear;.quDOLG_p2.SQL.Add(s1+s2+s3);.quDOLG_p2.ExecSQL;.quDOLG_p2.Active:=True;;:=DM.quDOLG_mSUM_S7.Value;.Value:=InPaySum;;// *** Case 1 ***//
//**************************************** ********************
: begin//*** Case 2 [BaseType=2] пошук в таблиці ABON.DBF - таблиця абоненти ПЕСК ел.енергія *** //Scaner=FalsefmMain.Abon_Locate{(COPY(edLso.Text, 4,8))} (edLso.Text) begin//*** Abon_Locate=True *** //:=True;.Text:=DM.taAbonJ.Value;.Text:=DM.taAbonD.Value;.Text:=DM.taAbonE.Value;.Text:=DM.taAbonF.Value;.Caption:=DM.taAbonJ.Value;.Caption:=laquo;ул. + DM.taAbonD.Value +
laquo ;, д. + DM.taAbonE.Value +
laquo ;, кв. + DM.taAbonF.Value; .SetFocus;//*** Abon_Locate=True ***//begin//*** Abon_Locate=False *** //.Caption:=laquo;Абонента НІ в поточній БАЗІ !!!raquo;;.Caption:=laquo;raquo;;.Text:=laquo;raquo;;.Text:=laquo;raquo;;.Text:=laquo;raquo;;.Text:=laquo;raquo;;:=Trim(PayType[vDepartment].GuPrn+edGu.Text+laquo; + (PayType [vDepartment] .LsoPrn) + (PayType [vDepartment] .Pref) + Trim (edLso.Text)) ;. SetFocus ;;// *** Abon_Locate=False *** //;// *** Case 2 ***//
//**************************************** ********************
: begin//*** Case 3 [BaseType=3] пошук в таблиці CHILD.DB - таблиця навчальних закладів *** //CHILD_Locate(edLso.Text)begin:=True;:=Trim(PayType[vDepartment].LsoPrn)+Trim(DM.taChildLSO.Value);.Caption:=Trim(PayType[vDepartment].LsoPrn)+Trim(DM.taChildLSO.Value);.Caption:=DM.taChildNAME.Value;begin.Caption:=laquo;Л/счета НІ в поточній БАЗІ !!! raquo ;;. SetFocus ;;;// *** Case 3 ***//
//**************************************** *****************
: begin//*** Case 4 [BaseType=4] *** //.Caption:=edGu.Text;fmMain.DOLG_Locate(edGU.Text,edLso.Text)begin //*** DOLG_Locate=True *** //:=True;.Caption:=DM.quDOLG_mFIO.Value;.Caption:=laquo;ул. + DM.quDOLG_mUL.Value +
laquo ;, д. raquo;+IntToStr(DM.quDOLG_mNDOM.Value);DM.quDOLG_mNKORP.Valuelt;gt;laquo;raquo;laAddress.Caption:=laAddress.Caption+laquo;, кор. + (DM.quDOLG_mNKORP.Value) ;. Caption:=laAddress.Caption + laquo ;, кв. + IntToStr (DM.quDOLG_mNKV.Value);.Text:=DM.quDOLG_mFIO.Value;.Text:=DM.quDOLG_mUL.Value;DM.quDOLG_mNKORP.Valuelt;gt;laquo;raquo;dNdom.Text:=IntToStr(DM.quDOLG_mNDOM.Value)+DM.quDOLG_mNKORP.ValueedNdom.Text:=IntToStr(DM.quDOLG_mNDOM.Value);.Text:=IntToStr(DM.quDOLG_mNKV.Value);//*** DOLG_Locate=True ***//begin//*** DOLG_Locate=False ***//MessageDlg ( Л/рахунки НІ в поточній БАЗІ, додати дані платника? Raquo ;, mtConfirmation, [mbYes, mbNo ], 0)=mrYes//MessageDlg ( Л/рахунок не існує! raquo ;, mtWarning, [mbOk], 0); begin:=False; .ShowModal; .Caption:=edFIO.Text; (edUl.Text lt ; gt; ) and (edNDOM.Text lt; gt; ) begin.Caption:= вул. + edUL.Text + laquo ;, д. + edNDOM.Text; edUl.Text lt; gt; laAddress.Caption:=laAddress.Caption + laquo ;, кв. + edNKV.Text ;; edLso.SetF...
