Замена табельного номера

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
Vlad
Постоянный обитатель
Сообщения: 101
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Красноярск

Замена табельного номера

Сообщение Vlad »

Подскажите функцию, которая бы заменяла старый табельный номер сотрудника на новый и ее можно было юзать в своем интерфейсе?
P.s. В галактике есть интерфейс CHANGETABN (Управление персоналом-Администратор-Замена табельных номеров), я так думаю, нужная мне функция привязана к кнопке [Продолжить].
Галактика 7.12
Max_Fin
На пенсии
Сообщения: 797
Зарегистрирован: 29 мар 2005, 17:49
Откуда: г. Тюмень
Контактная информация:

Сообщение Max_Fin »

Код: Выделить всё

function ChangeClockNumber(
  AccountID: Comp; // nrec лицевого счета
  NewTabN: LongInt; // новое значение табельного номера
  NewCex: Comp; // новое значение ссылки на подразделение
  StrictChange:  boolean; // выполнять замену также в переходах в межпериод и постоянных доплатах
  SilentChange: boolean // подавить выдачу сообщений об ошибках во время работы функции
  ): Boolean;
Жду выхода Вселенная 2.12!
Vlad
Постоянный обитатель
Сообщения: 101
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Красноярск

Сообщение Vlad »

Ошибка: недопустимый тип параметра.
Если указать 4 параметра, то ошибки нет. Но методом перебора не удалось подобрать нужные параметры, все время функция возращает false.
p.s. стоит зар12. использую в ард отчете:

...
.begin
AccountID:=comp(6);
NewTabN:=2222;
//NewCex:=comp(10);
StrictChange:=true;
SilentChange:=false;

a1.getfirst lschet where ((AccountID==nrec))
if ChangeClockNumber(AccountID,newtabn,a1.lschet.cex,StrictChange) message('замена прошла')
else message('замена не прошла');
end.
...
Max_Fin
На пенсии
Сообщения: 797
Зарегистрирован: 29 мар 2005, 17:49
Откуда: г. Тюмень
Контактная информация:

Сообщение Max_Fin »

На самом деле не смотря на то, что функция зарегистрирована с 5-ю параметрами, на VIP`е описаны только первые 4-ре.
Проверьте свои значения, которые вы передаете, возможно ошиблись со значением AccountID, функция рабочая
Жду выхода Вселенная 2.12!
Screw
Слесарь-системщик
Сообщения: 304
Зарегистрирован: 29 мар 2005, 17:49
Откуда: р.Беларусь, Унитарное предприятие "ТОП СОФТ"
Контактная информация:

Сообщение Screw »

Для нормальной работы функции требуется предварительная установка контекста (инициализация таблиц и некоторых рабочих структур). Инициализация контекста производится с помощью вызова

Код: Выделить всё

function InitChange: boolean;
, финализация - с помощью вызова

Код: Выделить всё

procedure DoneChange;
Эти две рутины образуют т. н. "процедурные скобки", т. е., всегда встречаются парами, как "begin" и "end" в паскале. Если функция замены табельного номера вызывается несколько раз кряду, имеет смысл инициализацию контекста выполнить до первой замены, а финализацию - после последней.
Функция может также модифицировать кадровские данные. Какие именно - определяется настройками из раздела "Управление персоналом" - "Общие настройки" - "Автообновление данных "Кадров"".
Виталий
Vlad
Постоянный обитатель
Сообщения: 101
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Красноярск

Сообщение Vlad »

Спасибо, все получилось
Ответить