procedure print_reklama(prnt: Boolean);
begin
  if prnt then
  begin
    Driver.Password := 30;
    Driver.TableNumber := 1;
    Driver.FieldNumber := 4;
    Driver.RowNumber := 1;
    Driver.ValueOfFieldInteger := 1;
    Driver.GetFieldStruct;
    Driver.WriteTable;
  end
  else
  begin
    Driver.Password := 30;
    Driver.TableNumber := 1;
    Driver.FieldNumber := 4;
    Driver.RowNumber := 1;
    Driver.ValueOfFieldInteger := 0;
    Driver.GetFieldStruct;
    Driver.WriteTable;

    Driver.Password := 30;
    Driver.TableNumber := 4;
    Driver.FieldNumber := 1;
    Driver.RowNumber := 2;
    Driver.ValueOfFieldString := '';
    Driver.GetFieldStruct;
    Driver.WriteTable;

    Driver.Password := 30;
    Driver.TableNumber := 4;
    Driver.FieldNumber := 1;
    Driver.RowNumber := 3;
    Driver.ValueOfFieldString := '';
    Driver.GetFieldStruct;
    Driver.WriteTable;
  end;

end;

//возвращает номер чека
function GetOpenCheckNumber: integer;
begin
  try
    Driver.GetECRStatus;
    Result:= Driver.OpenDocumentNumber;
  except
    on E: Exception do begin
      Result:= -1;
      ShowMessage('Ошибка получения номера чека');
    end;
  end;
end;

function CheckOpen (aType: integer): integer;
var
  ResultCode: integer;
  ResultCodeDescription: string;
begin
  //aType 0-продажа, 1-покупка
  try
    //реквизиты Академии печатаем
//      Driver.UseReceiptRibbon := true;
//      Driver.UseJournalRibbon := false;
//      Driver.UseSlipDocument := false;
//      Driver.CarryStrings := false;
//      Driver.DelayedPrint := false;
//
//      Driver.StringForPrinting := '  **************************************  ';
//      Driver.PrintString;
//      Driver.StringForPrinting := '  *                                    *  ';
//      Driver.PrintString;
//      Driver.StringForPrinting := '  *  '+ORG_NAME+'  *  ';
//      Driver.PrintString;
//      Driver.StringForPrinting := '  *  '+ORG_ADRES+'  *  ';
//      Driver.FontType := 3;
//      Driver.PrintStringWithFont;
//      Driver.StringForPrinting := '  *                                    *  ';
//      Driver.PrintString;
//      Driver.StringForPrinting := '  **************************************  ';
//      Driver.PrintString;



    print_reklama(false);
    Driver.Password := PASSWD;
    Driver.CheckType := aType; // тип чека (продажа,покупка и т.п.)
    Driver.OpenCheck;

    //Отправка данных о покупателе
//     Driver.CustomerEmail = textBox1.Text;  В качестве параметра можно передавать или телефон (+7хххххххххх) или e-mail: test@test.com
//     Driver.FNSendCustomerEmail();

    ResultCode := Driver.ResultCode;
    ResultCodeDescription := Driver.ResultCodeDescription;
    if ResultCode > 0 then
    begin
      ShowMessage('Произошла ошибка при проведении операции (Код:' + IntToStr(ResultCode) + '). Текст: '+ResultCodeDescription);
      result:=-1;
    end
    else
    begin
//      Driver.Password := PASSWD;
//      Driver.RegisterNumber := 148; // № чека
//      Driver.GetOperationReg;
//      result := Driver.ContentsOfOperationRegister + 1;
      Result:= GetOpenCheckNumber +1;
    end;
  except
    on E: exception do
    begin
      result:= -2;
      ShowMessage('Ошибка получения номера чека при открытии: '+e.message);
    end;
  end;
end;

function CheckOperation (aType, aDept: integer; aSum, aPrice:Currency; aCnt, aNDS :Double; aSTR :string): integer;
var
  ResultCode: integer;
  ResultCodeDescription: string;
