2016-11-07 15:35:48

Краткое описание :

Удаление проводок без хоз.операции в ходе формирования проводок по амортизации ОС

Описание :

Амортизация

Что измененно :

По ПИР 180.9458 "Гармонизация "режима 2 (проводок)" отмены амортизации и "режима 3 (проводок)" пересчета амортизации" в пересчет амортизации была внедрена функция DeleteObSpMoveForPickedOS.
При этом в случае если происходит не пересчет, а расчет амортизации старая хоз.операция, из которой необходимо удалять проводки отсутствует _cSoprHoz. В результате вызывается функция DeleteObSpMoveForPickedOS с нулевой ссылкой на ЖХО. Как следствие удаляются проводки, не причастные к пересчитываемой амортизации, в частности проводки из книги бухпроводок (tidk=14)

Ошибку нужно устранить!

Предположительно нужно добавить проверку на _cSoprHoz = 0 в функцию ниже.

// ---------------------------------------------------------------------------
// Выборка проводок с заданной аналитикой для SoprHoz
// Данные сохраняются в таблице tOborotSel
// ---------------------------------------------------------------------------
// pwTabKau - тип аналитики по которой делается отбор счетов
// pcKau - значение искомой аналитики
// ---------------------------------------------------------------------------
Procedure GetOborotOnAnalitForSpMove( pwTabKau : word;
pcKau : comp;
_cSoprHoz : comp );
var i : word;
{
if (pwTabKau = 0) or (pcKau = 0)
Exit;

StartNewVisual(vtRotateVisual, vfTimer + vfBreak + vfConfirm, 'Отбор проводок по операции...', 1);

loObSpMove._LOOP Oborot where ((_cSoprHoz == Oborot.cSoprHoz))
{
NextVisual;
for (i := cFirstKau; i <= cLastKau; i++)
{
if ((loObSpMove.Oborot.TblOs[i] = pwTabKau) and (loObSpMove.Oborot.KauOs[i] = pcKau)) or
((loObSpMove.Oborot.TblKs[i] = pwTabKau) and (loObSpMove.Oborot.KauKs[i] = pcKau))
{
loObSpMove.tOborotSel.cOborot := loObSpMove.Oborot.NRec;
loObSpMove.Insert current tOborotSel;
Break;
}
}
}
StopVisual('', 0);
}

Как измененно :

Исправлено. Отвязанные от документов с аналитикой по карточке ОС проводки не удаляются.