Страница 1 из 1

Редактирование табельного номера в лицевом счете

Добавлено: 08 июн 2006, 14:36
sol
Не подскажите какие таблицы нужно подцепить к Lschet для редактирования таб.номера в "Зарплате" и к Persons в "Кадрах"?
Может есть у кого готовое решение? Нужно упорядочить таб. номера,
а изобретать велосипед не хочется. Галактика-7.12.

Добавлено: 08 июн 2006, 15:14
edward_K
в кадрах да и в зарплате есть фейс - замена табельных номеров.
забиваете новые и вперед - все сделают за вас, а так нужно апдейтить штук 60 таблиц(ищите по x$fields, tabn,tabnmb, apptabnmb).
Вообще там пашет паскалевская функция
InitChange;
...
if (getfirst LSCHET where ((TmpTabNPers.cLschet == LSCHET.NREC)) = tsOK)
{ ChangeClockNumber(LSCHET.NREC, TmpTabNPers.NTabN, LSCHET.CEX, true);
}

if (getfirst tmpAppoint = tsOk)
if (tmpAppoint.AppTabNmb <> TmpTabNPers.NTabN)
{ tmpAppoint.AppTabNmb:= TmpTabNPers.NTabN;
if (update current tmpAppoint <> tsOk){};
}

if (TmpTabNPers.PR = 'О') or (TmpTabNPers.PR = '')//Основное назначение
if (getfirst tmpPersons = tsOK)
if (tmpPersons.TabNmb <> TmpTabNPers.NTabN)
{ tmpPersons.TabNmb:= TmpTabNPers.NTabN;
if (update current tmpPersons <> tsOk){};
}
}

DoneChange;

tmpAppoint, tmpPersons - синонимы Appointments и Persons

Добавлено: 08 июн 2006, 15:16
Ged
Самому писать геморно..
Тем болеее существует возможность при подмене табельного номера в пакетном режиме нарваться на такой же табельный номер существующий.

А чем не нравится - Расчет зарплаты - сервисные функции - Переводы с начала месяца?
А потом в кадрах обновить табельные?

Добавлено: 08 июн 2006, 23:13
sol
Да почти у 300 человек несовпадение таб.н. в зарплате и кадрах, кроме того таб.номера у некоторых зашкаливают за 6 цифр.
А чтобы не совпали таб. номера, думаю редактировать в 2 этапа: сначала присвоить таб. номера 6цифр+4 цифры, а потом проапдейтить по нормальному.