begin
  result:=0;
  try
    Driver.Department := aDept; // секция
    Driver.Summ1 := aSum; // сумма
    Driver.Price := aPrice; // цена
    Driver.Quantity := aCnt; // кол-во

    // если есть НДС---------------------------------
    if aNDS > 0 then
      Driver.Tax1 := 1
    else
      Driver.Tax1 := 0;
    //-----------------------------------------------
    Driver.Tax2 := 0;
    Driver.Tax3 := 0;
    Driver.Tax4 := 0;
    Driver.StringForPrinting := aSTR;

    Driver.Password := PASSWD;
    case aType of
      0: DRIVER.Sale;
      2: DRIVER.ReturnSale;
    end;

    ResultCode := Driver.ResultCode;
    ResultCodeDescription := Driver.ResultCodeDescription;
    if ResultCode > 0 then
    begin
      ShowMessage('Произошла ошибка при проведении операции (Код:' + IntToStr(ResultCode) + '). Текст: '+ResultCodeDescription);
      result:=-1;
    end;
  except
    on E: exception do
    begin
      result:=-2;
      ShowMessage('Ошибка: '+e.message);
    end;
  end;
end;

 // закрытие чека
function CheckClose (aSum:Currency; aStr: string): integer;
var
  ResultCode: integer;
  ResultCodeDescription: string;
begin
  try
    result:=0;
    //aStr:= 'Спасибо за проживание';
    Driver.Password := PASSWD;
    Driver.Summ1 := aSum; // наличными 
    // Driver.Driver.Summ2 := StrToCurr('0'); //кредит
    // Driver.Driver.Summ3 := StrToCurr('0'); //тарой
    // Driver.Driver.Summ4 := StrToCurr('0');   //плат. картой
    // if nds>0 then
    // Driver.Driver.Tax1 := 2
    // else
    // Driver.Driver.Tax1 := 0;
    // Driver.Driver.Tax2 := 0;
    // Driver.Driver.Tax3 := 0;
    // Driver.Driver.Tax4 := 0;
    // Driver.Driver.DiscountOnCheck := StrToFloat('0'); //скидка
    Driver.StringForPrinting := aStr;
    Driver.CloseCheck;
    ResultCode := Driver.ResultCode;
    ResultCodeDescription := Driver.ResultCodeDescription;

    if ResultCode > 0 then
    begin
      ShowMessage('Произошла ошибка при закрытии чека (Код:' + IntToStr(ResultCode) + '). Текст: '+ResultCodeDescription);
      result:=-1;
      Driver.Password := PASSWD;
      Driver.CancelCheck;
    end;


  except
    on E: exception do
    begin
      result:=-2;
      ShowMessage('Ошибка: '+e.message);
    end;
  end;
end;

procedure TfrMainForm.WriteSectionFR;
var
  i: integer;
  ResultCode: integer;
  ResultCodeDescription: string;
begin
  try
  //записываем данные пользователя в ФР
  if DriverExists then
    begin
      with DATAM.ODS do
      begin
        Close;
        DeleteVariables;
        sql.Text := 'select * from PUB_SECTION order by id_rec';
        Open;
        if not IsEmpty then
        begin
          i:=0;
          while not eof do
          begin
            inc(i);
            Driver.Password := 30;
            Driver.TableNumber := 7;
            Driver.FieldNumber := 1;
            Driver.RowNumber := i;
            Driver.ValueOfFieldString := FieldByName('section_name').AsString;
            Driver.WriteTable;
            ResultCode := Driver.ResultCode;
            ResultCodeDescription := Driver.ResultCodeDescription;
            if ResultCode>0 then
            begin
              ShowMessage('Ошибка записи секций ФР: '+ResultCodeDescription);
              break;
            end;
             Next;
          end;

        end;
        CloseAll;
      end;

      Driver.Password := 30;
      Driver.TableNumber := 7;
      Driver.FieldNumber := 1;
      Driver.RowNumber := 16;
      Driver.ValueOfFieldString := '111';
      Driver.WriteTable;
      ResultCode := Driver.ResultCode;
      ResultCodeDescription := Driver.ResultCodeDescription;
      if ResultCode>0 then
      begin
        ShowMessage('Ошибка записи секций ФР: '+ResultCodeDescription);

      end;
    end;
  except
    ShowMessage('Ошибка загрузки секций в ФР');
  end;

end;

procedure SetSalesman(Vseller:string;var ResultCode:integer;var ResultCodeDescription:string);
begin
try
//установка продавца
  Driver.Password := 30;
  Driver.TableNumber := 2;
  Driver.FieldNumber := 2;
  Driver.RowNumber := 1;
  Driver.ValueOfFieldString :=vseller;
  Driver.WriteTable;
  ResultCode :=Driver.ResultCode;
  ResultCodeDescription := Driver.ResultCodeDescription;
except
  on E: Exception do begin
  showmessage('Ошибка установки кассира:'+E.Message);
end;
end;