// закрытие чека общая procedure TfrmRegCashOperJrn.actCloseCheckExecute(Sender: TObject);
var
  anObj: TItemObject;
  frm: TfrmaDialog;
  mess:string;
  bInTransaction: boolean;
  Proc_Id,
  Bop_Id,
  Oper: integer;
  sOutPrm: string;
  dmBPO: TdmBP_Oper;
  i: integer;
  sParams: string;
 procedure pCreTcd;
 begin
   //если оплата c помощью электронного кассира TCD
    if ((GetMainQuery.FieldByName('PAYTYPE').AsString = '1')
        and (Orcl.GetPar('S_PKGTCD.fGetTcdId(:VAL_CODE, :INCOM)',
        [GetMainQuery.FieldByName('VAL_CODE').AsString,Sign(GetMainQuery.FieldByName('CHK_SDOK_NAL_WST').AsInteger)])<>'')) then begin

      //подготовка параметров для работы с TCD
      with spTcd do begin
        if not Prepared then Prepare;
        ParamByName('idChk').AsInteger := GetMainQuery.FieldByName('CHK_ID').AsInteger;
        ParamByName('iIncomfl').AsInteger := Sign(GetMainQuery.FieldByName('CHK_SDOK_NAL_WST').AsInteger);

        spTcd.ExecProc;

        Proc_Id := ParamByName('idProc').AsInteger;
        Bop_Id := ParamByName('idBop').AsInteger;
        Oper := ParamByName('nOper').AsInteger;
      end;

      // запускаем процедуру работы с TCD
      if Proc_Id <>  null then begin
        dmBPO := TdmBP_Oper.Create(nil);
        try
          if not dmBPO.RunOperation(Proc_Id, Bop_Id, Oper, saNone, sParams, sOutPrm, True, 1, 1,false) then
            raise Exception.Create(Localize('Ошибка электронного кассира. Чек не закрыт.'));
        finally
         dmBPO.Free;
        end;
      end;
    end;
 end;
begin

  if CurrentObject(itOper)<> nil then
    anObj := CurrentObject(itOper)
  else if CurrentObject(itCheck)<> nil then
    anObj := CurrentObject(itCheck)
  else
    Exit;

  if GetMainQuery.FieldByName('CHK_SIGN_NAL').asinteger=1 then begin
    frm := LinkedForms.CreateForm('TfrmPstChRepDlg', Application) as TfrmaDialog;
    with frm do
      try
        ZLinkParams.AddItem('AMOUNT',anObj.FieldValue['CHK_SDOK_NAL']);
        ZLinkParams.AddItem('CHK_CODE',anObj.FieldValue['CODE']);
        ZLinkParams.AddItem('PAYTYPE',anObj.FieldValue['PAYTYPE']);
        ZLinkParams.AddItem('PRINTCSHRPT',1);
        ZLinkParams.AddItem('PRINTNSF',orcl.GetParameter('PST_PRINTNSF'));
        ZLinkParams.AddItem('SHOWNSF',orcl.GetParameter('PST_SHOWNSF'));
        if ShowModal = mrOK then
          with spClose do begin
            if not Prepared then Prepare;
            ParamByName('nID').asinteger := GetMainQuery.FieldByName('CHK_ID').asinteger;
            ParamByName('cPRINTFL').asString := VarToStr(frm.ZLinkParams.FieldValueByName('PRINTCSHRPT'));
            ParamByName('cPRINTNSF').asString := VarToStr(frm.ZLinkParams.FieldValueByName('PRINTNSF'));

            ProcessMessageShow(Localize(SPModify));
            StartWait;
            try
              // открываем транзакцию
              bInTransaction := Orcl.InTransaction;
              if not bInTransaction then
                Orcl.BeginTransaction;
              try
                // процедура закрытия чека
                spClose.ExecProc;

                //если оплата по карте
                if ((GetMainQuery.FieldByName('PAYTYPE').AsString = '5') or (GetMainQuery.FieldByName('PAYTYPE').AsString = '6')) then begin

                  //подготовка параметров для работы с pos-терминалом
                  with spCreateProc do begin
                    if not Prepared then Prepare;
                    ParamByName('P_ID').Clear;
                    ParamByName('P_CHK_ID').AsInteger := GetMainQuery.FieldByName('CHK_ID').AsInteger;

                    spCreateProc.ExecProc;

                    if ParamByName('P_ID').IsNull then
                      Proc_Id := 0
                    else
                     Proc_Id := ParamByName('P_ID').AsInteger;
                    Bop_Id := ParamByName('P_BOP_ID').AsInteger;
                    Oper := ParamByName('P_OPER').AsInteger;
                  end;

                  // запускаем процедуру работы с pos-терминалом
                  if Proc_Id <>  0 then begin
                    dmBPO := TdmBP_Oper.Create(nil);
                    try
                      if not dmBPO.RunOperation(Proc_Id, Bop_Id, Oper, saNone, sParams, sOutPrm, True, 1, 1,false) then
                        raise Exception.Create(Localize('Ошибка POS-терминала. Чек не закрыт.'));
                    finally
                     dmBPO.Free;
                    end;
                  end;
                end;

                //если оплата c помощью электронного кассира TCD
                pCreTcd;

                // закрываем транзакцию
                if not bInTransaction then
                    Orcl.CommitTransaction;
              except
                // откат транзакцию
                if not bInTransaction then
                  Orcl.RollbackTransaction;
                raise;
              end;
            finally
              StopWait;
              ProcessMessageHide;
              mnuRefresh.Click
            end;
          end;
      finally
        Free;
      end;
  end else begin
    if GetMainQuery.FieldByName('CHK_SIGN_NAL').AsInteger=-1 then begin
// если клиент принес марок, но мы ему должны отдать деньги, то мы ему отдаем с учетом этих марок
// если же клиент принес столько марок, что в целом дает больше, чем надо, то мы ему ничего не возвращаем
      if GetMainQuery.FieldByName('CHK_SDOK_NAL_WST').AsInteger < 0 then begin
        mess := Localize('Необходимо выдать ')+
        GetMainQuery.FieldByName('CHK_SDOK').AsString+' '+
        GetMainQuery.FieldByName('val_code').AsString+
        Localize('. Закрыть чек?');
      end
      else mess := Localize('Закрыть чек?');
    end
    else mess := Localize('Чек с нулевой суммой. Закрыть чек?');

    if MessageDlg2(Localize(mess), mtConfirmation,[mbYes,mbNo]) = mrYes then
      with spClose do begin
        if not Prepared then Prepare;
        ParamByName('nID').asinteger := GetMainQuery.FieldByName('CHK_ID').asinteger;

            ProcessMessageShow(Localize(SPModify));
            StartWait;
            try
              // открываем транзакцию
              bInTransaction := Orcl.InTransaction;
              if not bInTransaction then
                Orcl.BeginTransaction;
              try
                // процедура закрытия чека
                spClose.ExecProc;

                //если оплата c помощью электронного кассира TCD
                pCreTcd;

                // закрываем транзакцию
                if not bInTransaction then
                    Orcl.CommitTransaction;
              except
                // откат транзакцию
                if not bInTransaction then
                  Orcl.RollbackTransaction;
                raise;
              end;
            finally
              StopWait;
              ProcessMessageHide;
              mnuRefresh.Click
            end;
      end;
   end;

  if StrToInt(Orcl.GetPar('C_PkgUserRpt.CheckUnprinted')) > 0 then
    with LinkedForms.CreateForm('TRptToPrintList', Application) do
      try
        ShowModal;
      finally
        Free;
      end;
end;