Help!!! Срочно. Не работает управление персоналом.

[scanner]

После установки патчей (фиксов для zar11) перестал работать модуль управление персоналом. Т.е. Входим в картотеку сотрудников, и галактика виснет, предварительно сказав что открывает данные. Процесс вроде работает и занимает ~100% процессорного времни.
Удаление DSK и OUT ни к чему положительному не привело.

[scanner]

не работает перечень приказов и картотека сотрудников, в рабочую корзину можно войти.

[scanner]

После удаления zar11fix04, zar11fix05, zar11fix06
все стало нормально.

[Мария_Ф]

У нас уже бухгалтерия пугается этих слов "Установили новый патч". Значит снова что-нибудь отвалится.

[Max_Fin]

хм... странно...
у нас клиенты работают с zar11fix06 включительно, проблем такого рода не слышно...

[Роман]

Мария_Ф

есть такая тема
чем больше своих доработок, тем больше вероятность того, что чтото отвалится после установки патчей

это уже порядком поднадоело

[scanner]

Max_Fin
Мы работаем под Pervasive, может быть у вас другая платформа?
Может здесь связь?

[Max_Fin]

клиенты на всех платформах (Pervasive, Oracle, MSSQL)
да и у нас в офисе проблем нет.

у кого-нить такая же проблема есть?

[edward_K]

вероятней всего вы циклитесь тут
procedure CheckCat(cEntryPoint: comp);
{
var cSaveNrec: comp;
if ( getfirst DoplataCat where (( cEntryPoint == DoplataCat.cParent )) = tsOK )
{
do
{
cSaveNrec := DoplataCat.Nrec;
if ( getfirst DoplataCat where (( cSaveNrec == DoplataCat.cParent )) <> tsOK )
{
if ( getfirst DoplataCat where (( cSaveNrec == DoplataCat.Nrec )) <> tsOK ) {}

if ( ( DoplataCat.SysCode <> -57 ) and ( DoplataCat.SysCode <> -53 ) )
Inc(iCountDoplat);

if ( DoplataCat.wKod = 1 )
{
bCheckDoplata := true;
Break;
}
}
else
{
if ( getfirst DoplataCat where (( cSaveNrec == DoplataCat.Nrec )) <> tsOK ) {}

if ( ( DoplataCat.SysCode <> -57 ) and ( DoplataCat.SysCode <> -53 ) )
Inc(iCountDoplat);

if ( DoplataCat.wKod = 1 )
{
bCheckDoplata := true;
Break;
}

CheckCat(cSaveNrec);
}
if ( getfirst Catalogs where (( cSaveNrec == DoplataCat.Nrec )) <> tsOK ) {}
}
while ( getnext DoplataCat where (( cEntryPoint == DoplataCat.cParent )) = tsOK )
}
}
===========
if ( getfirst DoplataCat where (( -17 == DoplataCat.SysCode )) = tsOK )
{
CheckCat(DoplataCat.Nrec);
вставте сей кусок в ард и разбирайтесь чего у вас не так

[AlexV]

У нас такая же проблема. Ставишь патчи, заходишь в картотеку сотрудников и все - висим.
Патчи - Zar12+fix01.
Причем на тестовой базе(той что в дистрибутиве) все нормально.

[edward_K]

сделайте проверку как в описании к патчу говориться и руками привяжите ко всем записям с "С" любой вид оплат и будет нормально.

[AlexV]

edward_K, спасибо!!!
Помогло