В модуле обработки Обслуживание_ФР_Атол
Цитата:
Процедура ВыгрузитьТекущегоПользователяВККМ()
Если Не ЗначениеЗаполнено(глПользователь) Тогда
Предупреждение("Пользователь не авторизован");
Возврат;
КонецЕсли;
Если Не Подключить(Истина) Тогда
Предупреждение(Результат.Описание+Символы.ПС+Резул ьтат.Подробно);
Возврат;
КонецЕсли;
DRV.Mode = 4;
DRV.Password=ПараметрыТО.Password;
DRV.SetMode();
DRV.CaptionPurpose=117;
DRV.Caption=глПользователь.Наименование;
DRV.SetCaption();
DRV.CaptionPurpose=118;
DRV.Caption=глПользователь.Наименование;
DRV.SetCaption();
Если Ошибка() Тогда
Предупреждение(Результат.Описание+Символы.ПС+Резул ьтат.Подробно);
Возврат;
КонецЕсли;
КонецПроцедуры
|
Для Штриха процедура выглядит несколько иначе:
Цитата:
Процедура ВыгрузитьТекущегоПользователяВККМ()
Если Не ЗначениеЗаполнено(глПользователь) Тогда
Предупреждение("Пользователь не авторизован");
Возврат;
КонецЕсли;
Если Не Подключить(Истина) Тогда
Предупреждение(Результат.Описание+Символы.ПС+Резул ьтат.Подробно);
Возврат;
КонецЕсли;
DRV.TableNumber = 2; // таблица кассиров
DRV.RowNumber = 30;// строка с реквизитом имя СисАдмин
DRV.FieldNumber=2; // реквизиты кассиров
DRV.GetFieldStruct();
DRV.ValueOfFieldString=глПользователь.Наименование ;
DRV.WriteTable();
DRV.TableNumber = 2; // таблица кассиров
DRV.RowNumber = 29;// строка с реквизитом имя СисАдмин
DRV.FieldNumber=2; // реквизиты кассиров
DRV.GetFieldStruct();
DRV.ValueOfFieldString=глПользователь.Наименование ;
DRV.WriteTable();
DRV.RowNumber = 1;//Возвращаем значение столбца в 1 иначе вываливается в ошибку при дальнейшем обращении к ККМ.
Если Ошибка() Тогда
Предупреждение(Результат.Описание+Символы.ПС+Резул ьтат.Подробно);
Возврат;
КонецЕсли;
КонецПроцедуры
|