http://wiki.standart-n.ru/wiki/index.php?action=history&feed=atom&title=%D0%A2%D0%9C%D0%A1%3A%D0%9A%D0%B0%D1%81%D1%81%D0%B8%D1%80%3A%D0%9F%D0%BE%D0%B4%D0%B4%D0%B5%D1%80%D0%B6%D0%BA%D0%B0_%D0%BF%D0%BE%D1%81%D1%82%D0%BE%D1%8F%D0%BD%D0%BD%D0%BE_%D0%BE%D1%82%D0%BA%D1%80%D1%8B%D1%82%D0%BE%D0%B3%D0%BE_%D0%BE%D0%BA%D0%BD%D0%B0_%D0%BE%D1%82%D0%BB%D0%BE%D0%B6%D0%B5%D0%BD%D0%BD%D1%8B%D1%85_%D1%87%D0%B5%D0%BA%D0%BE%D0%B2 2026-05-09T10:55:03Z История изменений этой страницы в вики MediaWiki 1.23.3 http://wiki.standart-n.ru/index.php?title=%D0%A2%D0%9C%D0%A1:%D0%9A%D0%B0%D1%81%D1%81%D0%B8%D1%80:%D0%9F%D0%BE%D0%B4%D0%B4%D0%B5%D1%80%D0%B6%D0%BA%D0%B0_%D0%BF%D0%BE%D1%81%D1%82%D0%BE%D1%8F%D0%BD%D0%BD%D0%BE_%D0%BE%D1%82%D0%BA%D1%80%D1%8B%D1%82%D0%BE%D0%B3%D0%BE_%D0%BE%D0%BA%D0%BD%D0%B0_%D0%BE%D1%82%D0%BB%D0%BE%D0%B6%D0%B5%D0%BD%D0%BD%D1%8B%D1%85_%D1%87%D0%B5%D0%BA%D0%BE%D0%B2&diff=6228&oldid=prev 2018-01-12T08:59:16Z

<p>Новая страница: «uses System, Classes, DB, IBDatabase, IBQuery, IBCustomDataSet, Controls, ExtCtrls, ZKassa, Graphics, dateutils, FR, ScriptRes, Graphics, Forms, Dialogs…»</p> <p><b>Новая страница</b></p><div>uses System, Classes, DB, IBDatabase, IBQuery, IBCustomDataSet,<br /> Controls, ExtCtrls, ZKassa, Graphics, dateutils, FR, ScriptRes,<br /> Graphics, Forms, Dialogs, StdCtrls ,<br /> ComCtrls, ExtCtrls, StrUtils, Windows, Classes, SysUtils;<br /> <br /> const<br /> cl1 = $008866FF;<br /> cl2 = $00CCDDFF;<br /> var<br /> iq: TIBQuery;<br /> pn: tpanel;<br /> id: Integer;<br /> <br /> procedure Click;<br /> begin<br /> SendKey(116,false,false,false);<br /> end;<br /> <br /> begin<br /> if fmMain.tmScript.Tag mod 10 = 0 then<br /> begin<br /> if (UserID=6) then<br /> begin<br /> if fmMain.aopXFunc.Tag = 0 then fmMain.acF5.Execute;<br /> id := -1;<br /> if fmMain.frDefCheques1.fdCheques.Active then id := fmMain.frDefCheques1.fdCheques.FieldByName('id').AsInteger;<br /> fmMain.frDefCheques1.fdCheques.Active := False;<br /> fmMain.frDefCheques1.fdCheques.Active := True;<br /> if id &lt;&gt; -1 then fmMain.frDefCheques1.fdCheques.Locate('id', id, SetOf([]));<br /> end<br /> else<br /> begin<br /> pn := fmMain.pnClient.FindChildControl('script_panel_defer');<br /> if pn = nil then<br /> begin <br /> pn := tpanel.create(nil); <br /> pn.Name := 'script_panel_defer';<br /> pn.Parent := fmMain.pnClient;<br /> pn.Align := alTop; <br /> pn.Height := 0;<br /> pn.Font.Style:=[fsBold];<br /> pn.Caption := 'Внимание! Есть отложенный чек, для перехода нажмите здесь или F5!!!';<br /> pn.Color := cl1; <br /> end;<br /> <br /> iq := TIBQuery.create(nil);<br /> iq.Transaction := CurrDB.DefaultTransaction;<br /> iq.SQL.Text := 'select count(*) from docs where doc_type=3 and status = 2';<br /> iq.Active := True;<br /> pn.Visible := iq.Fields.Fields[0].AsInteger &gt; 0;<br /> if pn.Visible then<br /> begin<br /> pn.Height := 30; <br /> pn.OnClick := 'Click'; <br /> end; <br /> iq.Free; <br /> end;<br /> end<br /> <br /> if ((fmMain.tmScript.Tag mod 2 = 0) and (userid&lt;&gt;6)) then<br /> begin<br /> pn := fmMain.pnClient.FindChildControl('script_panel_defer');<br /> if pn &lt;&gt; nil and pn.Visible then <br /> if pn.Color = cl1 then<br /> begin<br /> pn.Color := cl2;<br /> pn.Font.Style:=[]; <br /> end<br /> else<br /> begin<br /> pn.Color := cl1;<br /> pn.Font.Style:=[fsBold];<br /> end;<br /> end;<br /> <br /> <br /> <br /> end;</div>

Olgav