Не подскажите какие таблицы нужно подцепить к Lschet для редактирования таб.номера в "Зарплате" и к Persons в "Кадрах"?
Может есть у кого готовое решение? Нужно упорядочить таб. номера,
а изобретать велосипед не хочется. Галактика-7.12.
Редактирование табельного номера в лицевом счете
Модераторы: m0p3e, edward_K, Модераторы
-
- Заслуженный деятель интернет-сообщества
- Сообщения: 5188
- Зарегистрирован: 29 мар 2005, 17:49
- Откуда: SPB galaxy spb
в кадрах да и в зарплате есть фейс - замена табельных номеров.
забиваете новые и вперед - все сделают за вас, а так нужно апдейтить штук 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
забиваете новые и вперед - все сделают за вас, а так нужно апдейтить штук 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