// скрипт, выводящий краткий отчет без гашения (X-отчет). Использует функции главного скрипта CashCreditCardArcus2CMD.pas

uses 'CashCreditCardSBRF.pas';


begin
  try
    // инициализация переменных, в том числе тех, что инициализируются дефолтовыми значениями. Всегда запускается программой перед вызовом остальных процедур
    RTLCC_InitVars;
    with TMyWait.create('X-отчет по картам оплаты',selfscript) do
    try
      RTLCC_XReport_Internal;
      
      if trim(ChequeString) = '' then bvMessage('Результат выполнения команды пуст!')
      else begin
         RTLCC_Save_ChequeString;
         if getconfirm(ChequeString,'','Распечатать','Закрыть','Краткий отчет') = mrOk then
         begin
           RTLCC_PrintCheque(true);
         end;    
      end;
    finally
      free
    end;
  except
    CreateHintE(ExceptMessage);
  end;    
end.