Процедура Recalc_All

[Espada]

Здравствуйте. Для пересчета данных в актах на списания МЦ из производства, почитал, что можно использовать

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

Procedure Recalc_All;
Interface iAttachDoc 'Редактор связей';

может кто-нибудь использовал данную процедуру? и может поделиться примером кода с её использованием? спасибо

[Алексей]

Похоже на обычный объектный интерфейс. Использовать как и остальные, объявить переменную и вызвать процедуру.
Но думаю там ещё какая-нибудь подготовительная процедрука должна быть, где надо будет указать какой именно док-т пересчитывать.

[oiko]

Возможно это она - ничего интересного не делает

procedure Recalc_All;
{
var cSpObjAcc, cSpRec : comp;
var tSpObjAcc : word;

RapsredKolPoPos := 0;
cSpObjAcc := SpObjAccSyr.cObject;
cSpRec := SpObjAccSyr.nRec;
tSpObjAcc := SpObjAccSyr.TypeObj
PushPos(#SpObjAccSyr);
if (GetFirst SpObjAccSyr where (( cSpObjAcc == SpObjAccSyr.cObject and
tSpObjAcc == SpObjAccSyr.TypeObj))= tsOk)
do
{
if (cSpRec <> SpObjAccSyr.nRec)
RapsredKolPoPos := RapsredKolPoPos+
ConvertToSecondEd(SpObjAccSyr.KolcPos, EdIzmSyrFactnRec/*KatOtpEd.NRec*/,
if(SpObjAccSyr.TypeObj=toSpSopr,SpSOPR.cOtpEd, SpSTEP.cOtpEd));
}
while (GetNext SpObjAccSyr where ((cSpObjAcc == SpObjAccSyr.cObject and
tSpObjAcc == SpObjAccSyr.TypeObj ))= tsOk)

PopPos(#SpObjAccSyr);
RapsredKolPoPos := RapsredKolPoPos+
ConvertToSecondEd(SpObjAccSyr.KolcPos, EdIzmSyrFactnRec/*KatOtpEd.NRec*/,
if(SpObjAccSyr.TypeObj=toSpSopr,SpSOPR.cOtpEd, SpSTEP.cOtpEd));

} // function Recalc_All