Сообщения без ответов | Активные темы Текущее время: Чт ноя 21, 2019 8:40 am



Ответить на тему  [ Сообщений: 5 ] 
печать ФИО кассира на чеке 
Автор Сообщение
Новичок

Зарегистрирован: Пн фев 21, 2011 5:19 am
Сообщения: 10
Сообщение печать ФИО кассира на чеке
спрашивал в другом топике, повторю вопрос тут:

genok писал(а):
в чеке помимо номенклатуры оператору ФД передается и ФИО кассира.
раньше ФИО кассира выводилась просто через печать строки, но сейчас такой фокус на передаваемые в ОФД данные не влияет и кассиром там значится СИС АДМИНИСТРАТОР.

вопрос: можно ли тут обойтись без редактирования таблиц?

в драйвере Атол это реализовано так:
Код:
       Driver.AttrNumber:=1021;
       Driver.AttrValue:='ФИО кассира';
       Driver.AttrPrint:=1;
       If Driver.WriteAttribute<>0 then Exit;


передается в открытый чек каждый раз, ничего не правит в таблицах, в ОФД прекрасно уходит, достаточно удобно.
есть ли возможность сделать что-то подобное в драйвере Штрих? Ну или какой-то другой может способ есть, пусть не такой удобный?


Ср май 17, 2017 5:44 pm
Профиль
Новичок

Зарегистрирован: Сб сен 27, 2014 6:33 am
Сообщения: 9
Сообщение Re: печать ФИО кассира на чеке
У меня в ПО при запуске кассир прописывается для АТОЛ:
Код:
procedure TFRATOL.InternalSetOperatorName(const AOperatorNo: Integer; const AName: string);
var
  LErrFlag: Boolean;
begin
  if not (AOperatorNo in [1..30]) then begin
    AlertError('Не удалось установить имя оператора.' + sLineBreak + 'Недопустимый номер оператора!');
  end;

  with Driver do begin
    Mode := 4; { Режим пргограммирования }
    if (SetMode() = 0) then begin
      CaptionPurpose := 88 + AOperatorNo; { cм. «Приложение 9. Строковые параметры ККМ» }
      if (GetCaption() = 0) then begin
        Caption := Copy(AName, 1, MaxCaptionLength);
        LErrFlag := (SetCaption() <> 0);
      end else
        LErrFlag := True;
    end else
      LErrFlag := True;
  end;

  if (LErrFlag) then begin
    AlertError(GetLastErrorText('Не удалось установить имя оператора.'));
  end;
end;


для Штрих-М:
Код:
procedure TFRShtrihM.InternalSetOperatorName(const AOperatorNo: Integer; const AName: string);
var
  LPwd: Integer;
begin
  if not (AOperatorNo in [1..30]) then begin
    AlertError('Не удалось установить имя оператора.' + sLineBreak + 'Недопустимый номер оператора!');
  end;

  with (Driver) do begin
    LPwd := Password;
    Password := 30; { Админ }
    try
      TableNumber := 2; { Пароли кассиров и администраторов }
      FieldNumber := 2; { Наименование }
      RowNumber := AOperatorNo; { Номер оператора }

      if (GetFieldStruct() = 0) then begin
        ValueOfFieldString := Copy(AName, 1, FieldSize);
        if (WriteTable() <> 0) then begin
          AlertError(GetLastErrorText('Не удалось установить имя оператора.'));
        end;
      end else
        AlertError(GetLastErrorText('Не удалось установить имя оператора.'));
    finally
      Password := LPwd;
    end;
  end;
end;


Чт май 18, 2017 8:15 am
Профиль
Новичок

Зарегистрирован: Пн фев 21, 2011 5:19 am
Сообщения: 10
Сообщение Re: печать ФИО кассира на чеке
Anton96 писал(а):
У меня в ПО при запуске кассир прописывается


и ты каждый раз перезаписываешь строку№1 в таблице 2?
или в аппарат вносится справочник реальных пользователей?


Ср июн 07, 2017 3:48 pm
Профиль
Новичок

Зарегистрирован: Пн ноя 02, 2009 9:54 pm
Сообщения: 9
Сообщение Re: печать ФИО кассира на чеке
Anton96 писал(а):
У меня в ПО при запуске кассир прописывается для АТОЛ:


Я поступаю аналогично для ШТРИХа - после регистрации кассира в программе записываю в таблицу 2 (Пароли кассиров и администраторов) для оператора 01 фамилию и инициалы кассира. Всё прекрасно работает, печатается на чеке и передается в ОФД.

_________________
Денисов Борис
Москва


Пн июн 26, 2017 8:58 am
Профиль
Новичок

Зарегистрирован: Сб сен 27, 2014 6:33 am
Сообщения: 9
Сообщение Re: печать ФИО кассира на чеке
genok писал(а):
Anton96 писал(а):
У меня в ПО при запуске кассир прописывается


и ты каждый раз перезаписываешь строку№1 в таблице 2?
или в аппарат вносится справочник реальных пользователей?

Да, другого адекватного пути пока не нашел, зато в этом случае, как сказал Falc0nMan, всё прекрасно работает, печатается на чеке и передается в ОФД.


Вт июн 27, 2017 3:19 pm
Профиль
Показать сообщения за:  Поле сортировки  
Ответить на тему   [ Сообщений: 5 ] 

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group.
Designed by STSoftware for PTF.
Русская поддержка phpBB