uses fr, Graphics, Controls, Forms, Dialogs, StdCtrls,
  ComCtrls, ExtCtrls, ibquery, DB, ChequeList, FR,
  ScriptRes, Barcode,ZKassa, StrUtils, Windows, Classes,
  IBDataBase, zkassa;

var fiq: TIBQuery;
    trn:TIBTransaction;

begin
  //1042612 A.K. 2022-11-24
  //SRQ: просит поставить блок в кассире при закрытии смены, если есть отложенные чеки, т.к. кассиры откладывают чеки , а потом не отменяют их
                            
  fiq := TIBQuery.Create(nil);
  try
    fiq.Database:=CurrDB;
    trn:=TIBTransaction.Create(nil);
    fiq.Transaction:=trn;
    trn.DefaultDatabase:=CurrDB;
    fiq.Active:=false;
    fiq.SQL.text:= 'select count(1) as cnt from docs where doc_type =3 and status = 2 ';
    fiq.active := True;
    IF (fiq.FieldByName('cnt').AsInteger > 0) Then
    begin
       ScriptRes.Code := -1;
       ScriptRes.Desc := 'Закрытие смены запрещено! Имеются отложенные чеки: отмените их или проведите';
    end

  except
  end

end;